ref: 3519f1d58ff78407227adb5a3a202d7a4e626a93
dir: /bin/rc/rios/themeswitch/
#!/bin/rc
themev=/tmp/themerc
acmedrc=/tmp/acmed.ed
echo >$themev
if(! ~ $#1 0)
themespec=$1
switch($themespec) {
case green
font=/lib/font/bit/uni-vga/u_vga16.font
# font=/lib/font/bit/zevv-peep/zevv-peep-14.font
# font=/lib/font/bit/spleen/spleen.12.font
# font=/lib/font/bit/tamzen/tamzen14.font
themepath=$home/lib/theme/green.theme
case blit
font=/lib/font/bit/fixed/unicode.9x18B.font
font=/lib/font/bit/fixed/unicode.9x15B.font
themepath=$home/lib/theme/blit.theme
case orange
font=/lib/font/bit/zevv-peep/zevv-peep-14.font
font=/lib/font/bit/tamzen/tamzen16.font
font=/lib/font/bit/fixed/unicode.9x15B.font
themepath=$home/lib/theme/orange.theme
case gruvbox
font=/lib/font/bit/uni-vga/u_vga16.font
themepath=$home/lib/theme/gruvbox.theme
case gruvboxl
font=/lib/font/bit/uni-vga/u_vga16.font
themepath=$home/lib/theme/gruvboxl.theme
case white
font=/lib/font/bit/lucm/unicode.9.font
font=/lib/font/bit/lucidasans/typeunicode.7.font
# font=/lib/font/bit/pelm/unicode.8.font
font=/lib/font/bit/uni-vga/u_vga16.font
themepath=$home/lib/theme/white.theme
case greeng
font=/lib/font/bit/zevv-peep/zevv-peep-16.font
themepath=$home/lib/theme/greengold.theme
case nord
font=/lib/font/bit/pelm/unicode.8.font
themepath=$home/lib/theme/nord.theme
case purple
font=/lib/font/bit/spleen/spleen.16.font
themepath=$home/lib/theme/purple.theme
}
>$acmedrc echo '2
c
'^$font^'
.
3
c
'^$font^'
.
w
q'
echo 'themespec='^$themespec >$themev
echo 'font='^`{cat /env/font} >>$themev
echo 'themepath='^`{cat /env/themepath} >>$themev
echo $themev
rm /env/theme^(rc spec v path)
rm /env/acmed^(rc)