X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;ds=sidebyside;f=blog-tool.el;h=81cec854ea3337122b0685a92be8ef1d7e0d59a7;hb=44333cad8b596465eca7261323a362e0ac2bf69b;hp=05907333612ec55512ac2aa989d4d3bbc855d0e6;hpb=13a89331feb7b8adb03d765df3c99c1cbb48e89a;p=blog.git

diff --git a/blog-tool.el b/blog-tool.el
index 0590733..81cec85 100644
--- a/blog-tool.el
+++ b/blog-tool.el
@@ -32,12 +32,10 @@
 (defun blog-tool-create-post ()
   "Create a post."
   (interactive)
-  (let ((title (read-from-minibuffer "Title:"))
-	(date (format-time-string "%Y-%m-%d"))
+  (let ((title (read-from-minibuffer "Title: "))
 	(filename ""))
     (setq filename
 	  (concat blog-root-dir "/posts/"
-		  date "-"
 		  (replace-regexp-in-string " " "-" title)
 		  ".org"))
     (find-file filename)
@@ -45,8 +43,32 @@
 	     "#+TITLE: " title "\n"
 	     "#+AUTHOR: " my-name "\n"
 	     "#+EMAIL: " my-email "\n"
-	     "#+DATE: " date " " (format-time-string "%A") "\n"
-	     "\n"))))
+	     "#+DATE: "))
+    (org-insert-time-stamp (current-time) nil nil nil "\n")
+    (insert "\n")
+    (save-buffer)))
+
+(defun blog-tool-start-server ()
+  "Start a http server on local folder for test."
+  (interactive)
+  ;; need to check if 8000 port is in use or not
+  (let ((process-name "blog-server")
+	(buffer-name "blog-srv-buf")
+	(port-number "8000")
+	(default-directory "~/project/blog/_site/"))
+    (when (get-buffer buffer-name)
+      (with-current-buffer buffer-name
+	(erase-buffer)))
+    (start-process process-name buffer-name "python" "-m" "SimpleHTTPServer" port-number)
+    (split-window-below (- (/ (window-total-height) 3)))
+    (other-window 1)
+    (switch-to-buffer buffer-name)
+    (other-window 1)))
+
+(defun blog-tool-stop-server ()
+  "Stop the http server."
+  (interactive)
+  (kill-process (get-process "blog-server")))