From 865473ebe470d4abc858c67ba1456c10ca0012c9 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Sun, 7 Jun 2026 01:00:55 -0500 Subject: fix(keymap): label the issue create/delete keys 'ticket' to match the t chord --- pearl.el | 4 ++-- tests/test-pearl-keymap.el | 2 +- 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))) -- cgit v1.2.3