hiro/ement.el
1
0
Fork 0
mirror of https://github.com/vale981/ement.el synced 2025-03-05 09:21:37 -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. "View the public room directory on SERVER with SESSION.
Interactively, With prefix, prompt for server and number of Interactively, With prefix, prompt for server and number of
rooms." 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 (server (if current-prefix-arg
(read-string "Search on server: ") (read-string "Search on server: ")
(ement-server-name (ement-session-server session)))) (ement-server-name (ement-session-server session))))
(limit (when current-prefix-arg (limit (if current-prefix-arg
(read-number "Limit number of rooms: " 1000)))) (read-number "Limit number of rooms: " default-limit)
default-limit)))
(list :server server :session session :limit limit))) (list :server server :session session :limit limit)))
(pcase-let ((revert-function (lambda (&rest _ignore) (pcase-let ((revert-function (lambda (&rest _ignore)
(interactive) (interactive)