From 404c901c3ad85458e4ec171782a1b5020d3f04bb Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 2 Jan 2013 21:35:14 -0500 Subject: config file cleanup --- conf/om.el | 94 +++++++++++++++++++++++++++++++------------------------------- 1 file changed, 47 insertions(+), 47 deletions(-) (limited to 'conf/om.el') diff --git a/conf/om.el b/conf/om.el index 00cdf04..333d553 100644 --- a/conf/om.el +++ b/conf/om.el @@ -6,7 +6,7 @@ (setq org-todo-keywords '((sequence "TODO" "STARTED" "|" "DONE" "NA"))) -;(setq org-agenda-files (list "~/notes/tasks.org")) + ;(setq org-agenda-files (list "~/notes/tasks.org")) ;; next 6 lines merged from prelude-org (global-set-key "\C-cl" 'org-store-link) @@ -14,22 +14,22 @@ (global-set-key "\C-cb" 'org-iswitchb) (setq org-log-done t) (defun prelude-org-mode-defaults () - (electric-indent-mode -1)) + (electric-indent-mode -1)) ;; allow for file to end in txt (add-to-list 'auto-mode-alist '("\\.org.txt$" . org-mode)) ;; set up capture -;(setq org-default-notes-file (expand-file-name "~/notes/tasks.org")) +;; (setq org-default-notes-file (expand-file-name "~/notes/tasks.org")) (setq org-capture-templates '(("c" "cal" entry (file+headline "~/notes/calendar.org" "misc") - "* %?") - ("t" "Todo" entry (file+headline "~/notes/tasks.org" "To file") - "* TODO %?") - ("m" "mail todo" entry (file+headline "~/notes/tasks.org" "mail") - "* TODO %?\nSource: %u, %c\n%i") - ("d" "mail date" entry (file+headline "~/notes/calendar.org" "mail") - "* %?\nSource: %u, %c\n%i"))) + "* %?") + ("t" "Todo" entry (file+headline "~/notes/tasks.org" "To file") + "* TODO %?") + ("m" "mail todo" entry (file+headline "~/notes/tasks.org" "mail") + "* TODO %?\nSource: %u, %c\n%i") + ("d" "mail date" entry (file+headline "~/notes/calendar.org" "mail") + "* %?\nSource: %u, %c\n%i"))) ;; for mutt capture (require 'org-protocol) @@ -41,11 +41,11 @@ (defadvice org-capture-finalize (after delete-frame-at-end activate) "Delete frame at capture finalization" (progn (if my-org-protocol-flag (delete-frame)) - (setq my-org-protocol-flag nil))) + (setq my-org-protocol-flag nil))) (defadvice org-capture-kill (after delete-frame-at-end activate) "Delete frame at capture abort" (progn (if my-org-protocol-flag (delete-frame)) - (setq my-org-protocol-flag nil))) + (setq my-org-protocol-flag nil))) (defadvice org-protocol-capture (before set-org-protocol-flag activate) (setq my-org-protocol-flag t)) @@ -53,7 +53,7 @@ '(org-agenda-files (quote ("~/notes/calendar.org" "~/notes/tasks.org"))) '(org-default-notes-file "~/notes/tasks.org") '(org-agenda-ndays 7) -; '(org-deadline-warning-days 14) +;; '(org-deadline-warning-days 14) '(org-agenda-show-all-dates t) '(org-agenda-skip-deadline-if-done t) '(org-agenda-skip-scheduled-if-done t) @@ -62,19 +62,19 @@ '(org-fast-tag-selection-single-key (quote expert)) '(org-agenda-custom-commands (quote (("d" todo "DONE" nil) - ("s" todo "STARTED" nil) - ("A" agenda "" - ((org-agenda-skip-function - (lambda nil - (org-agenda-skip-entry-if (quote notregexp) "\\=.*\\[#A\\]"))) - (org-agenda-ndays 1) - (org-agenda-overriding-header "Today's Priority #A tasks: "))) - ("u" alltodo "" - ((org-agenda-skip-function - (lambda nil - (org-agenda-skip-entry-if (quote scheduled) (quote deadline) - (quote regexp) "\n]+>"))) - (org-agenda-overriding-header "Unscheduled TODO entries: "))))))) + ("s" todo "STARTED" nil) + ("A" agenda "" + ((org-agenda-skip-function + (lambda nil + (org-agenda-skip-entry-if (quote notregexp) "\\=.*\\[#A\\]"))) + (org-agenda-ndays 1) + (org-agenda-overriding-header "Today's Priority #A tasks: "))) + ("u" alltodo "" + ((org-agenda-skip-function + (lambda nil + (org-agenda-skip-entry-if (quote scheduled) (quote deadline) + (quote regexp) "\n]+>"))) + (org-agenda-overriding-header "Unscheduled TODO entries: "))))))) ;; other customization in prelude's org module @@ -111,10 +111,10 @@ (always-insert-item) (evil-append nil) )) - ; mark a TODO item as DONE - ; s - status + ; mark a TODO item as DONE + ; s - status (evil-define-key 'normal org-mode-map ",s" 'org-todo) - ;change bullet style + ;change bullet style (evil-define-key 'normal org-mode-map "-" 'org-cycle-list-bullet) ;; (evil-define-key 'normal org-mode-map "L" 'org-shiftright) ;; (evil-define-key 'normal org-mode-map "H" 'org-shiftleft) @@ -129,32 +129,32 @@ (evil-define-key 'normal org-mode-map (kbd "M-K") 'org-shiftmetaup) (evil-define-key 'normal org-mode-map (kbd "M-J") 'org-shiftmetadown) -;; ;;; org agenda -- leave in emacs mode but add j & k -;; (define-key org-agenda-mode-map "j" 'evil-next-line) -;; (define-key org-agenda-mode-map "k" 'evil-previous-line)) - )) + ;; ;;; org agenda -- leave in emacs mode but add j & k + ;; (define-key org-agenda-mode-map "j" 'evil-next-line) + ;; (define-key org-agenda-mode-map "k" 'evil-previous-line)) + )) -; from http://doc.norang.ca/org-mode.html +;; from http://doc.norang.ca/org-mode.html (setq org-refile-targets (quote ((nil :maxlevel . 5) (org-agenda-files :maxlevel . 5)))) -; Stop using paths for refile targets - we file directly with IDO +;; Stop using paths for refile targets - we file directly with IDO (setq org-refile-use-outline-path nil) -; Targets complete directly with IDO +;; Targets complete directly with IDO (setq org-outline-path-complete-in-steps nil) -; Allow refile to create parent tasks with confirmation +;; Allow refile to create parent tasks with confirmation (setq org-refile-allow-creating-parent-nodes (quote confirm)) -; Use IDO for both buffer and file completion and ido-everywhere to t +;; Use IDO for both buffer and file completion and ido-everywhere to t (setq org-completion-use-ido t) (setq ido-everywhere t) (setq ido-max-directory-size 100000) (ido-mode (quote both)) ;;;; Refile settings -; Exclude DONE state tasks from refile targets +;; Exclude DONE state tasks from refile targets (defun bh/verify-refile-target () "Exclude todo keywords with a done state from refile targets" (not (member (nth 2 (org-heading-components)) org-done-keywords))) @@ -164,14 +164,14 @@ ;; set up babel languages (org-babel-do-load-languages 'org-babel-load-languages - '( (perl . t) - (sh . t) - (python . t) - (R . t) - (emacs-lisp . t) - (latex . t) - (ditaa . t) - )) + '( (perl . t) + (sh . t) + (python . t) + (R . t) + (emacs-lisp . t) + (latex . t) + (ditaa . t) + )) ;; don't ask for confirmation before running code (setq org-confirm-babel-evaluate nil) -- cgit v1.2.3