pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-06-14 12:21:20 +00:00
Code Issues Projects Releases Packages Wiki Activity

completing-read initial-input

Browse source
This commit is contained in:
Benson Chu 2024-12-26 13:25:32 -06:00
parent a054f3d709
commit d01f213f3f
1 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/llvm-lib/llvm-shared.el
View file

@ -200,21 +200,25 @@
;; =============================== Misc ==============================
(defun my/completing-read (prompt collection)
(defun my/completing-read (prompt collection &optional initial-input)
(let ((len (length collection)))
(cond ((< len 1)
(user-error "Uhhh, no %ss? " prompt))
((= len 1) (car collection))
(t (completing-read (format "Which %s? " prompt)
collection)))))
collection nil nil initial-input)))))
(defun lls/prompt-tool (tool-regexp &optional directories)
(lls/un-trampify
(my/completing-read tool-regexp
(lls/get-tool tool-regexp
(or (and (eq 'string (type-of directories))
(list directories))
directories)))))
(let (;;(vertico-sort-function nil)
)
(my/completing-read tool-regexp
(lls/get-tool tool-regexp
(or (and (eq 'string (type-of directories))
(list directories))
directories))
(concat (file-name-nondirectory (ti/current-tools-directory))
" ")))))
(defun lls/get-tool (tool-regexp &optional directories)
(cl-mapcan #'(lambda (dir)