hiro/ement.el
1
0
Fork 0
mirror of https://github.com/vale981/ement.el synced 2025-03-04 17:01:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Change: (ement-complete-session) Add prompt argument

Browse source
This commit is contained in:
Adam Porter 2022-09-22 14:26:08 -05:00
parent 96ec15cdf9
commit f4cb5056db
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
ement-lib.el
View file

@ -331,12 +331,12 @@ THEN and ELSE are passed to `ement-api', which see."
:content-type content-type :data data :data-type 'binary :content-type content-type :data data :data-type 'binary
:then then :else else)) :then then :else else))
(defun ement-complete-session () (cl-defun ement-complete-session (&key (prompt "Session: "))
"Return an Ement session selected with completion." "Return an Ement session selected with completion."
(cl-etypecase (length ement-sessions) (cl-etypecase (length ement-sessions)
((integer 1 1) (cdar ement-sessions)) ((integer 1 1) (cdar ement-sessions))
((integer 2 *) (let* ((ids (mapcar #'car ement-sessions)) ((integer 2 *) (let* ((ids (mapcar #'car ement-sessions))
(selected-id (completing-read "Session: " ids nil t))) (selected-id (completing-read prompt ids nil t)))
(alist-get selected-id ement-sessions nil nil #'equal))) (alist-get selected-id ement-sessions nil nil #'equal)))
(otherwise (user-error "No active sessions. Call `ement-connect' to log in")))) (otherwise (user-error "No active sessions. Call `ement-connect' to log in"))))