oreodave/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove which-key records as I no longer use which-key

Browse Source
This commit is contained in:
Aryadev Chavali
2025-02-15 22:04:00 +00:00
parent da1218ccae
commit a21a7454d7
1 changed files with 55 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

115
Emacs/.config/emacs/config.org
View File

@@ -273,19 +273,19 @@ global scope, namely:
;; General which key definitions for leaders ;; General which key definitions for leaders
(general-def (general-def
:states '(normal motion) :states '(normal motion)
"SPC" 'nil "SPC" nil
"\\" '(nil :which-key "Local leader") "\\" nil
"SPC a" '(nil :which-key "Applications") "SPC a" nil
"SPC b" '(nil :which-key "Buffers") "SPC b" nil
"SPC c" '(nil :which-key "Code") "SPC c" nil
"SPC d" '(nil :which-key "Directories") "SPC d" nil
"SPC f" '(nil :which-key "Files") "SPC f" nil
"SPC i" '(nil :which-key "Insert") "SPC i" nil
"SPC m" '(nil :which-key "Modes") "SPC m" nil
"SPC r" '(nil :which-key "Tabs") "SPC r" nil
"SPC s" '(nil :which-key "Search") "SPC s" nil
"SPC t" '(nil :which-key "Shell") "SPC t" nil
"SPC q" '(nil :which-key "Quit/Literate")) "SPC q" nil)
(general-create-definer leader (general-create-definer leader
:states '(normal motion) :states '(normal motion)
@@ -392,22 +392,18 @@ set of examples on how to use general.
"C-+" #'text-scale-adjust) "C-+" #'text-scale-adjust)
(leader (leader
"SPC" '(execute-extended-command :which-key "M-x") "SPC" #'execute-extended-command
"R" `(revert-buffer :which-key "Revert buffer") "R" #'revert-buffer
":" `(,(proc (interactive) (switch-to-buffer "*scratch*")) ":" (proc (interactive) (switch-to-buffer "*scratch*"))
:which-key "Switch to *scratch*") "!" #'async-shell-command
"!" '(async-shell-command :which-key "Async shell command") "h" #'help-command)
"h" '(help-command :which-key "Help"))
(mode-leader (mode-leader
"t" `(,(proc (interactive) (+oreo/load-theme)) "t" (proc (interactive) (+oreo/load-theme))
:which-key "Reload current theme") "T" (proc (interactive) (+oreo/switch-theme)))
"T" `(,(proc (interactive) (+oreo/switch-theme))
:which-key "Iterate through themes"))
(code-leader (code-leader
"F" `(,(proc (interactive) (find-file "~/Code/")) "F" (proc (interactive) (find-file "~/Code/")))
:which-key "Open ~/Code/"))
(search-leader (search-leader
"i" #'imenu) "i" #'imenu)
@@ -488,8 +484,8 @@ Setup the evil package, with some opinionated settings:
(evil-mode) (evil-mode)
:general :general
(leader (leader
"w" '(evil-window-map :which-key "Window") "w" #'evil-window-map
"wT" #'window-swap-states "wt" #'window-swap-states
"wd" #'evil-window-delete "wd" #'evil-window-delete
"w;" #'make-frame) "w;" #'make-frame)
@@ -648,7 +644,8 @@ outperforming ~icomplete~ consistently when displaying results.
"M-k" #'vertico-previous "M-k" #'vertico-previous
"RET" #'vertico-exit "RET" #'vertico-exit
"TAB" #'minibuffer-complete "TAB" #'minibuffer-complete
"SPC" #'self-insert-command)) "SPC" #'self-insert-command
"DEL" #'vertico-directory-delete-char))
#+end_src #+end_src
*** Consult *** Consult
Consult provides some improved replacements for certain inbuilt Consult provides some improved replacements for certain inbuilt
@@ -1503,7 +1500,7 @@ like [[*Eglot][Eglot]].
(window-height . 0.3)) (window-height . 0.3))
:general :general
(code-leader (code-leader
"t" '(nil :which-key "Tags")) "t" #'nil)
(code-leader (code-leader
:infix "t" :infix "t"
"t" #'xref-find-apropos "t" #'xref-find-apropos
@@ -1536,7 +1533,7 @@ Here I:
(:keymaps 'project-prefix-map (:keymaps 'project-prefix-map
"r" #'+project/generate-tags) "r" #'+project/generate-tags)
(leader (leader
"p" `(,project-prefix-map :which-key "Project")) "p" project-prefix-map)
:config :config
(defun +project/command (folder) (defun +project/command (folder)
(format "ctags -Re -f %sTAGS %s*" (format "ctags -Re -f %sTAGS %s*"
@@ -1797,21 +1794,21 @@ write the code.
:keymaps 'org-mode-map :keymaps 'org-mode-map
[remap imenu] #'consult-outline)) [remap imenu] #'consult-outline))
:general :general
(nmmap
"M-F" #'org-open-at-point)
(file-leader (file-leader
"l" #'org-store-link "l" #'org-store-link)
"i" #'org-insert-last-stored-link) (insert-leader
"o" #'org-insert-last-stored-link)
(code-leader (code-leader
:keymaps 'emacs-lisp-mode-map :keymaps 'emacs-lisp-mode-map
"D" #'org-babel-detangle) "D" #'org-babel-detangle)
(local-leader (local-leader
:state '(normal motion) :states '(normal motion)
:keymaps 'org-src-mode-map
"o" #'org-edit-src-exit)
(local-leader
:keymaps 'org-mode-map :keymaps 'org-mode-map
"l" '(nil :which-key "Links") "l" nil
"'" '(nil :which-key "Tables") "'" nil
"c" '(nil :which-key "Clocks") "c" nil
"r" #'org-refile "r" #'org-refile
"d" #'org-date-from-calendar "d" #'org-date-from-calendar
"t" #'org-todo "t" #'org-todo
@@ -1860,12 +1857,11 @@ a very tidy way to manage your time.
(evil-set-initial-state 'org-agenda-mode 'normal) (evil-set-initial-state 'org-agenda-mode 'normal)
:general :general
(file-leader (file-leader
"a" `(,(proc (interactive) "a" (proc (interactive)
(--> (directory-files (car org-agenda-files)) (--> (directory-files (car org-agenda-files))
(mapcar #'(lambda (x) (concat (car org-agenda-files) x)) it) (mapcar #'(lambda (x) (concat (car org-agenda-files) x)) it)
(completing-read "Enter directory: " it nil t) (completing-read "Enter directory: " it nil t)
(find-file it))) (find-file it))))
:which-key "Open agenda directory"))
(app-leader (app-leader
"a" #'org-agenda) "a" #'org-agenda)
(nmmap (nmmap
@@ -2710,13 +2706,13 @@ Here I just setup Sly to use ~sbcl~.
"C-k" #'sp-forward-barf-sexp) "C-k" #'sp-forward-barf-sexp)
(local-leader (local-leader
:keymaps 'lisp-mode-map :keymaps 'lisp-mode-map
"a" '(sly-apropos :which-key "Apropos") "a" #'sly-apropos
"d" '(sly-describe-symbol :which-key "Describe symbol") "d" #'sly-describe-symbol
"s" '(sly-mrepl-sync :which-key "Sync REPL") "s" #'sly-mrepl-sync
"l" '(sly-load-file :which-key "Load file") "l" #'sly-load-file
"c" '(sly-compile-defun :which-key "Compile defun") "c" #'sly-compile-defun
"D" '(sly-documentation-lookup :which-key "Lookup on lispworks") "D" #'sly-documentation-lookup
"C" '(sly-compile-file :which-key "Compile file")) "C" #'sly-compile-file)
(local-leader (local-leader
:keymaps 'lisp-mode-map :keymaps 'lisp-mode-map
:infix "e" :infix "e"
@@ -2731,7 +2727,7 @@ Here I just setup Sly to use ~sbcl~.
(local-leader (local-leader
:keymaps 'sly-mrepl-mode-map :keymaps 'sly-mrepl-mode-map
"c" #'sly-mrepl-clear-repl "c" #'sly-mrepl-clear-repl
"s" '(sly-mrepl-shortcut :which-key "Shortcut")) "s" #'sly-mrepl-shortcut)
(nmap (nmap
:keymaps 'sly-db-mode-map :keymaps 'sly-db-mode-map
"\C-i" 'sly-db-cycle "\C-i" 'sly-db-cycle
@@ -2931,7 +2927,7 @@ everything myself.
(inhibit-duplicate-buffer . t)) (inhibit-duplicate-buffer . t))
:general :general
(leader (leader
"g" '(magit-dispatch :which-key "Magit")) "g" #'magit-dispatch)
(code-leader (code-leader
"b" #'magit-blame) "b" #'magit-blame)
(nmap :keymaps 'magit-status-mode-map (nmap :keymaps 'magit-status-mode-map
@@ -3098,6 +3094,8 @@ Here I setup dired with a few niceties
:keymaps 'dired-mode-map :keymaps 'dired-mode-map
"SPC" nil "SPC" nil
"SPC ," nil "SPC ," nil
"M-k" #'dired-prev-subdir
"M-j" #'dired-next-subdir
"q" #'quit-window "q" #'quit-window
"j" #'dired-next-line "j" #'dired-next-line
"k" #'dired-previous-line "k" #'dired-previous-line
@@ -3187,16 +3185,13 @@ Here I setup dired with a few niceties
"d" #'dired "d" #'dired
"D" #'dired-other-window "D" #'dired-other-window
"i" #'image-dired "i" #'image-dired
"b" `(,(proc (interactive) "b" (proc (interactive)
(dired "~/Text/Books/")) (dired "~/Text/Books/")))
:which-key "Open Books"))
(local-leader (local-leader
:keymaps 'dired-mode-map :keymaps 'dired-mode-map
"i" #'dired-maybe-insert-subdir "i" #'dired-maybe-insert-subdir
"I" #'+dired/insert-all-subdirectories "I" #'+dired/insert-all-subdirectories
"o" #'dired-omit-mode "o" #'dired-omit-mode
"k" #'dired-prev-subdir
"j" #'dired-next-subdir
"K" #'dired-kill-subdir "K" #'dired-kill-subdir
"m" #'dired-mark-files-regexp "m" #'dired-mark-files-regexp
"u" #'dired-undo) "u" #'dired-undo)
@@ -3537,7 +3532,7 @@ most distribution nowadays.
(search-leader (search-leader
"r" #'rg) "r" #'rg)
(:keymaps 'project-prefix-map (:keymaps 'project-prefix-map
"t" `(+rg/project-todo :which-key "Project TODOs")) "t" #'+rg/project-todo)
(nmmap (nmmap
:keymaps 'rg-mode-map :keymaps 'rg-mode-map
"c" #'rg-recompile "c" #'rg-recompile