cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2024-12-22 23:47:56 +01:00
Code Issues

- fixed 'valid-results-p' when a global search is performed.

Browse Source
This commit is contained in:
cage 2021-08-28 16:59:50 +02:00
parent f388c9d0b2
commit df3bff9421
3 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
doc/man.org
View File

@ -258,7 +258,7 @@
all its table of contents on the tour mode, so that the book could
be browsed.
For more information on tour mode use /'C-h a <enter> tour'/.
For more information on tour mode use /'C-h A <enter> tour mode'/.
* How to get more help

6
src/keybindings.lisp
View File

@ -544,7 +544,9 @@ and `make-blocking-list-dialog-window') showing the full docstring for a command
text
(tui:tui-string->chars-string text)))))))
(valid-results-p (fields)
(> (length fields) 2)))
(if global-search
fields
(> (length fields) 2))))
(when-let* ((focused-keybindings (main-window:focused-keybindings main-window))
(global-help (sort-help (if global-search
(loop for i in *all-keymaps* append
@ -569,6 +571,8 @@ and `make-blocking-list-dialog-window') showing the full docstring for a command
fields))
(actual-lines (mapcar #'help-fields-get-text actual-fields))
(no-help-message (list (_ "No command matching your criteria found"))))
(misc:dbg "aext ~a ->~a" actual-fields (valid-results-p actual-fields))
(if (valid-results-p actual-fields)
(line-oriented-window:make-blocking-list-dialog-window specials:*main-window*
actual-fields

3
src/ui-goodies.lisp
View File

@ -1997,7 +1997,8 @@ gemini://gemini.circumlunar.space/docs/companion/subscription.gmi
(info-message (_ "Tour saved")))))
(defun tour-mode-link ()
"Enable \"tour mode\". Ask for link indices, each link
"Enable \"tour mode\".
Ask for link indices, each link
corresponding to the index will be saved in a special queue that
can be opened using `next-tour-link' in a last-in last-out way.