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

This commit is contained in:
KemoNine 2022-08-26 15:58:28 -04:00
parent 40687da612
commit 2a61250019
5 changed files with 18 additions and 10 deletions

View File

@ -324,7 +324,7 @@
(defun flyspell-most-modes() (defun flyspell-most-modes()
(add-hook 'text-mode-hook (lambda () (flyspell-mode 1) )) (add-hook 'text-mode-hook (lambda () (flyspell-mode 1) ))
(add-hook 'prog-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 () (add-hook hook (lambda ()
(flyspell-mode -1))))) (flyspell-mode -1)))))
(flyspell-most-modes) (flyspell-most-modes)

View File

@ -25,6 +25,8 @@
(setq org-agenda-skip-scheduled-if-done t) (setq org-agenda-skip-scheduled-if-done t)
;; Remove completed items from search results ;; Remove completed items from search results
(setq org-agenda-skip-timestamp-if-done t) (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 ; 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/_index.org"
"~/org/_todo.org"
"~/org/health/_health.org" "~/org/health/_health.org"
"~/org/health/health_houdini.org" "~/org/health/health_houdini.org"
"~/org/health/health_mike.org" "~/org/health/health_mike.org"
"~/org/reading/_reading.org")) ))
(setq org-agenda-custom-commands (setq org-agenda-custom-commands
'( '(
@ -51,13 +56,17 @@
(agenda "" ( (agenda "" (
(org-agenda-overriding-header "Personal") (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") (org-agenda-overriding-header "WIP")
)) ))
(todo "READY" ( (todo "+READY-STYLE=\"habit\"" (
(org-agenda-overriding-header "Ready") (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") (org-agenda-overriding-header "To Do")
)) ))
(tags-todo "+PRIORITY>=\"D\"-STYLE=\"habit\"-TODO=\"WIP\"-TODO=\"READY\"" ( (tags-todo "+PRIORITY>=\"D\"-STYLE=\"habit\"-TODO=\"WIP\"-TODO=\"READY\"" (

View File

@ -13,7 +13,7 @@
(delete-other-windows) (delete-other-windows)
(split-window-below 15) (split-window-below 15)
(next-multiframe-window) (next-multiframe-window)
(find-file "~/org/_index_phone.org") (find-file "~/org/_habits.org")
(find-file "~/org/_todo.org") (find-file "~/org/_todo.org")
(find-file "~/org/_index.org") (find-file "~/org/_index.org")
) )

View File

@ -2,11 +2,12 @@
;; /data/data/com.termux/files/home/storage/shared/.emacs ;; /data/data/com.termux/files/home/storage/shared/.emacs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Open main files used as 'gateway' to everything else (Mobile) ; 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/_todo.org")
(find-file "~/storage/shared/org/_index.org") (find-file "~/storage/shared/org/_index.org")
; Personal startup screen - orgmode agenda with all TODO (Mobile) ; 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) ; Make sure emacs and org don't keep opening new windows (Mobile)
; Not enough screen real estate with on screen keyboards for that ; Not enough screen real estate with on screen keyboards for that

View File

@ -64,7 +64,6 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Update/add auto file handling ; Update/add auto file handling
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode)) (add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(add-to-list 'auto-mode-alist '("\\.epub\\'" . nov-mode))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; keyboard shortcuts ; keyboard shortcuts
@ -90,7 +89,6 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; files ; files
(setq org-default-notes-file "~/org/_index.org") (setq org-default-notes-file "~/org/_index.org")
(setq org-agenda-file-regexp "\\`[^.].*\\.org\\'")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; agendas ; agendas