(load-library "ndiary-mode")
;;(load-library "nikki")
(setq change-ndiary-log-directory '(
                                    "~/diary/main"
                                    "~/diary/hobby"))
(setq change-ndiary-latest-filename
      '(
      "~/www/index.html"
      "~/www/diary/index.html"))

;;(setq change-schedule-dir '(
;;                            "~/diary/main"
;;                            "~/diary/hobby"))

(setq change-ndiary-script-derectory
      '(
        "~/ndiary/script"
        "~/ndiary/diaryscript"
        ))

(defun change-ndiary-diary ()
  (interactive)
  (let (
        (buflist (mapcar (function buffer-name) (buffer-list)))
        (bufname)
        )

    (while buflist
      (setq bufname (car buflist))
      (setq buflist (cdr buflist))
      ;; schedule の終了
;;      (if (> (length bufname) 10)
;;          (if (string-equal (substring bufname 0 9) "Schedule ")
;;              (progn
;;                (switch-to-buffer bufname)
;;                (schedule-quit))))

      ;;日記ファイルのクローズ
      (if (>= (length bufname) 14)
          (if (string-equal (substring bufname 8 14) ".diary")
              (progn
                (save-buffer)
                (kill-buffer bufname))))
      ;;ndiary バッファの削除
      (if (>= (length bufname) 8)
          (if (string-equal (substring bufname 0 8) "*ndiary*")
                (kill-buffer bufname)))
      )

      ;;各種設定の置き換え
      (setq ndiary-log-directory (car change-ndiary-log-directory))
      (setq change-ndiary-log-directory
            (reverse (cons
              (car change-ndiary-log-directory)
              (reverse (cdr change-ndiary-log-directory))
              )))

      (setq ndiary-latest-filename (car change-ndiary-latest-filename))
      (setq change-ndiary-latest-filename
            (reverse (cons
              (car change-ndiary-latest-filename)
              (reverse (cdr change-ndiary-latest-filename)))))

;;      (setq schedule-dir (car change-schedule-dir))
;;      (setq change-schedule-dir
;;            (reverse (cons
;;              (car change-schedule-dir)
;;              (reverse (cdr change-schedule-dir)))))

      (setq ndiary-script-derectory (car change-ndiary-script-derectory))
      (setq change-ndiary-script-derectory
            (reverse (cons
              (car change-ndiary-script-derectory)
              (reverse (cdr change-ndiary-script-derectory)))))

    ;;各種起動
;;    (schedule)
    (ndiary-edit)
      )
    )