;;; Sacha Chua's remember.el configuration

;; You can get remember.el from
;; http://sacha.free.net.ph/notebook/emacs/dev/remember

(add-to-list 'load-path "/usr/src/remember")
(add-to-list 'load-path "/usr/src/planner-el")
(add-to-list 'load-path "/usr/src/muse-el/lisp")
(require 'remember)
(require 'planner)
(require 'planner-rss)
(require 'remember-planner)
;(require 'remember-bibl)

(setq remember-save-after-remembering t)
(setq remember-handler-functions '(remember-planner-append))


(defvaralias 'remember-annotation-functions 'planner-annotation-functions)

(defun ajk/my-cleanup-then-save-buffers-kill-emacs (&optional arg)
  "Clean up before saving buffers and killing Emacs."
  (interactive "P")
  ;; stop here if there's a *Remember* buffer
  (if (get-buffer remember-buffer)
      (remember)
    ;; clean up Gnus
    (and
     (fboundp 'gnus-alive-p)
     (gnus-alive-p)
     (let ((gnus-interactive-exit nil))
       (gnus-group-exit)))
    (save-buffers-kill-emacs arg)))
(defalias 'sacha/save-buffers-kill-emacs
          'ajk/my-cleanup-then-save-buffers-kill-emacs)

(defun sacha/remember-to-notes ()
  "Start remember for notes."
  (interactive)
  (remember)
  (set (make-variable-buffer-local 'remember-handler-functions)
       '(remember-append-to-file)))

(global-set-key (kbd "<f9> n SPC") 'sacha/remember-to-notes)

;(add-hook 'remember-mode-hook (function (lambda () (local-set-key [tab] 'hippie-expand))))

(provide 'remember-config)