Skip to content

Commit 9d658b4

Browse files
author
Musa Al-hassy
committed
Add: Improved recurring task resets and “C-c a t”
1 parent 9859d3f commit 9d658b4

File tree

2 files changed

+97
-36
lines changed

2 files changed

+97
-36
lines changed

‎init.el

+48-18
Original file line numberDiff line numberDiff line change
@@ -1191,21 +1191,26 @@ if REMOTE is https://github.com/X/Y then LOCAL becomes ∼/Y."
11911191
;; I have symlinks for various things, just follow them, do not ask me.
11921192
(setq vc-follow-symlinks t)
11931193

1194+
;; After my settings have been loaded, e.g., fancy priorities
1195+
;; and cosmetics, then open my notes files.
1196+
(add-hook 'emacs-startup-hook (lambda () (find-file "~/Documents/notes.org")))
1197+
11941198
;; If work machine, then show notes; otherwise show my todos & init side-by-side.
1195-
(unless noninteractive
1196-
;; Only run the following when we're in GUI mode;
1197-
;; i.e., don't run it in Github Actions when testing.
1198-
(if (not my/personal-machine?)
1199-
(find-file "~/Documents/notes.org")
1200-
(find-file "~/Dropbox/todo.org")
1201-
;; After startup, if Emacs is idle for 10 seconds, then open my work file;
1202-
;; which is a GPG file and so requires passphrase before other things can load.
1203-
;; (run-with-idle-timer 10 nil (lambda () (find-file "~/Desktop/work.org.gpg")))
1204-
(split-window-right) ;; C-x 3
1205-
(other-window 1) ;; C-x 0
1206-
(let ((enable-local-variables :all) ;; Load *all* locals.
1207-
(org-confirm-babel-evaluate nil)) ;; Eval *all* blocks.
1208-
(ignore-errors (find-file "~/.emacs.d/init.org")))))
1199+
(when nil
1200+
(unless noninteractive
1201+
;; Only run the following when we're in GUI mode;
1202+
;; i.e., don't run it in Github Actions when testing.
1203+
(if (not my/personal-machine?)
1204+
(find-file "~/Documents/notes.org")
1205+
(find-file "~/Dropbox/todo.org")
1206+
;; After startup, if Emacs is idle for 10 seconds, then open my work file;
1207+
;; which is a GPG file and so requires passphrase before other things can load.
1208+
;; (run-with-idle-timer 10 nil (lambda () (find-file "~/Desktop/work.org.gpg")))
1209+
(split-window-right) ;; C-x 3
1210+
(other-window 1) ;; C-x 0
1211+
(let ((enable-local-variables :all) ;; Load *all* locals.
1212+
(org-confirm-babel-evaluate nil)) ;; Eval *all* blocks.
1213+
(ignore-errors (find-file "~/.emacs.d/init.org"))))))
12091214

12101215
;; The modeline looks really nice with doom-themes, e.g., doom-solarised-light.
12111216
(use-package doom-modeline
@@ -2061,18 +2066,28 @@ Example uses:
20612066

20622067
(setq org-agenda-span 'week)
20632068

2064-
(setq org-agenda-custom-commands '(("o" "Open Loops" tags-tree "TODO=\"STARTED\"" )))
2069+
;; (setq org-agenda-custom-commands '(("o" "Open Loops" tags-tree "TODO=\"STARTED\"" )))
20652070

20662071
(setq org-log-into-drawer t) ;; hide the log state change history a bit better
20672072

2073+
2074+
(setq org-fold-catch-invisible-edits 'show-and-error ;; Avoid accidental edits to folded sections
2075+
org-special-ctrl-a/e t ;; C-a/C-e know about leading “*” and ending :tags:
2076+
;; Agenda styling
2077+
org-agenda-tags-column -80
2078+
org-agenda-time-grid '((daily today require-timed)
2079+
(800 1000 1200 1400 1600 1800 2000)
2080+
" ───── " "───────────────")
2081+
org-agenda-current-time-string "◀── now ─────────────────────────────────────────────────")
2082+
20682083
;; p to “p”ush back a task to the next day.
20692084
(add-hook 'org-agenda-mode-hook
20702085
;; Note: There's also org-agenda-date-earlier to change the date by -1 day.
20712086
(lambda ()
2072-
(define-key org-agenda-mode-map "p" 'org-agenda-date-later)
2087+
(define-key org-agenda-mode-map "p" 'org-agenda-date-later)
20732088

2074-
;; Reschedule agenda items to today, “right 𝓃ow”, with a single command
2075-
(define-key org-agenda-mode-map "n" (defun org-agenda-reschedule-to-today ()
2089+
;; Reschedule agenda items to today, “right 𝓃ow”, with a single command
2090+
(define-key org-agenda-mode-map "n" (defun org-agenda-reschedule-to-today ()
20762091
(interactive)
20772092
(flet ((org-read-date (&rest rest) (current-time)))
20782093
(call-interactively 'org-agenda-schedule))))))
@@ -2102,6 +2117,21 @@ Example uses:
21022117
;; list items will be treated like low-level headlines; i.e., folded by default.
21032118
(setq org-cycle-include-plain-lists 'integrate)
21042119

2120+
;; clear checkbox when repeating a todo task
2121+
(add-hook 'org-todo-repeat-hook #'org-reset-checkbox-state-subtree)
2122+
2123+
;; clear sub-sub-tasks when repeating a todo task.
2124+
;; ⇒ If I have “** A [%] \n #+STYLE: habit \n SCHEDULED: <2024-04-19 Fri .+1d> \n *** DONE B”
2125+
;; then on “** A” I press ‘t’ then mark it as ‘DONE’, then the “*** B” task resets to ‘TODO’.
2126+
(add-hook 'org-todo-repeat-hook
2127+
(lambda () (org-map-entries (lambda () (when (> (length (org-get-outline-path)) 1) (org-todo "TODO"))) t 'tree)))
2128+
2129+
;; “C-c a t” ⇒ List all (non-recurring non-someday) todos sorted by state, priority, effort
2130+
(setq org-agenda-custom-commands
2131+
'(("t" "My list of all TODO entries" tags-todo "-recurring-someday"
2132+
((org-agenda-overriding-header "\nTODOs sorted by state, priority, effort")
2133+
(org-agenda-sorting-strategy '(todo-state-down priority-down effort-up))))))
2134+
21052135
(cl-defmacro my/work-links (type url &optional (export-display '(format "%s-%s" type label)))
21062136
"Given a link of TYPE with a URL, produce the correct org-link.
21072137

‎init.org

+49-18
Original file line numberDiff line numberDiff line change
@@ -4576,21 +4576,26 @@ my to-do list and my init file, side-by-side.
45764576
;; I have symlinks for various things, just follow them, do not ask me.
45774577
(setq vc-follow-symlinks t)
45784578

4579+
;; After my settings have been loaded, e.g., fancy priorities
4580+
;; and cosmetics, then open my notes files.
4581+
(add-hook 'emacs-startup-hook (lambda () (find-file "~/Documents/notes.org")))
4582+
45794583
;; If work machine, then show notes; otherwise show my todos & init side-by-side.
4580-
(unless noninteractive
4581-
;; Only run the following when we're in GUI mode;
4582-
;; i.e., don't run it in Github Actions when testing.
4583-
(if (not my/personal-machine?)
4584-
(find-file "~/Documents/notes.org")
4585-
(find-file "~/Dropbox/todo.org")
4586-
;; After startup, if Emacs is idle for 10 seconds, then open my work file;
4587-
;; which is a GPG file and so requires passphrase before other things can load.
4588-
;; (run-with-idle-timer 10 nil (lambda () (find-file "~/Desktop/work.org.gpg")))
4589-
(split-window-right) ;; C-x 3
4590-
(other-window 1) ;; C-x 0
4591-
(let ((enable-local-variables :all) ;; Load *all* locals.
4592-
(org-confirm-babel-evaluate nil)) ;; Eval *all* blocks.
4593-
(ignore-errors (find-file "~/.emacs.d/init.org")))))
4584+
(when nil
4585+
(unless noninteractive
4586+
;; Only run the following when we're in GUI mode;
4587+
;; i.e., don't run it in Github Actions when testing.
4588+
(if (not my/personal-machine?)
4589+
(find-file "~/Documents/notes.org")
4590+
(find-file "~/Dropbox/todo.org")
4591+
;; After startup, if Emacs is idle for 10 seconds, then open my work file;
4592+
;; which is a GPG file and so requires passphrase before other things can load.
4593+
;; (run-with-idle-timer 10 nil (lambda () (find-file "~/Desktop/work.org.gpg")))
4594+
(split-window-right) ;; C-x 3
4595+
(other-window 1) ;; C-x 0
4596+
(let ((enable-local-variables :all) ;; Load *all* locals.
4597+
(org-confirm-babel-evaluate nil)) ;; Eval *all* blocks.
4598+
(ignore-errors (find-file "~/.emacs.d/init.org"))))))
45944599

45954600
#+END_SRC
45964601

@@ -7912,18 +7917,28 @@ my/contacts)))`} $0
79127917

79137918
(setq org-agenda-span 'week)
79147919

7915-
(setq org-agenda-custom-commands '(("o" "Open Loops" tags-tree "TODO=\"STARTED\"" )))
7920+
;; (setq org-agenda-custom-commands '(("o" "Open Loops" tags-tree "TODO=\"STARTED\"" )))
79167921

79177922
(setq org-log-into-drawer t) ;; hide the log state change history a bit better
79187923

7924+
7925+
(setq org-fold-catch-invisible-edits 'show-and-error ;; Avoid accidental edits to folded sections
7926+
org-special-ctrl-a/e t ;; C-a/C-e know about leading “*” and ending :tags:
7927+
;; Agenda styling
7928+
org-agenda-tags-column -80
7929+
org-agenda-time-grid '((daily today require-timed)
7930+
(800 1000 1200 1400 1600 1800 2000)
7931+
" ───── " "───────────────")
7932+
org-agenda-current-time-string "◀── now ─────────────────────────────────────────────────")
7933+
79197934
;; p to “p”ush back a task to the next day.
79207935
(add-hook 'org-agenda-mode-hook
79217936
;; Note: There's also org-agenda-date-earlier to change the date by -1 day.
79227937
(lambda ()
7923-
(define-key org-agenda-mode-map "p" 'org-agenda-date-later)
7938+
(define-key org-agenda-mode-map "p" 'org-agenda-date-later)
79247939

7925-
;; Reschedule agenda items to today, “right 𝓃ow”, with a single command
7926-
(define-key org-agenda-mode-map "n" (defun org-agenda-reschedule-to-today ()
7940+
;; Reschedule agenda items to today, “right 𝓃ow”, with a single command
7941+
(define-key org-agenda-mode-map "n" (defun org-agenda-reschedule-to-today ()
79277942
(interactive)
79287943
(flet ((org-read-date (&rest rest) (current-time)))
79297944
(call-interactively 'org-agenda-schedule))))))
@@ -7985,6 +8000,21 @@ TODO: Causes weird max-image-size issues?
79858000
#+begin_src emacs-lisp
79868001
;; list items will be treated like low-level headlines; i.e., folded by default.
79878002
(setq org-cycle-include-plain-lists 'integrate)
8003+
8004+
;; clear checkbox when repeating a todo task
8005+
(add-hook 'org-todo-repeat-hook #'org-reset-checkbox-state-subtree)
8006+
8007+
;; clear sub-sub-tasks when repeating a todo task.
8008+
;; ⇒ If I have “** A [%] \n #+STYLE: habit \n SCHEDULED: <2024-04-19 Fri .+1d> \n *** DONE B”
8009+
;; then on “** A” I press ‘t’ then mark it as ‘DONE’, then the “*** B” task resets to ‘TODO’.
8010+
(add-hook 'org-todo-repeat-hook
8011+
(lambda () (org-map-entries (lambda () (when (> (length (org-get-outline-path)) 1) (org-todo "TODO"))) t 'tree)))
8012+
8013+
;; “C-c a t” ⇒ List all (non-recurring non-someday) todos sorted by state, priority, effort
8014+
(setq org-agenda-custom-commands
8015+
'(("t" "My list of all TODO entries" tags-todo "-recurring-someday"
8016+
((org-agenda-overriding-header "\nTODOs sorted by state, priority, effort")
8017+
(org-agenda-sorting-strategy '(todo-state-down priority-down effort-up))))))
79888018
#+end_src
79898019

79908020
** Work links
@@ -8179,6 +8209,7 @@ See: https://emacs.stackexchange.com/questions/9585/org-how-to-sort-headings-by-
81798209
(run-with-idle-timer 300 t 'jump-to-org-agenda)
81808210
#+end_src
81818211

8212+
81828213
* Lisp Programming
81838214
:PROPERTIES:
81848215
:CUSTOM_ID: Lisp-Programming

0 commit comments

Comments
 (0)