org-gcal は org-mode と Google Calendar を連携させるためのパッケージ。
オリジナルは https://github.com/myuhe/org-gcal.el なのだけど今は fork されてるやつが MELPA にも登録されていて el-get のレシピもそっちを見ている。
org-gcal が依存しているので parsist を入れている。
(el-get-bundle persist)
また oauth2-auto も依存しているので入れているが自動更新の仕組みが el-get 本体のレシピだとエラーになるのでコピーしてブランチのみ指定している
( :name emacs-oauth2-auto
:description "Automatically stored and configured OAuth2 for Emacs"
:type github
:pkgname "telotortium/emacs-oauth2-auto"
:branch "main"
:depends (emacs-aio alert dash)
:minimum-emacs-version "26.1")
あとは当然 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 にでも分離したら公開できるようになるかもしれない。
Emacs にはデフォルトで約束の通知ができる機能が appt.el で定義されている。 org-gcal で取得したデータをそれで通知できるように appt の設定をここで行っている
window 通知を使う設定にしている。
(setq appt-display-format 'window)
これだけだと、通知する時間になったらピョコッと window が生えて来るのだけど、後の方で、この設定の時に使う関数を差し替えている
通知には alert を使いたいので自前で関数を定義。 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)