読むのが面倒な人向けのまとめ

week コマンドをインストールして ~/.weekrc をこう設定するといいよ、何ができるかは week -l を見て、という話。

~/.weekrc

option default --i18n-v --theme tokyo2020

week コマンドの続き

以前の記事。

--tokyo2020 オプション

来年開催予定の東京オリンピックの成功を祈って --tokyo2020 オプションを作ってみた。

配色については、公式発表されているデータに加え、このサイトを参考にさせて頂いた。プログラムを変更して、曜日毎に異なる色を設定できるようにして、月曜から金曜日に五輪カラーを割り当てた。それ以外はエンブレムカラーだが、こうしてみるとエンブレムの藍色以外、東京五輪特有の色というのは使われていないのだなと思った。

オリンピック五輪と2020年東京五輪エンブレム＆装飾デザイン色・カラーコード | 綾糸.net

他のカラーテーマでは曜日の色は定義していないので、先に --tokyo2020 オプションを適用すると結果的に曜日の色だけが残り、これはこれでいい感じだ¹。

ところで、この記事で使っている画像は iTerm2 の24ビットカラーで表示したものだ。前の記事にも書いたように week コマンドは24ビット表現で色を指定することができるが、通常は 6x6x6 の216色に変換して表示する。macOS 標準のターミナルで実行するとこのように表示される。

