eufon

commit 7824d42be71a9dd7822d05bfadb86673f5dcb518
parent 26b3c7d781302ff77f4f10078c9517e42dba5fe9
Author: Daniel Barlow <dan@telent.net>
Date:   Sat, 12 Feb 2022 13:24:20 +0000

allow setting timeouts

Diffstat:
M
crier/README.md
 | 
1
-
M
crier/crier.fnl
 | 
19
++++++++++++++++++-

2 files changed, 18 insertions(+), 2 deletions(-)
diff --git a/crier/README.md b/crier/README.md
@@ -8,7 +8,6 @@ server optimised for mobile form devices.
 
 - test with "replace"
 - implement actions
-- implement timeouts
 - implement default timeout for urgency in (low, normal)
 - test multi-paragraph body and markup
 - implement GetCapabilities properly
diff --git a/crier/crier.fnl b/crier/crier.fnl
@@ -104,6 +104,7 @@
     (tset notifications id nil)
     (window.box:remove widget)
     (update-window)
+    false
     ))
 
 (fn update-notification-widget [widget noti]
@@ -144,9 +145,22 @@
      :widget event-box
      }))
 
+(fn timeout-ms [noti]
+  (if (or (not noti.timeout) (= noti.timeout -1))
+      5000
+      (> noti.timeout 0)
+      noti.timeout
+      (= noti.timeout 0)
+      nil))
+
 (fn add-notification [noti]
   (let [id (if (= noti.id 0) (next-notification-id) noti.id)
-        widget (or (. notifications id) (make-notification-widget id))]
+        widget (or (. notifications id) (make-notification-widget id))
+        timeout (timeout-ms noti)]
+    (when timeout
+      (lgi.GLib.timeout_add
+       lgi.GLib.PRIORITY_DEFAULT timeout  #(delete-notification id)))
+
     (update-notification-widget widget noti)
     (tset notifications id widget.widget)
     (update-window)
@@ -159,6 +173,9 @@
    :app-icon (. params 3)
    :summary (. params 4)
    :body (. params 5)
+   :actions (. params 6)
+   :hints (. params 7)
+   :timeout (. params 8)
    })
 
 (fn handle-dbus-method-call [conn sender path interface method params invocation]