[Emacs] Mostly whitespace, some new keybindings

Also make which-key wait more before showing keybindings
This commit is contained in:
Lucien Cartier-Tilet 2021-06-09 17:33:38 +02:00
parent 30ddb3067c
commit 853b6a7c9f
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 60 additions and 39 deletions

View File

@ -555,7 +555,7 @@ repositories too.
:init (which-key-mode) :init (which-key-mode)
:diminish which-key-mode :diminish which-key-mode
:config :config
(setq which-key-idle-delay 0.3)) (setq which-key-idle-delay 1))
#+end_src #+end_src
** General ** General
@ -1170,14 +1170,17 @@ buffer.
:straight t) :straight t)
#+end_src #+end_src
*** Webkit browser *** XWidgets Webkit Browser
#+begin_src emacs-lisp #+begin_src emacs-lisp
(general-define-key (general-define-key
:keymaps 'xwidget-webkit-mode-map :keymaps 'xwidget-webkit-mode-map
:states 'normal :states 'normal
"<mouse-4>" #'xwidget-webkit-scroll-down-line
"<mouse-5>" #'xwidget-webkit-scroll-up-line
"c" #'xwidget-webkit-scroll-backward "c" #'xwidget-webkit-scroll-backward
"t" #'xwidget-webkit-scroll-up "t" #'xwidget-webkit-scroll-up-line
"s" #'xwidget-webkit-scroll-down "s" #'xwidget-webkit-scroll-down-line
"r" #'xwidget-webkit-scroll-forward "r" #'xwidget-webkit-scroll-forward
"h" #'xwidget-webkit-goto-history "h" #'xwidget-webkit-goto-history
"j" nil "j" nil
@ -1186,9 +1189,16 @@ buffer.
"H" nil "H" nil
"L" nil "L" nil
"T" #'xwidget-webkit-back "T" #'xwidget-webkit-scroll-up
"S" #'xwidget-webkit-forward "S" #'xwidget-webkit-scroll-down)
"R" #'xwidget-webkit-reload)
(general-define-key
:keymaps 'xwidget-webkit-mode-map
:states 'normal
:prefix ","
"b" #'xwidget-webkit-back
"f" #'xwidget-webkit-forward
"r" #'xwidget-webkit-reload)
#+end_src #+end_src
*** Wttr.in *** Wttr.in
@ -1853,6 +1863,9 @@ enhances a couple of built-in functions from Emacs, namely:
:init :init
(auto-fill-mode -1) (auto-fill-mode -1)
:general :general
(:states 'normal
:keymaps 'org-mode-map
"RET" 'org-open-at-point)
(:states 'normal (:states 'normal
:prefix "," :prefix ","
:keymaps 'org-mode-map :keymaps 'org-mode-map
@ -1877,8 +1890,8 @@ enhances a couple of built-in functions from Emacs, namely:
"bn" #'org-babel-next-src-block "bn" #'org-babel-next-src-block
"bo" #'org-babel-open-src-block-result "bo" #'org-babel-open-src-block-result
"bp" #'org-babel-previous-src-block "bp" #'org-babel-previous-src-block
"br" #'org-babel-goto-named-result "br" #'org-babel-remove-result-one-or-many
"bR" #'org-babel-remove-result-one-or-many "bR" #'org-babel-goto-named-result
"bt" #'org-babel-tangle "bt" #'org-babel-tangle
"bi" #'org-babel-view-src-block-info "bi" #'org-babel-view-src-block-info
@ -2687,18 +2700,23 @@ comma.
:keymaps 'emacs-lisp-mode-map :keymaps 'emacs-lisp-mode-map
:prefix "," :prefix ","
"'" #'ielm "'" #'ielm
"c" '(emacs-lisp-byte-compile :which-key "Byte compile")
"c" '(emacs-lisp-byte-compile :which-key "Byte compile") "e" '(nil :which-key "eval")
"eb" #'eval-buffer
"ed" #'eval-defun
"ee" #'eval-last-sexp
"er" #'eval-region
"e" '(nil :which-key "eval") "h" '(nil :which-key "help")
"eb" #'eval-buffer "hh" #'helpful-at-point
"ed" #'eval-defun
"ee" #'eval-last-sexp
"er" #'eval-region
"h" '(nil :which-key "help") "t" '(nil :wk "toggle")
"hh" #'helpful-at-point) "tP" '(nil :wk "parinfer")
"tPs" #'parinfer-rust-switch-mode
"tPd" #'parinfer-rust-mode-disable
"tPp" #'parinfer-rust-toggle-paren-mode)
#+end_src #+end_src
** Visual Configuration ** Visual Configuration
@ -2972,14 +2990,14 @@ Undefining some stuff to make keybind prefixes work correctly.
"c" '(nil :wk "code") "c" '(nil :wk "code")
"cl" #'evilnc-comment-or-uncomment-lines "cl" #'evilnc-comment-or-uncomment-lines
"e" '(nil :wk "email") "e" '(nil :wk "email")
"ec" #'mu4e-compose-new "ec" #'mu4e-compose-new
"em" #'mu4e "em" #'mu4e
"f" '(nil :wk "files") "f" '(nil :wk "files")
"fc" '((lambda () "fc" '((lambda ()
(interactive) (interactive)
(find-file (concat (getenv "HOME") "/org/config/emacs.org"))) (find-file (concat (getenv "HOME") "/org/config/emacs.org")))
:wk "Config file") :wk "Config file")
"ff" #'counsel-find-file "ff" #'counsel-find-file
"fF" #'ivy-quick-find-files "fF" #'ivy-quick-find-files
@ -3003,7 +3021,7 @@ Undefining some stuff to make keybind prefixes work correctly.
"gfF" #'magit-find-file "gfF" #'magit-find-file
"h" '(nil :wk "help") "h" '(nil :wk "help")
"hk" #'wk-show-top-level "hk" #'which-key-show-top-level
"hd" '(nil :wk "describe") "hd" '(nil :wk "describe")
"hdc" #'describe-char "hdc" #'describe-char
"hdf" #'helpful-callable "hdf" #'helpful-callable
@ -3015,6 +3033,7 @@ Undefining some stuff to make keybind prefixes work correctly.
"j" '(nil :wk "jump") "j" '(nil :wk "jump")
"jd" #'dired-jump "jd" #'dired-jump
"jD" #'dired-jump-other-window
"p" '(nil :wk "project") "p" '(nil :wk "project")
"p!" #'projectile-run-shell-command-in-root "p!" #'projectile-run-shell-command-in-root
@ -3037,26 +3056,28 @@ Undefining some stuff to make keybind prefixes work correctly.
"tis" #'set-input-mode "tis" #'set-input-mode
"u" #'universal-argument "u" #'universal-argument
"U" #'undo-tree-visualize
"w" '(nil :wk "windows") "w" '(nil :wk "windows")
"w-" #'split-window-below-and-focus "w-" #'split-window-below-and-focus
"w/" #'split-window-right-and-focus "w/" #'split-window-right-and-focus
"w$" #'winum-select-window-by-number "w$" #'winum-select-window-by-number
"w0" #'winum-select-window-0-or-10 "w0" '(winum-select-window-0-or-10 :wk nil)
"w1" #'winum-select-window-1 "w1" '(winum-select-window-1 :wk nil)
"w2" #'winum-select-window-2 "w2" '(winum-select-window-2 :wk nil)
"w3" #'winum-select-window-3 "w3" '(winum-select-window-3 :wk nil)
"w4" #'winum-select-window-4 "w4" '(winum-select-window-4 :wk nil)
"w5" #'winum-select-window-5 "w5" '(winum-select-window-5 :wk nil)
"w6" #'winum-select-window-6 "w6" '(winum-select-window-6 :wk nil)
"w7" #'winum-select-window-7 "w7" '(winum-select-window-7 :wk nil)
"w8" #'winum-select-window-8 "w8" '(winum-select-window-8 :wk nil)
"w9" #'winum-select-window-9 "w9" '(winum-select-window-9 :wk nil)
"wb" '((lambda () "wb" '((lambda ()
(interactive) (interactive)
(progn (progn
(kill-this-buffer) (kill-this-buffer)
(delete-window))) (delete-window)))
:wk "Kill buffer and window") :wk "Kill buffer and window")
"wd" #'delete-window "wd" #'delete-window
"wo" #'other-window "wo" #'other-window