aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCraig Jennings <c@cjennings.net>2026-06-07 01:00:55 -0500
committerCraig Jennings <c@cjennings.net>2026-06-07 01:00:55 -0500
commit865473ebe470d4abc858c67ba1456c10ca0012c9 (patch)
treeaf5ac2e696769942b1a6e12b9a1b3c53593cd75a
parenteef4b44b461a21fb99eedc4a70cb3f25fc536ba9 (diff)
downloadpearl-865473ebe470d4abc858c67ba1456c10ca0012c9.tar.gz
pearl-865473ebe470d4abc858c67ba1456c10ca0012c9.zip
fix(keymap): label the issue create/delete keys 'ticket' to match the t chord
-rw-r--r--pearl.el4
-rw-r--r--tests/test-pearl-keymap.el2
2 files changed, 3 insertions, 3 deletions
diff --git a/pearl.el b/pearl.el
index 3f0a4ae..523cac3 100644
--- a/pearl.el
+++ b/pearl.el
@@ -8199,7 +8199,7 @@ Editing a local view lives in `pearl-views-map' (`v e').")
(defvar pearl-create-map
(let ((map (make-sparse-keymap)))
- (define-key map "t" (cons "create issue" #'pearl-create-issue))
+ (define-key map "t" (cons "create ticket" #'pearl-create-issue))
(define-key map "c" (cons "create comment" #'pearl-create-comment))
map)
"Pearl create commands; a sub-keymap of `pearl-prefix-map'.
@@ -8207,7 +8207,7 @@ Creating a local view lives in `pearl-views-map' (`v c').")
(defvar pearl-delete-map
(let ((map (make-sparse-keymap)))
- (define-key map "t" (cons "delete issue" #'pearl-delete-current-issue))
+ (define-key map "t" (cons "delete ticket" #'pearl-delete-current-issue))
(define-key map "c" (cons "delete comment" #'pearl-delete-current-comment))
map)
"Pearl delete commands; a sub-keymap of `pearl-prefix-map'.
diff --git a/tests/test-pearl-keymap.el b/tests/test-pearl-keymap.el
index 6107d9f..ce8492b 100644
--- a/tests/test-pearl-keymap.el
+++ b/tests/test-pearl-keymap.el
@@ -155,7 +155,7 @@ literal my-open-issues fetch stays at f o (they are no longer the same command).
"Leaf bindings carry verb labels; sub-prefixes carry +labels."
(should (string= "edit state"
(test-pearl-keymap--label-of pearl-edit-map 'pearl-edit-state)))
- (should (string= "create issue"
+ (should (string= "create ticket"
(test-pearl-keymap--label-of pearl-create-map 'pearl-create-issue)))
(should (string= "open issue in browser"
(test-pearl-keymap--label-of pearl-open-map 'pearl-open-current-issue)))