blob: 1ad2ada979a1cc194650a8e2d2d845a35aa83eb0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
;;; test-org-noter-config-keymap.el --- Lock the cj/org-noter-map shape -*- lexical-binding: t; -*-
;;; Commentary:
;; Pins the bindings under `C-; n' so a casual edit doesn't drift the
;; layout without intent. Mnemonic: the most-used action (insert
;; note) sits on the doubled-prefix letter `n', sibling-stepping goes
;; on the angle-bracket pair, and `.' stays the "this entry" key.
;;; Code:
(require 'ert)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'org-noter-config)
(ert-deftest test-org-noter-keymap-insert-note-on-doubled-n ()
"Normal: `C-; n n' invokes the insert-note command (the most-used
action, on the doubled-prefix letter)."
(should (eq (keymap-lookup cj/org-noter-map "n")
#'cj/org-noter-insert-note-dwim)))
(ert-deftest test-org-noter-keymap-sync-siblings-on-angle-brackets ()
"Normal: sibling-stepping lives on `>' (next) and `<' (prev).
The angle brackets read naturally as direction; this freed up `n'
and `p' for the insert and other future actions."
(should (eq (keymap-lookup cj/org-noter-map ">")
#'org-noter-sync-next-note))
(should (eq (keymap-lookup cj/org-noter-map "<")
#'org-noter-sync-prev-note)))
(ert-deftest test-org-noter-keymap-sync-current-stays-on-dot ()
"Normal: `.' still invokes `org-noter-sync-current-note'."
(should (eq (keymap-lookup cj/org-noter-map ".")
#'org-noter-sync-current-note)))
(ert-deftest test-org-noter-keymap-no-stale-i-binding ()
"Regression: the old `i' binding for insert-note is gone (insert
moved to `n'). Leaving `i' around would create two ways to invoke
the same command and a stale which-key hint."
(should-not (keymap-lookup cj/org-noter-map "i")))
(provide 'test-org-noter-config-keymap)
;;; test-org-noter-config-keymap.el ends here
|
