counsel-projectile-switch-project で neotree を開くようにした

neotree には

(setq projectile-switch-project-action 'neotree-projectile-action)

とすることで、 Projectile でプロジェクトを切り替えた時に neotree を起動するというオプションがある。

設定当時、結構この挙動が気に行ってたんだけど 気付いたらそういう挙動をしなくなっていて その代わりに find-file 的な挙動をするようになっていた。

で、その挙動をされると、絞り込みが結構だるい。 何しろプロジェクト以下のファイル全部が候補になるので。

というわけで、自分としてはプロジェクトの切り替えの後は Rails のプロジェクトなら projectile-rails の機能で絞り込みをするとか org-mode のリポジトリなら find-file するとか 自分に選択権がある状態にしたかった。

で、原因を調べてみると projectile-switch-project ではなく counsel-projectile-switch-project を使うようになってるから 記事冒頭に書いた設定が活かされない、というのに気付いた。

もはや ivy に飼い馴らされて来ている体を持つ者としては counsel-projectile-switch-project は手放せないので そっちで動かしても基本的には neotree が動くようにしたらいいよねってことで対応した

まず counsel-projectile-switch-project は

(defun counsel-projectile-switch-project (&optional default-action)

https://github.com/ericdanan/counsel-projectile/blob/06b03c1080d3ccc3fa9b9c41b1ccbcf13f058e4b/counsel-projectile.el#L1455

という感じで default-action を指定できるので、

(counsel-projectile-switch-project 'neotree-dir)

とかすれば良いだろうと考えて実行すると

(error "Action not found: neotree-dir")

とか怒られた。

原因を調べると

https://github.com/ericdanan/counsel-projectile/blob/06b03c1080d3ccc3fa9b9c41b1ccbcf13f058e4b/counsel-projectile.el#L99-L125 に書いてるように どうも、action-list に登録されてない action は実行されないようになってるらしい。

じゃあ追加したらいいよね〜っってことで counsel-projectile-remove-current-project という変数を調べると defcustom で定義されている

https://github.com/ericdanan/counsel-projectile/blob/06b03c1080d3ccc3fa9b9c41b1ccbcf13f058e4b/counsel-projectile.el#L1214-L1269

個人的には Customize で設定した情報は普段設定を書き込んでるファイルから遠い位置に書き込まれるので あんまり好きじゃないんだけど 今回に関しては Customize じゃない方法で変更しているとだるそうだったので Customize 画面から neotree-dir を counsel-projectile-remove-current-project に登録。

すると無事 counsel-projectilw-switch-project が動くようになってハッピー。 ってのが以下の Pull Request

https://github.com/mugijiru/.emacs.d/pull/183

あと、まだ ivy リキが足らなくて default じゃないアクションを動かす方法を気にしてなかったんだけど M-o でコマンドリストが出るのね。便利そう。

ただ確実にその操作忘れるので posframe のどこかにその情報残したいなって気持ちになったので 宿題としておく。

業務で日報を書くことになったので org-ql を使ってみた

日報に org-ql を使うことにした経緯

部署内では朝会夕会で進捗の共有等はやってるのだけど それとは別に業務命令で日報を書くことになった。

日報、いちいちその日に何をしたか思い出して書くのもだるいし、 最近めっきりコーディングをしてない身分としては GitHub の PR から日報を起こすこともできない。

Trello でカンバン運用しているからそっちから引っ張れないこともないが、 会議とかはそこには入ってないし、 結構突発作業もしているので、そういうのも Trello には乗って来ないという状態。

なんだけど個人的に org-mode で org-clock を使ったりして記録はしているので それを引っ張り出せばいいかってことで org-ql を使って日報用のデータ出力をすることにした。

org-ql で試したこと

単純に org-ql-search を使ってみた

まずは org-ql-search から適当にクエリを作ってブチ込んで試してた

M-x org-ql-search で起動すると 検索対象を org-agenda-files や org-directory などから選べる。 ただしデフォルトだとディレクトリを再帰的に検索とかしてくれないので「マジか」ってなった

設定を弄る

上で「デフォルトでは」と書いてるように、 設定を弄れば再帰的な検索とかもできるってことに、ソースを読んでて気付いた。

多分、customize を起動して確認するのがもっと賢い見つけ方だけど、まあいい。

というわけで設定的には org-ql-search-directories-files-recursive を有効にていると再帰的に検索するし おー-search-directories-files-regexp を弄ってると .org 以外のファイルも検索してくれる。例えば org_archive とか。 他にも何かある気がするけど試してないので知らん。

というわけでそのあたりの設定でクエリを試してたんだけど org-agenda-files には登録してないやつも検索したいけど 同じ階層にある別ファイルは検索したくないというワガママの結果、 直で org-ql-search を叩くのは一旦諦めることにした。

日報用に関数を自作

特定のファイルだけ指定したいのであれば デフォルトに任せずに指定してあげればいいじゃない、ということで関数を用意した

(defun my/nippou-query ()
  (interactive)
  (org-ql-search
    (my/org-nippou-targets)
    "todo:TODO,DOING,WAIT,DONE ts:on=today"
    :title "日報"
    :super-groups '((:auto-group))))

org-ql-search の第一引数がファイルのリストで、 第二引数が検索クエリなのがわかったので、とりあえずそれを突っ込んで欲しいデータは取れるようになった その後のところは色々とキーワード引数が指定できるみたい

https://github.com/alphapapa/org-ql/blob/6633dbb276d51767c3f401d0f68ef99e7b9364b6/org-ql-search.el#L108-L109

title はまあタイトルなのでいいとして super-groups は org-super-agenda の定義を見ないといけない。

https://github.com/alphapapa/org-super-agenda#special-selectors

で auto-category とか便利に使えそうなのがあるんだけど、 ファイル名を基準にしたりするのでちょっと違うかな〜ってなったりしてて とりあえず auto-group を使うことにした

auto-group は各ツリーにproperty として agenda-group を設定してればそれを使い、 設定されてないやつは自動的に Other Items というグループに分類される感じ。

クエリ的には TODO keywords として TODO,DOING,WAIT,DONE のやつを対象にするのと その日の timestamp のやつを対象にする感じにしている。 (けど今試しに動かしてみたら何故か22日の作業分が表示されて謎なのでバグがあるっぽい)

という流れで https://github.com/mugijiru/.emacs.d/pull/156 の設定を放り込んだ。

今後やりたいこと

• 日報は Slack に送ってるのでコマンドからそのまま Slack に送信したい
  • その場合確認画面も欲しいよね
  • 投稿後に Slack の画面も開くとさらに良い気がする
• 「Group: 00_開発」みたいになってるのでそのあたりは見た目を調整したい
  • org-ql-search ではなく org-ql-select などを叩いた結果を自前で加工するのがいいかもしれない
• 業務内容以外にもフリーテキストを書き込んで投稿するのでそれもやりたい
• あとそこまで頑張ったらちゃんとしたパッケージにしたい

Emacs のパッケージを少しずつアップデートした

やったこと

これまで Emacs を使ってる中で 「動いてれば良し」の精神でパッケージ更新は基本的にやってなかったけど それもまあ健全じゃないよな〜ってことで腹を括ってアップデート祭を行った

前提

パッケージ管理には el-get を使っていて さらに el-get-lock で lock も掛けられる状態にしていた。 もちろん lock できるのは el-get-lock の制限を超えられないが、 それでも多くのパッケージは lock がかけられる状態になっていた

方針

• できるだけ1つずつアップデートを掛けていく
  • 全部まとめてアップデート案もあったけど、色々なものが動かなくなってわけわからんって状態になりそうだった & やってみたらやっぱりそうなったのでそれは諦めた
  • もちろんパッケージによっては1つだけ更新ってわけにもいかないので、そういうやつはまとめて対応
    • Magit 周りとかね
• アップデート時には差分か CHANGELOG を極力チェックする
  • 差分が大き過ぎてつらいやつはその限りではない
• アップデートかけて Emacs を再起動して影響がありそうな機能を触ってみて問題がないかのチェックを毎度する
  • 少しずつ更新する中でこれが結構しんどかった。差分チェックもだけど。

事前準備

el-get-lock で lock も掛けられる状態にしていた。

という前提のために、一旦できる限り lock をかけていった。 その過程で誤って最新化されたのもあるけど、まあしょうがないってことで許容してたりする。

• https://github.com/mugijiru/.emacs.d/pull/84
• https://github.com/mugijiru/.emacs.d/pull/86
• https://github.com/mugijiru/.emacs.d/pull/87
• https://github.com/mugijiru/.emacs.d/pull/88
• https://github.com/mugijiru/.emacs.d/pull/90

あたりで諸々 lock をかけていってる。 PR の途中の番号で抜けてるところでも関連する作業をしている。

実施作業

https://github.com/mugijiru/.emacs.d/pull/91 から https://github.com/mugijiru/.emacs.d/pull/149 までの PR が ほとんどアップデート作業の記録。

Magit 関連は https://github.com/mugijiru/.emacs.d/pull/116 でまとめて更新している 差分を見て「わからん」としている部分が多いがあまり更新してなかったので仕方ない

作業した感想など

• lock から考えると3週間費したので疲れた
  • ほぼ週末しか作業してないけどね
• 更新時の差分チェックは結構楽しかった
  • チェックした内容ほとんど覚えてないけどなっ
• そもそも lock が Emacs のパッケージシステムと相性が良くはないのでちょっと考え直したいところはある
  • とはいえ更新した時に元からどれだけ変わったのかが分かるのは便利

その後

とりあえず全体最新化できたので 毎週アップデートしていける状態にもっていけた。 現時点で既に2回の週次アップデートを実施していて良さげな感覚を抱いている。

ただ、週次でも差分チェックがだるいなとは感じてるので、 毎日アップデートでも良いかもしれない。