(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) (calen…

;; 月 (setq calendar-month-name-array (vconcat (mapcar (lambda (n) (concat n "月")) (mapcar 'number-to-string [1 2 3 4 5 6 7 8 9 10 11 12])))) ;; 曜日 (setq calendar-day-name-array (vconcat (mapcar (lambda (n) (concat (char-to-string n) "…