.emacs-obsolete
changeset 1376 52d43b70cc7c
parent 1375 5959fa99a6f7
child 1378 892deca62b56
--- 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)
+  ))