org-gcal

概要

org-gcal は org-mode と Google Calendar を連携させるためのパッケージ。

オリジナルは https://github.com/myuhe/org-gcal.el なのだけど今は fork されてるやつが MELPA にも登録されていて el-get のレシピもそっちを見ている。

インストール

org-gcal が依存しているので parsist を入れている。

(el-get-bundle persist)

あとは当然 org-gcal 本体を入れないと動かない

(el-get-bundle org-gcal)

設定

まずは org-gcal の設定が authinfo から読み込まれるようにする

(custom-set-variables
 '(org-gcal-client-id (plist-get (nth 0 (auth-source-search :host "googleusercontent.com")) :client))
 '(org-gcal-client-secret (funcall (plist-get (nth 0 (auth-source-search :host "googleusercontent.com" :max 1)) :secret))))

そして org-gcal 本体を require する。

(require 'org-gcal)

OAuth token の保存には GPG で暗号化するようにするため plstore-encrypt-to にその鍵 ID を設定している。こうするとパスフレーズを何度も入力する必要がないので便利。鍵 ID 自体もリポジトリには登録したくなかったので authinfo から取り出すようにしている。

(add-to-list 'plstore-encrypt-to (funcall (plist-get (nth 0 (auth-source-search :host "org-gcal-plstore" :max 1)) :secret)))

あとは設定ファイルは公開したくないので別ファイルに分けてる。

(my/load-config "my-org-gcal-config")

隠したい部分だけ .authinfo.gpg にでも分離したら公開できるようになるかもしれない。

appt

Emacs にはデフォルトで約束の通知ができる機能が appt.el で定義されている。 org-gcal で取得したデータをそれで通知できるように appt の設定をここで行っている

通知形式の設定

window 通知を使う設定にしている。

(setq appt-display-format 'window)

これだけだと、通知する時間になったらピョコッと window が生えて来るのだけど、後の方で、この設定の時に使う関数を差し替えている

通知用関数の定義

通知には alert.el を使いたいので自前で関数を定義。 alert.el は別のところで設定していてそこで dunst を使って通知するようにしている。

(defun my/appt-alert (min-to-app _new-time msg)
  (interactive)
  (let ((title (format "あと %s 分" min-to-app)))
    (alert msg :title title)))

この関数を使うように appt-disp-window-function を変更している。

(setq appt-disp-window-function 'my/appt-alert)

最後に org-gcal でカレンダーを取得した後に appt に登録されるように advice を設定した

(advice-add #'org-gcal--sync-unlock :after #'my/org-refresh-appt)

その他

gcal-org に乗り換えようかと思ってるがそっちの中身もよくわからないので躊躇している。自分の用途に合うのだろうか?