X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=blog-tool.el;fp=blog-tool.el;h=81cec854ea3337122b0685a92be8ef1d7e0d59a7;hb=6db8f075332ebd60a752e31453ef181b3854aec4;hp=f7f1753c7d7e6e7f19301bcbf23f55d537431419;hpb=fea87f3aa9032dea0be342b706ea0111e7f59178;p=blog.git

diff --git a/blog-tool.el b/blog-tool.el
index f7f1753..81cec85 100644
--- a/blog-tool.el
+++ b/blog-tool.el
@@ -54,18 +54,21 @@
   ;; need to check if 8000 port is in use or not
   (let ((process-name "blog-server")
 	(buffer-name "blog-srv-buf")
-	(port-number "8000"))
-    (with-current-buffer buffer-name
-      (erase-buffer))
+	(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)))
+    (switch-to-buffer buffer-name)
+    (other-window 1)))
 
 (defun blog-tool-stop-server ()
   "Stop the http server."
   (interactive)
-  (stop-process "blog-server"))
+  (kill-process (get-process "blog-server")))