[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [PATCH] Improve presentation of entry text lines
From: |
Sebastien Vauban |
Subject: |
[O] [PATCH] Improve presentation of entry text lines |
Date: |
Fri, 01 Mar 2013 17:17:29 +0100 |
User-agent: |
Gnus/5.130006 (Ma Gnus v0.6) Emacs/24.2.93 (windows-nt) |
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 <address@hidden>
Date: Fri, 1 Mar 2013 17:12:58 +0100
Subject: [PATCH] Improve presentation of entry text lines
2013-03-01 Sebastien Vauban <address@hidden>
* 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
- [O] [PATCH] Improve presentation of entry text lines,
Sebastien Vauban <=