.emacs-my
changeset 663 1fdbc6490e16
parent 662 81ca1335730a
child 664 42c32f7738e7
equal deleted inserted replaced
662:81ca1335730a 663:1fdbc6490e16
   916 
   916 
   917 ;; XXX org-todo-keywords '((sequence "TODO" "START" "|" "DONE")) for org-version 4.67c
   917 ;; XXX org-todo-keywords '((sequence "TODO" "START" "|" "DONE")) for org-version 4.67c
   918 ;; XXX (setq org-todo-keywords '("TODO" "START" "DONE")) for org-version 6.05b
   918 ;; XXX (setq org-todo-keywords '("TODO" "START" "DONE")) for org-version 6.05b
   919 (when (or (featurep 'org) (featurep 'org-install))
   919 (when (or (featurep 'org) (featurep 'org-install))
   920   (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
   920   (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
       
   921   (setq org-directory "~/devel/my-devel/gtd")
   921   (setq
   922   (setq
   922    org-directory "~/.gtd"
       
   923    org-default-notes-file nil
   923    org-default-notes-file nil
   924    org-agenda-ndays 31
   924    org-agenda-ndays 31
   925    org-deadline-warning-days 7
   925    org-deadline-warning-days 7
   926    org-agenda-show-all-dates t
   926    org-agenda-show-all-dates t
   927    org-agenda-format-date "%Y-%m-%d, %A %e %B"
   927    org-agenda-format-date "%Y-%m-%d, %A %e %B"
   930    org-agenda-start-on-weekday nil
   930    org-agenda-start-on-weekday nil
   931    org-reverse-note-order t
   931    org-reverse-note-order t
   932    org-hide-leading-stars t
   932    org-hide-leading-stars t
   933    org-tags-column 64
   933    org-tags-column 64
   934    )
   934    )
   935   (setq my-org-agenda-todo-file "~/.gtd/TODO.org")
   935   (setq my-org-agenda-todo-file (concat org-directory "/TODO.org"))
   936   (setq my-org-agenda-note-file "~/.gtd/NOTE.org")
   936   (setq my-org-agenda-note-file (concat org-directory "/NOTE.org"))
   937   (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file))
   937   (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file))
   938   (define-key global-map "\C-ca" 'org-agenda)
   938   (define-key global-map "\C-ca" 'org-agenda)
   939   (define-key global-map "\C-ct" (lambda nil (interactive) (find-file my-org-agenda-note-file)))
   939   (define-key global-map "\C-ct" (lambda nil (interactive) (find-file my-org-agenda-note-file)))
   940   ;; I expect that these bindings work in all mode, Org mode use own, so redefine:
   940   ;; I expect that these bindings work in all mode, Org mode use own, so redefine:
   941   (define-key org-mode-map [C-S-right] 'forward-word-mark)
   941   (define-key org-mode-map [C-S-right] 'forward-word-mark)