# HG changeset patch # User Oleksandr Gavenko # Date 1459522530 -10800 # Node ID 5959fa99a6f7f36a9af5bd05d35ddde204d58a6b # Parent 313e428cf77cdc890b40caba4469cbd6cf8b0a17 Unconditionally enable Org mode. diff -r 313e428cf77c -r 5959fa99a6f7 .emacs-my --- a/.emacs-my Fri Apr 01 17:40:12 2016 +0300 +++ b/.emacs-my Fri Apr 01 17:55:30 2016 +0300 @@ -1571,86 +1571,85 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (message "org-mode, GTD, PIM, organize, todo") -(when (>= emacs-major-version 22) - (require 'org)) +(require 'org) +(require 'org-capture nil t) + +(eval-when 'compile + (require 'org-agenda) + (require 'org-archive) + (require 'remember nil t)) ;; XXX org-todo-keywords '((sequence "TODO" "START" "|" "DONE")) for org-version 4.67c -(when (or (featurep 'org) (featurep 'org-install)) - (add-to-list 'auto-mode-alist '("\\.org$" . org-mode)) - (setq org-directory "~/my/gtd") - (setq - org-agenda-ndays 31 - org-deadline-warning-days 7 - org-agenda-show-all-dates t - org-agenda-format-date "%Y-%m-%d, %A %e %B" - org-agenda-skip-deadline-if-done t - org-agenda-skip-scheduled-if-done t - org-agenda-start-on-weekday nil - org-reverse-note-order t - org-hide-leading-stars t - org-tags-column 64 - org-archive-save-context-info '(time file olpath todo itags) - ) - (setq my-org-agenda-todo-file (concat org-directory "/TODO.org")) - (setq my-org-agenda-note-file (concat org-directory "/NOTE.org")) - (setq org-agenda-file-regexp "\\`[^.#].*[^_]\\.org\\'" - org-agenda-files (list org-directory)) - ;; (setq my-org-agenda-learning-file (concat org-directory "/LEARNING.org")) - ;; (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file ,my-org-agenda-learning-file)) - (define-key global-map "\C-va" 'org-agenda) - (define-key global-map "\C-ve" (lambda nil (interactive) (find-file my-org-agenda-note-file))) - - (setq org-todo-keywords '("|" "DONE")) - - ;; My tags for remember buffer. - (setq org-tag-alist - '( - ("ADMIN" . ?a) - ("BLOG" . ?b) - ("DEVEL" . ?d) - ("HOME" . ?h) - ("GET" . ?g) - ("LIFE" . ?l) - ("MAIL" . ?m) - ("JOB" . ?j) - ("QUESTION" . ?q) - ("PROJECT" . ?p) - ("READ" . ?r) - ("SEE" . ?s) +(add-to-list 'auto-mode-alist '("\\.org$" . org-mode)) +(setq org-directory "~/my/gtd") +(setq + org-agenda-ndays 31 + org-deadline-warning-days 7 + org-agenda-show-all-dates t + org-agenda-format-date "%Y-%m-%d, %A %e %B" + org-agenda-skip-deadline-if-done t + org-agenda-skip-scheduled-if-done t + org-agenda-start-on-weekday nil + org-reverse-note-order t + org-hide-leading-stars t + org-tags-column 64 + org-archive-save-context-info '(time file olpath todo itags) + ) +(setq my-org-agenda-todo-file (concat org-directory "/TODO.org")) +(setq my-org-agenda-note-file (concat org-directory "/NOTE.org")) +(setq org-agenda-file-regexp "\\`[^.#].*[^_]\\.org\\'" + org-agenda-files (list org-directory)) +;; (setq my-org-agenda-learning-file (concat org-directory "/LEARNING.org")) +;; (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file ,my-org-agenda-learning-file)) +(define-key global-map "\C-va" 'org-agenda) +(define-key global-map "\C-ve" (lambda nil (interactive) (find-file my-org-agenda-note-file))) + +(setq org-todo-keywords '("|" "DONE")) + +;; My tags for remember buffer. +(setq org-tag-alist + '( + ("ADMIN" . ?a) + ("BLOG" . ?b) + ("DEVEL" . ?d) + ("HOME" . ?h) + ("GET" . ?g) + ("LIFE" . ?l) + ("MAIL" . ?m) + ("JOB" . ?j) + ("QUESTION" . ?q) + ("PROJECT" . ?p) + ("READ" . ?r) + ("SEE" . ?s) + )) +;; With this variable tags duplicated in *Org Tags* menu. I use +;; `org-tag-alist' instead until bug fixed. +(setq org-tag-persistent-alist nil) + +(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) )) - ;; With this variable tags duplicated in *Org Tags* menu. I use - ;; `org-tag-alist' instead until bug fixed. - (setq org-tag-persistent-alist nil) - - (setq org-support-shift-select t) - - (when (>= emacs-major-version 24) - (require 'org-capture)) - - (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-remember-store-without-prompt t) + (org-remember-insinuate) + )) (defun my/org-archive-location (path) "For given PATH make path to archive. Currently add undescore diff -r 313e428cf77c -r 5959fa99a6f7 .emacs-obsolete --- a/.emacs-obsolete Fri Apr 01 17:40:12 2016 +0300 +++ b/.emacs-obsolete Fri Apr 01 17:55:30 2016 +0300 @@ -91,3 +91,12 @@ (when (not (window-system)) (xterm-mouse-mode +1)) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(message "org-mode, GTD, PIM, organize, todo") + +(when (>= emacs-major-version 22) + (require 'org)) + +(when (or (featurep 'org) (featurep 'org-install)) + (message "Many lines here...")) +