i do not recommend this: ;; (eval-after-load 'org-agenda ;; '(pushnew 'state org-agenda-log-mode-items :test 'eq)) ;; (setq org-agenda-log-mode-items '(closed clock))
=== i do this: (setq org-agenda-include-inactive-timestamps t) and this [i am not signed with fsf]: === alpha make agenda display inactive timestamp lines with a new face Modified lisp/org-agenda.el diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index a0f47ab..9fe49b8 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5619,6 +5619,9 @@ This function is invoked if `org-agenda-todo-ignore-deadlines', 'org-category-position category-pos 'todo-state todo-state 'warntime warntime + 'face (if inactivep + 'org-agenda-inactive + 'org-agenda-calendar-event) 'type "timestamp") (push txt ee)) (if org-agenda-skip-additional-timestamps-same-entry Modified lisp/org-faces.el diff --git a/lisp/org-faces.el b/lisp/org-faces.el index f8625f1..47ccc96 100644 --- a/lisp/org-faces.el +++ b/lisp/org-faces.el @@ -346,6 +346,16 @@ is of course immediately visible, but for example a passed deadline is of the frame, for example." :group 'org-faces) +(defface org-agenda-inactive ;; originally copied from font-lock-type-face + (org-compatible-face nil + '((((class color) (min-colors 16) (background light)) (:foreground "ForestGreen")) + (((class color) (min-colors 16) (background dark)) (:foreground "#546b00")) + (((class color) (min-colors 8)) (:foreground "green")) + (t (:bold nil)))) + "Face used in agenda to indicate lines that appear because +inactive timestamps appear in the entries." + :group 'org-faces) + (defface org-headline-done ;; originally copied from font-lock-string-face (org-compatible-face nil '((((class color) (min-colors 16) (background light)) (:foreground "RosyBrown")) -- The Kafka Pandemic: http://thekafkapandemic.blogspot.com Ramsay's disease DOES progress. MANY people have died from it. And ANYBODY can get it. Denmark: free Karina Hansen NOW.