larstvei/emacs
1
1
Fork 0
mirror of https://github.com/larstvei/dot-emacs.git synced 2024-11-26 07:28:31 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Use the custom-bindings-map

Browse Source
This commit is contained in:
larstvei 2023-06-21 13:19:59 +02:00
parent ecbdf40171
commit e9d6556bf1
1 changed files with 83 additions and 83 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

166
init.org
View File

@ -310,6 +310,20 @@
#+end_src #+end_src
* Key bindings
Inspired by [[http://stackoverflow.com/questions/683425/globally-override-key-binding-in-emacs][this StackOverflow post]] I keep a =custom-bindings-map= that holds
all my custom bindings. This map can be activated by toggling a simple
=minor-mode= that does nothing more than activating the map. This inhibits
other =major-modes= to override these bindings.
#+begin_src emacs-lisp
(defvar custom-bindings-map (make-keymap)
"A keymap for custom bindings.")
#+end_src
* Modal meow * Modal meow
I have been wanting to try out modal editing. [[https://github.com/meow-edit/meow][meow]] seems like a nice package, I have been wanting to try out modal editing. [[https://github.com/meow-edit/meow][meow]] seems like a nice package,
@ -563,7 +577,7 @@
;; Minor mode for a nice writing environment ;; Minor mode for a nice writing environment
(use-package olivetti (use-package olivetti
:defer t :defer t
:bind ("C-c o" . olivetti-mode) :bind (:map custom-bindings-map ("C-c o" . olivetti-mode))
:config :config
(setq-default olivetti-body-width (+ fill-column 3)) (setq-default olivetti-body-width (+ fill-column 3))
(remove-hook 'olivetti-mode-on-hook 'visual-line-mode)) (remove-hook 'olivetti-mode-on-hook 'visual-line-mode))
@ -580,7 +594,7 @@
;; Dim color of text in surrounding sections ;; Dim color of text in surrounding sections
(use-package focus (use-package focus
:defer t :defer t
:bind ("C-c f" . focus-mode)) :bind (:map custom-bindings-map ("C-c f" . focus-mode)))
#+end_src #+end_src
@ -686,7 +700,7 @@
;; A Git porcelain inside Emacs. ;; A Git porcelain inside Emacs.
(use-package magit (use-package magit
:bind ("C-c m" . magit-status)) :bind (:map custom-bindings-map ("C-c m" . magit-status)))
#+end_src #+end_src
@ -722,7 +736,7 @@
;; Manage and navigate projects in Emacs easily ;; Manage and navigate projects in Emacs easily
(use-package projectile (use-package projectile
:bind ("C-c p" . projectile-command-map)) :bind (:map custom-bindings-map ("C-c p" . projectile-command-map)))
#+end_src #+end_src
@ -738,7 +752,7 @@
;; Incremental Vertical completion ;; Incremental Vertical completion
(use-package ivy (use-package ivy
:bind ("C-x b" . ivy-switch-buffer) :bind (:map custom-bindings-map ("C-x b" . ivy-switch-buffer))
:config :config
(setq ivy-wrap t ; Easier access to the last candidate (setq ivy-wrap t ; Easier access to the last candidate
ivy-height 25 ; Give me more candidates to look at ivy-height 25 ; Give me more candidates to look at
@ -766,14 +780,13 @@
Use counsel for =M-x=, yanking and finding files. Use counsel for =M-x=, yanking and finding files.
#+begin_src emacs-lisp #+begin_src emacs-lisp
;; Various completion functions using Ivy ;; Various completion functions using Ivy
(use-package counsel (use-package counsel
:bind :bind
(("M-x" . counsel-M-x) (:map custom-bindings-map
("M-y" . counsel-yank-pop) ("M-x" . counsel-M-x)
("C-x C-f" . counsel-find-file))) ("M-y" . counsel-yank-pop)
("C-x C-f" . counsel-find-file)))
#+end_src #+end_src
Use swiper for fancy search. Use swiper for fancy search.
@ -782,7 +795,7 @@
;; Isearch with an overview. Oh, man! ;; Isearch with an overview. Oh, man!
(use-package swiper (use-package swiper
:bind ("C-c i" . swiper-isearch)) :bind (:map custom-bindings-map ("C-c i" . swiper-isearch)))
#+end_src #+end_src
@ -916,7 +929,7 @@
;; display the definition of word at point ;; display the definition of word at point
(use-package define-word (use-package define-word
:defer t :defer t
:bind ("C-c D" . define-word-at-point)) :bind (:map custom-bindings-map ("C-c D" . define-word-at-point)))
#+end_src #+end_src
@ -1162,7 +1175,7 @@
(executable-find "mbsync") (executable-find "mbsync")
(executable-find "msmtp") (executable-find "msmtp")
(executable-find "mu")) (executable-find "mu"))
:bind ("C-x m" . mu4e) :bind (:map custom-bindings-map ("C-x m" . mu4e))
:config :config
(setq (setq
mail-user-agent 'mu4e-user-agent mail-user-agent 'mu4e-user-agent
@ -1230,9 +1243,10 @@
;; Multiple cursors for Emacs ;; Multiple cursors for Emacs
(use-package multiple-cursors (use-package multiple-cursors
:defer t :defer t
:bind (("C-c e" . mc/edit-lines) :bind (:map custom-bindings-map
("C-c a" . mc/mark-all-like-this) ("C-c e" . mc/edit-lines)
("C-c n" . mc/mark-next-like-this))) ("C-c a" . mc/mark-all-like-this)
("C-c n" . mc/mark-next-like-this)))
#+end_src #+end_src
@ -1245,7 +1259,7 @@
;; Increase selected region by semantic units ;; Increase selected region by semantic units
(use-package expand-region (use-package expand-region
:defer t :defer t
:bind ("C-=" . er/expand-region)) :bind (:map custom-bindings-map ("C-=" . er/expand-region)))
#+end_src #+end_src
@ -1546,16 +1560,17 @@
(t (vterm buffer-name) (t (vterm buffer-name)
(rename-buffer buffer-name)))))) (rename-buffer buffer-name))))))
:bind (("C-z" . toggle-vterm) :bind (:map custom-bindings-map
("M-1" . (lambda () (interactive) (switch-vterm 1))) ("C-z" . toggle-vterm)
("M-2" . (lambda () (interactive) (switch-vterm 2))) ("M-1" . (lambda () (interactive) (switch-vterm 1)))
("M-3" . (lambda () (interactive) (switch-vterm 3))) ("M-2" . (lambda () (interactive) (switch-vterm 2)))
("M-4" . (lambda () (interactive) (switch-vterm 4))) ("M-3" . (lambda () (interactive) (switch-vterm 3)))
("M-5" . (lambda () (interactive) (switch-vterm 5))) ("M-4" . (lambda () (interactive) (switch-vterm 4)))
("M-6" . (lambda () (interactive) (switch-vterm 6))) ("M-5" . (lambda () (interactive) (switch-vterm 5)))
("M-7" . (lambda () (interactive) (switch-vterm 7))) ("M-6" . (lambda () (interactive) (switch-vterm 6)))
("M-8" . (lambda () (interactive) (switch-vterm 8))) ("M-7" . (lambda () (interactive) (switch-vterm 7)))
("M-9" . (lambda () (interactive) (switch-vterm 9)))) ("M-8" . (lambda () (interactive) (switch-vterm 8)))
("M-9" . (lambda () (interactive) (switch-vterm 9))))
:config :config
;; Don't query about killing vterm buffers, just kill it ;; Don't query about killing vterm buffers, just kill it
@ -1943,81 +1958,66 @@
#+end_src #+end_src
* Key bindings * Which key
Inspired by [[http://stackoverflow.com/questions/683425/globally-override-key-binding-in-emacs][this StackOverflow post]] I keep a =custom-bindings-map= that holds [[https://github.com/justbur/emacs-which-key][Which key]] is nice for discoverability.
all my custom bindings. This map can be activated by toggling a simple
=minor-mode= that does nothing more than activating the map. This inhibits
other =major-modes= to override these bindings. I keep this at the end of the
init-file to make sure that all functions are actually defined.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defvar custom-bindings-map (make-keymap) ;; Display available keybindings in popup
"A keymap for custom bindings.") (use-package which-key
:config
(which-key-mode 1))
#+end_src #+end_src
** Which key * Bindings for built-ins
[[https://github.com/justbur/emacs-which-key][Which key]] is nice for discoverability. #+begin_src emacs-lisp
#+begin_src emacs-lisp (define-key custom-bindings-map (kbd "M-u") 'upcase-dwim)
(define-key custom-bindings-map (kbd "M-c") 'capitalize-dwim)
(define-key custom-bindings-map (kbd "M-l") 'downcase-dwim)
(define-key custom-bindings-map (kbd "M-]") 'other-frame)
(define-key custom-bindings-map (kbd "C-j") 'newline-and-indent)
(define-key custom-bindings-map (kbd "C-c s") 'ispell-word)
(define-key comint-mode-map (kbd "C-l") 'comint-clear-buffer)
;; Display available keybindings in popup #+end_src
(use-package which-key
:config
(which-key-mode 1))
#+end_src * Bindings for functions defined [[sec:defuns][above]].
** Bindings for built-ins #+begin_src emacs-lisp
#+begin_src emacs-lisp (define-key global-map (kbd "M-p") 'jump-to-previous-like-this)
(define-key global-map (kbd "M-n") 'jump-to-next-like-this)
(define-key custom-bindings-map (kbd "M-,") 'jump-to-previous-like-this)
(define-key custom-bindings-map (kbd "M-.") 'jump-to-next-like-this)
(define-key custom-bindings-map (kbd "C-c .") (cycle-themes))
(define-key custom-bindings-map (kbd "C-x k") 'kill-this-buffer-unless-scratch)
(define-key custom-bindings-map (kbd "C-c C-0") 'global-scale-default)
(define-key custom-bindings-map (kbd "C-c C-=") 'global-scale-up)
(define-key custom-bindings-map (kbd "C-c C-+") 'global-scale-up)
(define-key custom-bindings-map (kbd "C-c C--") 'global-scale-down)
(define-key custom-bindings-map (kbd "C-c j") 'cycle-spacing-delete-newlines)
(define-key custom-bindings-map (kbd "C-c d") 'duplicate-thing)
(define-key custom-bindings-map (kbd "<C-tab>") 'tidy)
(define-key custom-bindings-map (kbd "M-u") 'upcase-dwim) (with-eval-after-load 'org
(define-key custom-bindings-map (kbd "M-c") 'capitalize-dwim) (define-key org-mode-map (kbd "C-'") 'org-sync-pdf))
(define-key custom-bindings-map (kbd "M-l") 'downcase-dwim)
(define-key custom-bindings-map (kbd "M-]") 'other-frame)
(define-key custom-bindings-map (kbd "C-j") 'newline-and-indent)
(define-key custom-bindings-map (kbd "C-c s") 'ispell-word)
(define-key comint-mode-map (kbd "C-l") 'comint-clear-buffer)
#+end_src #+end_src
** Bindings for functions defined [[sec:defuns][above]]. Lastly we need to activate the map by creating and activating the
=minor-mode=.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(define-key global-map (kbd "M-p") 'jump-to-previous-like-this) (define-minor-mode custom-bindings-mode
(define-key global-map (kbd "M-n") 'jump-to-next-like-this) "A mode that activates custom-bindings."
(define-key custom-bindings-map (kbd "M-,") 'jump-to-previous-like-this) t nil custom-bindings-map)
(define-key custom-bindings-map (kbd "M-.") 'jump-to-next-like-this)
(define-key custom-bindings-map (kbd "C-c .") (cycle-themes))
(define-key custom-bindings-map (kbd "C-x k") 'kill-this-buffer-unless-scratch)
(define-key custom-bindings-map (kbd "C-c C-0") 'global-scale-default)
(define-key custom-bindings-map (kbd "C-c C-=") 'global-scale-up)
(define-key custom-bindings-map (kbd "C-c C-+") 'global-scale-up)
(define-key custom-bindings-map (kbd "C-c C--") 'global-scale-down)
(define-key custom-bindings-map (kbd "C-c j") 'cycle-spacing-delete-newlines)
(define-key custom-bindings-map (kbd "C-c d") 'duplicate-thing)
(define-key custom-bindings-map (kbd "<C-tab>") 'tidy)
(with-eval-after-load 'org #+end_src
(define-key org-mode-map (kbd "C-'") 'org-sync-pdf))
#+end_src
Lastly we need to activate the map by creating and activating the
=minor-mode=.
#+begin_src emacs-lisp
(define-minor-mode custom-bindings-mode
"A mode that activates custom-bindings."
t nil custom-bindings-map)
#+end_src
* License * License