Archived
1
0
Fork 0

disable flyspell (for now) due to performance issues ; re-work agendas to be more meaningful

This commit is contained in:
KemoNine 2022-08-25 18:52:29 -04:00
parent 3289b8a202
commit 579d0be5c5
3 changed files with 136 additions and 126 deletions

View file

@ -395,40 +395,40 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; flyspell ; flyspell
(require 'flyspell) ;(require 'flyspell)
(setenv "LANG" "en_US") ;(setenv "LANG" "en_US")
;(setenv "DICPATH" "~/.emacs.d.profiles/common/dictionaries") ; https://github.com/wooorm/dictionaries ;(setenv "DICPATH" "~/.emacs.d.profiles/common/dictionaries") ; https://github.com/wooorm/dictionaries
(setq ispell-program-name "hunspell") ;(setq ispell-program-name "hunspell")
(setq ispell-dictionary "en_US") ;(setq ispell-dictionary "en_US")
;
(global-set-key (kbd "C-c y") 'flyspell-toggle ) ;(global-set-key (kbd "C-c y") 'flyspell-toggle )
;
(defun flyspell-on-for-buffer-type () ;(defun flyspell-on-for-buffer-type ()
"Enable Flyspell appropriately for the major mode of the current buffer. Uses `flyspell-prog-mode' for modes derived from `prog-mode', so only strings and comments get checked. All other buffers get `flyspell-mode' to check all text. If flyspell is already enabled, does nothing." ; "Enable Flyspell appropriately for the major mode of the current buffer. Uses `flyspell-prog-mode' for modes derived from `prog-mode', so only strings and comments get checked. All other buffers get `flyspell-mode' to check all text. If flyspell is already enabled, does nothing."
(interactive) ; (interactive)
(if (not (symbol-value flyspell-mode)) ; if not already on ; (if (not (symbol-value flyspell-mode)) ; if not already on
(progn ; (progn
(if (derived-mode-p 'prog-mode) ; (if (derived-mode-p 'prog-mode)
(progn ; (progn
(message "Flyspell on (code)") ; (message "Flyspell on (code)")
(flyspell-prog-mode)) ; (flyspell-prog-mode))
;; else ; ;; else
(progn ; (progn
(message "Flyspell on (text)") ; (message "Flyspell on (text)")
(flyspell-mode 1))) ; (flyspell-mode 1)))
;; I tried putting (flyspell-buffer) here but it didn't seem to work ; ;; I tried putting (flyspell-buffer) here but it didn't seem to work
))) ; )))
;
(defun flyspell-toggle () ; (defun flyspell-toggle ()
"Turn Flyspell on if it is off, or off if it is on. When turning on, it uses `flyspell-on-for-buffer-type' so code-vs-text is handled appropriately." ; "Turn Flyspell on if it is off, or off if it is on. When turning on, it uses `flyspell-on-for-buffer-type' so code-vs-text is handled appropriately."
(interactive) ; (interactive)
(if (symbol-value flyspell-mode) ; (if (symbol-value flyspell-mode)
(progn ; flyspell is on, turn it off ; (progn ; flyspell is on, turn it off
(message "Flyspell off") ; (message "Flyspell off")
(flyspell-mode -1)) ; (flyspell-mode -1))
; else - flyspell is off, turn it on ; ; else - flyspell is off, turn it on
(flyspell-on-for-buffer-type))) ; (flyspell-on-for-buffer-type)))
;
(add-hook 'find-file-hook 'flyspell-on-for-buffer-type) ;(add-hook 'find-file-hook 'flyspell-on-for-buffer-type)
(add-hook 'text-mode-hook 'flyspell-on-for-buffer-type) ;(add-hook 'text-mode-hook 'flyspell-on-for-buffer-type)
(add-hook 'after-change-major-mode-hook 'flyspell-on-for-buffer-type) ;(add-hook 'after-change-major-mode-hook 'flyspell-on-for-buffer-type)

View file

