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

make notification full-width

phoen
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
(fn make-window []
(let [window (Gtk.Window {:width 360
:on_destroy Gtk.main_quit})
(let [window (Gtk.Window {:on_destroy Gtk.main_quit})
box (Gtk.Box {
:orientation Gtk.Orientation.VERTICAL
})]
@ -67,7 +66,10 @@
(GtkLayerShell.auto_exclusive_zone_enable window)
(GtkLayerShell.set_margin window GtkLayerShell.Edge.TOP 1)
(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 window :box box}))