(defwidget dock_icon [pinned_app]
    (eventbox
        :class      "dock_icon ${pinned_app.alias}"
        :height     48
        :width      48
        :halign     "center"
        :valign     "center"
        :active     true
        :tooltip    "${pinned_app.name}"
        :onclick    "${pinned_app.cmd}"
        "${pinned_app.icon}"
    )
)

(defwidget dock_widg []
    (box
        :class  "dock_widg"
        :halign "fill"
        :height 50
        :width  200
        :active true

        ;These icons are for testing, not fully implemented
        (dock_icon       
            :pinned_app "${apps}"
        )
        (dock_icon 
            :pinned_app "${firefox}"
        )
        (dock_icon
            :pinned_app "${files}"
        )
        (dock_icon
            :pinned_app "${terminal}"
        )
    )
)


;These vars are for testing
(defvar
    firefox
    "{\"name\":\"Firefox\", \"icon\":\"\", \"cmd\":\"firefox --private\", \"alias\":\"firefox\"}"
)
(defvar
    terminal
    "{\"name\":\"Terminal\", \"icon\":\"\", \"cmd\":\"alacritty\", \"alias\":\"terminal\"}"
)
(defvar
    files
    "{\"name\":\"Files\", \"icon\":\"\", \"cmd\":\"nautilus\", \"alias\":\"nautilus\"}"
)
(defvar
    apps
    "{\"name\":\"Apps\", \"icon\":\"\", \"cmd\":\"firefox --private\", \"alias\":\"apps\"}"
)