You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
777 B
EmacsLisp
16 lines
777 B
EmacsLisp
(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>")))
|