awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-09-08 15:23:31 -05:00
Code Issues Packages Projects Releases Wiki Activity

Generalise way we detect whether we're in archives

Browse Source
This commit is contained in:
Chris Barrett
2022-09-01 10:40:03 +12:00
parent e95cc57f44
commit bca4034ae7
1 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/org-format.el
View File

@@ -51,6 +51,8 @@ Only applies to level-1 headings in the document."
:group 'org-format :group 'org-format
:type 'integer) :type 'integer)
(defun org-format--ensure-empty-lines (n) (defun org-format--ensure-empty-lines (n)
(save-excursion (save-excursion
(goto-char (line-beginning-position)) (goto-char (line-beginning-position))
@@ -62,10 +64,21 @@ Only applies to level-1 headings in the document."
(delete-region (point) start))) (delete-region (point) start)))
(insert (make-string n ?\n))))) (insert (make-string n ?\n)))))
(defun org-format--in-archived-heading-p ()
(save-excursion
(when (org-before-first-heading-p)
(org-forward-heading-same-level 1))
(let ((tags (org-get-tags)))
(seq-contains-p tags org-archive-tag))))
(defun org-format-all-headings () (defun org-format-all-headings ()
"Ensure that blank lines exist between headings and their contents." "Ensure that blank lines exist between headings and their contents."
(interactive) (interactive)
(let ((scope (if (equal (buffer-name) "archive.org") 'tree 'file)) (let ((scope (if (org-format--in-archived-heading-p)
;; archive files can be enormous--just format the heading at
;; point after archiving.
'tree
'file))
(seen-first-heading-p)) (seen-first-heading-p))
(org-map-entries (lambda () (org-map-entries (lambda ()
;; Widen so we can see space preceding the current ;; Widen so we can see space preceding the current