summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--emacs-init.org15
1 files changed, 12 insertions, 3 deletions
diff --git a/emacs-init.org b/emacs-init.org
index 5d73324..ce6b6a6 100644
--- a/emacs-init.org
+++ b/emacs-init.org
@@ -3642,13 +3642,14 @@ Simple day agenda with =INPROGRESS= tasks
#+begin_src emacs-lisp :tangle no :noweb-ref org-agenda-custom-commands
("h" "Current Hotlist" tags "TODO={NEXT\\|INPROGRESS\\|WAITING}"
((org-agenda-overriding-header "Current Hotlist")
- (org-agenda-skip-function
- (function fpi/org-agenda-skip-all-not-hot))))
+ (org-agenda-skip-function (function fpi/org-agenda-skip-all-not-hot))
+ ;; (org-agenda-prefix-format " %-3i %-12:c%30b %s")
+ ))
#+end_src
#+begin_src emacs-lisp :tangle no :noweb-ref org-agenda-config
(defun fpi/org-agenda-skip-all-not-hot ()
"Skip all not hot entries."
- (when (not (member "HOT" (my-org-current-tags 1)))
+ (when (not (member "HOT" (my-org-current-tags (fpi/org-project-depth 10))))
(or (outline-next-heading)
(goto-char (point-max)))))
(defun fpi/org-agenda-skip-all-not-project ()
@@ -3668,6 +3669,14 @@ Simple day agenda with =INPROGRESS= tasks
(if (looking-at "^\*+\\s-+")
(setq should-skip (org-get-local-tags))))
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)
+ ))
(defun fpi/org-goto-top-project (depth)
"Go to the top project of heading under point"
(save-restriction