.emacs-my
changeset 1111 494d4d574a26
parent 1107 cc1303629cde
child 1112 1fc59cf19c28
equal deleted inserted replaced
1107:cc1303629cde 1111:494d4d574a26
  1332   (jdone-setup-key-binding)
  1332   (jdone-setup-key-binding)
  1333   (jdone-integrate-hook)
  1333   (jdone-integrate-hook)
  1334   )
  1334   )
  1335 
  1335 
  1336 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1336 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1337 (message "remember-mode")
       
  1338 
       
  1339 (when (>= emacs-major-version 23)
       
  1340   (require 'remember))
       
  1341 
       
  1342 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       
  1343 (message "org-mode, GTD, PIM, organize, todo")
  1337 (message "org-mode, GTD, PIM, organize, todo")
  1344 
  1338 
  1345 (when (>= emacs-major-version 22)
  1339 (when (>= emacs-major-version 22)
  1346   (require 'org))
  1340   (require 'org))
  1347 
  1341 
  1349 ;; XXX (setq org-todo-keywords '("TODO" "START" "DONE")) for org-version 6.05b
  1343 ;; XXX (setq org-todo-keywords '("TODO" "START" "DONE")) for org-version 6.05b
  1350 (when (or (featurep 'org) (featurep 'org-install))
  1344 (when (or (featurep 'org) (featurep 'org-install))
  1351   (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
  1345   (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
  1352   (setq org-directory "~/devel/my-devel/gtd")
  1346   (setq org-directory "~/devel/my-devel/gtd")
  1353   (setq
  1347   (setq
  1354    org-default-notes-file nil
       
  1355    org-agenda-ndays 31
  1348    org-agenda-ndays 31
  1356    org-deadline-warning-days 7
  1349    org-deadline-warning-days 7
  1357    org-agenda-show-all-dates t
  1350    org-agenda-show-all-dates t
  1358    org-agenda-format-date "%Y-%m-%d, %A %e %B"
  1351    org-agenda-format-date "%Y-%m-%d, %A %e %B"
  1359    org-agenda-skip-deadline-if-done t
  1352    org-agenda-skip-deadline-if-done t
  1389           ))
  1382           ))
  1390   ;; With this variable tags duplicated in *Org Tags* menu. I use
  1383   ;; With this variable tags duplicated in *Org Tags* menu. I use
  1391   ;; `org-tag-alist' instead until bug fixed.
  1384   ;; `org-tag-alist' instead until bug fixed.
  1392   (setq org-tag-persistent-alist nil)
  1385   (setq org-tag-persistent-alist nil)
  1393 
  1386 
  1394   (when (or (featurep 'remember) (fboundp 'remember))
  1387   (cond
       
  1388    ((featurep 'org-capture)
       
  1389     (setq org-default-notes-file my-org-agenda-todo-file)
       
  1390     (setq org-capture-templates
       
  1391           '(("t" "Todo" entry (file my-org-agenda-todo-file) "* TODO %?\n  SCHEDULED: %T")))
       
  1392     (define-key global-map "\C-vr"
       
  1393       (lambda () (interactive) (org-capture nil "t")))
       
  1394     )
       
  1395    ((or (featurep 'remember) (fboundp 'remember))
  1395     (setq remember-annotation-functions '(org-remember-annotation))
  1396     (setq remember-annotation-functions '(org-remember-annotation))
  1396     (setq remember-handler-functions '(org-remember-handler))
  1397     (setq remember-handler-functions '(org-remember-handler))
  1397     (add-hook 'remember-mode-hook 'org-remember-apply-template)
  1398     (add-hook 'remember-mode-hook 'org-remember-apply-template)
  1398     (define-key global-map "\C-vr" 'org-remember)
  1399     (define-key global-map "\C-vr" 'org-remember)
  1399     (setq org-remember-templates
  1400     (setq org-remember-templates
  1402             ("todo" ?t "* TODO %?" ,my-org-agenda-todo-file)
  1403             ("todo" ?t "* TODO %?" ,my-org-agenda-todo-file)
  1403             ;; ("note" ?n "* %?\n" ,my-org-agenda-note-file)
  1404             ;; ("note" ?n "* %?\n" ,my-org-agenda-note-file)
  1404             ))
  1405             ))
  1405     (setq org-remember-store-without-prompt t)
  1406     (setq org-remember-store-without-prompt t)
  1406     (org-remember-insinuate)
  1407     (org-remember-insinuate)
  1407     )
  1408     ))
  1408 
  1409 
  1409   ;; (setq org-todo-keyword-faces
  1410   ;; (setq org-todo-keyword-faces
  1410   ;;       '(("TODO" . (:foreground "red" :weight bold))
  1411   ;;       '(("TODO" . (:foreground "red" :weight bold))
  1411   ;;         ("WAIT" . (:foreground "orange" :weight bold))
  1412   ;;         ("WAIT" . (:foreground "orange" :weight bold))
  1412   ;;         ("DONE" . (:foreground "green" :weight bold))) )
  1413   ;;         ("DONE" . (:foreground "green" :weight bold))) )