From d665582d6fc19c15a772c6ec24ff822e7e3c37f9 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Mon, 25 May 2026 17:51:17 -0500 Subject: fix(org): guard external-tool assumptions in export and publishing commands MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Four export/publishing commands shelled out to external tools without checking they exist, so a missing tool surfaced as an opaque process error — or, for reveal.js, a silently broken presentation. I added a command-time guard to each that names the tool and what's needed: - zathura, in the pandoc PDF export-and-open command - the hugo binary and the platform file-manager opener, in hugo-config - the local reveal.js checkout (run scripts/setup-reveal.sh), shared by the reveal export and preview commands - pandoc, in the web-clip protocol handler The checks run only when the command runs, so startup stays quiet. Each guard has a test asserting the user-error fires when the tool is absent, and the existing happy-path tests now stub the lookups so they exercise the real path rather than tripping the new guard. --- tests/test-hugo-config-commands.el | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'tests/test-hugo-config-commands.el') diff --git a/tests/test-hugo-config-commands.el b/tests/test-hugo-config-commands.el index a387d57d..01df5fc1 100644 --- a/tests/test-hugo-config-commands.el +++ b/tests/test-hugo-config-commands.el @@ -210,6 +210,7 @@ stubbed before the org-mode-derived guard runs." (let ((cj/hugo--preview-process nil) (start-args nil)) (cl-letf (((symbol-function 'process-live-p) (lambda (_) nil)) + ((symbol-function 'executable-find) (lambda (_) "/usr/bin/hugo")) ((symbol-function 'start-process) (lambda (&rest args) (setq start-args args) @@ -221,6 +222,16 @@ stubbed before the org-mode-derived guard runs." (should (eq cj/hugo--preview-process 'fake-proc)) (should (member "server" start-args)))) +(ert-deftest test-hugo-preview-errors-when-hugo-missing () + "Error: a missing hugo binary signals user-error before start-process." + (let ((cj/hugo--preview-process nil)) + (cl-letf (((symbol-function 'process-live-p) (lambda (_) nil)) + ((symbol-function 'executable-find) (lambda (_) nil)) + ((symbol-function 'start-process) + (lambda (&rest _) (error "start-process should not run"))) + ((symbol-function 'message) #'ignore)) + (should-error (cj/hugo-preview) :type 'user-error)))) + ;;; cj/hugo-publish (ert-deftest test-hugo-publish-opens-magit-on-website-dir () -- cgit v1.2.3