From mboxrd@z Thu Jan 1 00:00:00 1970 From: Samuel Wales Subject: Re: Tasks performed on a certain day Date: Wed, 7 Nov 2018 18:31:09 -0700 Message-ID: References: <87sh0efgs3.fsf@llwynog.ekleog.org> <878t25g09o.fsf@llwynog.ekleog.org> <87y3a5dsuw.fsf@llwynog.ekleog.org> <87tvktglg3.fsf@mbork.pl> Mime-Version: 1.0 Content-Type: text/plain; charset="UTF-8" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:55263) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gKZAC-0003Q8-3t for emacs-orgmode@gnu.org; Wed, 07 Nov 2018 20:31:16 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gKZAB-00079H-3c for emacs-orgmode@gnu.org; Wed, 07 Nov 2018 20:31:15 -0500 Received: from mail-lj1-x233.google.com ([2a00:1450:4864:20::233]:41474) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1gKZAA-00078I-Qb for emacs-orgmode@gnu.org; Wed, 07 Nov 2018 20:31:15 -0500 Received: by mail-lj1-x233.google.com with SMTP id z80-v6so16515116ljb.8 for ; Wed, 07 Nov 2018 17:31:12 -0800 (PST) In-Reply-To: <87tvktglg3.fsf@mbork.pl> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: Marcin Borkowski Cc: Eric S Fraga , Ken Mankoff , Leo Gaspard , emacs-orgmode@gnu.org 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 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]