>From 3e1a9a4a0cde14e1496c355028c9ef3c8b75b9e2 Mon Sep 17 00:00:00 2001 From: Alex Branham Date: Fri, 7 Jul 2017 08:25:38 +0200 Subject: [PATCH] org-agenda.el: Allow users to customize string after time-grid * org-agenda.el: Users may now customize the string to display after the time in the agenda with the variable `org-agenda-time-grid-trailing-characters'. TINYCHANGE --- lisp/org-agenda.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index ddd1b7d11..43b844cc3 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -1510,6 +1510,11 @@ a grid line." (string :tag "Grid String") (repeat :tag "Grid Times" (integer :tag "Time")))) +(defcustom org-agenda-time-grid-trailing-characters "......" + "Characters to show after time when `org-agenda-use-time-grid' is non-nil." + :group 'org-agenda-time-grid + :type 'string) + (defcustom org-agenda-show-current-time-in-grid t "Non-nil means show the current time in the time grid." :group 'org-agenda-time-grid @@ -6478,8 +6483,8 @@ Any match of REMOVE-RE will be removed from TXT." (s1 (concat (org-agenda-time-of-day-to-ampm-maybe s1) (if org-agenda-timegrid-use-ampm - "........ " - "......"))) + (concat org-agenda-time-grid-trailing-characters " ") + org-agenda-time-grid-trailing-characters))) (t "")) extra (or (and (not habitp) extra) "") category (if (symbolp category) (symbol-name category) category) -- 2.13.2