前回の続き。無事に主要な四月相(新月、上弦の月、満月、下弦の月)の日時を表示できましたが月の出や月の入り、月齢を表示する機能がありません。

月の出・月の入りなんてどうでもいいと思われる方も多いでしょうが、月が出ていない夜は サテライトキャノンが撃てません 月明かりに邪魔されず星がよく見えます。天の川など綺麗な星を見るというのは私の旅行の目的の一つになっていて、特に山へ行く計画を立てるときには必ずチェックしています。月が出ていても時間帯が昼間までならば問題なく星は見られます。カレンダーや予定表を見たときに夜月が明るくない日が分かるとその日に旅行をスケジュールしたくなるわけです。まぁ、月が出ていてもそれはそれで綺麗なのですけれど。いずれにせよ事前に分かっているに越したことはないわけです。

Emacsで日の出日の入りや月の朔望の計算はあるのですから既にありそうなものですが少し探しただけでは見つかりませんでした。

というわけで、作ったのがこちら。

• misohena/moonrise-el: Moonrise/Moonset Calculation for Emacs

使い方

calendarと連携させるには、例えば次のコードをinit.el(.emacs)に追加します(Mキーはlunar.elで使っているのでLキーにしました)。

(with-eval-after-load "calendar"
  (require 'moonrise)
  (define-key calendar-mode-map "Ld" 'calendar-moonrise-moonset)
  (define-key calendar-mode-map "Lm" 'calendar-moonrise-moonset-month))

L d でカーソル位置の日の時刻をミニバッファに表示し

L m で月間の時刻を表示します。

また、org-modeのアジェンダに表示するには次の文をアジェンダ表示対象のファイルに追加すればOKです(新しいorgファイルを作った方がいいかも？)。

#+CATEGORY: Astro
* Moonrise
%%(moonrise-org-agenda)

きっかけは夏至。今日は夏至かぁ……と思ってorg-modeのアジェンダやcalendarを見ても夏至(Summer Solstice)が表示されていません。Emacsでは標準で表示するはずなのに。調べてみたところ、japanese-holidays.el 用の設定で変数 calendar-holidays の値を日本の休日で完全に置き換えてしまっていました。その際に元々あった (solar-equinoxes-solstices) が消えていたんですね。 calendar-holidays に (solar-equinoxes-solstices) を追加したら表示されるようになりました。ついでに英語だとなんだかしっくりこないので solar-n-hemi-seasons も ("春分" "夏至" "秋分" "冬至") に修正しました。

ついでなので月相も追加してしまおうと思いました。変数 calendar-holidays の説明に次のように書いてあったからです。

To include the phases of the moon, add

(lunar-phases)

to the holiday list, …

M-x describe-function lunar-phases してみるとそういう名前の関数はあるみたいです。なので calendar-holidays に (lunar-phases) を追加して M-x calendar してみたところエラー(Wrong type argument: listp, 109)と共に直近の主要な月相一覧が表示されました。 lunar-phases を詳しく調べてみるとこの関数は単に新月、上弦の月、満月、下弦の月の日時を三ヶ月分表示するものだったようです。

再度変数 calendar-holidays の説明をよく見ると続きがあって

To include the phases of the moon, add

(lunar-phases)

to the holiday list, where ‘lunar-phases’ is an Emacs-Lisp function that you’ve written to return a (possibly empty) list of the relevant VISIBLE dates with descriptive strings such as

(((2 6 1989) "New Moon") ((2 12 1989) "First Quarter Moon") … ).

と書いてありました。要するに lunar-phases というのはあくまで例として挙げた架空の関数で、あなたが書いてくださいよ、ということのようです。既にないか探したのですが見つからなかったので仕方なく自分で書くことにしました。

(require 'lunar)
(require 'cl)

(defun my-lunar-phases-for-calendar-holidays ()
  (let ((m displayed-month)
        (y displayed-year))
    (calendar-increment-month m y -1)
    (loop for x in (lunar-phase-list m y)
          collect (list
                   (nth 0 x)
                   (concat
                    (lunar-phase-name (nth 2 x))
                    " "
                    (nth 1 x))))))

(lunar-phase-list) がほぼそのまま使えるかと期待したのですが微妙に形式が違うので変換する必要がありました。

それで、この関数を指定するリスト '(my-lunar-phases-for-calendar-holidays) を変数 calendar-holidays に追加します。 japanese-holidays.el を使っていたりするとすでに書き替えている場所があるかもしれないのでうまいこと追加してください。

lunar-phase-names も日本語にしてしまいましょう。 ("新月" "上弦の月" "満月" "下弦の月")

というわけでなんとか主要な月相をcalendarやorg-modeのアジェンダに表示できました。

そういえば今日は部分日食が話題になっていました。なるほど月は太陽の方向にあるから新月ですね。

それにしても何で標準で用意されていないのでしょうね。ここまで用意しておきながら。Emacs上で月相を知りたい人は居ないのかな。……居ないんでしょうね。

再度調べてみると次のような質問を見つけました。

• init file - showing lunar and solar ephemerides in Emacs agenda - Emacs Stack Exchange

org-agendaに直接月相を表示する方法です。calendarに入れなくてもいいならこれでも可。

• Add lunar phases to the agenda. - Org ad hoc code, quick hacks and workarounds

ところで月の出と月の入りも表示できると便利な気もするのですが……

(2020-06-24追記):次の記事では毎日の月の出と月の入り、南中の時刻、そして毎日の月齢も実現します。