caranmegil/whompmacs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use that handy thwap/add-key-binding function

Browse Source
This commit is contained in:
Mike 'Fuzzy' Partin 2024-07-06 10:09:44 -07:00
parent ca66401013
commit 1a4cd272bf
6 changed files with 13 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lib/thwap-defaults.el
View File

@ -40,16 +40,17 @@
(global-set-key (kbd "C-c t") 'thwap-map)
;; Add a command to customize the T.H.W.A.P. group
(define-key thwap-map (kbd "C-c") (lambda () (interactive) (customize-group 'thwap-config-group)))
(add-to-list 'thwap-help-lines "C-c t C-c : Customize this T.H.W.A.P. Emacs Installation")
(thwap/add-key-binding
"C-c"
(lambda () (interactive) (customize-group 'thwap-config-group))
"Customize this T.H.W.A.P. Emacs Installation")
;; quick commenting/uncommenting of a region is just too useful
(define-key thwap-map (kbd "c") 'comment-or-uncomment-region)
(add-to-list 'thwap-help-lines "C-c t c : Comment or uncomment region")
(thwap/add-key-binding "c" 'comment-or-uncomment-region "Comment or uncomment region")
;; eval buffer is also very useful
(define-key thwap-map (kbd "e b") 'eval-buffer)
(add-to-list 'thwap-help-lines "C-c t e b : Eval buffer")
(thwap/add-key-binding "e b" 'eval-buffer "Eval buffer")
;; our provide statement

3
lib/thwap-lsp.el
View File

@ -5,7 +5,6 @@
(straight-use-package 'lsp-treemacs)
(setq gc-cons-threshold 100000000)
(setq read-process-output-max (* 1024 1024))
(define-key thwap-map (kbd "l") 'lsp-keymap-prefix)
(add-to-list 'thwap-help-lines "C-c t l : lsp-keymap-prefix"))
(thwap/add-key-binding "l" 'lsp-keymap-prefix "lsp-keymap-prefix"))
(provide 'thwap-lsp)

3
lib/thwap-magit.el
View File

@ -3,7 +3,6 @@
(straight-use-package 'magit)
(straight-use-package 'forge)
(straight-use-package 'magit-todos)
(define-key thwap-map (kbd "g s") 'magit-status)
(add-to-list 'thwap-help-lines "C-c t g s : magit-status"))
(thwap/add-key-binding "g s" 'magit-status "Git status (magit entrypoint)"))
(provide 'thwap-magit)

6
lib/thwap-nerdtree.el
View File

@ -4,8 +4,7 @@
:straight t
:config
(global-set-key [f8] 'neotree-toggle)
(define-key thwap-map (kbd "C-n") 'neotree-toggle)
(add-to-list 'thwap-help-lines "C-c t C-n : Toggle Neotree")))
(thwap/add-key-binding "C-n" 'neotree-toggle "Toggle Neotree")))
(when (and thwap-fm-enable-treemacs (not thwap-fm-enable-neotree))
@ -28,8 +27,7 @@
treemacs-never-persist nil
treemacs-is-never-other-window t
treemacs-goto-tag-strategy 'refetch-index)))
(define-key thwap-map (kbd "C-n") 'treemacs)
(add-to-list 'thwap-help-lines "C-c t C-n : Toggle Treemacs"))
(thwap/add-key-binding "C-n" 'treemacs "Toggle Treemacs"))
(when (and thwap-fm-enable-treemacs thwap-ui-enable-kaolin-themes (not thwap-fm-enable-neotree))
(kaolin-treemacs-theme))

3
lib/thwap-projectile.el
View File

@ -1,7 +1,6 @@
(when thwap-dev-enable-projectile
(straight-use-package 'projectile)
(define-key thwap-map (kbd "p") 'projectile-command-map)
(add-to-list 'thwap-help-lines "C-c t p : Projectile commands"))
(thwap/add-key-binding "p" 'projectile-command-map "Projectile commands"))
(provide 'thwap-projectile)

3
lib/thwap-yas.el
View File

@ -14,7 +14,6 @@
(yas-global-mode 1))
;; yasnippet stuff
(define-key thwap-map (kbd "y n") 'yas-new-snippet)
(add-to-list 'thwap-help-lines "C-c t y n : create a new yasnippet")
(thwap/add-key-binding "y n" 'yas-new-snippet "Create a new yasnippet")
(provide 'thwap-yas)