Add icon options to dwpost function

master
trémeur 3 years ago
parent a6924dc5bb
commit e1984707ef

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

Loading…
Cancel
Save