(defvar reveal_utilities false)

(defwidget utilities []
  (revealer-on-hover  :class "${reveal_utilities} utilities"
                      :revealvar reveal_utilities
                      :revealvar-name "reveal_utilities"
    (button :onclick 'notify-send "test"'
            :class "revealer-preview active"
      "󱁤")
    (utilities_children)))

(defwidget utilities_children []
(box  :class "reveal-children"
      :orientation "h"
      :space-evenly true
      :halign "start"
;  (for device in array
;    (button :onclick {(device.connected == "yes") ? 'bluetoothctl disconnect "${device.address}"' : 'bluetoothctl connect "${device.address}"'}
;            :class {(device.connected == "yes") ? "active" : "inactive"}
;            :tooltip "${device.name}"
;      "${device.icon}"))
  (button :onclick 'wl-color-picker.sh clipboard'
    :onrightclick 'wl-color-picker.sh'
    :tooltip 'colorpicker'
    ''
  )
  (button :onclick 'qr-generator.sh'
    :onrightclick 'qr-generator.sh -c'
    :tooltip 'QR Generator'
    '󰐲'
  )
  ))