(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
"#+AUTHOR: " my-name "\n"
"#+EMAIL: " my-email "\n"
"#+DATE: " date " " (format-time-string "%A") "\n"
- "\n"))))
+ "\n"))
+ (save-buffer)))