refactor(emacs): create new justfile--get-recipes
command
Signed-off-by: Lucas Sta Maria <lucas@priime.dev>
This commit is contained in:
parent
180e875686
commit
94a370cb80
1 changed files with 8 additions and 3 deletions
|
@ -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
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue