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.
;; project-find-file does it fine, just don't want interactive
;; completing-read call.
(let ((result) (tap (thing-at-point 'filename t)))
;; TODO: this is procedural thinking and not lisp-like:
(cl-loop for file in
(project-files (project-current))
do (let ((basename (file-name-nondirectory file)))
(setq result (equal tap basename)))
if result
;; see `embark-target-finders':
return (cons 'file file)
))
(when (project-current)
(let ((result) (tap (thing-at-point 'filename t)))
;; TODO: this is procedural thinking and not lisp-like:
(cl-loop for file in
(project-files (project-current))
do (let ((basename (file-name-nondirectory file)))
(setq result (equal tap basename)))
if result
;; see `embark-target-finders':
return (cons 'file file)
)))
;; all other projects
(let ((result))