eufon

commit c981f9164d00fce40e4e6dda2247e37342b4d83b
parent dba56902c59ee1f0635d82ac1152fa0e4abc73da
Author: Daniel Barlow <dan@telent.net>
Date:   Fri, 11 Feb 2022 22:52:11 +0000

add border

Diffstat:
M
crier/crier.fnl
 | 
10
++++++++++
A
crier/styles.css
 | 
10
++++++++++

2 files changed, 20 insertions(+), 0 deletions(-)
diff --git a/crier/crier.fnl b/crier/crier.fnl
@@ -49,6 +49,15 @@
     DBUS_REQUEST_NAME_REPLY_EXISTS
     (error "already running")))
 
+(let [css (: (io.open "styles.css") :read "*a")
+      style_provider (Gtk.CssProvider)]
+  (style_provider:load_from_data css)
+  (Gtk.StyleContext.add_provider_for_screen
+   (lgi.Gdk.Screen.get_default)
+   style_provider
+   Gtk.STYLE_PROVIDER_PRIORITY_APPLICATION
+   ))
+
 ;; for each open message there is a widget
 ;; when a message is closed, we need to find its widget
 ;; and remove it from the container
@@ -64,6 +73,7 @@
       (GtkLayerShell.init_for_window window)
       (GtkLayerShell.set_layer window GtkLayerShell.Layer.TOP)
       (GtkLayerShell.auto_exclusive_zone_enable window)
+
       (GtkLayerShell.set_margin window GtkLayerShell.Edge.TOP 1)
       (GtkLayerShell.set_margin window GtkLayerShell.Edge.BOTTOM 10)
 
diff --git a/crier/styles.css b/crier/styles.css
@@ -0,0 +1,10 @@
+box#notification {
+    border-width: 1px;
+    border-style: solid;
+    margin: 2px 4px;
+    border-color: #999999;
+    padding: 4px;
+}
+label#summary {
+    font-weight: bold;
+}