cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-01-10 02:02:31 +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 all its table of contents on the tour mode, so that the book could
be browsed. 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 * 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 text
(tui:tui-string->chars-string text))))))) (tui:tui-string->chars-string text)))))))
(valid-results-p (fields) (valid-results-p (fields)
(> (length fields) 2))) (if global-search
fields
(> (length fields) 2))))
(when-let* ((focused-keybindings (main-window:focused-keybindings main-window)) (when-let* ((focused-keybindings (main-window:focused-keybindings main-window))
(global-help (sort-help (if global-search (global-help (sort-help (if global-search
(loop for i in *all-keymaps* append (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)) fields))
(actual-lines (mapcar #'help-fields-get-text actual-fields)) (actual-lines (mapcar #'help-fields-get-text actual-fields))
(no-help-message (list (_ "No command matching your criteria found")))) (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) (if (valid-results-p actual-fields)
(line-oriented-window:make-blocking-list-dialog-window specials:*main-window* (line-oriented-window:make-blocking-list-dialog-window specials:*main-window*
actual-fields 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"))))) (info-message (_ "Tour saved")))))
(defun tour-mode-link () (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 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. can be opened using `next-tour-link' in a last-in last-out way.