projects
/
blog.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add stop server
[blog.git]
/
blog-tool.el
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")
;; 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)
(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)
(defun blog-tool-stop-server ()
"Stop the http server."
(interactive)
- (
stop-process "blog-server"
))
+ (
kill-process (get-process "blog-server")
))