.emacs-obsolete
changeset 1376 52d43b70cc7c
parent 1375 5959fa99a6f7
child 1378 892deca62b56
equal deleted inserted replaced
1375:5959fa99a6f7 1376:52d43b70cc7c
    98   (require 'org))
    98   (require 'org))
    99 
    99 
   100 (when (or (featurep 'org) (featurep 'org-install))
   100 (when (or (featurep 'org) (featurep 'org-install))
   101   (message "Many lines here..."))
   101   (message "Many lines here..."))
   102 
   102 
       
   103 (cond
       
   104  ((featurep 'org-capture)
       
   105   (setq org-default-notes-file my-org-agenda-todo-file)
       
   106   (setq org-capture-templates
       
   107         '(("t" "Todo" entry (file my-org-agenda-todo-file) "* %?\n  SCHEDULED: %T")))
       
   108   (define-key global-map "\C-vr"
       
   109     (lambda () (interactive) (org-capture nil "t")))
       
   110   )
       
   111  ((or (featurep 'remember) (fboundp 'remember))
       
   112   (setq remember-annotation-functions '(org-remember-annotation))
       
   113   (setq remember-handler-functions '(org-remember-handler))
       
   114   (add-hook 'remember-mode-hook 'org-remember-apply-template)
       
   115   (define-key global-map "\C-vr" 'org-remember)
       
   116   (setq org-remember-templates
       
   117         ;; With one item org-mode do not prompt choose template.
       
   118         `(
       
   119           ("todo" ?t "* TODO %?" ,my-org-agenda-todo-file)
       
   120           ;; ("note" ?n "* %?\n" ,my-org-agenda-note-file)
       
   121           ))
       
   122   (setq org-remember-store-without-prompt t)
       
   123   (org-remember-insinuate)
       
   124   ))