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

Allow no location, option for write-in music

Browse source
This commit is contained in:
trémeur 2022-05-02 22:20:43 +01:00
parent 0218f7d95c
commit 23ecdc57b1
1 changed files with 19 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

25
custom/dwpost.el
View file

@ -57,8 +57,8 @@
(setq music (replace-regexp-in-string (regexp-quote "\" \"") " – " (format "%S" music) nil 'literal))
(sleep-for 1)
(if (not music)
(setq music "skip"))
(if (equal music "skip")
(setq music "nil"))
(if (equal music "nil")
(sleep-for 0)
(insert (concat "post-music: "
(let* ((musicjunk
@ -80,16 +80,27 @@
(sleep-for 0)
(insert (concat "post-icon: "icon "\n"))))
(defun dwpost (psubject tags location)
(defun dwlocation ()
(setq location (read-string "Location: " "🏠"))
(if (equal location "")
(sleep-for 0)
(insert (concat "post-location: " location "\n"))))
(defun dwmusic-manual ()
(setq music (read-string "Music: "))
(if (equal music "")
(sleep-for 0)
(insert (concat "post-music: " music "\n"))))
(defun dwpost (psubject tags)
(interactive (list (read-string "Post title (REQUIRED): ")
(read-string "Tags (comma-separated): ")
(read-string "Location: " "🏠")))
(read-string "Tags (comma-separated): ")))
(dwexport)
(compose-mail "tobli+0397@post.dreamwidth.org" psubject)
(with-current-buffer "*unsent mail to tobli*"
(insert (concat "post-tags: org-export, "tags "\n"))
(insert (concat "post-location: "location "\n"))
(insert (concat "post-tags: org-export, " tags "\n"))
(dwsecurity)
(dwlocation)
(dwicon newname)
(dwmood)
(dwmusic)