From 2a61250019176993e0f422f80d84338fe45506f5 Mon Sep 17 00:00:00 2001
From: KemoNine <kemonine@kemonine.info>
Date: Fri, 26 Aug 2022 15:58:28 -0400
Subject: [PATCH] tune org setup so habits are separate from todos to help fix
 performance issues ; tweaked flyspell to ignore org-agenda ; mild cleanup of
 location of agenda tuning for org

---
 common/_global.el         |  2 +-
 org/config-org-agendas.el | 19 ++++++++++++++-----
 org/config-org-desktop.el |  2 +-
 org/config-org-mobile.el  |  3 ++-
 org/init.el               |  2 --
 5 files changed, 18 insertions(+), 10 deletions(-)

diff --git a/common/_global.el b/common/_global.el
index 6b8f55d..eabf3ca 100644
--- a/common/_global.el
+++ b/common/_global.el
@@ -324,7 +324,7 @@
   (defun flyspell-most-modes() 
     (add-hook 'text-mode-hook (lambda () (flyspell-mode 1) )) 
     (add-hook 'prog-mode-hook (lambda () (flyspell-mode 1) ))
-    (dolist (hook '(change-log-mode-hook log-edit-mode-hook)) 
+    (dolist (hook '(change-log-mode-hook log-edit-mode-hook org-agenda)) 
       (add-hook hook (lambda () 
                        (flyspell-mode -1))))) 
   (flyspell-most-modes) 
diff --git a/org/config-org-agendas.el b/org/config-org-agendas.el
index d59cb6b..29cd789 100644
--- a/org/config-org-agendas.el
+++ b/org/config-org-agendas.el
@@ -25,6 +25,8 @@
 (setq org-agenda-skip-scheduled-if-done t)
 ;; Remove completed items from search results
 (setq org-agenda-skip-timestamp-if-done t)
+;; dont tend to care about tag inheritance outside of search
+(setq org-agenda-use-tag-inheritance nil)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; Set some org agendas/dashboards
@@ -37,12 +39,15 @@
      )
 )
 
-(setq org-agenda-files (list "~/org/_todo.org"
+(setq org-agenda-file-regexp "\\`[^.].*\\.org\\'")
+(setq org-agenda-files (list 
     "~/org/_index.org"
+    "~/org/_todo.org"
     "~/org/health/_health.org"
     "~/org/health/health_houdini.org"
     "~/org/health/health_mike.org"
-    "~/org/reading/_reading.org"))
+))
+
 
 (setq org-agenda-custom-commands
       '(
@@ -51,13 +56,17 @@
                   (agenda "" (
                       (org-agenda-overriding-header "Personal")
                   ))
-                  (todo "WIP" (
+                  (agenda "" (
+                      (org-agenda-overriding-header "Habits")
+                      (org-agenda-files (list "~/org/_habits.org"))
+                  ))
+                  (todo "+WIP-STYLE=\"habit\"" (
                       (org-agenda-overriding-header "WIP")
                   ))
-                  (todo "READY" (
+                  (todo "+READY-STYLE=\"habit\"" (
                       (org-agenda-overriding-header "Ready")
                   ))
-                  (tags-todo "+PRIORITY<\"D\"-STYLE=\"habit\"-TODO=\"WIP\"-TODO=\"READY\"" (
+                  (tags-todo "+PRIORITY<\"D\"-STYLE=\"habit\"" (
                       (org-agenda-overriding-header "To Do")
                   ))
                   (tags-todo "+PRIORITY>=\"D\"-STYLE=\"habit\"-TODO=\"WIP\"-TODO=\"READY\"" (
diff --git a/org/config-org-desktop.el b/org/config-org-desktop.el
index fa16521..d16342f 100644
--- a/org/config-org-desktop.el
+++ b/org/config-org-desktop.el
@@ -13,7 +13,7 @@
     (delete-other-windows)
     (split-window-below 15)
     (next-multiframe-window)
-    (find-file "~/org/_index_phone.org")
+    (find-file "~/org/_habits.org")
     (find-file "~/org/_todo.org")
     (find-file "~/org/_index.org")
   )
diff --git a/org/config-org-mobile.el b/org/config-org-mobile.el
index 26e6012..7747091 100644
--- a/org/config-org-mobile.el
+++ b/org/config-org-mobile.el
@@ -2,11 +2,12 @@
 ;; /data/data/com.termux/files/home/storage/shared/.emacs
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; Open main files used as 'gateway' to everything else (Mobile)
+(find-file "~/storage/shared/org/_habits.org")
 (find-file "~/storage/shared/org/_todo.org")
 (find-file "~/storage/shared/org/_index.org")
 
 ; Personal startup screen - orgmode agenda with all TODO (Mobile)
-(add-hook 'after-init-hook (lambda () (org-agenda nil "P")))
+(add-hook 'after-init-hook (lambda () (org-agenda nil "r")))
 
 ; Make sure emacs and org don't keep opening new windows (Mobile)
 ; Not enough screen real estate with on screen keyboards for that
diff --git a/org/init.el b/org/init.el
index 3580232..6d122af 100644
--- a/org/init.el
+++ b/org/init.el
@@ -64,7 +64,6 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; Update/add auto file handling
 (add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
-(add-to-list 'auto-mode-alist '("\\.epub\\'" . nov-mode))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; keyboard shortcuts
@@ -90,7 +89,6 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; files
 (setq org-default-notes-file "~/org/_index.org")
-(setq org-agenda-file-regexp "\\`[^.].*\\.org\\'")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; agendas