From a21883e469251be62b020124a29818373a985a84 Mon Sep 17 00:00:00 2001
From: Emmet <librephoenix3@pm.me>
Date: Sat, 9 Sep 2023 19:36:39 -0500
Subject: [PATCH] Auto hide completed todos and added toggle func

---
 user/app/doom-emacs/config.el | 22 ++++++++++++++++++++--
 user/app/doom-emacs/doom.org  | 22 ++++++++++++++++++++--
 2 files changed, 40 insertions(+), 4 deletions(-)

diff --git a/user/app/doom-emacs/config.el b/user/app/doom-emacs/config.el
index bbe0fe2..66f4d02 100644
--- a/user/app/doom-emacs/config.el
+++ b/user/app/doom-emacs/config.el
@@ -812,9 +812,27 @@ tasks."
 
 ;;;------ Org agenda configuration ------;;;
 
-;; Set span for agenda
+;; Set span for agenda to be just daily
 (setq org-agenda-span 1
-      org-agenda-start-day "+0d")
+      org-agenda-start-day "+0d"
+      org-agenda-skip-timestamp-if-done t
+      org-agenda-skip-deadline-if-done t
+      org-agenda-skip-scheduled-if-done t
+      org-agenda-skip-scheduled-if-deadline-is-shown t
+      org-agenda-skip-timestamp-if-deadline-is-shown t)
+
+;; Toggle comopleted entries function
+(defun org-agenda-toggle-completed ()
+  (interactive)
+  (setq org-agenda-skip-timestamp-if-done (not org-agenda-skip-timestamp-if-done)
+        org-agenda-skip-deadline-if-done (not org-agenda-skip-timestamp-if-done)
+        org-agenda-skip-scheduled-if-done (not org-agenda-skip-timestamp-if-done))
+  (org-agenda-redo))
+
+(map!
+  :map evil-org-agenda-mode-map
+  :after org-agenda
+  :nvmeg "s d" #'org-agenda-toggle-completed)
 
 ;; Ricing org agenda
 (setq org-agenda-current-time-string "")
diff --git a/user/app/doom-emacs/doom.org b/user/app/doom-emacs/doom.org
index f01920a..ca83a09 100644
--- a/user/app/doom-emacs/doom.org
+++ b/user/app/doom-emacs/doom.org
@@ -964,9 +964,27 @@ On Wayland, EAF doesn't work.
 #+BEGIN_SRC emacs-lisp :tangle config.el
 ;;;------ Org agenda configuration ------;;;
 
-;; Set span for agenda
+;; Set span for agenda to be just daily
 (setq org-agenda-span 1
-      org-agenda-start-day "+0d")
+      org-agenda-start-day "+0d"
+      org-agenda-skip-timestamp-if-done t
+      org-agenda-skip-deadline-if-done t
+      org-agenda-skip-scheduled-if-done t
+      org-agenda-skip-scheduled-if-deadline-is-shown t
+      org-agenda-skip-timestamp-if-deadline-is-shown t)
+
+;; Toggle comopleted entries function
+(defun org-agenda-toggle-completed ()
+  (interactive)
+  (setq org-agenda-skip-timestamp-if-done (not org-agenda-skip-timestamp-if-done)
+        org-agenda-skip-deadline-if-done (not org-agenda-skip-timestamp-if-done)
+        org-agenda-skip-scheduled-if-done (not org-agenda-skip-timestamp-if-done))
+  (org-agenda-redo))
+
+(map!
+  :map evil-org-agenda-mode-map
+  :after org-agenda
+  :nvmeg "s d" #'org-agenda-toggle-completed)
 
 ;; Ricing org agenda
 (setq org-agenda-current-time-string "")