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

um-tag-insert-dwim : (thing-at-point filename)

Browse source
This commit is contained in:
bth 2025-12-15 13:28:32 -08:00
commit ab8851af26
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
elisp/um.el
View file

@ -199,8 +199,9 @@ Assumes the files of interest are returned by `um-journal-path'.
(let* ( (let* (
(tag (completing-read "tag: " um-tags-history nil nil nil 'um-tags-history)) (tag (completing-read "tag: " um-tags-history nil nil nil 'um-tags-history))
(marks (dired-get-marked-files)) (marks (dired-get-marked-files))
;; NOTE: existing-filename to avoid returning bogus strings: ;; NOTE: 'existing-filename would be better to avoid bogus strings, but
(fap (thing-at-point 'existing-filename)) ;; in view-mode when in another project, we can't verify it exists yet:
(fap (thing-at-point 'filename))
(files (cond (files (cond
((and (region-active-p) (not (eq major-mode 'dired-mode))) ((and (region-active-p) (not (eq major-mode 'dired-mode)))
(string-split (buffer-substring (region-beginning) (region-end)))) (string-split (buffer-substring (region-beginning) (region-end))))