blog-tool - save buffer when open it
authorPeng Li <seudut@gmail.com>
Mon, 10 Apr 2017 16:02:18 +0000 (00:02 +0800)
committerPeng Li <seudut@gmail.com>
Mon, 10 Apr 2017 16:02:18 +0000 (00:02 +0800)
blog-tool.el

index 0590733..cb04b8e 100644 (file)
@@ -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)))