calendarでカーソル位置の日付で引っかかるhowm記事を検索

howmがもうちょっとグラフィカルに表示されればいいな、と期待しつつとりあえずCalenderから呼び出せるようにいじりました。
まず、某所で見つけた

;;
;; M-x calendar しといて M-x howm-from-calendar → その日付を検索
;; 「メモのある日に色つけ」は, また気が向いたら (mark-diary-entries 参照)
(defun howm-from-calendar ()
(interactive)
(let* (　(mdy (calendar-cursor-to-date t))
(m (car mdy))
(d (second mdy))
(y (third mdy))
(key (format-time-string howm-date-format
(encode-time 0 0 0 d m y))))
(howm-keyword-search key)))

を.emacsに登録して、さらに、

;;カレンダーの上でdを押すとgrep
(add-hook 'initial-calendar-window-hook
'(lambda ()
(local-set-key "d" 'howm-from-calendar)))

としてcalenderのキーバインドを使っていない日誌コマンドdに割り当てました。
howmを起動した後M-x calendarして、日付の上でdを押せばその日の記述があるテキストが一覧できるようになりました。