X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;ds=sidebyside;f=blog-tool.el;fp=blog-tool.el;h=f7f1753c7d7e6e7f19301bcbf23f55d537431419;hb=fea87f3aa9032dea0be342b706ea0111e7f59178;hp=6d5401db68637911e73b21981f610e08b7c6b0f5;hpb=3ced01e672ca730b5506d1dd7ed1338293b580e0;p=blog.git

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