@ -17,8 +17,17 @@
) )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Set some org agendas/dashboards ; org-agenda tuning (view stuff only)
(setq org-agenda-todo-ignore-scheduled 'all) (setq org-agenda-todo-ignore-scheduled 'all)
;; Remove completed deadline tasks from the agenda view
(setq org-agenda-skip-deadline-if-done t)
;; Remove completed scheduled tasks from the agenda view
(setq org-agenda-skip-scheduled-if-done t)
;; Remove completed items from search results
(setq org-agenda-skip-timestamp-if-done t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Set some org agendas/dashboards
(setq org-agenda-sorting-strategy (setq org-agenda-sorting-strategy
'( '(
(agenda habit-down time-up scheduled-down priority-down category-keep) (agenda habit-down time-up scheduled-down priority-down category-keep)
@ -28,61 +37,63 @@
) )
) )
(setq org-agenda-files (list "~/org/_todo.org"
"~/org/_index.org"
"~/org/health/_health.org"
"~/org/health/health_houdini.org"
"~/org/health/health_mike.org"))
(load-org-agenda-files-recursively "~/org/reading")
(setq org-agenda-custom-commands (setq org-agenda-custom-commands
'( '(
("P" "Personal" ("r" "Personal"
( (
(agenda "" ( (agenda "" (
(org-agenda-overriding-header "PERSONAL Agenda") (org-agenda-overriding-header "Personal")
(org-agenda-files (list "~/org/_todo.org"
"~/org/_index.org"
"~/org/health/_health.org"
"~/org/health/health_houdini.org"
"~/org/health/health_mike.org"))
(load-org-agenda-files-recursively "~/org/culinary")
(load-org-agenda-files-recursively "~/org/gaz")
(load-org-agenda-files-recursively "~/org/photography")
(load-org-agenda-files-recursively "~/org/reading")
)) ))
(alltodo "*" ( (todo "WIP" (
(org-agenda-overriding-header "PERSONAL To Do List") (org-agenda-overriding-header "WIP")
(org-agenda-files (list "~/org/_todo.org" ))
"~/org/_index.org" (todo "READY" (
"~/org/health/_health.org" (org-agenda-overriding-header "Ready")
"~/org/health/health_houdini.org" ))
"~/org/health/health_mike.org")) (tags-todo "+PRIORITY<\"D\"-STYLE=\"habit\"-TODO=\"WIP\"-TODO=\"READY\"" (
(load-org-agenda-files-recursively "~/org/culinary") (org-agenda-overriding-header "To Do")
(load-org-agenda-files-recursively "~/org/gaz") ))
(load-org-agenda-files-recursively "~/org/photography") (tags-todo "+PRIORITY>=\"D\"-STYLE=\"habit\"-TODO=\"WIP\"-TODO=\"READY\"" (
(load-org-agenda-files-recursively "~/org/reading") (org-agenda-overriding-header "Low Priority")
)) ))
) )
) )
("G" . "Gaming") ("d" "Destiny"
("Gd" "Destiny"
( (
(agenda "" ( (agenda "" (
(org-agenda-start-on-weekday 2) (org-agenda-start-on-weekday 2)
(org-agenda-overriding-header "DESTINY Agenda") (org-agenda-overriding-header "Destiny")
(org-agenda-files (list "~/org/games_destiny.org")) (org-agenda-files (list "~/org/games_destiny.org"))
)) ))
(tags-todo "-crafting-STYLE=\"habit\"" ( (todo "WIP" (
(org-agenda-overriding-header "DESTINY To Do List") (org-agenda-overriding-header "WIP")
(org-agenda-files (list "~/org/games_destiny.org")) (org-agenda-files (list "~/org/games_destiny.org"))
)) ))
(tags-todo "+crafting+weaponleveling" ( (todo "READY" (
(org-agenda-overriding-header "DESTINY Weapon Leveling") (org-agenda-overriding-header "Ready")
(org-agenda-files (list "~/org/games_destiny.org")) (org-agenda-files (list "~/org/games_destiny.org"))
)) ))
(tags-todo "+crafting+resonance" ( (tags-todo "+resonance_needed>0-STYLE=\"habit\"-WIP-READY" (
(org-agenda-overriding-header "DESTINY Weapon Shaping") (org-agenda-overriding-header "Weapon Shaping")
(org-agenda-files (list "~/org/games_destiny.org")) (org-agenda-files (list "~/org/games_destiny.org"))
)) ))
(tags-todo "+crafting+weaponupgrade" ( (tags-todo "+resonance_needed<=0+level_at_all_perks_or_higher<>\"true\"-STYLE=\"habit\"-TODO=\"WIP\"-TODO=\"READY\"" (
(org-agenda-overriding-header "DESTINY Weapon Upgrades") (org-agenda-overriding-header "Weapon Leveling")
(org-agenda-files (list "~/org/games_destiny.org"))
))
(tags-todo "+resonance_needed<=0+level_at_all_perks_or_higher=\"true\"+masterworked<>\"true\"-STYLE=\"habit\"-TODO=\"WIP\"-TODO=\"READY\"" (
(org-agenda-overriding-header "Weapon Upgrades")
(org-agenda-files (list "~/org/games_destiny.org")) (org-agenda-files (list "~/org/games_destiny.org"))
)) ))
) )
) )
("o" . "Photography")
) )
) )

View file

@ -97,12 +97,11 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; files ; files
(setq org-default-notes-file "~/org/_index.org") (setq org-default-notes-file "~/org/_index.org")
(setq org-agenda-file-regexp "\\`[^.].*\\.org\\'")
;; Collect all .org from my Org directory and subdirs
(setq org-agenda-file-regexp "\\`[^.].*\\.org\\'") ; default value
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; agendas ; agendas
(setq org-agenda-sticky t)
(load "~/.emacs.d.profiles/org/config-org-agendas.el") (load "~/.emacs.d.profiles/org/config-org-agendas.el")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;