.emacs-my
changeset 74 55deb80345ab
parent 73 73e42aa11b3c
child 75 cd964a1d58b9
equal deleted inserted replaced
73:73e42aa11b3c 74:55deb80345ab
   590 (if (featurep 'org)
   590 (if (featurep 'org)
   591     (progn
   591     (progn
   592       (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
   592       (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
   593       (setq org-directory (expand-file-name "~/.gtd"))
   593       (setq org-directory (expand-file-name "~/.gtd"))
   594       (setq org-default-notes-file (expand-file-name "~/.gtd/notes"))
   594       (setq org-default-notes-file (expand-file-name "~/.gtd/notes"))
   595       (setq org-agenda-ndays 20
   595       (setq org-agenda-ndays 14
   596             org-deadline-warning-days 14
   596             org-deadline-warning-days 7
   597             org-agenda-show-all-dates t
   597             org-agenda-show-all-dates t
   598             org-agenda-skip-deadline-if-done t
   598             org-agenda-skip-deadline-if-done t
   599             org-agenda-skip-scheduled-if-done t
   599             org-agenda-skip-scheduled-if-done t
   600             org-agenda-start-on-weekday nil
   600             org-agenda-start-on-weekday nil
   601             org-reverse-note-order t
   601             org-reverse-note-order t
       
   602             org-hide-leading-stars t
       
   603             org-remember-store-without-prompt t
   602             org-tags-column 64
   604             org-tags-column 64
   603             )
   605             )
   604       (define-key global-map "\C-ca" 'org-agenda)
   606       (define-key global-map "\C-ca" 'org-agenda)
   605       (setq org-agenda-files '("~/.gtd/todo.org")) ))
   607       (setq org-agenda-files '("~/.gtd/todo.org")) ))
   606 
   608