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

um-next-file-shell

Browse source
This commit is contained in:
bth 2024-06-09 15:22:23 -07:00
commit 230450b388
1 changed files with 18 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
elisp/um.el
View file

@ -202,5 +202,23 @@ NOTE: this searches in the current project root only.
;; specify a target dir (since it appends the list from xargs I think). ;; specify a target dir (since it appends the list from xargs I think).
;; Or, in dired, run `find-grep-dired'. ;; Or, in dired, run `find-grep-dired'.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; shell integration
(defun um-next-file-shell (dir &optional header)
"Calls um next in the provided dir.
With the option not to leave behind the um-journal-header.
"
(let ((default-directory dir))
;; https://emacs.stackexchange.com/a/19878
(eval (car (read-from-string (shell-command-to-string "export UMNEXTECHO=true; um next"))))
;; HACK: so that the um-journal-header doesn't
;; leave the file modified.
(unless header
(undo))
)
)
(provide 'um) (provide 'um)