;; -*- emacs-lisp -*-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; $Id: planner.el,v 1.15 2004/03/09 21:53:21 ole Exp $
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; the project planner
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(add-to-list 'load-path (expand-file-name "emacs-wiki/" emacs-packages-dir))

(require 'planner)
(require 'planner-experimental)
(require 'planner-diary)
(require 'planner-bbdb)
(require 'planner-gnus)
(require 'planner-erc)
(require 'planner-id)
(require 'planner-notes-index)
(require 'planner-rss)
;; (require 'planner-schedule)
;; (require 'planner-timeclock)
(require 'planner-w3m)

;;(require 'planner-browser)

(planner-install-extra-task-keybindings)
(eval-after-load "calendar" '(planner-calendar-insinuate))

(setq planner-carry-tasks-forward  t
      planner-use-other-window     nil
      planner-directory            "~/doc/plans"
      planner-publishing-directory "~/html/plans"
      planner-plan-page-template   "#title\n\n* Overview\n\n\n* Notes\n\n\n* Tasks\n\n\n"
      planner-day-page-template    "* Tasks\n\n\n* Diary\n\n\n* Notes\n\n\n"
)

(require 'planner-notes)

(planner-option-customized 'planner-directory planner-directory)
(planner-option-customized 'planner-custom-variables
 	     '((planner-publishing-directory . "~/html/plans")
  	       ))


(add-hook 'planner-mode-hook 'planner-diary-insert-diary-maybe)
(add-to-list 'auto-mode-alist '(".*/doc/plans/.*$" . planner-mode))

(define-key mode-specific-map [?p ?p] 'plan)
(define-key mode-specific-map [?p ?t] 'planner-create-task-from-buffer)
(define-key mode-specific-map [?p ?n] 'planner-create-note)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;_* Bibl
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-to-list 'load-path (expand-file-name "bibl-mode" emacs-packages-dir))
(require 'bibl-mode)
(setq bibl-file-name (expand-file-name "~/doc/bibligraphy"))

(define-key mode-specific-map [?b]  'bibl-global-map)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;_* Remember
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'remember)
(require 'remember-bbdb)
(require 'remember-bibl)
(require 'remember-planner)

;; Use BBDB to complete names and addresses
(setq remember-use-bbdb t
      remember-handler-functions '(remember-planner-append)
      remember-annotation-functions planner-annotation-functions
      remember-use-bbdb t
      remember-save-after-remembering t
      ;; describe-function: format-time-string
      remember-planner-timestamp-format "%H:%M"
      ;; possible functions:
      ;;     remember-planner-add-timestamp,
      ;;     remember-planner-add-xref
      ;;     planner-rss-add-note
      remember-append-to-planner-hook '(remember-planner-add-xref
					planner-rss-add-note)
      )


(define-key mode-specific-map [?n ? ] 'remember)
(define-key mode-specific-map [?n ?r] 'remember-region)
(define-key mode-specific-map [?n ?b] 'remember-buffer)
(define-key mode-specific-map [?n ?u] 'remember-url)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;_* Blog RSS
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq planner-rss-initial-contents
      "<?xml version=\"1.0\" encoding=\"8859-1\"?>
  <rss version=\"2.0\">
    <channel>
      <title>Sugarshark's musings</title>
      <link>http://sugarshark.com/journal/today.html</link>
      <description>Random notes</description>
    </channel>
  </rss>"
      planner-rss-base-url "http://sugarshark.com/journal/"
      planner-rss-file-name "/home/ole/html/plans/blog.rdf"
      )


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;_* Remembrance agent
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'remem)

(setq remem-prog-dir (expand-file-name "/usr/bin/"))
(setq remem-database-dir (expand-file-name "~/.ra-index"))

(setq remem-scopes-list '(("mail" 3 6 300)
			  ("doc" 3 10 300)))