cfw:open-howm-calendar して今日の howm に日付だけ挿入できればいいや
(defun my-cfw-open-schedule-buffer () (interactive) (let ((date (cfw:cursor-to-nearest-date))) (howm-find-today) (goto-char (point-max)) (insert (format "[%04d-%02d-%02d]@ " (calendar-extract-year date) (calendar-extract-month date) (calendar-extract-day date))))) (define-key cfw:howm-schedule-map (kbd "i") 'my-cfw-open-schedule-buffer)