(deflisten scratchpadArray :initial "${[1]}"
  'scripts/bar/scratchpad')
(defwidget scratchpad [array]
  (box :orientation "h"
       :space-evenly false
       :class "workspaces"
;    (box :space-evenly false
      (for entry in array
        (button :onclick 'swaymsg [con_id=${entry.win_id}] focus'
                :tooltip "${entry.name}
${entry.title}"
          (image :path {entry.icon}
               :image-width 20
               :image-height 20)
        ))))