bth/um-mode
Watch
1
Fork
You've already forked um-mode
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

um--header-end-pos

Browse source
This commit is contained in:
bth 2026-06-04 16:36:52 -07:00
commit 71bd981ec4
1 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
um.el
View file

@ -242,6 +242,11 @@ ISO8601."
"\n\n" t "\n\n" t
))) )))
(defun um--header-end-pos ()
(save-excursion
(goto-char (point-min))
(search-forward "\n\n")))
(defun um-tag-first-in-current-buffer () (defun um-tag-first-in-current-buffer ()
(let ((header (um-header-current-buffer))) (let ((header (um-header-current-buffer)))
(string-match um-tag-regexp header) (string-match um-tag-regexp header)
@ -281,7 +286,7 @@ Ultimately this relies on `xref-matches-in-files', which calls
(find-file-noselect f t) (find-file-noselect f t)
(save-excursion (save-excursion
(goto-char (point-min)) (goto-char (point-min))
(let* ((bound (save-excursion (search-forward "\n\n"))) (let* ((bound (um--header-end-pos))
(found t)) (found t))
(while found (while found
(setq found (search-forward-regexp um-tag-regexp bound t)) (setq found (search-forward-regexp um-tag-regexp bound t))
@ -292,19 +297,15 @@ Ultimately this relies on `xref-matches-in-files', which calls
(defun um-tag-insert (tag) (defun um-tag-insert (tag)
"Insert TAG as + tag\n in current buffer appending to the journal header." "Insert TAG as + tag\n in current buffer appending to the journal header."
(goto-char (point-min)) (goto-char (um--header-end-pos))
(search-forward "\n\n")
(forward-line -1) (forward-line -1)
(insert (concat "+ " tag "\n")) (insert (concat "+ " tag "\n")))
)
(defun um-tag-delete (tag) (defun um-tag-delete (tag)
"Delete TAG from the journal header in current buffer." "Delete TAG from the journal header in current buffer."
(goto-char (point-min)) (goto-char (point-min))
(search-forward (concat "+ " tag "\n")) (when (search-forward (concat "+ " tag "\n") (um--header-end-pos) t)
(forward-line -1) (delete-region (match-beginning 0) (match-end 0))))
(kill-line)
)
(defun um-tag-do (tag insert) (defun um-tag-do (tag insert)
"Insert or delete TAG from the journal header in current buffer. "Insert or delete TAG from the journal header in current buffer.