;; light mode only – not yet sure how to do dark mode in the most sensible way (defun addtoot () (interactive) (setq dispname (read-string "Display name: ")) (setq avatar (read-string "Avatar URL (with https://): ")) (setq fediname (read-string "Username: ")) (setq instanceurl (read-string "Instance URL (without https://): ")) (setq profileurl (read-string "Profile URL (with https://): ")) (setq toottext (read-string "Text (HTML): ")) (setq csstext (replace-regexp-in-string "\n") (if repost (insert (concat "
" reposter " shared a status by " fediname "
\n"))) (insert (concat "
\n \n \n \n
\n " dispname "\n
@" fediname "@" instanceurl "
\n
\n
\n
\n

" csstext "

\n
\n " theday " " themonth ", " theyear "\n \n"))) (defun tootbuild () (interactive) (insert "
\n") (addtoot) (insert "
"))