# HG changeset patch # User Oleksandr Gavenko # Date 1459522850 -10800 # Node ID 52d43b70cc7c81c86a6a10f67ab611cc689d163b # Parent 5959fa99a6f7f36a9af5bd05d35ddde204d58a6b Exclusively use "org-capture". Although it is not available on Emacs 23 but I don't need fallback to external remember mode. diff -r 5959fa99a6f7 -r 52d43b70cc7c .emacs-my --- 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 diff -r 5959fa99a6f7 -r 52d43b70cc7c .emacs-obsolete --- 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) + ))