dan/eufon
1
0
Fork 0
Code Issues Pull Requests Releases Activity

load urls on command line

Browse Source
This commit is contained in:
Daniel Barlow 2022-02-07 22:53:28 +00:00
parent 143a96f761
commit 9f652c3a45
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
just/just.fnl
View File

@ -159,6 +159,9 @@ progress, trough {
(each [_ w (ipairs (scrolledwindow:get_children))] (each [_ w (ipairs (scrolledwindow:get_children))]
(scrolledwindow:remove w)) (scrolledwindow:remove w))
(box:add (Gtk.Label { :label "Open tabs" }))
(each [i w (pairs tabs)] (each [i w (pairs tabs)]
(when (> i 0) (when (> i 0)
(box:pack_start (box:pack_start
@ -275,7 +278,8 @@ progress, trough {
(bus:subscribe :stop-loading (bus:subscribe :stop-loading
(fn [] (stop:hide) (refresh:show))) (fn [] (stop:hide) (refresh:show)))
(views:new-tab) (each [_ url (ipairs arg)]
(views:new-tab))
(nav-bar:pack_start back false false 2) (nav-bar:pack_start back false false 2)
(nav-bar:pack_start refresh false false 2) (nav-bar:pack_start refresh false false 2)
@ -291,7 +295,14 @@ progress, trough {
(window:add container) (window:add container)
(window:show_all) (window:show_all)
(bus:publish :fetch current-url))
(each [i url (ipairs arg)]
(lgi.GLib.timeout_add_seconds
0
(* 2 i)
(fn []
(bus:publish :switch-tab i)
(bus:publish :fetch url)
false))))
(Gtk.main) (Gtk.main)