diff options
| author | Craig Jennings <c@cjennings.net> | 2026-06-07 01:00:55 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-06-07 01:00:55 -0500 |
| commit | 865473ebe470d4abc858c67ba1456c10ca0012c9 (patch) | |
| tree | af5ac2e696769942b1a6e12b9a1b3c53593cd75a | |
| parent | eef4b44b461a21fb99eedc4a70cb3f25fc536ba9 (diff) | |
| download | pearl-865473ebe470d4abc858c67ba1456c10ca0012c9.tar.gz pearl-865473ebe470d4abc858c67ba1456c10ca0012c9.zip | |
fix(keymap): label the issue create/delete keys 'ticket' to match the t chord
| -rw-r--r-- | pearl.el | 4 | ||||
| -rw-r--r-- | tests/test-pearl-keymap.el | 2 |
2 files changed, 3 insertions, 3 deletions
@@ -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))) |
