16 lines
602 B
Text
16 lines
602 B
Text
(defwidget revealer-on-press [revealvar revealvar-name ?class ?duration ?transition]
|
|
(box
|
|
:class "${class} revealer-on-press ${revealvar ? 'revealer_opened' : 'revealer_closed'}"
|
|
; :width {revealvar ? 300 : 100}
|
|
:space-evenly false
|
|
(box
|
|
:orientation "vertical"
|
|
:space-evenly false
|
|
(eventbox
|
|
:onclick '${EWW_CMD} update ${revealvar-name}=${revealvar ? "false" : "true"}'
|
|
(children :nth 0))
|
|
(revealer
|
|
:reveal revealvar
|
|
:transition {transition ?: "slidedown"}
|
|
:duration {duration ?: "500ms"}
|
|
(children :nth 1)))))
|