byteio/nixos-config
1
0
Fork 0
mirror of https://github.com/librephoenix/nixos-config synced 2025-04-20 09:14:34 +05:30
Code Issues Packages Projects Releases 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
Show stats 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 ------;;;
;; 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 "")

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
;;;------ 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 "")