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

embark : need to check if project first

Browse source
This commit is contained in:
bth 2024-08-22 22:21:35 -07:00
commit 96181e9229
1 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

21
elisp/um.el
View file

@ -126,16 +126,17 @@ Since journal/ is the origin and other projects shadow it.
;; NOTE: Recurse down into current project directories. ;; NOTE: Recurse down into current project directories.
;; project-find-file does it fine, just don't want interactive ;; project-find-file does it fine, just don't want interactive
;; completing-read call. ;; completing-read call.
(let ((result) (tap (thing-at-point 'filename t))) (when (project-current)
;; TODO: this is procedural thinking and not lisp-like: (let ((result) (tap (thing-at-point 'filename t)))
(cl-loop for file in ;; TODO: this is procedural thinking and not lisp-like:
(project-files (project-current)) (cl-loop for file in
do (let ((basename (file-name-nondirectory file))) (project-files (project-current))
(setq result (equal tap basename))) do (let ((basename (file-name-nondirectory file)))
if result (setq result (equal tap basename)))
;; see `embark-target-finders': if result
return (cons 'file file) ;; see `embark-target-finders':
)) return (cons 'file file)
)))
;; all other projects ;; all other projects
(let ((result)) (let ((result))