;; ================================================================
;; Sample configuration file for Muse, Planner and Remember
;; ================================================================

;; CHANGE BASE-DIRECTORY TO POINT TO THE DIRECTORY YOU UNPACKED FILES TO
;; For example, this works if you used
;;   mkdir ~/elisp
;;   tar -zxvfC plannerbundle.tar.gz ~/elisp

(defvar my/base-directory    "~/elisp" "Base directory where I unpacked the Lisp files.")
(defvar my/planner-directory "~/elisp/plans" "Directory for my Planner text files.")
(defvar my/planner-newbie-p  t "*Set to nil if you don't want any of the newbie help stuff.")

(require 'info)

(let ((base-directory "~/elisp"))
  (add-to-list 'load-path (concat base-directory "/muse/lisp"))
  (add-to-list 'load-path (concat base-directory "/planner"))
  (add-to-list 'load-path (concat base-directory "/remember"))
  (add-to-list 'Info-directory-list (concat base-directory "/planner"))
  (add-to-list 'Info-directory-list (concat base-directory "/muse"))
  (add-to-list 'Info-directory-list (concat base-directory "/remember-el")))

;; Muse configuration
(setq muse-project-alist
      `(("WikiPlanner"
         (,my/planner-directory
          :default "index"
          :major-mode planner-mode
	  :visit-link planner-visit-link))))
(setq muse-file-extension "txt")
(setq muse-mode-auto-p t)

;; Load code
(require 'muse-mode)
(require 'muse-project)
(require 'muse-wiki)
(require 'muse-colors)
(require 'planner)
(require 'planner-lisp)
(require 'planner-auto)
(require 'remember)
(require 'remember-planner)

(when my/planner-newbie-p
  ;; Stuff to make newbies' lives easier
  (setq planner-day-page-template
        (concat 
         "TAB/SHIFT-TAB: switch between links    "
         "RET/ENTER: follow link\n"
         "[[lisp:planner-goto][Jump to date]] (C-c C-j C-d)             "
         "[[lisp:planner-goto-today][Today]]    (C-c C-j C-j)\n"
         "[[lisp:planner-goto-yesterday][Previous day]] (C-c C-j C-y)             "
         "[[lisp:planner-goto-tomorrow][Next day]] (C-c C-j C-t)\n"
         "[[lisp:planner-create-task-from-buffer][New task]]     (C-c C-t)                 "
         "[[lisp:remember][New note]] (M-x remember)\n\n"
         "* Tasks\n\n\n* Schedule\n\n\n* Notes\n\n\n")))

;; Display today's page
(plan)

(when my/planner-newbie-p
  (planner-find-file "WelcomePage" 'find-file-other-window))

;; Finish setting up remember
(setq remember-annotation-functions planner-annotation-functions)
(setq remember-handler-functions '(remember-planner-append))