(defvar reveal_sysdisk false)
(defwidget sysdisk []
  (revealer-on-hover
    :class "${reveal_sysdisk} sysdisk"
    :revealvar reveal_sysdisk
    :revealvar-name "reveal_sysdisk"
    (box
      :class "revealer-preview"
      :tooltip "${jq(EWW_DISK,'to_entries[]|"\\(.key) \\(.value.used_perc*10|round/10)% \\n"','r')}"
      (metric :label "󰟒 "
        :value {EWW_DISK["/home"].used_perc}))
    (sysdisk_children)))

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