;; 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")))