7f41cf7a82
The bare $HOME repo is gone. This is now the rice: install.sh, rice-* scripts in bin/, configs in home/ linked into $HOME, theme templates, st and the particle wallpaper. Clone to ~/rice and run install.sh.
39 lines
2.1 KiB
Text
39 lines
2.1 KiB
Text
;; Media: what is playing, a seek bar, and transport controls.
|
|
(defpoll media_pos :interval "1s" :initial "{}" :run-while {open_panel == "media"} "rice-media position")
|
|
|
|
(defwindow media
|
|
:monitor 0
|
|
:geometry (geometry :x "0" :y "47px" :width "380px" :anchor "top center")
|
|
:stacking "fg"
|
|
:wm-ignore true
|
|
:resizable false
|
|
(box :class "panel" :orientation "v" :space-evenly false
|
|
(head :title "Media"
|
|
(label :class "dim" :text {media?.player ?: ""}))
|
|
|
|
(box :orientation "v" :space-evenly false
|
|
:visible {media?.status != "Playing" && media?.status != "Paused"}
|
|
(empty :text "Nothing is playing"))
|
|
|
|
(box :orientation "v" :space-evenly false
|
|
:visible {media?.status == "Playing" || media?.status == "Paused"}
|
|
(box :class "row" :space-evenly false
|
|
(box :class "art" :visible {(media?.art ?: "") != ""}
|
|
:style "background-image: url('${media?.art ?: ''}');")
|
|
(box :orientation "v" :space-evenly false :valign "center" :hexpand true
|
|
(label :class "media-title" :xalign 0 :limit-width 26 :text {media?.title ?: ""})
|
|
(label :class "media-artist" :xalign 0 :limit-width 32 :text {media?.artist ?: ""})
|
|
(label :class "media-artist" :xalign 0 :limit-width 32 :visible {(media?.album ?: "") != ""}
|
|
:text {media?.album ?: ""})))
|
|
|
|
(box :class "row slider-row" :space-evenly false :visible {(media?.length ?: 0) > 0}
|
|
(label :class "media-time" :width 36 :xalign 0 :text {media_pos?.text ?: "0:00"})
|
|
(scale :class "slider" :hexpand true :min 0 :max {media?.length ?: 1}
|
|
:value {media_pos?.pos ?: 0} :onchange "rice-media seek {}")
|
|
(label :class "media-time" :width 36 :xalign 1 :text {media?.lengthText ?: ""}))
|
|
|
|
(box :class "row" :space-evenly true
|
|
(button :class "media-btn" :tooltip "Previous" :onclick "playerctl previous" "")
|
|
(button :class "media-btn accent" :tooltip "Play / pause" :onclick "playerctl play-pause"
|
|
{media?.status == "Playing" ? "" : ""})
|
|
(button :class "media-btn" :tooltip "Next" :onclick "playerctl next" "")))))
|