From 5f7a6b8dddbbff8f948c744226f1bae1c7076db5 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Tue, 13 Dec 2022 07:11:36 -0800 Subject: Give some keybindings (hopefully) more descriptive names This style of keybinding helps ‘which-key’[1] to display a better name for the command. [1]: https://github.com/justbur/emacs-which-key --- oni-core.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'oni-core.el') diff --git a/oni-core.el b/oni-core.el index 5384e45..0f55ee9 100644 --- a/oni-core.el +++ b/oni-core.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse ;; Keywords: local -;; Version: 2022.1113.230412 +;; Version: 2022.1213.071035 ;; Package-Requires: (oni-data-dir oni-embrace oni-hydra expand-region multiple-cursors gcmh diminish ws-butler which-key insert-char-preview mixed-pitch ace-window vertico marginalia orderless consult embark docstr) ;; This program is free software; you can redistribute it and/or modify @@ -209,11 +209,11 @@ _s_: String list" (global-set-key (kbd "C-S-f") 'windmove-right) (global-set-key (kbd "C-S-n") 'windmove-down) (global-set-key (kbd "C-S-p") 'windmove-up) -(global-set-key (kbd "C-c (") 'embrace-commander) -(global-set-key (kbd "C-c q") #'oni-core-unfill-paragraph) -(global-set-key (kbd "C-c s") #'oni-sort-and-align-hydra/body) +(global-set-key (kbd "C-c (") '("Embrace Commander" . embrace-commander)) +(global-set-key (kbd "C-c q") '("Unfill Paragraph" . oni-core-unfill-paragraph)) +(global-set-key (kbd "C-c s") '("Sort and Align Commands" . oni-sort-and-align-hydra/body)) (global-set-key (kbd "C-c l") 'imenu) -(global-set-key (kbd "C-x C-b") 'ibuffer-jump) +(global-set-key (kbd "C-x C-b") '("List Buffers" . ibuffer-jump)) (global-set-key (kbd "C-x M-f") 'ffap) (global-set-key (kbd "M-+") 'mc/mark-next-like-this) (global-set-key [remap insert-char] 'insert-char-preview) @@ -403,8 +403,8 @@ _s_: String list" (global-set-key [remap bookmark-jump] 'consult-bookmark) (global-set-key [remap yank-pop] 'consult-yank-pop) (global-set-key [remap goto-line] 'consult-goto-line) -(global-set-key (kbd "M-g m") 'consult-mark) -(global-set-key (kbd "M-g M") 'consult-global-mark) +(global-set-key (kbd "M-g m") '("Jump to a mark" . consult-mark)) +(global-set-key (kbd "M-g M") '("Jump to a mark anywhere" . consult-global-mark)) (global-set-key [remap imenu] 'consult-imenu) ;;; Embark -- cgit v1.2.3-54-g00ecf