You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
33 lines
1.1 KiB
EmacsLisp
33 lines
1.1 KiB
EmacsLisp
3 years ago
|
(defun dwpost (psubject)
|
||
|
|
(interactive "MPost title (REQUIRED): ")
|
||
|
|
(org-html-export-to-html)
|
||
|
|
(defvar newname (concat (file-name-base) ".html"))
|
||
|
|
(find-file-noselect newname)
|
||
|
|
(with-current-buffer newname
|
||
|
|
(goto-line 1)
|
||
|
|
(delete-region (line-beginning-position) (line-end-position))
|
||
|
|
(write-file newname))
|
||
|
|
(kill-buffer newname)
|
||
|
|
(compose-mail "tobli+0397@post.dreamwidth.org" psubject)
|
||
|
|
(with-current-buffer "*unsent mail to tobli*"
|
||
|
|
(insert-file-contents newname)
|
||
|
|
(message-send-and-exit))
|
||
|
|
(kill-buffer "*sent mail to tobli*"))
|
||
|
|
|
||
|
|
(defun dwpost-public (psubject)
|
||
|
|
(interactive "MPost title (REQUIRED): ")
|
||
|
|
(org-html-export-to-html)
|
||
|
|
(defvar newname (concat (file-name-base) ".html"))
|
||
|
|
(find-file-noselect newname)
|
||
|
|
(with-current-buffer newname
|
||
|
|
(goto-line 1)
|
||
|
|
(delete-region (line-beginning-position) (line-end-position))
|
||
|
|
(write-file newname))
|
||
|
|
(kill-buffer newname)
|
||
|
|
(compose-mail "tobli+0397@post.dreamwidth.org" psubject)
|
||
|
|
(with-current-buffer "*unsent mail to tobli*"
|
||
|
|
(insert "post-security: public\n\n")
|
||
|
|
(insert-file-contents newname)
|
||
|
|
(message-send-and-exit))
|
||
|
|
(kill-buffer "*sent mail to tobli*"))
|