;;;; Personal Information manager (ish)

;; Should probably localize this by computer.
(setq calendar-latitude 37.0625)
(setq calendar-longitude -95.67707)
(setq calendar-location-name "Timonium, MD")

;; Have diary mode notify me of any appointments.
(display-time)
(add-hook 'diary-hook 'appt-make-list)
(diary 0)

(require 'planner)
(planner-calendar-insinuate)

;; org-mode
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
(define-key global-map "\C-cl" 'org-store-link)
(define-key global-map "\C-ca" 'org-agenda)

(require 'remember)
(org-remember-insinuate)
(global-set-key (kbd "C-M-r") 'org-remember)
(setq org-remember-store-without-prompt t)

(setq org-todo-keywords '((sequence "TODO(t)" "STARTED(s)" "|" "DONE(d!/!)")))

(defun my-start-clock-if-needed ()
  (save-excursion
    (goto-char (point-min))
    (when (re-search-forward " *:CLOCK-IN: *" nil t)
      (replace-match "")
      (org-clock-in))))
(add-hook 'remember-mode-hook 'my-start-clock-if-needed 'append)
(setq org-remember-clock-out-on-exit nil)

(setq org-remember-templates
      '(("todo" ?t "* TODO %?\n  %u" "~/Plans/todo.org" bottom nil)
        ("phone" ?p "* PHONE %? :PHONE:\n  %u\n  :CLOCK-IN:"
         "~/Plans/phone.org" bottom nil)))

(run-at-time "00:59" 3600 'org-save-all-org-buffers)

(provide 'pmg-pim)