eltuki: Add post skeleton and use it for new posts

This commit is contained in:
Tom Willemsen 2013-01-04 00:01:52 +01:00
parent a13dbcec8d
commit 1be69078ad

View file

@ -46,10 +46,20 @@
:group 'eltuki :group 'eltuki
:type 'string) :type 'string)
(define-skeleton eltuki-post
"Create a post template for eltuki."
""
"#+TITLE: " (skeleton-read "Title: ") "\n"
"#+TIMESTAMP: \n"
"#+TAGS: " (skeleton-read "Tags (comma separated): ") "\n"
"\n"
_)
(defun eltuki-new-post () (defun eltuki-new-post ()
(interactive) (interactive)
(switch-to-buffer (get-buffer-create "*eltuki*")) (switch-to-buffer (get-buffer-create "*eltuki*"))
(org-mode)) (org-mode)
(eltuki-post))
(defun eltuki-get-title () (defun eltuki-get-title ()
(save-excursion (save-excursion