eufon

commit 36cf8f3d0a9348c9d311bf1b03743817d4746685
parent 2d5e5309397345cccbc00708ccad8859028e9afe
Author: Daniel Barlow <dan@telent.net>
Date:   Fri, 11 Feb 2022 22:50:20 +0000

make notification full-width

Diffstat:
M
crier/crier.fnl
 | 
8
+++++---

1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/crier/crier.fnl b/crier/crier.fnl
@@ -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}))