diff options
| -rw-r--r-- | pearl.el | 16 | ||||
| -rw-r--r-- | tests/test-pearl-keymap.el | 6 |
2 files changed, 11 insertions, 11 deletions
@@ -6867,14 +6867,14 @@ diagnostics.") (define-key map "d" (cons "edit description" #'pearl-edit-description)) (define-key map "m" (cons "menu" #'pearl-menu)) ;; Category sub-maps -- two keys; each prefix names an action verb or noun. - (define-key map "f" (cons "+fetch" pearl-fetch-map)) - (define-key map "v" (cons "+views" pearl-views-map)) - (define-key map "e" (cons "+edit" pearl-edit-map)) - (define-key map "c" (cons "+create" pearl-create-map)) - (define-key map "k" (cons "+delete" pearl-delete-map)) - (define-key map "o" (cons "+open" pearl-open-map)) - (define-key map "y" (cons "+copy" pearl-copy-map)) - (define-key map "w" (cons "+workspace" pearl-workspace-map)) + (define-key map "f" (cons "fetch..." pearl-fetch-map)) + (define-key map "v" (cons "views..." pearl-views-map)) + (define-key map "e" (cons "edit..." pearl-edit-map)) + (define-key map "c" (cons "create..." pearl-create-map)) + (define-key map "k" (cons "delete..." pearl-delete-map)) + (define-key map "o" (cons "open..." pearl-open-map)) + (define-key map "y" (cons "copy..." pearl-copy-map)) + (define-key map "w" (cons "workspace..." pearl-workspace-map)) map) "Pearl command prefix keymap. Hot-path commands are bound directly; the rest live under sub-maps diff --git a/tests/test-pearl-keymap.el b/tests/test-pearl-keymap.el index 9650652..49dbd31 100644 --- a/tests/test-pearl-keymap.el +++ b/tests/test-pearl-keymap.el @@ -167,9 +167,9 @@ literal my-open-issues fetch stays at f o (they are no longer the same command). (test-pearl-keymap--label-of pearl-views-map 'pearl-set-default-view))) (should (string= "switch account" (test-pearl-keymap--label-of pearl-workspace-map 'pearl-switch-account))) - (should (string= "+edit" (test-pearl-keymap--label-of pearl-prefix-map pearl-edit-map))) - (should (string= "+views" (test-pearl-keymap--label-of pearl-prefix-map pearl-views-map))) - (should (string= "+workspace" + (should (string= "edit..." (test-pearl-keymap--label-of pearl-prefix-map pearl-edit-map))) + (should (string= "views..." (test-pearl-keymap--label-of pearl-prefix-map pearl-views-map))) + (should (string= "workspace..." (test-pearl-keymap--label-of pearl-prefix-map pearl-workspace-map)))) (ert-deftest test-pearl-prefix-map-not-bound-at-load () |