summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfpi2020-12-20 13:31:38 +0100
committerfpi2022-03-17 14:44:37 +0100
commit68ff830dd049455f32bf3d014b93bf1f2a67cb80 (patch)
tree11f61e45adde02b1ecc8e63b298f92ab36c9ae32
parentMake fpi/org-agenda-hotness usable on agenda lines (diff)
Add more project related functions
-rw-r--r--emacs-init.org44
1 files changed, 27 insertions, 17 deletions
diff --git a/emacs-init.org b/emacs-init.org
index 99a8826..24dfa7d 100644
--- a/emacs-init.org
+++ b/emacs-init.org
@@ -3740,6 +3740,15 @@ Similar to %b in `org-agenda-prefix-format'."
(l1 (length tags))
(l2 (length (remove "HOT" tags))))
(- l1 l2)))
+(defun fpi/org-agenda-skip-all-not-hot-and-active ()
+ "Skip all not hot entries and not active entries."
+ (when (not (and
+ (member "HOT" (my-org-current-tags (fpi/org-project-depth 10)))
+ (org-with-wide-buffer
+ (fpi/org-goto-parent-project 10)
+ (fpi/is-active-project-p))))
+ (or (outline-next-heading)
+ (goto-char (point-max)))))
(defun fpi/org-agenda-skip-all-not-hot ()
"Skip all not hot entries."
(when (not (member "HOT" (my-org-current-tags (fpi/org-project-depth 10))))
@@ -3763,25 +3772,21 @@ Similar to %b in `org-agenda-prefix-format'."
should-skip))))
(defun fpi/org-project-depth (depth)
"Return number of subheadings before reaching top project."
- (let ((current (org-current-level))
- (top (save-excursion
- (fpi/org-goto-top-project depth)
- (org-current-level))))
- (- current top)
- ))
+ (org-with-wide-buffer (fpi/org-goto-top-project depth)))
(defun fpi/org-goto-top-project (depth)
"Go to the top project of heading under point"
(save-restriction
(widen)
- (let ((top (point)))
+ (let (top
+ (count -1))
(with-demoted-errors
- (while (and (> depth 0)
- (progn
- (setq depth (1- depth))
- (not (org-up-element))))
- (when (fpi/is-not-done-project-p)
- (setq top (point)))))
- (goto-char top))))
+ (while (and (> depth 1)
+ (not (equal top (point))))
+ (setq depth (1- depth))
+ (setq top (point))
+ (fpi/org-goto-parent-project depth)
+ (setq count (1+ count))))
+ count)))
(defun fpi/is-part-of-project-p (depth)
"Return t if any parent heading is a project."
(< 0 (fpi/org-project-depth depth)))
@@ -3789,15 +3794,20 @@ Similar to %b in `org-agenda-prefix-format'."
"Return t if parent heading is a not done project."
(save-excursion
(save-restriction
- (widen)
- (and (not (org-up-element))
- (fpi/is-not-done-project-p)))))
+ (widen)
+ (and (not (org-up-element))
+ (fpi/is-not-done-project-p)))))
(defun fpi/is-not-done-project-p ()
"Return t if current heading is a not done project."
(save-restriction
(widen)
(let ((todo (org-get-todo-state)))
(member todo org-project-keywords))))
+(defun fpi/is-active-project-p ()
+ "Return t if current heading is an active project."
+ (save-restriction
+ (widen)
+ (equal "ACTIVE" (org-get-todo-state))))
#+end_src
To narrow the agenda to the currently selected project this function from [[https://github.com/mm--/dot-emacs/blob/master/jmm-org-config.org][Josh's emacs config]] is useful.
#+begin_src emacs-lisp :tangle no :noweb-ref org-agenda-config