.emacs-my
changeset 67 33caed66cee4
parent 66 661801050393
child 68 8c88b2caa195
equal deleted inserted replaced
66:661801050393 67:33caed66cee4
   579 ;;      "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B" "-d" "US-xlg") nil iso-8859-1)
   579 ;;      "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B" "-d" "US-xlg") nil iso-8859-1)
   580 ;;    )
   580 ;;    )
   581 ;; )
   581 ;; )
   582 
   582 
   583 ;; ======================================================================
   583 ;; ======================================================================
   584 ;; Organize, todo mode.
   584 ;; GTD, PIM, organize, todo mode.
   585 
   585 
   586 ;; ----------------------------------------------------------------------
   586 ;; ----------------------------------------------------------------------
   587 ;; org-mode
   587 ;; org-mode
   588 
       
   589 
       
   590 ;; XXX org-todo-keywords '((sequence "TODO" "START" "|" "DONE")) для org-version 4.67c
   588 ;; XXX org-todo-keywords '((sequence "TODO" "START" "|" "DONE")) для org-version 4.67c
   591 ;; XXX (setq org-todo-keywords '("TODO" "START" "DONE")) для org-version 6.05b
   589 ;; XXX (setq org-todo-keywords '("TODO" "START" "DONE")) для org-version 6.05b
   592 (if (featurep 'org)
   590 (if (featurep 'org)
   593     (progn
   591     (progn
   594       (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
   592       (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
   599             org-agenda-show-all-dates t
   597             org-agenda-show-all-dates t
   600             org-agenda-skip-deadline-if-done t
   598             org-agenda-skip-deadline-if-done t
   601             org-agenda-skip-scheduled-if-done t
   599             org-agenda-skip-scheduled-if-done t
   602             org-agenda-start-on-weekday nil
   600             org-agenda-start-on-weekday nil
   603             org-reverse-note-order t
   601             org-reverse-note-order t
   604             org-remember-store-without-prompt t)
   602             org-remember-store-without-prompt t
       
   603             org-tags-column 64
       
   604             )
   605       (setq org-agenda-files '("~/.gtd/todo.org")) ))
   605       (setq org-agenda-files '("~/.gtd/todo.org")) ))
   606 
   606 
   607 ;; ----------------------------------------------------------------------
   607 ;; ----------------------------------------------------------------------
   608 ;; TODO, XXX, FIXME highlight.
   608 ;; TODO, XXX, FIXME highlight.
   609 ;; Show blanks and FIXME
   609 ;; Show blanks and FIXME