create daily memo to specified directory

open-daily-file.el

;; create daily org memo file
(defun open-daily-file ()
  (interactive)
  (let* ((memodir (expand-file-name "~/memo/daily"))
         (daily-path (concat memodir "/" (format-time-string "%Y/%m"))))
    (unless (file-directory-p daily-path)
      (make-directory daily-path t))
    (let ((daily-file (concat daily-path "/" (format-time-string "%d.org"))))
      (unless (file-exists-p daily-file)
        (with-temp-file daily-file
          (insert (format-time-string "%Y年 %m月 %d日"))))
      (find-file daily-file))))