From cb56e48805ae897d9fab5a269adbb817fdf42223 Mon Sep 17 00:00:00 2001
From: Bobby Bingham <koorogi@koorogi.info>
Date: Sat, 14 Sep 2019 18:09:53 -0500
Subject: emacs: major rewrite of config

---
 emacs/.emacs.d/org-mode.el | 76 ----------------------------------------------
 1 file changed, 76 deletions(-)
 delete mode 100644 emacs/.emacs.d/org-mode.el

(limited to 'emacs/.emacs.d/org-mode.el')

diff --git a/emacs/.emacs.d/org-mode.el b/emacs/.emacs.d/org-mode.el
deleted file mode 100644
index 1828b38..0000000
--- a/emacs/.emacs.d/org-mode.el
+++ /dev/null
@@ -1,76 +0,0 @@
-(require 'org-install)
-
-; initialize these to empty lists so config files we reference can use 'add-to-list',
-; rather than replacing the whole list and possibly trampling on another config file.
-(setq org-agenda-files ())
-(setq org-capture-templates ())
-(setq org-tag-faces ())
-
-(load-user-file "org-mode.local.el")
-
-(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
-(add-to-list 'auto-mode-alist `(,(expand-file-name "~/org/") . org-mode))
-
-(define-key mode-specific-map [?a] 'org-agenda)
-
-(eval-after-load "org"
-  '(progn
-     (define-prefix-command 'org-todo-state-map)
-
-     (define-key org-mode-map "\C-cx" 'org-todo-state-map)
-
-     (define-key org-todo-state-map "x" #'(lambda nil (interactive) (org-todo "CANCELLED")))
-     (define-key org-todo-state-map "d" #'(lambda nil (interactive) (org-todo "DONE")))
-     (define-key org-todo-state-map "f" #'(lambda nil (interactive) (org-todo "DEFERRED")))
-     (define-key org-todo-state-map "l" #'(lambda nil (interactive) (org-todo "DELEGATED")))
-     (define-key org-todo-state-map "s" #'(lambda nil (interactive) (org-todo "STARTED")))
-     (define-key org-todo-state-map "w" #'(lambda nil (interactive) (org-todo "WAITING")))))
-
-(define-key global-map "\C-cc" 'org-capture)
-
-(custom-set-variables
- '(org-agenda-custom-commands
-   '(("h" "Home agenda"
-      ((agenda "")
-       (alltodo ""
-		((org-agenda-skip-function '(org-agenda-skip-if nil '(scheduled deadline)))
-		 (org-agenda-overriding-header "Eventual TODO items:"))))
-      ((org-agenda-tag-filter-preset '("+home"))))
-     ("j" "Work agenda"
-      ((agenda "")
-       (alltodo ""
-		((org-agenda-skip-function '(org-agenda-skip-if nil '(scheduled deadline)))
-		 (org-agenda-overriding-header "Eventual TODO items:"))))
-      ((org-agenda-tag-filter-preset '("-home"))))
-     ("w" todo "WAITING" nil)
-     ("W" agenda "" ((org-agenda-ndays 21)))
-     ("A" agenda ""
-      ((org-agenda-skip-function
-	(lambda nil
-	  (org-agenda-skip-entry-if
-	   (quote notregexp)
-	   "\\=.*\\[#!\\]")))
-       (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)
-	   "
-]+>"))
-       (org-agenda-overriding-header "Unscheduled TODO entries: "))))))
- '(org-agenda-dim-blocked-tasks 'invisible)
- '(org-agenda-ndays 14)
- '(org-agenda-show-all-dates t)
- '(org-agenda-skip-deadline-if-done t)
- '(org-agenda-skip-deadline-prewarning-if-scheduled t)
- '(org-agenda-skip-scheduled-if-done t)
- '(org-agenda-start-on-weekday nil)
- '(org-deadline-warning-days 14)
- '(org-enforce-todo-dependencies t)
- '(org-fast-tag-selection-single-key (quote expert))
- '(org-return-follows-link t)
- '(org-reverse-note-order t))
-- 
cgit v1.2.3