1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162 |
- #!/bin/bash
-
- . "$(sfpath)" || exit 3
-
- shellfu import pretty
-
- CSDEMO_FNAME=$1
- CSDEMO_BG="$(mktemp)"
- CSDEMO_FG="$(mktemp)"
-
-
- xd2html() {
- local name color
- while read line;
- do
- name="${line%%:*}"
- color="${line##*:}"
- test -n "$name" || continue
- test -n "$color" || continue
- debug -v name color
- test "$name" == "URxvt.background" && echo "$color" > "$CSDEMO_BG"
- test "$name" == "URxvt.foreground" && echo "$color" > "$CSDEMO_FG"
- echos " <p style='color: $color'>$name</p>"
- done
- }
-
- htmlhead() {
- echos "<!doctype html>"
- echos "<html>"
- echos " <head>"
- echos " <title>$CSDEMO_FNAME</title>"
- echos " <link rel='stylesheet' href='$CSDEMO_FNAME.css'>"
- echos " </head>"
- echos " <body>"
- }
-
- htmltail() {
- echos " </body>"
- echos "</html>"
- }
-
- css() {
- echos "body {"
- echos " font-size: xx-large;"
- echos " font-family: monospace;"
- echos " color: $(cat "$CSDEMO_FG");"
- echos " background-color: $(cat "$CSDEMO_BG");"
- echos "}"
- }
-
- test -n "$CSDEMO_FNAME" || mkusage "scheme.Xresources"
-
- htmlhead > "$CSDEMO_FNAME.html"
- <"$CSDEMO_FNAME" xd2html >> "$CSDEMO_FNAME.html"
- htmltail >> "$CSDEMO_FNAME.html"
- debug -f "$CSDEMO_FG" "$CSDEMO_BG"
- test -s "$CSDEMO_FG" || die "failed to parse URxvt.foreground"
- test -s "$CSDEMO_BG" || die "failed to parse URxvt.background"
- css > "$CSDEMO_FNAME.css"
-
- rm "$CSDEMO_BG"
- rm "$CSDEMO_FG"
|