English, romanji, japanese KLWP langauge toggle

Language toggle button
$if(
gv(langtog) = ENG, JAP,
gv(langtog) = JAP, ROM,
gv(langtog) = ROM, ENG,
gv(langtog) = "", ENG
)$

Displayed date text
$if(
gv(langtog) = ENG, df(EEEE),
gv(langtog) = ROM, gv(rmjDoW),
gv(langtog) = JAP, gv(jpDoW)
)$ $if(
gv(langtog) = ENG, ", " + df(dd),
gv(langtog) = ROM, gv(rmjDoM),
gv(langtog) = JAP, gv(jpDoM)
)$ $if(
gv(langtog) = ENG, df(MMMM),
gv(langtog) = ROM, gv(rmjMon),
gv(langtog) = JAP, gv(jpMon)
)$

Japanese
Day of the Week
$if(
df(EEE) = MON, 月曜日,
df(EEE) = TUE, 火曜日,
df(EEE) = WED, 水曜日,
df(EEE) = THU, 木曜日,
df(EEE) = FRI, 金曜日,
df(EEE) = SAT, 土曜日,
df(EEE) = SUN, 日曜日
)$

Day of the Month
$if(
mu(floor,df(d)/10) = 1, 十,
mu(floor,df(d)/10) = 2, 二,
mu(floor,df(d)/10) = 3, 三
)$$if(
df(d)%10 = 1, 一,
df(d)%10 = 2, 二,
df(d)%10 = 3, 三,
df(d)%10 = 4, 四,
df(d)%10 = 5, 五,
df(d)%10 = 6, 六,
df(d)%10 = 7, 七,
df(d)%10 = 8, 八,
df(d)%10 = 9, 九
)$日

Month
$if(
mu(floor,df(M)/10) = 1, 十
)$$if(
df(M)%10 = 1, 一,
df(M)%10 = 2, 二,
df(M)%10 = 3, 三,
df(M)%10 = 4, 四,
df(M)%10 = 5, 五,
df(M)%10 = 6, 六,
df(M)%10 = 7, 七,
df(M)%10 = 8, 八,
df(M)%10 = 9, 九
)$月


Romanji
Day of the Week
$if(
df(EEE) = MON, getsuyōbi,
df(EEE) = TUE, kayōbi,
df(EEE) = WED, suiyōbi,
df(EEE) = THU, mokuyōbi,
df(EEE) = FRI, kinyōbi,
df(EEE) = SAT, doyōbi,
df(EEE) = SUN, nichiyōbi
)$

Day of the month
$if(
df(d) = 1, "tsutachi",
df(d) = 2, "futsuka",
df(d) = 3, "mikka",
df(d) = 4, "yokka",
df(d) = 5, "itsuka",
df(d) = 6, "muika",
df(d) = 7, "nanoka",
df(d) = 8, "yōka",
df(d) = 9, "kokonoka",
df(d) = 10, "tōka",
df(d) = 11, "jūichi-nichi",
df(d) = 12, "jūni-nichi",
df(d) = 13, "jūsan-nichi",
df(d) = 14, "jūyokka",
df(d) = 15, "jūgo-nichi",
df(d) = 16, "jūroku-nichi",
df(d) = 17, "jūshichi-nichi",
df(d) = 18, "jūhachi-nichi",
df(d) = 19, "jūku-nichi",
df(d) = 20, "hatsuka",
df(d) = 21, "ni-jūichi-nichi",
df(d) = 22, "ni-jūni-nichi",
df(d) = 23, "ni-jūsan-nichi",
df(d) = 24, "ni-jūyokka",
df(d) = 25, "ni-jūgo-nichi",
df(d) = 26, "ni-jūroku-nichi",
df(d) = 27, "ni-jūshichi-nichi",
df(d) = 28, "ni-jūhachi-nichi",
df(d) = 29, "ni-jūku-nichi",
df(d) = 30, "san-jū-nichi",
df(d) = 31, "san-jūni-nichi"
)$

Month
$if(
mu(floor,df(M)/10) = 1, "jū"
)$$if(
df(M)%10 = 1, "ichi",
df(M)%10 = 2, "ni",
df(M)%10 = 3, "san",
df(M)%10 = 4, "shi",
df(M)%10 = 5, "go",
df(M)%10 = 6, "roku",
df(M)%10 = 7, "shichi",
df(M)%10 = 8, "hachi",
df(M)%10 = 9, "ku"
)$-gatsu