Org agenda improvements!

user/app/doom-emacs/config.el

@@ -818,7 +818,16 @@ tasks."
       org-agenda-skip-scheduled-if-deadline-is-shown t
       org-agenda-skip-timestamp-if-deadline-is-shown t)
 
-;; Toggle comopleted entries function
+;; Custom styles for dates in agenda
+(custom-set-faces!
+  '(org-agenda-date :inherit outline-1 :height 1.15)
+  '(org-agenda-date-today :inherit diary :height 1.15)
+  '(org-agenda-date-weekend :ineherit outline-2 :height  1.15)
+  '(org-agenda-date-weekend-today :inherit outline-4 :height 1.15)
+  )
+
+
+;; Toggle completed entries function
 (defun org-agenda-toggle-completed ()
   (interactive)
   (setq org-agenda-skip-timestamp-if-done (not org-agenda-skip-timestamp-if-done)
@@ -909,47 +918,48 @@ tasks."
 
 (setq org-super-agenda-groups
        '(;; Each group has an implicit boolean OR operator between its selectors.
-         (:name "Home Tech"
+         (:name "Personal"
-                :and(:file-path "emmet/Agenda" :not (:tag "event"))
+                :and(:file-path "Personal.p" :not (:tag "event"))
                 :order 3)
 
          (:name "Family"
-                :and(:file-path "Family" :not (:tag "event"))
+                :and(:file-path "Family.s" :not (:tag "event"))
                 :order 3)
 
-         (:name "Teaching Prep"
+         (:name "Teaching"
-                :and(:file-path "Teaching.p" :tag "planning" :not (:tag "grading") :not (:tag "event"))
+                :and(:file-path "Teaching.p" :not (:tag "event"))
                 :order 3)
 
-         (:name "Teaching Secretarial"
+         (:name "Gamedev"
-                :and(:file-path "Teaching.p" :tag "secretarial" :not (:tag "grading") :not (:tag "event"))
+                :and(:file-path "Gamedev.s" :not (:tag "event"))
                 :order 3)
 
-         (:name "Teaching Grading"
-                :and(:file-path "Teaching.p" :tag "grading" :not (:tag "planning") :not (:tag "event"))
-                :order 3)
-
-         (:name "School Side Projects"
-                :and(:file-path "Teaching.p" :tag "project" :not (:tag "planning") :not (:tag "event"))
-                :order 3)
-
-         (:name "Gamedev Current Projects"
-                :and (:file-path "Gamedev" :todo "STRT")
-                :order 5)
-
          (:name "Youtube"
-                :tag "youtube"
+                :and(:file-path "Producer.p" :not (:tag "event"))
-                :order 6)
+                :order 3)
+
+         (:name "Music"
+                :and(:file-path "Bard.p" :not (:tag "event"))
+                :order 3)
+
+         (:name "Storywriting"
+                :and(:file-path "Stories.s" :not (:tag "event"))
+                :order 3)
+
+         (:name "Writing"
+                :and(:file-path "Author.p" :not (:tag "event"))
+                :order 3)
 
          (:name "Learning"
-                :tag "learning"
+                :and(:file-path "Knowledge.p" :not (:tag "event"))
-                :order 7)
+                :order 3)
 
-          (:name "Today"  ; Optionally specify section name
+          (:name " Today"  ; Optionally specify section name
                 :time-grid t
                 :date today
                 :scheduled today
-                :order 1)
+                :order 1
+                :face 'warning)
 ))
 
 (org-super-agenda-mode t)
@@ -962,6 +972,15 @@ tasks."
       :map org-super-agenda-header-map
       "k" 'org-agenda-previous-line)
 
+(add-load-path! "~/.emacs.d/org-yaap")
+(require 'org-yaap)
+(setq org-yaap-alert-title "Org Agenda")
+(setq org-yaap-overdue-alerts 20)
+(setq org-yaap-alert-before 20)
+(setq org-yaap-daily-alert '(7 30))
+(setq org-yaap-daemon-idle-time 30)
+(org-yaap-mode 1)
+
 ;;;------ magit configuration ------;;;
 
 ;; Need the following two blocks to make magit work with git bare repos

user/app/doom-emacs/doom.nix

@@ -1,4 +1,4 @@
-{ config, lib, pkgs, eaf, eaf-browser, org-nursery, phscroll, theme, font, name, username, email, dotfilesDir, profile, wmType, defaultRoamDir, ... }:
+{ config, lib, pkgs, eaf, eaf-browser, org-nursery, phscroll, org-yaap, theme, font, name, username, email, dotfilesDir, profile, wmType, defaultRoamDir, ... }:
 let
   themePolarity = lib.removeSuffix "\n" (builtins.readFile (./. + "../../../../themes"+("/"+theme)+"/polarity.txt"));
   dashboardLogo = ./. + "/nix-" + themePolarity + ".png";
@@ -69,6 +69,12 @@ in
     source = "${eaf}";
     recursive = true;
   };
+
+  home.file.".emacs.d/org-yaap" = {
+    source = "${org-yaap}";
+    recursive = true;
+  };
+
   home.file.".emacs.d/eaf/app/browser" = {
     source = "${eaf-browser}";
     recursive = true;

user/app/doom-emacs/doom.org

@@ -957,8 +957,7 @@ On Wayland, EAF doesn't work.
 
 #+END_SRC
 ** Org Agenda Configuration
-*** TODO Standard Org Agenda Configuration
+*** Standard Org Agenda Configuration
-I need to automate categories being added to org roam agenda files.
 #+BEGIN_SRC emacs-lisp :tangle config.el
 ;;;------ Org agenda configuration ------;;;
 
@@ -971,7 +970,16 @@ I need to automate categories being added to org roam agenda files.
       org-agenda-skip-scheduled-if-deadline-is-shown t
       org-agenda-skip-timestamp-if-deadline-is-shown t)
 
-;; Toggle comopleted entries function
+;; Custom styles for dates in agenda
+(custom-set-faces!
+  '(org-agenda-date :inherit outline-1 :height 1.15)
+  '(org-agenda-date-today :inherit diary :height 1.15)
+  '(org-agenda-date-weekend :ineherit outline-2 :height  1.15)
+  '(org-agenda-date-weekend-today :inherit outline-4 :height 1.15)
+  )
+
+
+;; Toggle completed entries function
 (defun org-agenda-toggle-completed ()
   (interactive)
   (setq org-agenda-skip-timestamp-if-done (not org-agenda-skip-timestamp-if-done)
@@ -1062,54 +1070,54 @@ I need to automate categories being added to org roam agenda files.
   :nvmeg "<return>" #'org-agenda-switch-with-roam)
 
 #+END_SRC
-*** TODO Org Super Agenda Configuration
+*** Org Super Agenda Configuration
-I need to fix =org-super-agenda-groups= to be more useful and less spread out.
 #+BEGIN_SRC emacs-lisp :tangle config.el
 (require 'org-super-agenda)
 
 (setq org-super-agenda-groups
        '(;; Each group has an implicit boolean OR operator between its selectors.
-         (:name "Home Tech"
+         (:name "Personal"
-                :and(:file-path "emmet/Agenda" :not (:tag "event"))
+                :and(:file-path "Personal.p" :not (:tag "event"))
                 :order 3)
 
          (:name "Family"
-                :and(:file-path "Family" :not (:tag "event"))
+                :and(:file-path "Family.s" :not (:tag "event"))
                 :order 3)
 
-         (:name "Teaching Prep"
+         (:name "Teaching"
-                :and(:file-path "Teaching.p" :tag "planning" :not (:tag "grading") :not (:tag "event"))
+                :and(:file-path "Teaching.p" :not (:tag "event"))
                 :order 3)
 
-         (:name "Teaching Secretarial"
+         (:name "Gamedev"
-                :and(:file-path "Teaching.p" :tag "secretarial" :not (:tag "grading") :not (:tag "event"))
+                :and(:file-path "Gamedev.s" :not (:tag "event"))
                 :order 3)
 
-         (:name "Teaching Grading"
-                :and(:file-path "Teaching.p" :tag "grading" :not (:tag "planning") :not (:tag "event"))
-                :order 3)
-
-         (:name "School Side Projects"
-                :and(:file-path "Teaching.p" :tag "project" :not (:tag "planning") :not (:tag "event"))
-                :order 3)
-
-         (:name "Gamedev Current Projects"
-                :and (:file-path "Gamedev" :todo "STRT")
-                :order 5)
-
          (:name "Youtube"
-                :tag "youtube"
+                :and(:file-path "Producer.p" :not (:tag "event"))
-                :order 6)
+                :order 3)
+
+         (:name "Music"
+                :and(:file-path "Bard.p" :not (:tag "event"))
+                :order 3)
+
+         (:name "Storywriting"
+                :and(:file-path "Stories.s" :not (:tag "event"))
+                :order 3)
+
+         (:name "Writing"
+                :and(:file-path "Author.p" :not (:tag "event"))
+                :order 3)
 
          (:name "Learning"
-                :tag "learning"
+                :and(:file-path "Knowledge.p" :not (:tag "event"))
-                :order 7)
+                :order 3)
 
-          (:name "Today"  ; Optionally specify section name
+          (:name " Today"  ; Optionally specify section name
                 :time-grid t
                 :date today
                 :scheduled today
-                :order 1)
+                :order 1
+                :face 'warning)
 ))
 
 (org-super-agenda-mode t)
@@ -1123,6 +1131,20 @@ I need to fix =org-super-agenda-groups= to be more useful and less spread out.
       "k" 'org-agenda-previous-line)
 
 #+END_SRC
+
+#+RESULTS:
+
+*** Org Agenda Notifications
+#+BEGIN_SRC emacs-lisp :tangle config.el
+(add-load-path! "~/.emacs.d/org-yaap")
+(require 'org-yaap)
+(setq org-yaap-alert-title "Org Agenda")
+(setq org-yaap-overdue-alerts 20)
+(setq org-yaap-alert-before 20)
+(setq org-yaap-daily-alert '(7 30))
+(setq org-yaap-daemon-idle-time 30)
+(org-yaap-mode 1)
+#+END_SRC
 ** Magit Configuration
 #+BEGIN_SRC emacs-lisp :tangle config.el
 ;;;------ magit configuration ------;;;
@@ -1630,11 +1652,12 @@ Any git package can be configured for a particular commit or branch:
 (package! focus)
 (package! olivetti)
 (package! async)
+(package! centered-cursor-mode)
 #+END_SRC
 * Nix Integration
 In order to have Nix load my Doom Emacs configuration [[./doom.nix][doom.nix]], which I source in the =imports= block of my [[../../../profiles/work/home.nix][home.nix]].
 #+BEGIN_SRC nix :tangle doom.nix
-{ config, lib, pkgs, eaf, eaf-browser, org-nursery, phscroll, theme, font, name, username, email, dotfilesDir, profile, wmType, defaultRoamDir, ... }:
+{ config, lib, pkgs, eaf, eaf-browser, org-nursery, phscroll, org-yaap, theme, font, name, username, email, dotfilesDir, profile, wmType, defaultRoamDir, ... }:
 let
   themePolarity = lib.removeSuffix "\n" (builtins.readFile (./. + "../../../../themes"+("/"+theme)+"/polarity.txt"));
   dashboardLogo = ./. + "/nix-" + themePolarity + ".png";
@@ -1705,6 +1728,12 @@ in
     source = "${eaf}";
     recursive = true;
   };
+
+  home.file.".emacs.d/org-yaap" = {
+    source = "${org-yaap}";
+    recursive = true;
+  };
+
   home.file.".emacs.d/eaf/app/browser" = {
     source = "${eaf-browser}";
     recursive = true;

user/app/doom-emacs/packages.el

@@ -21,3 +21,4 @@
 (package! focus)
 (package! olivetti)
 (package! async)
+(package! centered-cursor-mode)