emacs-orgmode
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]