Files
menologion/eww/menologion.yuck
T
funkpower be81c682cb horologion was the wrong book
The Horologion is the Book of Hours: the fixed portions of the services
themselves. This shows the day's commemorations, its fast and its season,
which is a Menologion. Naming it for a book whose contents it does not carry
was a real error and worth the churn to correct.

typikon already uses the word internally, for menologion.py and the data file
it loads. That is not a collision: typikon provides a menologion, this
displays one.

Renamed throughout, not just the repo: the two scripts, the QML component and
its three qmldir modules, MENOLOGION_COLORS, ~/.config/menologion/colors.json,
the eww widgets and scss variables, the waybar class. Verified standalone and
embedded in a foreign shell, and the smoke suite still passes.

Also drops the em dashes from the prose.
2026-09-18 10:52:56 -04:00

85 lines
3.1 KiB
Plaintext

;; menologion — the liturgical day for eww
;;
;; Include this from your own eww.yuck:
;;
;; (include "menologion/menologion.yuck")
;;
;; and put (menologion) in a window, or (menologion-bar) in a bar. Set a
;; jurisdiction by adding `--jurisdiction <name>` to both defpoll commands
;; below; leaving them as they are follows whatever `typikon --set-default`
;; wrote.
(defpoll typikon-day
:interval "30m"
:initial "{}"
`typikon --json`)
(defpoll typikon-week
:interval "30m"
:initial "{\"days\":[]}"
;; From tomorrow, not today: the head block above already shows today in
;; full, and simplexpr has no way to drop the first element of a list.
`typikon --json --days 6 --date $(date -d tomorrow +%F)`)
;; ── the one-line version, for a bar
(defwidget menologion-bar []
(box :class "menologion-bar"
:space-evenly false
:spacing 6
(label :class "glyph" :text {typikon-day.emoji ?: ""})
(label :class "title"
:limit-width 42
:text {typikon-day.title ?: "typikon?"})))
;; ── the full panel
(defwidget menologion []
(box :class "menologion"
:orientation "v"
:space-evenly false
:spacing 8
(box :class "head" :space-evenly false :spacing 11
(label :class "glyph-big" :text {typikon-day.emoji ?: ""})
(box :orientation "v" :space-evenly false :halign "start" :hexpand true
(label :class {(typikon-day.feast ?: "") != "" ? "title feast" : "title"}
:halign "start"
:wrap true
:lines 2
:text {typikon-day.title ?: "typikon is not on PATH"})
(label :class {typikon-day.obligation == "obligatory"
? "sub obligatory" : "sub"}
:halign "start"
:text "${typikon-day.weekday ?: ""}${
(typikon-day.season ?: "") != "" ? " · " : ""}${
typikon-day.season ?: ""}${
typikon-day.obligation == "obligatory"
? " · obligatory" : ""}")
(label :class "cycle"
:halign "start"
:visible {(typikon-day.cycle ?: "") != ""}
:text {typikon-day.cycle ?: ""})))
(label :class "fast"
:halign "start"
:text "${typikon-day.fastLabel ?: ""}${
(typikon-day.reason ?: "") != ""
? " — " : ""}${typikon-day.reason ?: ""}")
(box :class "rule")
;; the rest of the week
(box :orientation "v" :space-evenly false :spacing 2
(for d in {typikon-week.days ?: []}
(box :space-evenly false :spacing 9
(label :class "glyph" :text {d.emoji})
(label :class "weekday" :width 34 :xalign 0 :text {d.weekday})
(label :class {(d.feast ?: "") != "" ? "day feast" : "day"}
:hexpand true :xalign 0 :limit-width 40 :text {d.title}))))
(box :class "rule")
(box :space-evenly false
(label :class "pascha" :hexpand true :xalign 0
:text "Pascha ${typikon-day.pascha ?: ""}")
(label :class "pascha" :text {typikon-day.churchDate ?: ""}))))