diff --git a/org/config/emacs.org b/org/config/emacs.org index f3ee1b0..932ba27 100644 --- a/org/config/emacs.org +++ b/org/config/emacs.org @@ -70,7 +70,7 @@ doing this: I don’t understand why some people add two spaces behind a full stop, I sure don’t. Let’s tell Emacs. #+begin_src emacs-lisp - (setq sentence-end-double-space nil) + (setq-default sentence-end-double-space nil) #+end_src There is a minor mode in Emacs which allows to have a finer way of @@ -698,43 +698,47 @@ prefix them with a comma (I’ve taken this habit from Spacemacs). #+header: :tangle no :exports none :results value :cache yes #+begin_src emacs-lisp :var table=mu4e-keybindings-view-tbl (mapconcat (lambda (line) - (let ((key (car line)) - (function (cadr line)) - (comment (caddr line))) + (let* ((key (car line)) + (function (cadr line)) + (function (if (or (string= "nil" function) + (string= "" function)) + ":ignore" + function)) + (comment (caddr line))) (format "\"%s\" %s" key (if (string= "" comment) (if (string= "nil" function) "nil" (concat "#'" function)) - (format "'(%s :wk \"%s\")" - function - (if (string= "" function) - "nil" - comment)))))) + (format "'(%s :which-key \"%s\")" + function + (if (string= "" function) + "nil" + comment)))))) table "\n") #+end_src -#+RESULTS[daed5b240a2fd64608b66fc9bf38bb73f1d90db2]: general-keybindings-gen +#+RESULTS[fa2948b693499edc6458f60c46357955b8ace1fb]: general-keybindings-gen #+begin_example "&" #'mu4e-view-pipe -"." '(mu4e-headers-split-adjust-width/body :wk "mu4e-headers width") -"a" '(nil :wk "attachments") +"." '(mu4e-headers-split-adjust-width/body :which-key "mu4e-headers width") +"a" '(:ignore :which-key "attachments") "a&" #'mu4e-view-pipe-attachment "aa" #'mu4e-view-attachment-action "ao" #'mu4e-view-open-attachment "aO" #'mu4e-view-open-attachment-with -"c" '(nil :wk "compose") +"c" '(:ignore :which-key "compose") "cc" #'mu4e-compose-new "ce" #'mu4e-compose-edit "cf" #'mu4e-compose-forward "cr" #'mu4e-compose-reply "cR" #'mu4e-compose-resend -"g" '(nil :wk "go to") +"g" '(:ignore :which-key "go to") "gu" #'mu4e-view-go-to-url "gX" #'mu4e-view-fetch-url "l" #'mu4e-show-log -"m" '(nil :wk "mark") +"m" '(:ignore :which-key "mark") "md" #'mu4e-view-mark-for-trash "mD" #'mu4e-view-mark-for-delete "mm" #'mu4e-view-mark-for-move @@ -742,8 +746,8 @@ prefix them with a comma (I’ve taken this habit from Spacemacs). "mR" #'mu4e-view-mark-for-read "mu" #'mu4e-view-mark-for-unread "mU" #'mu4e-view-mark-for-unmark -"t" '(nil :wk "thread") -"T" '(nil :wk "toggle") +"t" '(:ignore :which-key "thread") +"T" '(:ignore :which-key "toggle") "Tc" #'mu4e-view-toggle-hide-cited "Th" #'mu4e-view-toggle-html "n" #'mu4e-view-headers-next