eltuki: Add post skeleton and use it for new posts
This commit is contained in:
parent
a13dbcec8d
commit
1be69078ad
1 changed files with 11 additions and 1 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue