From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Sebastien Vauban" Subject: [PATCH] Improve presentation of entry text lines Date: Fri, 01 Mar 2013 17:17:29 +0100 Message-ID: <86vc9byu06.fsf@somewhere.org> Mime-Version: 1.0 Content-Type: text/plain Return-path: 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-mXXj517/zsQ@public.gmane.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org Hello, The following patch improves the entry-mode presentation (`E' in the agenda) by adding a better leader on the side and one for a bottom corner. The style is a bit like boxquote. Best regards, Seb >From 606a57768d853cba427abd982e133f6b9bc20c94 Mon Sep 17 00:00:00 2001 From: Sebastien Vauban Date: Fri, 1 Mar 2013 17:12:58 +0100 Subject: [PATCH] Improve presentation of entry text lines 2013-03-01 Sebastien Vauban * org-agenda.el (org-agenda-entry-text-show-here): Improve presentation of entry text lines (in entry-mode) by adding two customizable vars (for side, and for bottom corner). --- lisp/org-agenda.el | 14 +++++++++++++- 1 files changed, 13 insertions(+), 1 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 3b6a005..242bb73 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -180,6 +180,16 @@ and `org-agenda-entry-text-maxlines'." :group 'org-agenda :type 'integer) +(defcustom org-agenda-entry-text-side-leaders " | " + "Text preceding the side of entry text lines in the agenda view." + :group 'org-agenda + :type 'string) + +(defcustom org-agenda-entry-text-bottom-corner-leaders " `--" + "Text preceding the bottom corner of entry text lines in the agenda view." + :group 'org-agenda + :type 'string) + (defcustom org-agenda-add-entry-text-descriptive-links t "Non-nil means export org-links as descriptive links in agenda added text. This variable applies to the text added to the agenda when @@ -3853,7 +3863,9 @@ This check for agenda markers in all agenda buffers currently active." (error "No marker points to an entry here")) (setq txt (concat "\n" (org-no-properties (org-agenda-get-some-entry-text - m org-agenda-entry-text-maxlines " > ")))) + m org-agenda-entry-text-maxlines + org-agenda-entry-text-side-leaders)) + "\n" org-agenda-entry-text-bottom-corner-leaders)) (when (string-match "\\S-" txt) (setq o (make-overlay (point-at-bol) (point-at-eol))) (overlay-put o 'evaporate t) -- 1.7.9 -- Sebastien Vauban