EXPERIMENTAL/john.el

   1 (require 'org-install)
   2
   3 (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
   4
   5 (define-key mode-specific-map [?a] 'org-agenda)
   6
   7 (eval-after-load "org"
   8   '(progn
   9      (define-prefix-command 'org-todo-state-map)
  10
  11      (define-key org-mode-map "\C-cx" 'org-todo-state-map)
  12
  13      (define-key org-todo-state-map "x"
  14        #'(lambda nil (interactive) (org-todo "CANCELLED")))
  15      (define-key org-todo-state-map "d"
  16        #'(lambda nil (interactive) (org-todo "DONE")))
  17      (define-key org-todo-state-map "f"
  18        #'(lambda nil (interactive) (org-todo "DEFERRED")))
  19      (define-key org-todo-state-map "l"
  20        #'(lambda nil (interactive) (org-todo "DELEGATED")))
  21      (define-key org-todo-state-map "s"
  22        #'(lambda nil (interactive) (org-todo "STARTED")))
  23      (define-key org-todo-state-map "w"
  24        #'(lambda nil (interactive) (org-todo "WAITING")))
  25
  26      (define-key org-agenda-mode-map "\C-n" 'next-line)
  27      (define-key org-agenda-keymap "\C-n" 'next-line)
  28      (define-key org-agenda-mode-map "\C-p" 'previous-line)
  29      (define-key org-agenda-keymap "\C-p" 'previous-line)))
  30
  31 (require 'remember)
  32
  33 (add-hook 'remember-mode-hook 'org-remember-apply-template)
  34
  35 (define-key global-map [(control meta ?r)] 'remember)
  36
  37 (custom-set-variables
  38  '(org-agenda-files (quote ("~/todo.org")))
  39  '(org-default-notes-file "~/notes.org")
  40  '(org-agenda-ndays 7)
  41  '(org-deadline-warning-days 14)
  42  '(org-agenda-show-all-dates t)
  43  '(org-agenda-skip-deadline-if-done t)
  44  '(org-agenda-skip-scheduled-if-done t)
  45  '(org-agenda-start-on-weekday nil)
  46  '(org-reverse-note-order t)
  47  '(org-fast-tag-selection-single-key (quote expert))
  48  '(org-agenda-custom-commands
  49    (quote (("d" todo "DELEGATED" nil)
  50            ("c" todo "DONE|DEFERRED|CANCELLED" nil)
  51            ("w" todo "WAITING" nil)
  52            ("W" agenda "" ((org-agenda-ndays 21)))
  53            ("A" agenda ""
  54             ((org-agenda-skip-function
  55               (lambda nil
  56                 (org-agenda-skip-entry-if (quote notregexp) "\\=.*\\[#A\\]")))
  57              (org-agenda-ndays 1)
  58              (org-agenda-overriding-header "Today's Priority #A tasks: ")))
  59            ("u" alltodo ""
  60             ((org-agenda-skip-function
  61               (lambda nil
  62                 (org-agenda-skip-entry-if (quote scheduled) (quote deadline)
  63                                           (quote regexp) "<[^>\n]+>")))
  64              (org-agenda-overriding-header "Unscheduled TODO entries: "))))))
  65  '(org-remember-store-without-prompt t)
  66  '(org-remember-templates
  67    (quote ((116 "* TODO %?\n  %u" "./todo.txt" "Tasks")
  68            (110 "* %u %?" "./notes.txt" "Notes"))))
  69  '(remember-annotation-functions (quote (org-remember-annotation)))
  70  '(remember-handler-functions (quote (org-remember-handler))))