feat(google-keep): org-page renderer, refresh command, keybindings (Phase 2-3)

The elisp side of the Keep integration: a pure JSON-to-org core (parse, tag/heading/render helpers) kept free of .emacs.d specifics for later extraction, plus the IO runner cj/keep-refresh (async make-process + sentinel, atomic temp-then-rename write to keep-file, stderr-token to display-warning) and the glue (C-c k prefix, executable warning, require in init.el). 15 ERT tests over the core and the parse-render-write chain. Read-only v1; live fetch needs the one-time gkeepapi + token setup.

1 files changed, 142 insertions, 0 deletions

diff --git a/tests/test-google-keep-config.el b/tests/test-google-keep-config.el
new file mode 100644
index 000000000..690355506
--- /dev/null
+++ b/tests/test-google-keep-config.el
@@ -0,0 +1,142 @@
+;;; test-google-keep-config.el --- Tests for google-keep-config -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Tests for the pure JSON-to-org core of google-keep-config.el (the part that
+;; later extracts to a package) plus the parse-render-write chain.  The bridge
+;; subprocess + auth are the IO boundary, exercised live once the token is set.
+
+;;; Code:
+
+(require 'ert)
+(require 'google-keep-config)
+
+(defun test-google-keep--note (&rest overrides)
+  "Build a note alist (parse-shaped) with OVERRIDES merged in."
+  (let ((base (list (cons 'id "abc")
+                    (cons 'title "Groceries")
+                    (cons 'text "milk\neggs")
+                    (cons 'labels '("shopping" "home"))
+                    (cons 'pinned nil)
+                    (cons 'archived nil)
+                    (cons 'color "WHITE")
+                    (cons 'updated "2026-06-25T04:00:00Z"))))
+    (dolist (pair overrides base)
+      (setf (alist-get (car pair) base) (cdr pair)))))
+
+;;; cj/keep--parse-json
+
+(ert-deftest test-google-keep-parse-json-array ()
+  "Normal: a JSON array parses to a list of note alists."
+  (let ((notes (cj/keep--parse-json
+                "[{\"id\":\"a\",\"title\":\"T\",\"labels\":[\"x\"],\"pinned\":true}]")))
+    (should (= 1 (length notes)))
+    (should (equal "a" (alist-get 'id (car notes))))
+    (should (equal '("x") (alist-get 'labels (car notes))))
+    (should (eq t (alist-get 'pinned (car notes))))))
+
+(ert-deftest test-google-keep-parse-json-empty ()
+  "Boundary: an empty Keep ([]) parses to an empty list."
+  (should (null (cj/keep--parse-json "[]"))))
+
+;;; cj/keep--label-to-tag
+
+(ert-deftest test-google-keep-label-to-tag-plain ()
+  "Normal: an alphanumeric label is unchanged."
+  (should (equal "shopping" (cj/keep--label-to-tag "shopping"))))
+
+(ert-deftest test-google-keep-label-to-tag-sanitizes ()
+  "Boundary: spaces and punctuation become underscores (valid org tag chars)."
+  (should (equal "to_do_list_" (cj/keep--label-to-tag "to do/list!"))))
+
+;;; cj/keep--note-tags
+
+(ert-deftest test-google-keep-note-tags-labels ()
+  "Normal: labels render as a trailing org-tag string."
+  (should (equal " :shopping:home:" (cj/keep--note-tags (test-google-keep--note)))))
+
+(ert-deftest test-google-keep-note-tags-archived ()
+  "Normal: an archived note gains the archived tag."
+  (should (equal " :shopping:home:archived:"
+                 (cj/keep--note-tags (test-google-keep--note (cons 'archived t))))))
+
+(ert-deftest test-google-keep-note-tags-none ()
+  "Boundary: no labels and not archived yields an empty tag string."
+  (should (equal "" (cj/keep--note-tags
+                     (test-google-keep--note (cons 'labels nil))))))
+
+;;; cj/keep--note-heading
+
+(ert-deftest test-google-keep-note-heading-full ()
+  "Normal: a full note renders heading, properties, link, and body."
+  (let ((s (cj/keep--note-heading (test-google-keep--note))))
+    (should (string-match-p "\\`\\* Groceries :shopping:home:\n" s))
+    (should (string-match-p ":KEEP_ID: abc\n" s))
+    (should (string-match-p ":UPDATED: 2026-06-25T04:00:00Z\n" s))
+    (should (string-match-p "\\[\\[https://keep.google.com/#NOTE/abc\\]\\[open in Keep\\]\\]" s))
+    (should (string-match-p "milk\neggs\n" s))))
+
+(ert-deftest test-google-keep-note-heading-untitled ()
+  "Boundary: an empty title falls back to (untitled)."
+  (let ((s (cj/keep--note-heading (test-google-keep--note (cons 'title "")))))
+    (should (string-match-p "\\`\\* (untitled)" s))))
+
+(ert-deftest test-google-keep-note-heading-empty-text ()
+  "Boundary: an empty body emits no trailing text block."
+  (let ((s (cj/keep--note-heading
+            (test-google-keep--note (cons 'text "") (cons 'labels nil)))))
+    (should-not (string-match-p "open in Keep\\]\\]\n.+[^\n]" s))))
+
+;;; cj/keep--sort-pinned-first
+
+(ert-deftest test-google-keep-sort-pinned-first ()
+  "Normal: pinned notes come first, order otherwise preserved."
+  (let* ((a (test-google-keep--note (cons 'id "a") (cons 'pinned nil)))
+         (b (test-google-keep--note (cons 'id "b") (cons 'pinned t)))
+         (c (test-google-keep--note (cons 'id "c") (cons 'pinned nil)))
+         (sorted (cj/keep--sort-pinned-first (list a b c))))
+    (should (equal '("b" "a" "c") (mapcar (lambda (n) (alist-get 'id n)) sorted)))))
+
+;;; cj/keep--render
+
+(ert-deftest test-google-keep-render-header-and-notes ()
+  "Normal: the page carries the read-only header and a heading per note."
+  (let ((s (cj/keep--render (list (test-google-keep--note)) "2026-06-25 04:00")))
+    (should (string-match-p "read-only view" s))
+    (should (string-match-p "Last refresh: 2026-06-25 04:00" s))
+    (should (string-match-p "^\\* Groceries" s))))
+
+(ert-deftest test-google-keep-render-empty ()
+  "Boundary: no notes still produces a valid header-only page."
+  (let ((s (cj/keep--render nil)))
+    (should (string-match-p "#\\+TITLE: Google Keep" s))
+    (should-not (string-match-p "^\\* " s))))
+
+;;; cj/keep--write-atomically + the parse-render-write chain
+
+(ert-deftest test-google-keep-write-atomically ()
+  "Normal: content lands in the target file via temp + rename."
+  (let* ((dir (make-temp-file "keep-test-" t))
+         (file (expand-file-name "keep.org" dir)))
+    (unwind-protect
+        (progn
+          (cj/keep--write-atomically "hello\n" file)
+          (should (equal "hello\n"
+                         (with-temp-buffer (insert-file-contents file)
+                                           (buffer-string)))))
+      (delete-directory dir t))))
+
+(ert-deftest test-google-keep-write-notes-chain ()
+  "Normal: JSON in, a rendered org file out, with the note count returned."
+  (let* ((dir (make-temp-file "keep-test-" t))
+         (keep-file (expand-file-name "keep.org" dir)))
+    (unwind-protect
+        (let ((n (cj/keep--write-notes
+                  "[{\"id\":\"a\",\"title\":\"One\",\"labels\":[],\"pinned\":false,\"archived\":false,\"color\":\"WHITE\",\"updated\":\"2026-06-25T04:00:00Z\"}]")))
+          (should (= 1 n))
+          (should (string-match-p "^\\* One"
+                                  (with-temp-buffer (insert-file-contents keep-file)
+                                                    (buffer-string)))))
+      (delete-directory dir t))))
+
+(provide 'test-google-keep-config)
+;;; test-google-keep-config.el ends here