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:
Kiana Sheibani 2026-02-04 16:46:46 -05:00
parent 7ea623e91c
commit ba72409d67
Signed by: toki
GPG key ID: 6CB106C25E86A9F7

View file

@ -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