From 6db8f075332ebd60a752e31453ef181b3854aec4 Mon Sep 17 00:00:00 2001 From: Peng Li Date: Fri, 12 May 2017 14:29:35 +0800 Subject: [PATCH] add stop server --- blog-tool.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) 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"))) -- 2.11.0