Add a command for testing the website locally

diff --git a/esy-publish.el b/esy-publish.el
index 742f1abfcfff42da34fd8fd5e9a2d001c2487a99..300f314f8437210690579639649274d9c3664529 100644 (file)
--- a/esy-publish.el
+++ b/esy-publish.el
@@ -28,6 +28,12 @@
 
 (defvar esy-publish-did-setup-p nil)
 
+(defvar esy-publish--buffers nil)
+
+(defvar esy-publish--publishing nil)
+
+(defvar esy-publish--local-server-process nil)
+
 (defvar esy-publish-elisp-directory
   (file-name-as-directory
    (file-truename
@@ -420,10 +426,6 @@
   (esy-publish--finalize-feed plist)
   (esy-publish--finalize-sitemap plist))
 
-(defvar esy-publish--buffers nil)
-
-(defvar esy-publish--publishing nil)
-
 ;;;###autoload
 (defun esy-publish (&optional force)
   (interactive "P")
@@ -536,9 +538,6 @@
         (kill-buffer buffer))))
   (setq esy-publish--buffers nil))
 
-(defun esy-publish-all ()
-  (esy-publish t))
-
 ;;;###autoload
 (defun esy-publish-to-remote ()
   (interactive)
@@ -546,5 +545,13 @@
                    esy-publish-local-directory
                    esy-publish-remote-directory)))
 
+;;;###autoload
+(defun esy-publish-local-server ()
+  (interactive)
+  (unless (process-live-p esy-publish--local-server-process)
+    (let ((default-directory esy-publish-local-directory))
+      (start-process "esy-publish-local-server" nil
+                     "python3" "-m" "http.server"))))
+
 (provide 'esy-publish)
 ;;; esy-publish.el ends here