;; 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 " " csstext "