From: "Sebastien Vauban" <wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org>
To: emacs-orgmode-mXXj517/zsQ@public.gmane.org
Subject: [PATCH] Improve presentation of entry text lines
Date: Fri, 01 Mar 2013 17:17:29 +0100 [thread overview]
Message-ID: <86vc9byu06.fsf@somewhere.org> (raw)
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
next reply other threads:[~2013-03-01 16:17 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-03-01 16:17 Sebastien Vauban [this message]
2013-03-01 16:29 ` [PATCH] Improve presentation of entry text lines Bastien
2013-03-01 22:31 ` Sebastien Vauban
2013-03-02 10:02 ` Bastien
2013-03-04 8:11 ` Sebastien Vauban
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=86vc9byu06.fsf@somewhere.org \
--to=wxhgmqzgwmuf-genee64ty+gs+fvcfc7uqw@public.gmane.org \
--cc=emacs-orgmode-mXXj517/zsQ@public.gmane.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).