このEmacs Lispは気象庁の天気予報データにアクセスする。
** 天気予報のミニバッファ表示
=M-x jma-forecast-show= を実行するとミニバッファに天気予報を表示する。
[[file:screenshot/forecast-minibuffer.png]]
事前に次の変数で予報する場所を設定しておく必要がある。
=M-x jma-forecast-location-setup= を実行すると入力補完付きでこれらの変数を設定できる。
場所を指定するコードについては[[*エリアコード][エリアコード]]を参照すること。
** Diary連携
%%(jma-diary-weathers "130000" "130010" "44132" "130010" "44132")
[[file:screenshot/forecast-diary.png]]
引数の数字は予報する場所を指定するコードであり、上の例では次の意味を持つ。
場所を指定するコードについては[[*エリアコード][エリアコード]]を参照すること。
また、これらのコードは =M-x jma-forecast-area-read= で調べることもできる。
** Emacs Lispから使う *** 今日の東京の天気予報を取得する
(require 'jma-forecast)
(jma-forecast-weather-for-date (jma-forecast-get "130000") ;;130000はoffice-code(府県予報区) "130010" ;;class10-code (一次細分区域) "44132" ;;amedas-code (アメダス観測所番号) "130010" ;;week-area-code (週間予報区域。府県予報区を少し細分化したもの) "44132" ;;week-amedas-code (週間予報でのアメダス観測所番号) (jma-date-today)) ;; 日付はcalendarパッケージと同じ形式 (MM DD YYYY)
結果は次の通り。
((report-type . "detailed") (class10-area (name . "東京地方") (code . "130010")) (weather . "くもり 夜のはじめ頃 晴れ") (weather-code . "201") (wind . "北の風 ２３区西部 では 北の風 やや強く") (wave . "０．５メートル 後 １メートル") (pops "10") (pop . "10"))
*** 東京都の週間天気予報の一つ目の時系列データを取得する
(jma-forecast-report-time-series-at (jma-forecast-week-report (jma-forecast-get "130000")) 0)
結果は次の通り。
((timeDefines . ["2022-02-24T00:00:00+09:00" "2022-02-25T00:00:00+09:00" "2022-02-26T00:00:00+09:00" "2022-02-27T00:00:00+09:00" "2022-02-28T00:00:00+09:00" "2022-03-01T00:00:00+09:00" "2022-03-02T00:00:00+09:00"]) (areas . [((area (name . "東京地方") (code . "130010")) (weatherCodes . ["101" "101" "101" "201" "101" "201" "201"]) (pops . ["" "10" "10" "30" "10" "30" "30"]) (reliabilities . ["" "" "A" "B" "A" "A" "A"])) ((area (name . "伊豆諸島北部") (code . "130020")) (weatherCodes . ["201" "101" "101" "200" "101" "200" "201"]) (pops . ["" "20" "20" "40" "10" "40" "30"]) (reliabilities . ["" "" "A" "C" "A" "C" "A"])) ((area (name . "伊豆諸島南部") (code . "130030")) (weatherCodes . ["200" "101" "101" "202" "101" "200" "201"]) (pops . ["" "20" "20" "50" "10" "40" "30"]) (reliabilities . ["" "" "A" "C" "A" "C" "B"])) ((area (name . "小笠原諸島") (code . "130040")) (weatherCodes . ["200" "200" "101" "201" "101" "101" "101"]) (pops . ["" "40" "20" "30" "20" "20" "20"]) (reliabilities . ["" "" "B" "A" "A" "A" "A"]))]))
*** 長野県の特定の日の天気予報を取得し、文字列化し、バッファに挿入する
(let* ((forecast (jma-forecast-get "200000")) (weather (jma-forecast-weather-for-date forecast "200020" ;;中部 "48491" ;;諏訪 '("200100" "200000") ;;中部・南部 または 長野県全域 '("48361" "48156") ;;松本 または 長野 (jma-date 2022 2 23))) ;;2022年2月23日 (weather-str (jma-weather-to-string weather))) (when weather-str (insert weather-str)))
[[file:screenshot/forecast-insert.png]]
文字列のフォーマットは、 ~jma-weather-default-template~ 変数か ~jma-weather-to-string~ の引数で指定できる。
** エリアコード
天気予報を取得するには、予報する場所を番号(コード)で指定する必要がある。
気象庁では様々な場所表すをコードが使用されているが、天気予報で使用するものは以下の通り。
天気予報データは府県予報区(office)単位でダウンロードできる。
天気予報(明後日までの詳細)は一次細分区域(class10)毎に行われている。 (参考: https://www.jma.go.jp/jma/kishou/know/saibun/)
気温や降水量に関する情報はアメダス観測所(amedas)毎に発表されている。 (参考: https://www.jma.go.jp/jma/kishou/know/amedas/kaisetsu.html)
週間天気予報は原則として府県予報区毎に行われているが、地形や季節等の都合で多少の細分化が行われている(参考: https://www.jma.go.jp/jma/kishou/know/kurashi/shukan.html)。ここでは細分化後の区域を週間予報区域(week-area)と呼ぶことにする。
例(2022-02-23現在):
実際に長野県の予報がどのように構成されているかは次のURLから確認できる。
各エリア間の対応関係は次のURLから得られる。
コードは =M-x jma-forecast-area-read= で調べることもできる。
このEmacs Lispは天気コードに関する処理を提供する。
** 天気コードの情報を取得する
(list (jma-weather-code-image-daytime 101) (jma-weather-code-image-night 101) (jma-weather-code-image 101 nil) (jma-weather-code-text-ja 101) (jma-weather-code-text-en 101))
: ("101.svg" "501.svg" "101.svg" "晴時々曇" "PARTLY CLOUDY")
** 天気コードの画像を取得する
次のコードは天気コード101に対応する画像を表示するテキストプロパティが付加された文字列を返す。
(jma-weather-code-image-string 101)
: #("_" 0 1 : (display : (image :type svg :file "~/.emacs.d/.jma-weather-cache/101.svg" :scale 1 :height 17 :ascent center)))
テキスト端末の場合やSVGをサポートしていない場合はnilを返す。
** 画像のダウンロードについて
天気マークの画像は ~jma-weather-code-image-dir~ 変数で指定するディレクトリ(デフォルトは =~/.emacs.d/.jma-weather-cache=)に格納される。
=M-x jma-weather-code-image-download-all= で全ての画像を一括でダウンロードできる。