tre/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add function for inserting local image with proper export path

Browse source
This commit is contained in:
mez 2025-08-18 21:53:37 +01:00
parent fd515b5266
commit 02b0369d87
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
custom/dwuser.el
View file

@ -1,15 +0,0 @@
(defun dwuser ()
"Insert HTML link to a DW personal account"
(interactive)
(setq theuser (read-string "DW username: "))
(setq userdisplay (subst-char-in-string ?- ?_ theuser))
(setq userlink (subst-char-in-string ?_ ?- theuser))
(insert (concat "<a href=\"https://" userlink ".dreamwidth.org/profile\">~</a><a href=\"https://" userlink ".dreamwidth.org\">" userdisplay "</a>")))
(defun dwcomm ()
"Insert HTML link to a DW community"
(interactive)
(setq theuser (read-string "DW comm name: "))
(setq userdisplay (subst-char-in-string ?- ?_ theuser))
(setq userlink (subst-char-in-string ?_ ?- theuser))
(insert (concat "<a href=\"https://" userlink ".dreamwidth.org/profile\">/</a><a href=\"https://" userlink ".dreamwidth.org\">" userdisplay "</a>")))