[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] Tasks performed on a certain day

From: Samuel Wales
Subject: Re: [O] Tasks performed on a certain day
Date: Wed, 7 Nov 2018 18:31:09 -0700

i also call them event.

i have code below that shows them in agenda as "Event:" in their own face.

i think there was a proposal a while back to have them be in the
planning line [the one just after the header] as EVENT: <...> along
with closed, scheduled, and deadline.  i kinda liked that proposal
[great for 3rd party tools, maybe even a bit faster, consistency] but
it never went anywhere.  :]


note: i am not signed up with fsf.

commit 33a49662f7b89e9fd52742a59542dfb0f116e715 (HEAD, refs/heads/local)
Author: Your Name <address@hidden>
Date:   2015-08-08 13:10:12 -0700

    === alpha add one space to leaders, add Event:, format state better

        Modified   lisp/org-agenda.el
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 234c0da..268aa00 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -5593,7 +5593,10 @@ displayed in agenda view."
                   (habit? (and (fboundp 'org-is-habit-p) (org-is-habit-p)))
-                    (and inactive? org-agenda-inactive-leader)
+                     (if inactive?
+                         org-agenda-inactive-leader
+                       ;; alpha this could be an org-agenda-event-leader
+                       "Event:     ")
                     head level category tags time-stamp org-ts-regexp habit?)))
              (org-add-props item props
                'priority (if habit?
@@ -5609,7 +5612,7 @@ displayed in agenda view."
                'warntime warntime
                 ;; =alpha this adds inactive timestamp face
                 ;; how i figured this out, i do not know
-                'face (if inactivep
+                'face (if inactive?
                'type "timestamp")
@@ -5814,9 +5817,16 @@ then those holidays will be skipped."
                (setq txt (concat txt " - " extra))))
            (setq txt (org-agenda-format-item
-                       (closedp "Closed:    ")
-                       (statep (concat "State:     (" state ")"))
-                       (t (concat "Clocked:   (" clocked  ")")))
+                         (closedp "Closed:    ")
+                         ;; alpha the only issue here is somehow
+                         ;; we have to turn off my inactive,
+                         ;; which picks this up redundantly
+                         (statep (format "S(%7.7s) " state))
+                         ;; ;; alpha adding one space because line up
+                         ;; (statep (concat "State:      (" state ")"))
+                         ;; (t (format "C(%7.7s) " clocked)))
+                         ;; alpha adding one space because line up
+                         (t (concat "Clocked:    (" clocked  ")")))
                       txt level category tags timestr)))
          (setq priority 100000)
          (org-add-props txt props


reply via email to

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