エンブレムの微妙な色 (#ee334e) は表現できず、赤っぽくなってしまう²。Tokyo2020 のイメージとは少し違うのだが、クリスマスっぽくって結構いいんじゃないかとも思っている。

追記

その後、Getopt::EX::Colormap のアルゴリズムを見直して、#ee334e が 501 にマップされるようになった。バージョン 0.13 以降では、次のように表示されるはずだ。若干明るいが、以前よりはだいぶ近くなったのではないだろうか。

i18n モジュール

オリンピックなのだから、カレンダーも国際色豊かにしたい。week コマンドは cal コマンドの結果を加工しているので、何もせずとも locale 対応している。というか、どんな文字列が来ても処理できるよう、それなりに工夫している。だからこんな風に環境変数を設定すれば簡単に各国のカレンダーを表示できる。

i18n モジュールは、この作業を簡単にするものだ。自国語の設定はログイン時に一度やっておけばいいが、馴染みのない国のロケールコードを知るのは簡単ではない。たとえば、ブラジルの場合 pt_BR を指定するなんて普通の日本人は覚えてないだろう。でもブラジルが BR であることは知っているかもしれない。-M18n モジュールをロードすると、以下のオプションが設定されて --br でブラジルのカレンダーを表示することができる。

option --BR    &setenv(LANG=pt_BR) # Brazil / Portuguese
option --br    &setenv(LANG=pt_BR) # Brazil / Portuguese
option --pt_BR &setenv(LANG=pt_BR) # Brazil / Portuguese
option --ptbr  &setenv(LANG=pt_BR) # Brazil / Portuguese

オプションの一覧は week -l で表示することができる。macOS 10.15 (Catalina) で実行すると次のようになる。詳しい説明は Getopt::EX::i18n を見ていただきたい。

$ week -l
option --AM    &setenv(LANG=hy_AM) # Armenia / Armenian
option --hy    &setenv(LANG=hy_AM) # Armenia / Armenian
option --hy_AM &setenv(LANG=hy_AM) # Armenia / Armenian
option --hyam  &setenv(LANG=hy_AM) # Armenia / Armenian
option --AT    &setenv(LANG=de_AT) # Austria / German
option --at    &setenv(LANG=de_AT) # Austria / German
option --de_AT &setenv(LANG=de_AT) # Austria / German
option --deat  &setenv(LANG=de_AT) # Austria / German
option --AU    &setenv(LANG=en_AU) # Australia / English
option --au    &setenv(LANG=en_AU) # Australia / English
option --en    &setenv(LANG=en_AU) # Australia / English
option --en_AU &setenv(LANG=en_AU) # Australia / English
option --enau  &setenv(LANG=en_AU) # Australia / English
option --fr_BE &setenv(LANG=fr_BE) # Belgium / French
option --frbe  &setenv(LANG=fr_BE) # Belgium / French
option --nl_BE &setenv(LANG=nl_BE) # Belgium / Dutch
option --nlbe  &setenv(LANG=nl_BE) # Belgium / Dutch
option --BG    &setenv(LANG=bg_BG) # Bulgaria / Bulgarian
option --bg    &setenv(LANG=bg_BG) # Bulgaria / Bulgarian
option --bg_BG &setenv(LANG=bg_BG) # Bulgaria / Bulgarian
option --bgbg  &setenv(LANG=bg_BG) # Bulgaria / Bulgarian
option --BR    &setenv(LANG=pt_BR) # Brazil / Portuguese
option --br    &setenv(LANG=pt_BR) # Brazil / Portuguese
option --pt_BR &setenv(LANG=pt_BR) # Brazil / Portuguese
option --ptbr  &setenv(LANG=pt_BR) # Brazil / Portuguese
option --BY    &setenv(LANG=be_BY) # Belarus / Belarusian
option --be    &setenv(LANG=be_BY) # Belarus / Belarusian
option --be_BY &setenv(LANG=be_BY) # Belarus / Belarusian
option --beby  &setenv(LANG=be_BY) # Belarus / Belarusian
option --by    &setenv(LANG=be_BY) # Belarus / Belarusian
option --en_CA &setenv(LANG=en_CA) # Canada / English
option --enca  &setenv(LANG=en_CA) # Canada / English
option --fr_CA &setenv(LANG=fr_CA) # Canada / French
option --frca  &setenv(LANG=fr_CA) # Canada / French
option --de_CH &setenv(LANG=de_CH) # Switzerland / German
option --dech  &setenv(LANG=de_CH) # Switzerland / German
option --fr_CH &setenv(LANG=fr_CH) # Switzerland / French
option --frch  &setenv(LANG=fr_CH) # Switzerland / French
option --it_CH &setenv(LANG=it_CH) # Switzerland / Italian
option --itch  &setenv(LANG=it_CH) # Switzerland / Italian
option --CN    &setenv(LANG=zh_CN) # China / Chinese
option --cn    &setenv(LANG=zh_CN) # China / Chinese
option --zh    &setenv(LANG=zh_CN) # China / Chinese
option --zh_CN &setenv(LANG=zh_CN) # China / Chinese
option --zhcn  &setenv(LANG=zh_CN) # China / Chinese
option --CZ    &setenv(LANG=cs_CZ) # Czech Republic / Czech
option --cs    &setenv(LANG=cs_CZ) # Czech Republic / Czech
option --cs_CZ &setenv(LANG=cs_CZ) # Czech Republic / Czech
option --cscz  &setenv(LANG=cs_CZ) # Czech Republic / Czech
option --cz    &setenv(LANG=cs_CZ) # Czech Republic / Czech
option --DE    &setenv(LANG=de_DE) # Germany / German
option --de    &setenv(LANG=de_DE) # Germany / German
option --de_DE &setenv(LANG=de_DE) # Germany / German
option --dede  &setenv(LANG=de_DE) # Germany / German
option --DK    &setenv(LANG=da_DK) # Denmark / Danish
option --da    &setenv(LANG=da_DK) # Denmark / Danish
option --da_DK &setenv(LANG=da_DK) # Denmark / Danish
option --dadk  &setenv(LANG=da_DK) # Denmark / Danish
option --dk    &setenv(LANG=da_DK) # Denmark / Danish
option --EE    &setenv(LANG=et_EE) # Estonia / Estonian
option --ee    &setenv(LANG=et_EE) # Estonia / Estonian
option --et    &setenv(LANG=et_EE) # Estonia / Estonian
option --et_EE &setenv(LANG=et_EE) # Estonia / Estonian
option --etee  &setenv(LANG=et_EE) # Estonia / Estonian
option --ES    &setenv(LANG=es_ES) # Spain / Spanish
option --ca    &setenv(LANG=ca_ES) # Spain / Catalan; Valencian
option --ca_ES &setenv(LANG=ca_ES) # Spain / Catalan; Valencian
option --caes  &setenv(LANG=ca_ES) # Spain / Catalan; Valencian
option --es    &setenv(LANG=es_ES) # Spain / Spanish
option --es_ES &setenv(LANG=es_ES) # Spain / Spanish
option --eses  &setenv(LANG=es_ES) # Spain / Spanish
option --eu    &setenv(LANG=eu_ES) # Spain / Basque
option --eu_ES &setenv(LANG=eu_ES) # Spain / Basque
option --eues  &setenv(LANG=eu_ES) # Spain / Basque
option --ET    &setenv(LANG=am_ET) # Ethiopia / Amharic
option --am    &setenv(LANG=am_ET) # Ethiopia / Amharic
option --am_ET &setenv(LANG=am_ET) # Ethiopia / Amharic
option --amet  &setenv(LANG=am_ET) # Ethiopia / Amharic
option --FI    &setenv(LANG=fi_FI) # Finland / Finnish
option --fi    &setenv(LANG=fi_FI) # Finland / Finnish
option --fi_FI &setenv(LANG=fi_FI) # Finland / Finnish
option --fifi  &setenv(LANG=fi_FI) # Finland / Finnish
option --FR    &setenv(LANG=fr_FR) # France / French
option --fr    &setenv(LANG=fr_FR) # France / French
option --fr_FR &setenv(LANG=fr_FR) # France / French
option --frfr  &setenv(LANG=fr_FR) # France / French
option --GB    &setenv(LANG=en_GB) # United Kingdom / English
option --en_GB &setenv(LANG=en_GB) # United Kingdom / English
option --engb  &setenv(LANG=en_GB) # United Kingdom / English
option --gb    &setenv(LANG=en_GB) # United Kingdom / English
option --GR    &setenv(LANG=el_GR) # Greece / Greek, Modern (1453-)
option --el    &setenv(LANG=el_GR) # Greece / Greek, Modern (1453-)
option --el_GR &setenv(LANG=el_GR) # Greece / Greek, Modern (1453-)
option --elgr  &setenv(LANG=el_GR) # Greece / Greek, Modern (1453-)
option --gr    &setenv(LANG=el_GR) # Greece / Greek, Modern (1453-)
option --HK    &setenv(LANG=zh_HK) # Hong Kong / Chinese
option --hk    &setenv(LANG=zh_HK) # Hong Kong / Chinese
option --zh_HK &setenv(LANG=zh_HK) # Hong Kong / Chinese
option --zhhk  &setenv(LANG=zh_HK) # Hong Kong / Chinese
option --HR    &setenv(LANG=hr_HR) # Croatia / Croatian
option --hr    &setenv(LANG=hr_HR) # Croatia / Croatian
option --hr_HR &setenv(LANG=hr_HR) # Croatia / Croatian
option --hrhr  &setenv(LANG=hr_HR) # Croatia / Croatian
option --HU    &setenv(LANG=hu_HU) # Hungary / Hungarian
option --hu    &setenv(LANG=hu_HU) # Hungary / Hungarian
option --hu_HU &setenv(LANG=hu_HU) # Hungary / Hungarian
option --huhu  &setenv(LANG=hu_HU) # Hungary / Hungarian
option --IE    &setenv(LANG=en_IE) # Ireland / English
option --en_IE &setenv(LANG=en_IE) # Ireland / English
option --enie  &setenv(LANG=en_IE) # Ireland / English
option --ie    &setenv(LANG=en_IE) # Ireland / English
option --IL    &setenv(LANG=he_IL) # Israel / Hebrew
option --he    &setenv(LANG=he_IL) # Israel / Hebrew
option --he_IL &setenv(LANG=he_IL) # Israel / Hebrew
option --heil  &setenv(LANG=he_IL) # Israel / Hebrew
option --il    &setenv(LANG=he_IL) # Israel / Hebrew
option --IS    &setenv(LANG=is_IS) # Iceland / Icelandic
option --is    &setenv(LANG=is_IS) # Iceland / Icelandic
option --is_IS &setenv(LANG=is_IS) # Iceland / Icelandic
option --isis  &setenv(LANG=is_IS) # Iceland / Icelandic
option --IT    &setenv(LANG=it_IT) # Italy / Italian
option --it    &setenv(LANG=it_IT) # Italy / Italian
option --it_IT &setenv(LANG=it_IT) # Italy / Italian
option --itit  &setenv(LANG=it_IT) # Italy / Italian
option --JP    &setenv(LANG=ja_JP) # Japan / Japanese
option --ja    &setenv(LANG=ja_JP) # Japan / Japanese
option --ja_JP &setenv(LANG=ja_JP) # Japan / Japanese
option --jajp  &setenv(LANG=ja_JP) # Japan / Japanese
option --jp    &setenv(LANG=ja_JP) # Japan / Japanese
option --KR    &setenv(LANG=ko_KR) # Korea, Republic of / Korean
option --ko    &setenv(LANG=ko_KR) # Korea, Republic of / Korean
option --ko_KR &setenv(LANG=ko_KR) # Korea, Republic of / Korean
option --kokr  &setenv(LANG=ko_KR) # Korea, Republic of / Korean
option --kr    &setenv(LANG=ko_KR) # Korea, Republic of / Korean
option --KZ    &setenv(LANG=kk_KZ) # Kazakhstan / Kazakh
option --kk    &setenv(LANG=kk_KZ) # Kazakhstan / Kazakh
option --kk_KZ &setenv(LANG=kk_KZ) # Kazakhstan / Kazakh
option --kkkz  &setenv(LANG=kk_KZ) # Kazakhstan / Kazakh
option --kz    &setenv(LANG=kk_KZ) # Kazakhstan / Kazakh
option --LT    &setenv(LANG=lt_LT) # Lithuania / Lithuanian
option --lt    &setenv(LANG=lt_LT) # Lithuania / Lithuanian
option --lt_LT &setenv(LANG=lt_LT) # Lithuania / Lithuanian
option --ltlt  &setenv(LANG=lt_LT) # Lithuania / Lithuanian
option --NL    &setenv(LANG=nl_NL) # Netherlands / Dutch
option --nl    &setenv(LANG=nl_NL) # Netherlands / Dutch
option --nl_NL &setenv(LANG=nl_NL) # Netherlands / Dutch
option --nlnl  &setenv(LANG=nl_NL) # Netherlands / Dutch
option --NO    &setenv(LANG=no_NO) # Norway / Norwegian
option --no    &setenv(LANG=no_NO) # Norway / Norwegian
option --no_NO &setenv(LANG=no_NO) # Norway / Norwegian
option --nono  &setenv(LANG=no_NO) # Norway / Norwegian
option --NZ    &setenv(LANG=en_NZ) # New Zealand / English
option --en_NZ &setenv(LANG=en_NZ) # New Zealand / English
option --ennz  &setenv(LANG=en_NZ) # New Zealand / English
option --nz    &setenv(LANG=en_NZ) # New Zealand / English
option --PL    &setenv(LANG=pl_PL) # Poland / Polish
option --pl    &setenv(LANG=pl_PL) # Poland / Polish
option --pl_PL &setenv(LANG=pl_PL) # Poland / Polish
option --plpl  &setenv(LANG=pl_PL) # Poland / Polish
option --PT    &setenv(LANG=pt_PT) # Portugal / Portuguese
option --pt    &setenv(LANG=pt_PT) # Portugal / Portuguese
option --pt_PT &setenv(LANG=pt_PT) # Portugal / Portuguese
option --ptpt  &setenv(LANG=pt_PT) # Portugal / Portuguese
option --RO    &setenv(LANG=ro_RO) # Romania / Romanian
option --ro    &setenv(LANG=ro_RO) # Romania / Romanian
option --ro_RO &setenv(LANG=ro_RO) # Romania / Romanian
option --roro  &setenv(LANG=ro_RO) # Romania / Romanian
option --RU    &setenv(LANG=ru_RU) # Russian Federation / Russian
option --ru    &setenv(LANG=ru_RU) # Russian Federation / Russian
option --ru_RU &setenv(LANG=ru_RU) # Russian Federation / Russian
option --ruru  &setenv(LANG=ru_RU) # Russian Federation / Russian
option --SE    &setenv(LANG=sv_SE) # Sweden / Swedish
option --se    &setenv(LANG=sv_SE) # Sweden / Swedish
option --sv    &setenv(LANG=sv_SE) # Sweden / Swedish
option --sv_SE &setenv(LANG=sv_SE) # Sweden / Swedish
option --svse  &setenv(LANG=sv_SE) # Sweden / Swedish
option --SI    &setenv(LANG=sl_SI) # Slovenia / Slovenian
option --si    &setenv(LANG=sl_SI) # Slovenia / Slovenian
option --sl    &setenv(LANG=sl_SI) # Slovenia / Slovenian
option --sl_SI &setenv(LANG=sl_SI) # Slovenia / Slovenian
option --slsi  &setenv(LANG=sl_SI) # Slovenia / Slovenian
option --SK    &setenv(LANG=sk_SK) # Slovakia / Slovak
option --sk    &setenv(LANG=sk_SK) # Slovakia / Slovak
option --sk_SK &setenv(LANG=sk_SK) # Slovakia / Slovak
option --sksk  &setenv(LANG=sk_SK) # Slovakia / Slovak
option --TR    &setenv(LANG=tr_TR) # Turkey / Turkish
option --tr    &setenv(LANG=tr_TR) # Turkey / Turkish
option --tr_TR &setenv(LANG=tr_TR) # Turkey / Turkish
option --trtr  &setenv(LANG=tr_TR) # Turkey / Turkish
option --TW    &setenv(LANG=zh_TW) # Taiwan, Province of China / Chinese
option --tw    &setenv(LANG=zh_TW) # Taiwan, Province of China / Chinese
option --zh_TW &setenv(LANG=zh_TW) # Taiwan, Province of China / Chinese
option --zhtw  &setenv(LANG=zh_TW) # Taiwan, Province of China / Chinese
option --UA    &setenv(LANG=uk_UA) # Ukraine / Ukrainian
option --ua    &setenv(LANG=uk_UA) # Ukraine / Ukrainian
option --uk    &setenv(LANG=uk_UA) # Ukraine / Ukrainian
option --uk_UA &setenv(LANG=uk_UA) # Ukraine / Ukrainian
option --ukua  &setenv(LANG=uk_UA) # Ukraine / Ukrainian
option --US    &setenv(LANG=en_US) # United States / English
option --en_US &setenv(LANG=en_US) # United States / English
option --enus  &setenv(LANG=en_US) # United States / English
option --us    &setenv(LANG=en_US) # United States / English
option --YU    &setenv(LANG=sr_YU) # Yugoslavia / Serbian
option --sr    &setenv(LANG=sr_YU) # Yugoslavia / Serbian
option --sr_YU &setenv(LANG=sr_YU) # Yugoslavia / Serbian
option --sryu  &setenv(LANG=sr_YU) # Yugoslavia / Serbian
option --yu    &setenv(LANG=sr_YU) # Yugoslavia / Serbian
option --ZA    &setenv(LANG=af_ZA) # South Africa / Afrikaans
option --af    &setenv(LANG=af_ZA) # South Africa / Afrikaans
option --af_ZA &setenv(LANG=af_ZA) # South Africa / Afrikaans
option --afza  &setenv(LANG=af_ZA) # South Africa / Afrikaans
option --za    &setenv(LANG=af_ZA) # South Africa / Afrikaans

このモジュールは week コマンド専用ではなく、Getopt::EX を利用するすべてのコマンドで使うことができる。さらに汎用の optex コマンドを使えば、任意のコマンドを実行することが可能だ。

$ optex -Mi18n::setopt=verbose date --it
LANG=it_IT (Italian / Italy)
Gio  4 Giu 2020 16:47:33 JST

設定

default.pm で以下のように設定してあるので、--i18n と --i18n-v というオプションが利用可能になっている。両者の違いは、ロケール情報を最初に表示するかどうかだ。

App/week/default.pm

option --i18n   -Mi18n::setopt(dash=0,long=0,listopt=-l)
option --i18n-v -Mi18n::setopt(dash=0,long=0,verbose,listopt=-l)
autoload --i18n -l

~/.weekrc を以下のようにしておけば、デフォルトのテーマを tokyo2020 にし、明るい端末では --tokyo2020 が、暗い端末では --tokyo2020-rev が自動的に設定される。

~/.weekrc

option default --i18n-v --theme tokyo2020

インストール

cpan で公開しているので、cpanm (cpanminus) を使ってインストールします。

$ curl -sL http://cpanmin.us | perl - App::week

各国のカレンダー

デバッグのためにいろいろな国のカレンダーを見ていたのだが、これが結構面白い。もちろん言葉はさっぱりわからないが、なにしろカレンダーなので意味はわかっている。一番のお勧めは何かと聞かれたらエストニアだろうか。

なんとなく気に入ったカレンダー

Czech Republic / Czech

チェコ。毛が生えてるw

Estonia / Estonian

エストニア。曜日が一文字で不安定なところが愛せる。

Spain / Basque

バスク語。基本的に曜日が小文字で始まるとなんとなく可愛い。a, b, g, o など、まるっぽい字が多いせいもあるだろうか。

Finland / Finnish

フィンランド。テンテンがいい。

Hungary / Hungarian

Iceland / Icelandic

Lithuania / Lithuanian

リトアニア。草生えてるw

Netherlands / Dutch

うさこちゃんの国。

Norway / Norwegian

オランダ語と似ているが、土曜日だけ似てない。

Poland / Polish

Sweden / Swedish

Slovenia / Slovenian

Slovakia / Slovak

Yugoslavia / Serbian

文字が判別できないカレンダー

Armenia / Armenian

アルメニア。

Ethiopia / Amharic

エチオピア。
枠からはみ出てるし... しかも日曜日は右に、金曜日は左に...

Israel / Hebrew

イスラエル。正しく表示されているのか判断できず。
ちなみに、これは iTerm だとちゃんと表示できますが、Apple_Terminal では表示が壊れます。

かっこいいカレンダー

ギリシャ、カコイイ。ΔとかΣとかが日常で使われてるのかと思ったり。ギリシャでも円周率はπなんだろうか。なんだろうなあ。

Greece / Greek, Modern (1453-)

Kazakhstan / Kazakh

金曜日とかキツキツw

キリル文字っぽいカレンダー

Bulgaria / Bulgarian

Belarus / Belarusian

Russian Federation / Russian

Ukraine / Ukrainian

アジア

漢字の国でも、それぞれ微妙に違う。香港と台湾は同じか。

China / Chinese

Hong Kong / Chinese

Japan / Japanese

Korea, Republic of / Korean

Taiwan, Province of China / Chinese

英語圏

これは、全部同じっぽい。ただし、OS によっては Tu と Th 以外を1文字で表示したり、右寄せと左寄せが違ったりとバリエーションがあって、テストコードを書くのには結構苦労したのだ。テストは LANG=C でしかしてないので、他の言語についてはわからない。

Australia / English

Canada / English

United Kingdom / English

Ireland / English

New Zealand / English

United States / English

South Africa / Afrikaans

その他

Austria / German

Belgium / French

Belgium / Dutch

Brazil / Portuguese

月曜と金曜、水曜と木曜が同じだ。いいのか？

Canada / French

Switzerland / German

Switzerland / French

Switzerland / Italian

Germany / German

Denmark / Danish

Spain / Catalan; Valencian

曜日が全部 d ではじまる。

Spain / Spanish

France / French

Croatia / Croatian

Italy / Italian

Portugal / Portuguese

### Romania / Romanian

Turkey / Turkish

色の定義は曜日の行全体と、各曜日の文字に設定可能だ。Getopt::EX::Colormap モジュールは、このように色の設定範囲がオーバーラップしている場合、狭い範囲の色を保ったまま全体に色付けすることができる。これは、あまり他のライブラリには見られない特徴ではないかと思う。 ↩
これは変換アルゴリズムの問題でもあり、現在は #ee334e は 400 にマップされる。これを 501 にすると24ビットカラーに近い色になるので、そうなるようなアルゴリズムを検討しているところ。 ↩