open-diary.el

;; 日記を簡単に書けるように設定する
;;;; 日記を保存しておくディレクトリを設定
(setq diary-note-path "~/Dropbox/TextSync/Diary/")
;;;; 今日の日記ファイルのパスを返す
(defun diary-today-note ()
  (concat diary-note-path (format-time-string "%Y/%m/%d") ".md"))
;;;; 今日の日記ファイルを開く or なければ作成する

(defun diary-open-today-note ()
  (interactive)
  (find-file  (diary-today-note)))