diff --git a/LICENSE b/LICENSE index fde4817c3..a367cd897 100644 --- a/LICENSE +++ b/LICENSE @@ -1,6 +1,6 @@ The MIT License (MIT) -Copyright (c) 2014-2022 Henrik Lissner. +Copyright (c) 2014-2024 Henrik Lissner. Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the diff --git a/modules/config/default/autoload/default.el b/modules/config/default/autoload/default.el index a1f645b81..b63a0d749 100644 --- a/modules/config/default/autoload/default.el +++ b/modules/config/default/autoload/default.el @@ -33,7 +33,7 @@ generate `completing-read' candidates." (defun +default/new-buffer () "TODO" (interactive) - (if (modulep! 'evil) + (if (modulep! +evil) (call-interactively #'evil-buffer-new) (let ((buffer (generate-new-buffer "*new*"))) (set-window-buffer nil buffer) diff --git a/modules/editor/format/autoload/format.el b/modules/editor/format/autoload/format.el index ab49403bd..709855817 100644 --- a/modules/editor/format/autoload/format.el +++ b/modules/editor/format/autoload/format.el @@ -126,7 +126,7 @@ the requested feature." ;;;###autoload (defun +format-in-org-src-blocks-fn (beg end _op) - "TODO" + "Reformat org src blocks with apheleia as if they were independent buffers." (when (derived-mode-p 'org-mode) (goto-char beg) (while (re-search-forward org-babel-src-block-regexp end t) @@ -138,8 +138,8 @@ the requested feature." (goto-char (org-element-property :end element)) (skip-chars-backward " \t\n") (line-beginning-position))) - (beg (if beg (max beg block-beg) block-beg)) - (end (if end (min end block-end) block-end)) + (beg (max beg block-beg)) + (end (min end block-end)) (lang (org-element-property :language element)) (major-mode (org-src-get-lang-mode lang))) (save-excursion @@ -152,4 +152,5 @@ the requested feature." (unless formatter (user-error "No formatter configured for language: %s" lang))) (let ((apheleia-formatter formatter)) - (+format-region beg end))))))))) + (+format-region beg end))))))) + t)) diff --git a/modules/lang/org/autoload/org.el b/modules/lang/org/autoload/org.el index 7b318e5c2..f1c033344 100644 --- a/modules/lang/org/autoload/org.el +++ b/modules/lang/org/autoload/org.el @@ -272,13 +272,12 @@ If on a: (org-element-property :end lineage)) (org-open-at-point arg)))) + ((guard (org-element-property :checkbox (org-element-lineage context '(item) t))) + (org-toggle-checkbox)) + (`paragraph (+org--toggle-inline-images-in-subtree)) - ((guard (org-element-property :checkbox (org-element-lineage context '(item) t))) - (let ((match (and (org-at-item-checkbox-p) (match-string 1)))) - (org-toggle-checkbox (if (equal match "[ ]") '(16))))) - (_ (if (or (org-in-regexp org-ts-regexp-both nil t) (org-in-regexp org-tsr-regexp-both nil t)