From fea87f3aa9032dea0be342b706ea0111e7f59178 Mon Sep 17 00:00:00 2001 From: Peng Li Date: Fri, 12 May 2017 11:27:22 +0800 Subject: [PATCH] blog-tool, add start server function to start a web server use python external command --- blog-tool.el | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/blog-tool.el b/blog-tool.el index 6d5401d..f7f1753 100644 --- a/blog-tool.el +++ b/blog-tool.el @@ -48,6 +48,25 @@ (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")) + (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))) + +(defun blog-tool-stop-server () + "Stop the http server." + (interactive) + (stop-process "blog-server")) + -- 2.11.0