emmet/nixos-config
0
1
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Auto hide completed todos and added toggle func

Browse Source
This commit is contained in:
Emmet
2023-09-09 19:36:39 -05:00
parent 045b489bc3
commit a21883e469
2 changed files with 40 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
user/app/doom-emacs/config.el
View File

@@ -812,9 +812,27 @@ tasks."
;;;------ Org agenda configuration ------;;; ;;;------ Org agenda configuration ------;;;
;; Set span for agenda ;; Set span for agenda to be just daily
(setq org-agenda-span 1 (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 ;; Ricing org agenda
(setq org-agenda-current-time-string "") (setq org-agenda-current-time-string "")

22
user/app/doom-emacs/doom.org
View File

@@ -964,9 +964,27 @@ On Wayland, EAF doesn't work.
#+BEGIN_SRC emacs-lisp :tangle config.el #+BEGIN_SRC emacs-lisp :tangle config.el
;;;------ Org agenda configuration ------;;; ;;;------ Org agenda configuration ------;;;
;; Set span for agenda ;; Set span for agenda to be just daily
(setq org-agenda-span 1 (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 ;; Ricing org agenda
(setq org-agenda-current-time-string "") (setq org-agenda-current-time-string "")