add stop server

diff --git a/blog-tool.el b/blog-tool.el
index f7f1753..81cec85 100644 (file)
--- 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")))