From 4290646aba13235f4d11c2a3bf8fdda8a5eb8699 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sun, 16 Apr 2023 21:34:19 +0300 Subject: [PATCH] Add a command for testing the website locally --- esy-publish.el | 21 ++++++++++++++------- 1 file changed, 14 insertions(+), 7 deletions(-) diff --git a/esy-publish.el b/esy-publish.el index 742f1ab..300f314 100644 --- 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 -- 2.39.5