1
0
Fork 0

refactor(emacs): create new justfile--get-recipes command

Signed-off-by: Lucas Sta Maria <lucas@priime.dev>
This commit is contained in:
Lucas Sta Maria 2024-11-30 00:24:29 -05:00
parent 180e875686
commit 94a370cb80
No known key found for this signature in database
GPG key ID: F07FB16A826E3B47

View file

@ -3,12 +3,17 @@
;; Provides configuration for programming language packages. ;; Provides configuration for programming language packages.
;;; Code: ;;; Code:
(defun justl--current-recipes ()
"Retrieve the current recipe names from the current directory."
(let* ((justfile (justl--find-justfile default-directory))
(raw-entries (justl--get-recipes justfile))
(entry-names (mapcar #'justl--recipe-name raw-entries)))
entry-names))
(defun justl-recipes () (defun justl-recipes ()
"Pick and execute a just recipe." "Pick and execute a just recipe."
(interactive) (interactive)
(let* ((justfile (justl--find-justfile default-directory)) (let* ((entry-names (justl--current-recipes))
(raw-entries (justl--get-recipes justfile))
(entry-names (mapcar #'justl--recipe-name raw-entries))
(just-recipe (completing-read "just recipe: " entry-names nil t nil))) (just-recipe (completing-read "just recipe: " entry-names nil t nil)))
(justl--exec (justl--exec
justl-executable justl-executable