.emacs-my
changeset 589 d82530e4f0a6
parent 588 aa917b11ffef
child 590 a5b4af238ede
equal deleted inserted replaced
588:aa917b11ffef 589:d82530e4f0a6
   859 ;;; ----------------------------------------------------------------
   859 ;;; ----------------------------------------------------------------
   860 (message "remember-mode")
   860 (message "remember-mode")
   861 
   861 
   862 (when (>= emacs-major-version 23)
   862 (when (>= emacs-major-version 23)
   863   (require 'remember))
   863   (require 'remember))
   864 (when
       
   865     (or (featurep 'remember) (fboundp 'remember))
       
   866   (progn
       
   867     (setq remember-annotation-functions '(org-remember-annotation))
       
   868     (setq remember-handler-functions '(org-remember-handler))
       
   869     (add-hook 'remember-mode-hook 'org-remember-apply-template)
       
   870     (define-key global-map "\C-cr" 'org-remember)
       
   871     (setq org-remember-templates
       
   872           ;; With one item emacs do not prompt choose template.
       
   873           '((?t "* TODO %?" "~/.gtd/todo.org")
       
   874             ;; (?j "* %^{topic}\n  %T\n" "~/.gtd/journal.org")
       
   875             ))
       
   876     (setq org-remember-store-without-prompt t)
       
   877     ))
       
   878 
   864 
   879 ;;; ----------------------------------------------------------------
   865 ;;; ----------------------------------------------------------------
   880 (message "org-mode, GTD, PIM, organize, todo")
   866 (message "org-mode, GTD, PIM, organize, todo")
   881 
   867 
   882 (when (>= emacs-major-version 22)
   868 (when (>= emacs-major-version 22)
   883   (require 'org)
   869   (require 'org))
   884   )
       
   885 
   870 
   886 ;; XXX org-todo-keywords '((sequence "TODO" "START" "|" "DONE")) for org-version 4.67c
   871 ;; XXX org-todo-keywords '((sequence "TODO" "START" "|" "DONE")) for org-version 4.67c
   887 ;; XXX (setq org-todo-keywords '("TODO" "START" "DONE")) for org-version 6.05b
   872 ;; XXX (setq org-todo-keywords '("TODO" "START" "DONE")) for org-version 6.05b
   888 (if (or (featurep 'org) (featurep 'org-install))
   873 (if (or (featurep 'org) (featurep 'org-install))
   889     (progn
   874     (progn
   900             org-reverse-note-order t
   885             org-reverse-note-order t
   901             org-hide-leading-stars t
   886             org-hide-leading-stars t
   902             org-tags-column 64
   887             org-tags-column 64
   903             )
   888             )
   904       (define-key global-map "\C-ca" 'org-agenda)
   889       (define-key global-map "\C-ca" 'org-agenda)
       
   890 
       
   891       (when
       
   892           (or (featurep 'remember) (fboundp 'remember))
       
   893         (progn
       
   894           (setq remember-annotation-functions '(org-remember-annotation))
       
   895           (setq remember-handler-functions '(org-remember-handler))
       
   896           (add-hook 'remember-mode-hook 'org-remember-apply-template)
       
   897           (define-key global-map "\C-cr" 'org-remember)
       
   898           (setq org-remember-templates
       
   899                 ;; With one item emacs do not prompt choose template.
       
   900                 '((?t "* TODO %?" "~/.gtd/todo.org")
       
   901                   ;; (?j "* %^{topic}\n  %T\n" "~/.gtd/journal.org")
       
   902                   ))
       
   903           (setq org-remember-store-without-prompt t)
       
   904           ))
       
   905 
   905       (setq org-agenda-files '("~/.gtd/todo.org"))
   906       (setq org-agenda-files '("~/.gtd/todo.org"))
   906       ;; (setq org-todo-keyword-faces
   907       ;; (setq org-todo-keyword-faces
   907       ;;       '(("TODO" . (:foreground "red" :weight bold))
   908       ;;       '(("TODO" . (:foreground "red" :weight bold))
   908       ;;         ("WAIT" . (:foreground "orange" :weight bold))
   909       ;;         ("WAIT" . (:foreground "orange" :weight bold))
   909       ;;         ("DONE" . (:foreground "green" :weight bold))) )
   910       ;;         ("DONE" . (:foreground "green" :weight bold))) )