.emacs-my
changeset 588 aa917b11ffef
parent 587 ad59879d4891
child 589 d82530e4f0a6
equal deleted inserted replaced
587:ad59879d4891 588:aa917b11ffef
   855 ;(add-hook 'text-mode-hook 'flyspell-mode)
   855 ;(add-hook 'text-mode-hook 'flyspell-mode)
   856 ;(setq flyspell-default-dictionary "russianw")
   856 ;(setq flyspell-default-dictionary "russianw")
   857 ;(setq flyspell-delay '1)
   857 ;(setq flyspell-delay '1)
   858 
   858 
   859 ;;; ----------------------------------------------------------------
   859 ;;; ----------------------------------------------------------------
   860 (message "GTD, PIM, organize, todo mode")
   860 (message "remember-mode")
   861 
   861 
   862 ;;; ----------------------------------------------------------------
   862 (when (>= emacs-major-version 23)
   863 (message "org-mode")
   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 
       
   879 ;;; ----------------------------------------------------------------
       
   880 (message "org-mode, GTD, PIM, organize, todo")
   864 
   881 
   865 (when (>= emacs-major-version 22)
   882 (when (>= emacs-major-version 22)
   866   (require 'org)
   883   (require 'org)
   867   )
   884   )
   868 
   885 
   889       ;; (setq org-todo-keyword-faces
   906       ;; (setq org-todo-keyword-faces
   890       ;;       '(("TODO" . (:foreground "red" :weight bold))
   907       ;;       '(("TODO" . (:foreground "red" :weight bold))
   891       ;;         ("WAIT" . (:foreground "orange" :weight bold))
   908       ;;         ("WAIT" . (:foreground "orange" :weight bold))
   892       ;;         ("DONE" . (:foreground "green" :weight bold))) )
   909       ;;         ("DONE" . (:foreground "green" :weight bold))) )
   893       ))
   910       ))
   894 
       
   895 ;;; ----------------------------------------------------------------
       
   896 (message "remember-mode")
       
   897 
       
   898 (when (>= emacs-major-version 23)
       
   899   (require 'remember))
       
   900 (when
       
   901     (or (featurep 'remember) (fboundp 'remember))
       
   902   (progn
       
   903     (setq remember-annotation-functions '(org-remember-annotation))
       
   904     (setq remember-handler-functions '(org-remember-handler))
       
   905     (add-hook 'remember-mode-hook 'org-remember-apply-template)
       
   906     (define-key global-map "\C-cr" 'org-remember)
       
   907     (setq org-remember-templates
       
   908           ;; With one item emacs do not prompt choose template.
       
   909           '((?t "* TODO %?" "~/.gtd/todo.org")
       
   910             ;; (?j "* %^{topic}\n  %T\n" "~/.gtd/journal.org")
       
   911             ))
       
   912     (setq org-remember-store-without-prompt t)
       
   913     ))
       
   914 
   911 
   915 ;;; ----------------------------------------------------------------
   912 ;;; ----------------------------------------------------------------
   916 (message "TODO, XXX, FIXME highlight")
   913 (message "TODO, XXX, FIXME highlight")
   917 ;; Show blanks and FIXME
   914 ;; Show blanks and FIXME
   918 ;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule
   915 ;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule