eufon

commit bcf499a7d149b70ea568d222d630dd5069f7cf58
parent 4c94b2164bc437705a49b4c1196ddb1b163dc966
Author: Daniel Barlow <dan@telent.net>
Date:   Sat,  5 Feb 2022 12:35:28 +0000

set window title according to document

Diffstat:
M
just/just.fnl
 | 
4
++++

1 file changed, 4 insertions(+), 0 deletions(-)
diff --git a/just/just.fnl b/just/just.fnl
@@ -23,6 +23,10 @@
                                 (fn [self pspec c]
                                   (if (= pspec.name "uri")
                                       (url:set_text self.uri)
+                                      (and (= pspec.name "title")
+                                           (> (# self.title) 0))
+                                      (window:set_title
+                                       (.. self.title " - Just browsing"))
                                       ))
                                 })
       back (Gtk.Button {