From 1a5cab96cb619769e78e401b6df2403d5d5b00ce Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
Date: Wed, 22 Apr 2026 06:57:00 -0500
Subject: feat(hugo): draft picker, preview toggle, publish command

Put the full Hugo workflow inside Emacs. All of it lives in modules/hugo-config.el.

New functions:
- cj/hugo-open-draft reads all .org files under content-org/log, finds those with #+hugo_draft: true, and offers a completing-read picker.
- cj/hugo-preview toggles a local hugo server subprocess and opens the preview URL in the browser. A second press stops the server.
- cj/hugo-publish opens magit-status on the website repo. The server-side post-receive hook on cjennings.net already rebuilds and deploys on push, so committing and pushing is the deploy.

Two pure helpers support the picker: cj/hugo--post-metadata parses the front matter region of a post, and cj/hugo--collect-drafts walks a directory and filters to drafts. Seven ERT tests cover both helpers across normal, boundary, and error cases.

Keybinding note: C-; h d and C-; h D have swapped roles. Lowercase d now opens the draft picker. Uppercase D toggles the draft flag in the current buffer. The previous lowercase-d binding was toggle.
---
 tests/test-hugo-config--post-metadata.el | 64 ++++++++++++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100644 tests/test-hugo-config--post-metadata.el

(limited to 'tests/test-hugo-config--post-metadata.el')

diff --git a/tests/test-hugo-config--post-metadata.el b/tests/test-hugo-config--post-metadata.el
new file mode 100644
index 00000000..d0719f6f
--- /dev/null
+++ b/tests/test-hugo-config--post-metadata.el
@@ -0,0 +1,64 @@
+;;; test-hugo-config--post-metadata.el --- Tests for hugo post metadata parser  -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Unit tests for cj/hugo--post-metadata. Reads the Hugo front matter region of
+;; an Org file and returns (:title TITLE :draft BOOL) or nil for non-Hugo posts.
+;; Covers Normal, Boundary, and Error cases.
+
+;;; Code:
+
+(require 'ert)
+(require 'hugo-config)
+
+(defun test-hugo-config--post-metadata--write-fixture (contents)
+  "Write CONTENTS to a unique temp .org file and return its path."
+  (let ((file (make-temp-file "hugo-test-" nil ".org")))
+    (with-temp-file file (insert contents))
+    file))
+
+;;; Normal Cases
+
+(ert-deftest test-hugo-config--post-metadata-normal-draft-with-title ()
+  "Normal: draft post with title returns plist with title and :draft t."
+  (let ((file (test-hugo-config--post-metadata--write-fixture
+               "#+title: My First Post
+#+date: 2026-01-01
+#+hugo_draft: true
+
+Body text.")))
+    (unwind-protect
+        (let ((meta (cj/hugo--post-metadata file)))
+          (should (equal (plist-get meta :title) "My First Post"))
+          (should (eq (plist-get meta :draft) t)))
+      (delete-file file))))
+
+;;; Boundary Cases
+
+(ert-deftest test-hugo-config--post-metadata-boundary-published-no-title ()
+  "Boundary: published post without #+title: falls back to file basename."
+  (let ((file (test-hugo-config--post-metadata--write-fixture
+               "#+hugo_draft: false
+
+Body only.")))
+    (unwind-protect
+        (let ((meta (cj/hugo--post-metadata file)))
+          (should (stringp (plist-get meta :title)))
+          (should (string= (plist-get meta :title)
+                           (file-name-base file)))
+          (should (eq (plist-get meta :draft) nil)))
+      (delete-file file))))
+
+;;; Error Cases
+
+(ert-deftest test-hugo-config--post-metadata-error-missing-hugo-draft ()
+  "Error: Org file without #+hugo_draft: keyword is not a Hugo post; returns nil."
+  (let ((file (test-hugo-config--post-metadata--write-fixture
+               "#+title: Just an Org file
+
+No Hugo front matter here.")))
+    (unwind-protect
+        (should (null (cj/hugo--post-metadata file)))
+      (delete-file file))))
+
+(provide 'test-hugo-config--post-metadata)
+;;; test-hugo-config--post-metadata.el ends here
-- 
cgit v1.2.3