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

handle replace-id for updating notifications in-place

Browse Source
This commit is contained in:
Daniel Barlow 2022-02-12 16:10:26 +00:00
parent 731e59f8fe
commit 94d5c91c70
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
crier/crier.fnl
View File

@ -88,8 +88,8 @@
(fn update-window [] (fn update-window []
(each [id widget (pairs notifications)] (each [id widget (pairs notifications)]
(if (not (widget:get_parent)) (if (not (widget.widget:get_parent))
(window.box:pack_start widget false false 5))) (window.box:pack_start widget.widget false false 5)))
(if (next notifications) (if (next notifications)
(window.window:show_all) (window.window:show_all)
(window.window:hide))) (window.window:hide)))
@ -102,7 +102,7 @@
(fn delete-notification [id] (fn delete-notification [id]
(let [widget (. notifications id)] (let [widget (. notifications id)]
(tset notifications id nil) (tset notifications id nil)
(window.box:remove widget) (window.box:remove widget.widget)
(update-window) (update-window)
false false
)) ))
@ -162,7 +162,7 @@
lgi.GLib.PRIORITY_DEFAULT timeout #(delete-notification id))) lgi.GLib.PRIORITY_DEFAULT timeout #(delete-notification id)))
(update-notification-widget widget noti) (update-notification-widget widget noti)
(tset notifications id widget.widget) (tset notifications id widget)
(update-window) (update-window)
id)) id))