howm と calendar と diary の連携、さらに続き。

ほんまたけるのココログ: howm と calendar と diary の連携

さらに、続き。

howm-menu-diary の中の let* に、下を加えた。

(list-diary-entries-hook 'sort-diary-entries)

以前は、(list-diary-entries-hook 'ignore) としていたが、上のようにすると、日付だけではなく、時刻でもソートしてくれる。

howm-open-diary をまねて、別の関数 (仮に howm-tkr-open-diary としてある)をでっちあげてみた。
何を変えたかうれしいかというと、diary-file に下のように日付が違って、他が同じエントリがあると、 howm-open-diary だと行き先を間違える可能性があるが、これを解決するために、howm-tkr-open-diary では、行き先の検索を howm-view-search に任せるので、行き先を間違えるってことがなくなる。ひとつステップ増えるけど。

[2004-02-23]@14:30 教授会
[2004-03-05]@14:30 教授会

つまり、こんな感じ。

(defun howm-tkr-open-diary (&optional dummy)
  "Pick up the string str for a diary entry listed in the howm-menu buffer 
and search the str in the diary-file using howm-view-search.  See also 
howm-mode.el."
  (interactive)
  (let ((date-str nil) (str nil))
    (save-excursion
      (beginning-of-line)
      (when (re-search-forward
             ">>d \\[[-0-9]+\\] " nil t)
        (setq str
              (concat
               "^.+"
               (buffer-substring-no-properties
                (point) (line-end-position))))
	(howm-view-search str diary-file)))))

その上で、add-diary-action-lock-rule の定義の中の、 howm-open-diary を howm-tkr-open-diary にして、こいつを呼ぶようにする。