From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alex Branham Subject: [PATCH] allow users to customize string in org-agenda-time-grid Date: Fri, 07 Jul 2017 08:37:44 +0200 Message-ID: <871sps69c7.fsf@utexas.edu> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:49292) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dTMtk-0006Ux-AC for emacs-orgmode@gnu.org; Fri, 07 Jul 2017 02:37:53 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dTMth-0004tZ-7W for emacs-orgmode@gnu.org; Fri, 07 Jul 2017 02:37:52 -0400 Received: from mail-lf0-x231.google.com ([2a00:1450:4010:c07::231]:33163) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dTMtg-0004t6-ST for emacs-orgmode@gnu.org; Fri, 07 Jul 2017 02:37:49 -0400 Received: by mail-lf0-x231.google.com with SMTP id z78so16671348lff.0 for ; Thu, 06 Jul 2017 23:37:47 -0700 (PDT) Received: from mars (edu220110.eduroam.gu.se. [130.241.220.110]) by smtp.gmail.com with ESMTPSA id a203sm522226lfe.26.2017.07.06.23.37.44 for (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Thu, 06 Jul 2017 23:37:44 -0700 (PDT) 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: emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain Hello, This small patch allows users to customize the string to display after the time in the agenda view. I think I formatted the patch correctly, but please let me know if I missed something, Alex ------------------------------------------------------------ >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 --=-=-= Content-Type: text/x-diff Content-Disposition: attachment; filename=0001-org-agenda.el-Allow-users-to-customize-string-after-.patch >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 --=-=-=--