Set up dreamwidth posting function
This commit is contained in:
parent
9f242e9ca6
commit
391cdeb78b
3 changed files with 44 additions and 1 deletions
32
custom/dwpost.el
Normal file
32
custom/dwpost.el
Normal file
|
@ -0,0 +1,32 @@
|
|||
(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*"))
|
3
init.el
3
init.el
|
@ -356,7 +356,8 @@
|
|||
(setq org-export-with-section-numbers 'nil)
|
||||
(setq org-export-time-stamp-file 'nil)
|
||||
(setq org-export-with-toc 'nil)
|
||||
(setq org-html-validation-link 'nil))
|
||||
(setq org-html-validation-link 'nil)
|
||||
(load-file "~/.emacs.d/custom/dwpost.el"))
|
||||
|
||||
;; Aesthetics
|
||||
|
||||
|
|
10
snippets/org-mode/dwcut
Normal file
10
snippets/org-mode/dwcut
Normal file
|
@ -0,0 +1,10 @@
|
|||
# name: dreamwidth-cut
|
||||
# key: dwcut
|
||||
# --
|
||||
#+BEGIN_EXPORT html
|
||||
<cut text="$1">
|
||||
#+END_EXPORT
|
||||
$0
|
||||
#+BEGIN_EXPORT html
|
||||
</cut>
|
||||
#+END_EXPORT
|
Loading…
Add table
Add a link
Reference in a new issue