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)