style: various formatting and convention edits
None of these should impact the actual behavior of the code in any way.
This commit is contained in:
parent
7ea623e91c
commit
ba72409d67
1 changed files with 7 additions and 31 deletions
38
config.org
38
config.org
|
|
@ -933,8 +933,7 @@ workspaces
|
||||||
** Completion
|
** Completion
|
||||||
|
|
||||||
#+begin_src emacs-lisp :noweb-ref doom-module
|
#+begin_src emacs-lisp :noweb-ref doom-module
|
||||||
:completion
|
:completion (vertico +icons)
|
||||||
(vertico +icons)
|
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
** Other Modules
|
** Other Modules
|
||||||
|
|
@ -1514,7 +1513,8 @@ We'll also define a word targeter, since that case was previously handled by the
|
||||||
The hook ~embark--mark-target~ normally sets the mark to the end and puts the point at the beginning. This is the opposite of the usual order, so let's patch it to flip the order.
|
The hook ~embark--mark-target~ normally sets the mark to the end and puts the point at the beginning. This is the opposite of the usual order, so let's patch it to flip the order.
|
||||||
|
|
||||||
#+begin_src emacs-lisp
|
#+begin_src emacs-lisp
|
||||||
(defpatch! embark (cl-defun embark--mark-target) (&rest rest &key run bounds &allow-other-keys)
|
(defpatch! embark
|
||||||
|
(cl-defun embark--mark-target) (&rest rest &key run bounds &allow-other-keys)
|
||||||
"Mark the target if its BOUNDS are known.
|
"Mark the target if its BOUNDS are known.
|
||||||
After marking the target, call RUN with the REST of its arguments."
|
After marking the target, call RUN with the REST of its arguments."
|
||||||
(cond
|
(cond
|
||||||
|
|
@ -2205,8 +2205,7 @@ The snippets themselves are stored in separate files, each of which can be found
|
||||||
Allow nested snippets:
|
Allow nested snippets:
|
||||||
|
|
||||||
#+begin_src emacs-lisp
|
#+begin_src emacs-lisp
|
||||||
(after! yasnippet
|
(setq yas-triggers-in-field t)
|
||||||
(setq yas-triggers-in-field t))
|
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
*** Editing Snippets
|
*** Editing Snippets
|
||||||
|
|
@ -3429,26 +3428,6 @@ The command ~+org/dwim-at-point~ will toggle all overlays in a subtree even if t
|
||||||
|
|
||||||
#+begin_src emacs-lisp
|
#+begin_src emacs-lisp
|
||||||
(deftemplate! org (defun +org/dwim-at-point)
|
(deftemplate! org (defun +org/dwim-at-point)
|
||||||
"Do-what-I-mean at point.
|
|
||||||
|
|
||||||
If on a:
|
|
||||||
- checkbox list item or todo heading: toggle it.
|
|
||||||
- citation: follow it
|
|
||||||
- headline: cycle ARCHIVE subtrees, toggle latex fragments and inline images in
|
|
||||||
subtree; update statistics cookies/checkboxes and ToCs.
|
|
||||||
- clock: update its time.
|
|
||||||
- footnote reference: jump to the footnote's definition
|
|
||||||
- footnote definition: jump to the first reference of this footnote
|
|
||||||
- timestamp: open an agenda view for the time-stamp date/range at point.
|
|
||||||
- table-row or a TBLFM: recalculate the table's formulas
|
|
||||||
- table-cell: clear it and go into insert mode. If this is a formula cell,
|
|
||||||
recaluclate it instead.
|
|
||||||
- babel-call: execute the source block
|
|
||||||
- statistics-cookie: update it.
|
|
||||||
- src block: execute it
|
|
||||||
- latex fragment: toggle it.
|
|
||||||
- link: follow it
|
|
||||||
- otherwise, refresh all inline images in current tree."
|
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
(if (button-at (point))
|
(if (button-at (point))
|
||||||
(call-interactively #'push-button)
|
(call-interactively #'push-button)
|
||||||
|
|
@ -3485,16 +3464,13 @@ If on a:
|
||||||
(el-patch-remove $latex)))
|
(el-patch-remove $latex)))
|
||||||
...
|
...
|
||||||
(`link
|
(`link
|
||||||
(let* ((lineage (org-element-lineage context '(link) t))
|
(let* ...
|
||||||
(path (org-element-property :path lineage)))
|
(if (or ...
|
||||||
(if (or (equal (org-element-property :type lineage) "img")
|
|
||||||
(and path (image-type-from-file-name path)
|
(and path (image-type-from-file-name path)
|
||||||
(el-patch-add
|
(el-patch-add
|
||||||
(or +org-inline-image-desc
|
(or +org-inline-image-desc
|
||||||
(not (org-element-property :contents-begin lineage))))))
|
(not (org-element-property :contents-begin lineage))))))
|
||||||
(+org--toggle-inline-images-in-subtree
|
...
|
||||||
(org-element-property :begin lineage)
|
|
||||||
(org-element-property :end lineage))
|
|
||||||
(org-open-at-point arg))))
|
(org-open-at-point arg))))
|
||||||
...))))
|
...))))
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue