phundrak/config.phundrak.com
1
0
Fork 0
Code Issues Pull Requests Actions Activity

[Emacs] Spacemacs suffixes for mode-bound shortcuts fixed

Browse Source 
This commit fixes the wrong declaration of prefixes for specific modes
which I did not understand until now what their declaration should
actually have been.
This commit is contained in:
Lucien Cartier-Tilet 2020-08-25 07:11:20 +02:00
parent d0a683ec23
commit 78aa7cb9fc
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 25 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
org/config/spacemacs.org
View File

@ -1433,9 +1433,9 @@
related to flutter, so nothing too exciting here. Some prefix are declared in related to flutter, so nothing too exciting here. Some prefix are declared in
order to avoid the shortcuts in helm to show up as just ~custom~. order to avoid the shortcuts in helm to show up as just ~custom~.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(spacemacs/declare-prefix-for-mode 'dart-mode "o" "user-defined") (spacemacs/declare-prefix-for-mode 'dart-mode "mo" "user-defined")
(spacemacs/declare-prefix-for-mode 'dart-mode "of" "flutter") (spacemacs/declare-prefix-for-mode 'dart-mode "mof" "flutter")
(spacemacs/declare-prefix-for-mode 'dart-mode "ofr" "flutter-run") (spacemacs/declare-prefix-for-mode 'dart-mode "mofr" "flutter-run")
#+end_src #+end_src
Now, for the shortcuts themselves: Now, for the shortcuts themselves:
@ -3309,10 +3309,8 @@
| ofcP | picom.org | ~/org/config/picom.org | | ofcP | picom.org | ~/org/config/picom.org |
| ofcr | yadm README | ~/README.org | | ofcr | yadm README | ~/README.org |
*The following code is not tangled into my Spacemacs config.* However, it is
used to generate shortcuts and configuration code from the above table:
#+NAME: shortcuts-gen #+NAME: shortcuts-gen
#+BEGIN_SRC emacs-lisp :tangle no :noweb yes :var table=[] :exports code :results replace #+BEGIN_SRC emacs-lisp :tangle no :noweb yes :var table=[] :exports none :results replace
(concat (mapconcat (lambda (x) (concat (mapconcat (lambda (x)
(let* ((shortcut (nth 0 x)) (let* ((shortcut (nth 0 x))
(name (nth 1 x))) (name (nth 1 x)))
@ -3336,8 +3334,7 @@
"\n"))) "\n")))
#+END_SRC #+END_SRC
Here is what the generated code — which will be actually tangled into my Here is the actual code for these keybindings:
Emacs config — looks like:
#+BEGIN_SRC emacs-lisp :noweb yes #+BEGIN_SRC emacs-lisp :noweb yes
<<shortcuts-gen(table=private-files-open-shortcuts)>> <<shortcuts-gen(table=private-files-open-shortcuts)>>
<<shortcuts-gen(table=config-files-open-shortcuts)>> <<shortcuts-gen(table=config-files-open-shortcuts)>>
@ -3370,31 +3367,28 @@
Now, onto some shortcuts related to org-mode. Let’s first declare the Now, onto some shortcuts related to org-mode. Let’s first declare the
category: category:
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(spacemacs/declare-prefix "oo" "org-mode") (spacemacs/declare-prefix-for-mode 'org-mode "mo" "custom" "User-defined keybindings")
(spacemacs/declare-prefix-for-mode 'org-mode "o" "custom" "User-defined keybindings") (spacemacs/declare-prefix-for-mode 'org-mode "mot" "toggle" "Toggle org elements")
(spacemacs/declare-prefix-for-mode 'org-mode "oT" "toggle" "Toggle org elements") (spacemacs/declare-prefix-for-mode 'org-mode "moT" "tables")
#+END_SRC #+END_SRC
Now, I have a couple of shortcuts I use regularly: Now, I have a couple of shortcuts I use regularly:
#+BEGIN_SRC emacs-lisp
(spacemacs/declare-prefix "ooT" "toggle")
#+END_SRC
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(spacemacs/set-leader-keys-for-major-mode 'org-mode (spacemacs/set-leader-keys-for-major-mode 'org-mode
"oS" 'org-insert-structure-template "os" 'org-insert-structure-template
"oTs" 'phundrak/toggle-org-src-window-split "ots" 'phundrak/toggle-org-src-window-split
"oTt" 'org-sidebar-tree) "ott" 'org-sidebar-tree)
(spacemacs/declare-prefix-for-mode 'org-mode "moS" "insert template")
(spacemacs/declare-prefix-for-mode 'org-mode "mots" "toggle src split")
#+END_SRC #+END_SRC
~oss~ allows me to insert an org structure template defined in ~os~ allows me to insert an org structure template defined in
~org-structure-template-alist~ (see [[#User_Configuration-Org-mode-Org_variables-Org_behavior-0319db38][User Configuration/Org-mode/Org ~org-structure-template-alist~ (see [[#User_Configuration-Org-mode-Org_variables-Org_behavior-0319db38][Org behavior]]), while ~ott~ displays the
Variables/Org behavior]]), while ~ooT~ displays the outline of the current org outline of the current org file.
file.
~oot~ is the prefix for tree-related operations: ~oT~ is the prefix for tree-related operations:
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(spacemacs/declare-prefix "oot" "tables") (spacemacs/declare-prefix-for-mode 'org-mode "moT" "tables")
#+END_SRC #+END_SRC
These shortcuts allow to manipulate the width of the column the cursor is These shortcuts allow to manipulate the width of the column the cursor is
@ -3403,12 +3397,12 @@
added in order to make the purpose of the shortcuts clearer. added in order to make the purpose of the shortcuts clearer.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(spacemacs/set-leader-keys-for-major-mode 'org-mode (spacemacs/set-leader-keys-for-major-mode 'org-mode
"ott" 'org-table-toggle-column-width "oTt" 'org-table-toggle-column-width
"ote" 'org-table-expand "oTe" 'org-table-expand
"ots" 'org-table-shrink) "oTs" 'org-table-shrink)
(spacemacs/declare-prefix-for-mode 'org-mode "oott" "toggle width") (spacemacs/declare-prefix-for-mode 'org-mode "moTt" "toggle width")
(spacemacs/declare-prefix-for-mode 'org-mode "oote" "expand") (spacemacs/declare-prefix-for-mode 'org-mode "moTe" "expand")
(spacemacs/declare-prefix-for-mode 'org-mode "oots" "shrink") (spacemacs/declare-prefix-for-mode 'org-mode "moTs" "shrink")
#+END_SRC #+END_SRC
Finaly, I set the following shortcut in order to easily remove ~RESULTS~ Finaly, I set the following shortcut in order to easily remove ~RESULTS~
@ -3416,6 +3410,7 @@
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(spacemacs/set-leader-keys-for-major-mode 'org-mode (spacemacs/set-leader-keys-for-major-mode 'org-mode
"or" 'org-babel-remove-result-one-or-many) "or" 'org-babel-remove-result-one-or-many)
(spacemacs/declare-prefix-for-mode 'org-mode "mor" "remove org result")
#+END_SRC #+END_SRC
*** Toggle *** Toggle