平衡点

_ Howm のメニュー表示用関数のカスタマイズ

メモ書きやらタスク管理に Org mode と howm を併用している.

howm-menu に org で書いたメモの TODO とか SOMEDAY を表示させたいな, と思ったのだけれど, howm-menu-search は

1. reverse-order にならない
2. 表示する数が設定できない

といった点が気になったので, 元々の関数定義を眺めつつ, 毎度 ad hoc に適当な関数をでっちあげてみた.

# source: scheme
  (defun my:howm-menu-search (key &optional formatter regexp-p)
    "Embed search result of KEY into menu, reverse-order, howm-menu-recent-num"
    (let ((fixed-p (not regexp-p)))
      (howm-menu-general "menu-search"
                         formatter
                         (howm-first-n
                          (howm-sort-items-by-reverse-date
                           (howm-view-search-folder-items   key (howm-folder) nil fixed-p)
                           ) howm-menu-recent-num)
                         )))

あとは howm の設定ファイルのどこかで

# source: scheme
  (setq howm-menu-allow
        (append '(my:howm-menu-search) howm-menu-allow))

としておいて howm-menu の中で

%here%(my:howm-menu-search "^* TODO" nil t)

とすると, 最新の TODO が howm-menu-recent-num 個表示されるようになった.