(defvar reveal_sysdisk false)
(defwidget sysdisk []
  (revealer-on-hover
    :revealvar reveal_sysdisk
    :revealvar-name "reveal_sysdisk"
    (metric :label "/home "
            :value {EWW_DISK["/home"].used_perc})
    (sysdisk_children)))

(defwidget sysdisk_children []
  (box :class "reveal_children"
    :orientation "h"
    :space-evenly false
    :halign "center"
    (metric :label "/ "
            :value {EWW_DISK["/"].used_perc})
    (metric :label "/boot "
            :value {EWW_DISK["/boot"].used_perc})))
