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

Add icon options to dwpost function

Browse source
This commit is contained in:
trémeur 2022-02-19 21:01:01 +00:00
parent a6924dc5bb
commit e1984707ef
1 changed files with 12 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

20
custom/dwpost.el
View file

@ -1,5 +1,5 @@
(defun dwpost (psubject tags)
(interactive "MPost title (REQUIRED): \nMTags (comma-separated): ")
(defun dwpost (psubject tags icon)
(interactive "MPost title (REQUIRED): \nMTags (comma-separated): \nMIcon: ")
(let ((org-export-with-author 'nil)
(org-export-with-creator 'nil)
(org-export-with-date 'nil)
@ -19,14 +19,15 @@
(compose-mail "tobli+0397@post.dreamwidth.org" psubject)
(with-current-buffer "*unsent mail to tobli*"
(insert (concat "post-tags: org-export, "tags "\n\n"))
(insert (concat "post-icon: "icon "\n\n"))
(insert-file-contents newname)
(message-send-and-exit))
(kill-buffer "*sent mail to tobli*")
(with-current-buffer oldname
(delete-file newname)))
(defun dwpost-public (psubject tags)
(interactive "MPost title (REQUIRED): \nMTags (comma-separated): ")
(defun dwpost-public (psubject tags icon)
(interactive "MPost title (REQUIRED): \nMTags (comma-separated): \nMIcon: ")
(let ((org-export-with-author 'nil)
(org-export-with-creator 'nil)
(org-export-with-date 'nil)
@ -47,14 +48,15 @@
(with-current-buffer "*unsent mail to tobli*"
(insert "post-security: public\n")
(insert (concat "post-tags: org-export, "tags "\n\n"))
(insert (concat "post-icon: "icon "\n\n"))
(insert-file-contents newname)
(message-send-and-exit))
(kill-buffer "*sent mail to tobli*")
(with-current-buffer oldname
(delete-file newname)))
(defun dwpost-access (psubject tags)
(interactive "MPost title (REQUIRED): \nMTags (comma-separated): ")
(defun dwpost-access (psubject tags icon)
(interactive "MPost title (REQUIRED): \nMTags (comma-separated): \nMIcon: ")
(let ((org-export-with-author 'nil)
(org-export-with-creator 'nil)
(org-export-with-date 'nil)
@ -75,14 +77,15 @@
(with-current-buffer "*unsent mail to tobli*"
(insert "post-security: access\n")
(insert (concat "post-tags: org-export, "tags "\n\n"))
(insert (concat "post-icon: "icon "\n\n"))
(insert-file-contents newname)
(message-send-and-exit))
(kill-buffer "*sent mail to tobli*")
(with-current-buffer oldname
(delete-file newname)))
(defun dwpost-me (psubject tags)
(interactive "MPost title (REQUIRED): \nMTags (comma-separated): ")
(defun dwpost-me (psubject tags icon)
(interactive "MPost title (REQUIRED): \nMTags (comma-separated): \nMIcon: ")
(let ((org-export-with-author 'nil)
(org-export-with-creator 'nil)
(org-export-with-date 'nil)
@ -103,6 +106,7 @@
(with-current-buffer "*unsent mail to tobli*"
(insert "post-security: private\n")
(insert (concat "post-tags: org-export, "tags "\n\n"))
(insert (concat "post-icon: "icon "\n\n"))
(insert-file-contents newname)
(message-send-and-exit))
(kill-buffer "*sent mail to tobli*")