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

add default value for room directory limit in interactive mode

Browse source
This commit is contained in:
Valentin Boettcher 2022-09-23 14:04:22 +02:00 • committed by GitHub
parent a48e55d655
commit ccc5247046
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
ement-directory.el
View file

@ -147,12 +147,14 @@
"View the public room directory on SERVER with SESSION.
Interactively, With prefix, prompt for server and number of
rooms."
(interactive (let* ((session (ement-complete-session :prompt "Search on session: "))
(interactive (let* ((default-limit 1000)
(session (ement-complete-session :prompt "Search on session: "))
(server (if current-prefix-arg
(read-string "Search on server: ")
(ement-server-name (ement-session-server session))))
(limit (when current-prefix-arg
(read-number "Limit number of rooms: " 1000))))
(limit (if current-prefix-arg
(read-number "Limit number of rooms: " default-limit)
default-limit)))
(list :server server :session session :limit limit)))
(pcase-let ((revert-function (lambda (&rest _ignore)
(interactive)