From: Samuel Wales <samologist@gmail.com>
To: Nathan Neff <nathan.neff@gmail.com>
Cc: emacs-orgmode <emacs-orgmode@gnu.org>
Subject: Re: tags-todo agenda: Show scheduling info
Date: Sat, 2 Nov 2019 12:28:57 -0700 [thread overview]
Message-ID: <CAJcAo8sBHgj=qQ=ZJkyukOVEpzGk52pJCPg9E9FwX6779NQBiQ@mail.gmail.com> (raw)
In-Reply-To: <CAC=HedBYuGsSkZoM2J59iFJPUwEqWmzWj8bHiYf0CAWSGS+y3Q@mail.gmail.com>
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.
prev parent reply other threads:[~2019-11-02 19:29 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2019-11-02 17:00 tags-todo agenda: Show scheduling info Nathan Neff
2019-11-02 19:28 ` Samuel Wales [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='CAJcAo8sBHgj=qQ=ZJkyukOVEpzGk52pJCPg9E9FwX6779NQBiQ@mail.gmail.com' \
--to=samologist@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=nathan.neff@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).