diff --git a/config.org b/config.org index 5cef4fb..c747b51 100644 --- a/config.org +++ b/config.org @@ -933,8 +933,7 @@ workspaces ** Completion #+begin_src emacs-lisp :noweb-ref doom-module -:completion -(vertico +icons) +:completion (vertico +icons) #+end_src ** 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. #+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. After marking the target, call RUN with the REST of its arguments." (cond @@ -2205,8 +2205,7 @@ The snippets themselves are stored in separate files, each of which can be found Allow nested snippets: #+begin_src emacs-lisp -(after! yasnippet - (setq yas-triggers-in-field t)) +(setq yas-triggers-in-field t) #+end_src *** 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 (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") (if (button-at (point)) (call-interactively #'push-button) @@ -3485,16 +3464,13 @@ If on a: (el-patch-remove $latex))) ... (`link - (let* ((lineage (org-element-lineage context '(link) t)) - (path (org-element-property :path lineage))) - (if (or (equal (org-element-property :type lineage) "img") + (let* ... + (if (or ... (and path (image-type-from-file-name path) (el-patch-add (or +org-inline-image-desc (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)))) ...)))) #+end_src