[Emacs] Org keybindings now defined with tables, add documentation

This commit is contained in:
Lucien Cartier-Tilet 2021-06-14 16:04:09 +02:00
parent 5701aae9a9
commit 1ff1cb34f4
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA

View File

@ -743,27 +743,6 @@ current buffer.
("q" nil "finished" :exit t)) ("q" nil "finished" :exit t))
#+end_src #+end_src
This one allows me to quickly navigate between code blocks and
interact with them. This code block was inspired by one you can find
in Spacemacs.
#+begin_src emacs-lisp
(defhydra org-babel-transient ()
"
^Navigate^ ^Interact
^^^^^^^^^^^------------------------------------------
[_t_/_s_] navigate src blocs [_x_] execute src block
[_g_]^^ goto named block [_'_] edit src block
[_z_]^^ recenter screen [_q_] quit
"
("q" nil :exit t)
("t" org-babel-next-src-block)
("s" org-babel-previous-src-block)
("g" org-babel-goto-named-src-block)
("z" recenter-top-bottom)
("x" org-babel-execute-maybe)
("'" org-edit-special :exit t))
#+end_src
Similarly, this one is also inspired from Spacemacs and allows the Similarly, this one is also inspired from Spacemacs and allows the
user to interact with the width of the buffer in ~writeroom~. user to interact with the width of the buffer in ~writeroom~.
#+begin_src emacs-lisp #+begin_src emacs-lisp
@ -2202,7 +2181,7 @@ to ~p~ since it would conflict with my main ~general~ prefix.
As the name tells, ~helpful~ is a really helpful package which greatly As the name tells, ~helpful~ is a really helpful package which greatly
enhances a couple of built-in functions from Emacs, namely: enhances a couple of built-in functions from Emacs, namely:
| Vanilla Emacs Function | Helpful Function | Comment | | Vanilla Emacs Function | Helpful Function | Comment |
|------------------------+------------------+-----------------------------------------------| |------------------------+--------------------+-----------------------------------------------|
| ~describe-function~ | ~helpful-callable~ | Only interactive functions | | ~describe-function~ | ~helpful-callable~ | Only interactive functions |
| ~describe-function~ | ~helpful-function~ | Only actual functions (including interactive) | | ~describe-function~ | ~helpful-function~ | Only actual functions (including interactive) |
| ~describe-function~ | ~helpful-macro~ | | | ~describe-function~ | ~helpful-macro~ | |
@ -2225,7 +2204,21 @@ enhances a couple of built-in functions from Emacs, namely:
#+end_src #+end_src
** Org-mode ** Org-mode
#+begin_src emacs-lisp :noweb tangle Org is the main reason I am using Emacs. It is an extremely powerfu
tool when you want to write anything that is not necessarily primarily
programming-related, though it absolutely can be! Org can be a
replacement for anything similar to LibreOffice Writer, LibreOffice
Calc, and LibreOffice Impress. It is a much more powerful (and older)
version of Markdown which can be exported to LaTeX and HTML at least,
rendering writing web pages and technical, scientific documents much
simpler than writing manually HTML and LaTeX code, especially when a
single document source is meant to be exported for both formats. And
since org is an Emacs package, that also means it can be greatly
extended however we like!
By default Ill use the git version of org, I like to be the most
up-to-date possible with this particular package.
#+begin_src emacs-lisp
(use-package org (use-package org
:straight (org :build t :straight (org :build t
:type git :type git
@ -2237,6 +2230,8 @@ enhances a couple of built-in functions from Emacs, namely:
:hook (org-mode . org-num-mode) :hook (org-mode . org-num-mode)
:init :init
(auto-fill-mode -1) (auto-fill-mode -1)
:config
<<org-hydra-babel>>
:general :general
(:states 'normal (:states 'normal
:keymaps 'org-mode-map :keymaps 'org-mode-map
@ -2244,98 +2239,14 @@ enhances a couple of built-in functions from Emacs, namely:
(:states 'normal (:states 'normal
:prefix "," :prefix ","
:keymaps 'org-mode-map :keymaps 'org-mode-map
"RET" #'org-ctrl-c-ret <<general-keybindings-gen(table=org-keybinds-various)>>
"*" #'org-ctrl-c-star <<general-keybindings-gen(table=org-keybinds-babel)>>
"," #'org-ctrl-c-ctrl-c <<general-keybindings-gen(table=org-keybinds-dates)>>
"'" #'org-edit-special <<general-keybindings-gen(table=org-keybinds-insert)>>
"-" #'org-ctrl-c-minus <<general-keybindings-gen(table=org-keybinds-jump)>>
<<general-keybindings-gen(table=org-keybinds-tables)>>
"a" #'org-agenda <<general-keybindings-gen(table=org-keybinds-toggles)>>
"c" #'org-capture )
"l" #'org-store-link
"p" #'org-priority
"b" '(:ignore t :wk "babel")
"b." #'org-babel-transient/body
"bb" #'org-babel-execute-buffer
"bc" #'org-babel-check-src-block
"bC" #'org-babel-tangle-clean
"be" #'org-babel-execute-maybe
"bf" #'org-babel-tangle-file
"bn" #'org-babel-next-src-block
"bo" #'org-babel-open-src-block-result
"bp" #'org-babel-previous-src-block
"br" #'org-babel-remove-result-one-or-many
"bR" #'org-babel-goto-named-result
"bt" #'org-babel-tangle
"bi" #'org-babel-view-src-block-info
"d" '(:ignore t :wk "dates")
"dd" #'org-deadline
"ds" #'org-schedule
"dt" #'org-time-stamp
"dT" #'org-time-stamp-inactive
"e" '(:ignore t :wk "export")
"ee" #'org-export-dispatch
"i" '(:ignore t :wk "insert")
"ib" #'org-insert-structure-template
"id" #'org-insert-drawer
"ie" #'org-set-effort
"if" #'org-footnote-new
"ih" #'org-insert-heading
"ii" #'org-insert-item
"il" #'org-insert-link
"in" #'org-add-note
"ip" #'org-set-property
"is" #'org-insert-subheading
"it" #'org-set-tags-command
"j" '(:ignore t :wk "jump")
"ja" #'counsel-org-goto-all
"jh" #'counsel-org-goto
"t" '(:ignore t :wk "tables")
"ta" #'org-table-align
"te" #'org-table-eval-formula
"tf" #'org-table-field-info
"th" #'org-table-convert
"tl" #'org-table-recalculate
"tp" #'org-plot/gnuplot
"ts" #'org-table-sort-lines
"tw" #'org-table-wrap-region
"tN" #'org-table-create-with-table.el
"tc" #'org-table-previous-field
"tr" #'org-table-next-field
"tC" #'org-table-move-column-left
"tT" #'org-table-move-row-down
"tS" #'org-table-move-row-up
"tR" #'org-table-move-column-right
"td" '(:ignore t :wk "delete")
"tdc" #'org-table-delete-column
"tdr" #'org-table-kill-row
"ti" '(:ignore t :wk "insert")
"tic" #'org-table-insert-column
"tih" #'org-table-insert-hline
"tir" #'org-table-insert-row
"tiH" #'org-table-hline-and-move
"tt" '(:ignore t :wk "toggle")
"ttf" #'org-table-toggle-formula-debugger
"tto" #'org-table-toggle-coordinate-overlays
"T" '(:ignore t :wk "toggle")
"Tc" #'org-toggle-checkbox
"Ti" #'org-toggle-inline-images
"Tl" #'org-latex-preview
"Tn" #'org-num-mode
"Ts" 'phundrak/toggle-org-src-window-split
"Tt" #'org-show-todo-tree
"TT" #'org-todo)
(:states 'normal (:states 'normal
:keymaps 'org-src-mode-map :keymaps 'org-src-mode-map
:prefix "," :prefix ","
@ -2344,7 +2255,6 @@ enhances a couple of built-in functions from Emacs, namely:
(after! org (after! org
(setq org-hide-leading-stars nil (setq org-hide-leading-stars nil
org-superstar-leading-bullet ?\s
org-hide-macro-markers t org-hide-macro-markers t
org-ellipsis " ⤵" org-ellipsis " ⤵"
org-image-actual-width 550 org-image-actual-width 550
@ -2380,6 +2290,11 @@ enhances a couple of built-in functions from Emacs, namely:
<<org-publish-projects>>) <<org-publish-projects>>)
#+end_src #+end_src
The main feature from ~evil-org~ that I love is how easy it is to modify
some keybindings for keyboards layouts that do not have ~hjkl~, such as
the bépo layout (or Dvorak or Colemak if you are into that). But it
also adds a ton of default keybindings which are just much more
comfortable than the default ones you get with evil and org naked.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package evil-org (use-package evil-org
:straight (:build t) :straight (:build t)
@ -2396,13 +2311,9 @@ enhances a couple of built-in functions from Emacs, namely:
(evil-org-agenda-set-keys)) (evil-org-agenda-set-keys))
#+end_src #+end_src
#+begin_src emacs-lisp This package is a small package Ive written that helps me when
(use-package org-contrib writing conlanging documents, with features such as creating syntax
:defer t trees, converting translitterated text to its native script, etc…
:after org
:straight (:build t))
#+end_src
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package conlanging (use-package conlanging
:straight (conlanging :build t :straight (conlanging :build t
@ -2566,6 +2477,145 @@ exported HTML. Lets disable that since I never use it.
(setq org-html-validation-link nil) (setq org-html-validation-link nil)
#+END_SRC #+END_SRC
*** Keybindings
Be prepared, I have a lot of keybindings for org-mode! They are all
prefixed with a comma ~,~ in normal mode.
#+name: org-keybinds-various
| Key chord | Function | Description |
|-----------+---------------------+-------------|
| RET | org-ctrl-c-ret | |
| * | org-ctrl-c-star | |
| , | org-ctrl-c-ctrl-c | |
| ' | org-edit-special | |
| - | org-ctrl-c-minus | |
| a | org-agenda | |
| c | org-capture | |
| e | org-export-dispatch | |
| l | org-store-link | |
| p | org-priority | |
I then have a couple of babel-related functions.
#+name: org-keybinds-babel
| Key chord | Function | Description |
|-----------+-------------------------------------+-------------|
| b | nil | babel |
| b. | org-babel-transient/body | |
| bb | org-babel-execute-buffer | |
| bc | org-babel-check-src-block | |
| bC | org-babel-tangle-clean | |
| be | org-babel-execute-maybe | |
| bf | org-babel-tangle-file | |
| bn | org-babel-next-src-block | |
| bo | org-babel-open-src-block-result | |
| bp | org-babel-previous-src-block | |
| br | org-babel-remove-result-one-or-many | |
| bR | org-babel-goto-named-result | |
| bt | org-babel-tangle | |
| bi | org-babel-view-src-block-info | |
The ~org-babel-transient~ hydra allows me to quickly navigate between
code blocks and interact with them. This code block was inspired by
one you can find in Spacemacs.
#+name: org-hydra-babel
#+begin_src emacs-lisp :tangle no
(defhydra org-babel-transient ()
"
^Navigate^ ^Interact
^^^^^^^^^^^------------------------------------------
[_t_/_s_] navigate src blocs [_x_] execute src block
[_g_]^^ goto named block [_'_] edit src block
[_z_]^^ recenter screen [_q_] quit
"
("q" nil :exit t)
("t" org-babel-next-src-block)
("s" org-babel-previous-src-block)
("g" org-babel-goto-named-src-block)
("z" recenter-top-bottom)
("x" org-babel-execute-maybe)
("'" org-edit-special :exit t))
#+end_src
We next have keybindings related to org-modes agenda capabilities. We
can schedule a todo header for some dates, or set a deadline.
#+name: org-keybinds-dates
| Key chord | Function | Description |
|-----------+-------------------------+-------------|
| d | nil | dates |
| dd | org-deadline | |
| ds | org-schedule | |
| dt | org-time-stamp | |
| dT | org-time-stamp-inactive | |
Lets now define some keybinds for inserting stuff in our org buffer:
#+name: org-keybinds-insert
| Key chord | Function | Description |
|-----------+-------------------------------+-------------|
| i | nil | insert |
| ib | org-insert-structure-template | |
| id | org-insert-drawer | |
| ie | org-set-effort | |
| if | org-footnote-new | |
| ih | org-insert-heading | |
| ii | org-insert-item | |
| il | org-insert-link | |
| in | org-add-note | |
| ip | org-set-property | |
| is | org-insert-subheading | |
| it | org-set-tags-command | |
There isnt a lot of stuff I can jump to yet, but theres still some:
#+name: org-keybinds-jump
| Key chord | Function | Description |
|-----------+----------------------+-------------|
| j | nil | jump |
| ja | counsel-org-goto-all | |
| jh | counsel-org-goto | |
Tables get a bit more love:
#+name: org-keybinds-tables
| Key chord | Function | Description |
|-----------+--------------------------------------+-------------|
| t | nil | tables |
| ta | org-table-align | |
| te | org-table-eval-formula | |
| tf | org-table-field-info | |
| th | org-table-convert | |
| tl | org-table-recalculate | |
| tp | org-plot/gnuplot | |
| ts | org-table-sort-lines | |
| tw | org-table-wrap-region | |
| tN | org-table-create-with-table.el | |
| tc | org-table-previous-field | |
| tr | org-table-next-field | |
| tC | org-table-move-column-left | |
| tT | org-table-move-row-down | |
| tS | org-table-move-row-up | |
| tR | org-table-move-column-right | |
| td | nil | delete |
| tdc | org-table-delete-column | |
| tdr | org-table-kill-row | |
| ti | nil | insert |
| tic | org-table-insert-column | |
| tih | org-table-insert-hline | |
| tir | org-table-insert-row | |
| tiH | org-table-hline-and-move | |
| tt | nil | toggle |
| ttf | org-table-toggle-formula-debugger | |
| tto | org-table-toggle-coordinate-overlays | |
Finally, lets make enabling and disabling stuff accessible:
#+name: org-keybinds-toggles
| Key chord | Function | Description |
|-----------+--------------------------------------+-------------|
| T | nil | toggle |
| Tc | org-toggle-checkbox | |
| Ti | org-toggle-inline-images | |
| Tl | org-latex-preview | |
| Tn | org-num-mode | |
| Ts | phundrak/toggle-org-src-window-split | |
| Tt | org-show-todo-tree | |
| TT | org-todo | |
*** LaTeX formats *** LaTeX formats
:PROPERTIES: :PROPERTIES:
:header-args:emacs-lisp: :tangle no :exports code :results silent :header-args:emacs-lisp: :tangle no :exports code :results silent