cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- [GUI] updated address bar when loading a gemlog feed.

This commit is contained in:
cage 2023-05-07 12:46:33 +02:00
parent 4519aa756e
commit 5629c25ba6
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/gui/client/gemlog-window.lisp
View File

@ -98,7 +98,9 @@
title
subtitle)))
(client-main-window:clean-gemtext gui-goodies:*main-frame*)
(client-main-window::collect-ir-lines url main-window parsed-gemlog-entries)))))))
(client-main-window::collect-ir-lines url main-window parsed-gemlog-entries)
(client-main-window:set-address-bar-text main-window url)
(client-main-window::set-gemlog-toolbar-button-appearance main-window url)))))))
(defun init-window (master main-window)
(gui:with-toplevel (toplevel :master master :title (_ "Gemlogs"))

5
src/gui/client/main-window.lisp
View File

@ -165,9 +165,12 @@
(ev:with-enqueued-process-and-unblock ()
(set-bookmark-button-false main-window)))
(ev:with-enqueued-process-and-unblock ()
(set-gemlog-toolbar-button-appearance main-window iri))))
(defun set-gemlog-toolbar-button-appearance (main-window iri)
(if (comm:make-request :gemini-gemlog-subscribed-p 1 iri)
(set-subscribe-button-subscribed main-window)
(set-subscribe-button-unsubscribed main-window)))))
(set-subscribe-button-unsubscribed main-window)))
(defun start-streaming-thread (main-window iri
&key