(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>")))