cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-03-05 10:17:44 +01:00
Code Issues

- added a command to show the tour's queue.

Browse Source
This commit is contained in:
cage 2021-05-01 20:25:15 +02:00
parent 864dc959e6
commit 528700907f
3 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
etc/init.lisp
View File

@ -349,10 +349,12 @@
(define-key "s" #'gemini-subscribe-gemlog *gemini-message-keymap*)
(define-key "T" #'message-toggle-preformatted-block *gemini-message-keymap*)
(define-key "p" #'message-toggle-preformatted-block *gemini-message-keymap*)
(define-key "t" #'next-tour-link *gemini-message-keymap*)
(define-key "T" #'show-tour-links *gemini-message-keymap*)
(define-key "|" #'send-to-pipe *gemini-message-keymap*)

1
src/package.lisp
View File

@ -2473,6 +2473,7 @@
:send-message-to-pipe
:tour-mode-link
:next-tour-link
:show-tour-links
:pass-focus-on-left
:pass-focus-on-right
:pass-focus-on-bottom

16
src/ui-goodies.lisp
View File

@ -1868,16 +1868,15 @@ gemini://gemini.circumlunar.space/docs/companion/subscription.gmi
"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."
(when-let* ((rows (line-oriented-window:map-rows *open-message-link-window*
#'identity)))
(with-accessors ((links open-message-link-window::links)) *open-message-link-window*
(flet ((on-input-complete (indices)
(when (string-not-empty-p indices)
(let ((indices-list (mapcar
#'num:safe-parse-number
(split-words indices))))
(loop for index in indices-list when index do
(if (<= 0 index (length rows))
(push (elt rows index)
(if (<= 0 index (length links))
(push (elt links index)
tour)
(notify (format nil (_ "Index ~a out of range") index)
:as-error t)))
@ -1891,6 +1890,11 @@ gemini://gemini.circumlunar.space/docs/companion/subscription.gmi
(link (first queue)))
(if (null queue)
(error-message (_ "Tour completed"))
(let ((url (line-oriented-window:normal-text link)))
(let ((url (gemini-parser:target link)))
(setf tour (reverse (rest queue)))
(open-message-link-window:open-message-link url nil))))))
(open-message-link-window:open-message-link url nil)))))
(defun show-tour-links ()
"Show a link window with all the links in the tour queue"
(open-message-link-window:init-gemini-links tour)
(focus-to-open-message-link-window)))