From: "Sébastien Vauban" <wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org>
To: emacs-orgmode-mXXj517/zsQ@public.gmane.org
Subject: [Patch] Org-fontify
Date: Fri, 13 Aug 2010 22:19:54 +0200 [thread overview]
Message-ID: <87sk2iw9hx.fsf@mundaneum.com> (raw)
[-- Attachment #1: Type: text/plain, Size: 1877 bytes --]
Hello,
Champagne! My very first patch... Hopefully one that will be followed by many
more...
Goal: to *fontify whole lines* of code-block or meta-lines.
See the results on this minimal example:
--8<---------------cut here---------------start------------->8---
#+TITLE: Better identification of source blocks and results
#+DATE: 2010-08-13
#+DESCRIPTION:
#+KEYWORDS:
#+LANGUAGE: en_US
This is
#+BEGIN_SRC org
** Totals
*** Using a table formula
#+END_SRC
random text
#+LaTeX: \thisismycommand{}{param2}
inserted between
#+begin_src R :session woodland
names(woodland)
str(woodland)
summary(woodland)
#+end_src
code blocks
#+begin_src R :session woodland
woodland
#+end_src
copy from different
#+srcname:woodland
#+begin_src R :colnames t
read.table("/tmp/woodlands.txt",header=TRUE)
#+end_src
#+results: woodland
| "ID" | "wood" | "A.reptans" | "E.amygdaloides" |
|------+---------+-------------+------------------|
| "a" | "wood1" | 5 | 10 |
| "b" | "wood2" | 1 | 0 |
postings on org-mode...
--8<---------------cut here---------------end--------------->8---
with *faces with background*, such as:
--8<---------------cut here---------------start------------->8---
(org-block ((t (:foreground "blue1" :background "#EAFFEA"))))
(org-code ((t (:foreground "blue1" :background "#EAFFEA"))))
(org-meta-line ((t (:foreground "#008ED1" :background "#FFEAEA"))))
(org-table ((t (:foreground "blue1" :background "#EAEAFF"))))
--8<---------------cut here---------------end--------------->8---
Only feature: I did not succeed highlighting full lines containing =srcname=
or =results=. Not a big deal. Though, if someone can do it, that would
definitely please me...
Best regards,
Seb
--
Sébastien Vauban
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: org-fontify.patch --]
[-- Type: text/x-diff, Size: 1260 bytes --]
diff --git a/lisp/org.el b/lisp/org.el
index af4f793..64deb53 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -5036,8 +5036,9 @@ will be prompted for."
'(display t invisible t intangible t))
(add-text-properties (match-beginning 1) (match-end 3)
'(font-lock-fontified t face org-meta-line))
- (add-text-properties (match-beginning 6) (match-end 6)
+ (add-text-properties (match-beginning 6) (+ (match-end 6) 1)
'(font-lock-fontified t face org-block))
+ ; for backend-specific code
t)
((and (match-end 4) (equal dc3 "begin"))
;; Truly a block
@@ -5054,10 +5055,13 @@ will be prompted for."
beg end
'(font-lock-fontified t font-lock-multiline t))
(add-text-properties beg beg1 '(face org-meta-line))
- (add-text-properties end1 end '(face org-meta-line))
+ (add-text-properties end1 (+ end 1) '(face org-meta-line))
+ ; for end_src
(cond
(quoting
- (add-text-properties beg1 end1 '(face org-block)))
+ (add-text-properties beg1 (+ end1 1) '(face
+ org-block)))
+ ; end of source block
((not org-fontify-quote-and-verse-blocks))
((string= block-type "quote")
(add-text-properties beg1 end1 '(face org-quote)))
[-- Attachment #3: Type: text/plain, Size: 222 bytes --]
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode-mXXj517/zsQ@public.gmane.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
next reply other threads:[~2010-08-13 20:19 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-08-13 20:19 Sébastien Vauban [this message]
2010-08-13 20:37 ` [Patch] Org-fontify Erik Iverson
2010-08-13 21:52 ` Sébastien Vauban
2010-08-14 21:04 ` Sébastien Vauban
2010-08-15 7:30 ` Carsten Dominik
2010-08-17 14:07 ` Sébastien Vauban
2010-08-17 14:23 ` Carsten Dominik
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=87sk2iw9hx.fsf@mundaneum.com \
--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).