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
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)))
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
