Mercurial Mercurial > dot-emacs / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Exclusively use "org-capture". Although it is not available on Emacs 23 but I
authorOleksandr Gavenko <gavenkoa@gmail.com>
Fri, 01 Apr 2016 18:00:50 +0300
changeset 1376 52d43b70cc7c
parent 1375 5959fa99a6f7
child 1377 04728230f16b
Exclusively use "org-capture". Although it is not available on Emacs 23 but I don't need fallback to external remember mode.
.emacs-my file | annotate | diff | comparison | revisions
.emacs-obsolete file | annotate | diff | comparison | revisions 
--- a/.emacs-my	Fri Apr 01 17:55:30 2016 +0300
+++ b/.emacs-my	Fri Apr 01 18:00:50 2016 +0300
@@ -1576,8 +1576,7 @@
 
 (eval-when 'compile
   (require 'org-agenda)
-  (require 'org-archive)
-  (require 'remember nil t))
+  (require 'org-archive))
 
 ;; XXX org-todo-keywords '((sequence "TODO" "START" "|" "DONE")) for org-version 4.67c
 (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
@@ -1628,28 +1627,11 @@
 
 (setq org-support-shift-select t)
 
-(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)
-  ))
+(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")))
 
 (defun my/org-archive-location (path)
   "For given PATH make path to archive. Currently add undescore
--- 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)
+  ))
dot-emacs