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

make notification full-width

Browse Source
This commit is contained in:
Daniel Barlow 2022-02-11 22:50:20 +00:00
parent 2d5e530939
commit 36cf8f3d0a
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
crier/crier.fnl
View File

@ -55,8 +55,7 @@
;; if there are no messages left, hide the windox ;; if there are no messages left, hide the windox
(fn make-window [] (fn make-window []
(let [window (Gtk.Window {:width 360 (let [window (Gtk.Window {:on_destroy Gtk.main_quit})
:on_destroy Gtk.main_quit})
box (Gtk.Box { box (Gtk.Box {
:orientation Gtk.Orientation.VERTICAL :orientation Gtk.Orientation.VERTICAL
})] })]
@ -67,7 +66,10 @@
(GtkLayerShell.auto_exclusive_zone_enable window) (GtkLayerShell.auto_exclusive_zone_enable window)
(GtkLayerShell.set_margin window GtkLayerShell.Edge.TOP 1) (GtkLayerShell.set_margin window GtkLayerShell.Edge.TOP 1)
(GtkLayerShell.set_margin window GtkLayerShell.Edge.BOTTOM 10) (GtkLayerShell.set_margin window GtkLayerShell.Edge.BOTTOM 10)
(GtkLayerShell.set_anchor window GtkLayerShell.Edge.TOP 1))
(GtkLayerShell.set_anchor window GtkLayerShell.Edge.TOP 1)
(GtkLayerShell.set_anchor window GtkLayerShell.Edge.LEFT 1)
(GtkLayerShell.set_anchor window GtkLayerShell.Edge.RIGHT 1))
(window:hide) (window:hide)
{:window window :box box})) {:window window :box box}))