emacs-orgmode
[Top][All Lists]
Advanced

[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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]