[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: tags-todo agenda: Show scheduling info
From: |
Samuel Wales |
Subject: |
Re: tags-todo agenda: Show scheduling info |
Date: |
Sat, 2 Nov 2019 12:28:57 -0700 |
the following will not work for you due to dependencies.
has worked for me for many years.
puts ! in agenda prefix if schedule or deadline. if it is agenda
agenda [timestamp agenda, daily/weekly agenda] it requires closed
also.
(with-eval-after-load 'org-agenda
;; bangify agenda prefix
(cl-loop
for entry in org-agenda-prefix-format
do
;; remove colon from category
(alpha-asetf (cdr entry)
(replace-regexp-in-string ":" "" it))
;; add !
(alpha-asetf
(cdr entry)
(replace-regexp-in-string
"%i "
(concat "%i%"
;; (setq entry '(agenda . " %i hi"))
(format "%s" `(alpha-org-agenda-prefix-bangify
,(when (eq (car entry) 'agenda)
'(quote and-closed)))))
it)))
(defun alpha-org-agenda-prefix-bangify (&optional and-closed)
"If and-closed, require that it also be closed.
Useful for agenda agenda where most things are scheduled or
deadlined thus would be pointlessly bangified."
;; (looking-back-at
(if (and (or (not and-closed)
(alpha-org-entry-get "CLOSED"))
(or (alpha-org-entry-get "SCHEDULED")
(alpha-org-entry-get "DEADLINE")))
"!"
" ")))
--
The Kafka Pandemic
What is misopathy?
https://thekafkapandemic.blogspot.com/2013/10/why-some-diseases-are-wronged.html
The disease DOES progress. MANY people have died from it. And ANYBODY
can get it at any time.