X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=blog-tool.el;fp=blog-tool.el;h=cb04b8e4c6413d9726a8adb14b282c3c299c45d5;hb=44e4071401fd97ddbf457d3a90ddba2884e8efe0;hp=05907333612ec55512ac2aa989d4d3bbc855d0e6;hpb=13a89331feb7b8adb03d765df3c99c1cbb48e89a;p=blog.git diff --git a/blog-tool.el b/blog-tool.el index 0590733..cb04b8e 100644 --- a/blog-tool.el +++ b/blog-tool.el @@ -32,7 +32,7 @@ (defun blog-tool-create-post () "Create a post." (interactive) - (let ((title (read-from-minibuffer "Title:")) + (let ((title (read-from-minibuffer "Title: ")) (date (format-time-string "%Y-%m-%d")) (filename "")) (setq filename @@ -46,7 +46,8 @@ "#+AUTHOR: " my-name "\n" "#+EMAIL: " my-email "\n" "#+DATE: " date " " (format-time-string "%A") "\n" - "\n")))) + "\n")) + (save-buffer)))