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

add buttons for non-default actions

Browse Source
This commit is contained in:
Daniel Barlow 2022-02-12 18:43:00 +00:00
parent 56a54b4d31
commit d83fd293b2
1 changed files with 30 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
crier/crier.fnl
View File

@ -111,15 +111,16 @@
(doto widget (doto widget
(: :set-summary noti.summary) (: :set-summary noti.summary)
(: :set-body noti.body) (: :set-body noti.body)
(: :set-icon noti.app-icon))) (: :set-icon noti.app-icon)
(: :set-buttons noti.actions)))
(fn default-action [id] (fn emit-action [id action]
(bus.connection:emit_signal (bus.connection:emit_signal
nil ; destination nil ; destination
dbus-service-attrs.path dbus-service-attrs.path
dbus-service-attrs.interface dbus-service-attrs.interface
"ActionInvoked" "ActionInvoked"
(GV "(us)" [id "default"]))) (GV "(us)" [id action])))
(fn make-notification-widget [id] (fn make-notification-widget [id]
(let [summary (Gtk.Label { :name "summary" }) (let [summary (Gtk.Label { :name "summary" })
@ -127,23 +128,40 @@
icon (Gtk.Image) icon (Gtk.Image)
cancel-me (fn [] (delete-notification id)) cancel-me (fn [] (delete-notification id))
event-box (Gtk.EventBox { event-box (Gtk.EventBox {
:on_button_press_event #(default-action id) :on_button_press_event #(emit-action id "default")
}) })
hbox (Gtk.Box { messages (Gtk.Box { :orientation Gtk.Orientation.VERTICAL})
icon-and-messages (Gtk.Box {
:name "notification" :name "notification"
:orientation Gtk.Orientation.HORIZONTAL :orientation Gtk.Orientation.HORIZONTAL
}) })
vbox (Gtk.Box { :orientation Gtk.Orientation.VERTICAL})] buttons (Gtk.Box { :orientation Gtk.Orientation.HORIZONTAL})
(vbox:pack_start summary false false 0) with-buttons (Gtk.Box { :orientation Gtk.Orientation.VERTICAL})
(vbox:pack_start body true false 0) ]
(hbox:pack_start icon false false 0) (messages:pack_start summary false false 0)
(hbox:pack_start vbox true true 0) (messages:pack_start body true false 0)
(event-box:add hbox) (icon-and-messages:pack_start icon false false 0)
(icon-and-messages:pack_start messages true true 0)
(with-buttons:pack_start icon-and-messages false false 0)
(with-buttons:pack_start buttons false false 0)
(event-box:add with-buttons)
{ {
:set-summary (fn [self value] :set-summary (fn [self value]
(set summary.label value)) (set summary.label value))
:set-body (fn [self value] :set-body (fn [self value]
(set body.label value)) (set body.label value))
:set-buttons (fn [self actions]
(each [_ child (ipairs (buttons:get_children))]
(print child)
(child:destroy))
(when actions
(each [key label (pairs actions)]
(if (not (= key "default"))
(buttons:pack_start (Gtk.Button {
:on_clicked
#(emit-action id key)
:label label })
true false 0)))))
:set-icon (fn [self value] :set-icon (fn [self value]
(when value (when value
(icon:set_from_icon_name (icon:set_from_icon_name