diff --git a/.emacs.d/site-lisp/eltuki.el b/.emacs.d/site-lisp/eltuki.el index 80400a9..224e9ab 100644 --- a/.emacs.d/site-lisp/eltuki.el +++ b/.emacs.d/site-lisp/eltuki.el @@ -46,10 +46,20 @@ :group 'eltuki :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 () (interactive) (switch-to-buffer (get-buffer-create "*eltuki*")) - (org-mode)) + (org-mode) + (eltuki-post)) (defun eltuki-get-title () (save-excursion