[PATCH] Improve presentation of entry text lines

["Sebastien Vauban" <wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@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 <wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org>
Date: Fri, 1 Mar 2013 17:12:58 +0100
Subject: [PATCH] Improve presentation of entry text lines

2013-03-01  Sebastien Vauban  <wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org>

* 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