--- a/.emacs-obsolete Fri Apr 01 17:55:30 2016 +0300
+++ b/.emacs-obsolete Fri Apr 01 18:00:50 2016 +0300
@@ -100,3 +100,25 @@
(when (or (featurep 'org) (featurep 'org-install))
(message "Many lines here..."))
+(cond
+ ((featurep 'org-capture)
+ (setq org-default-notes-file my-org-agenda-todo-file)
+ (setq org-capture-templates
+ '(("t" "Todo" entry (file my-org-agenda-todo-file) "* %?\n SCHEDULED: %T")))
+ (define-key global-map "\C-vr"
+ (lambda () (interactive) (org-capture nil "t")))
+ )
+ ((or (featurep 'remember) (fboundp 'remember))
+ (setq remember-annotation-functions '(org-remember-annotation))
+ (setq remember-handler-functions '(org-remember-handler))
+ (add-hook 'remember-mode-hook 'org-remember-apply-template)
+ (define-key global-map "\C-vr" 'org-remember)
+ (setq org-remember-templates
+ ;; With one item org-mode do not prompt choose template.
+ `(
+ ("todo" ?t "* TODO %?" ,my-org-agenda-todo-file)
+ ;; ("note" ?n "* %?\n" ,my-org-agenda-note-file)
+ ))
+ (setq org-remember-store-without-prompt t)
+ (org-remember-insinuate)
+ ))