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 <y...@example.com>
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)))
(item
(org-agenda-format-item
- (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?
'org-agenda-inactive
'org-agenda-calendar-event)
'type "timestamp")
@@ -5814,9 +5817,16 @@ then those holidays will be skipped."
(setq txt (concat txt " - " extra))))
(setq txt (org-agenda-format-item
(cond
- (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
[back]
