[Orgmode] Re: Fontification of blocks

[Sébastien Vauban]

Hi Eric,

"Eric Schulte" wrote:
> +(org-copy-face 'org-meta-line 'org-block-begin-line
> +  "Face used for the line delimiting the begin of source blocks.")
> +
> +(org-copy-face 'org-meta-line 'org-block-begin-line
> +  "Face used for the line delimiting the end of source blocks.")
> +
> +(defface org-block-background nil
> +  "Face used for the source block background.")
> +
>  (defface org-verbatim
>    (org-compatible-face 'shadow
>      '((((class color grayscale) (min-colors 88) (background light))
> diff --git a/lisp/org.el b/lisp/org.el
> index 52de784..35da334 100644
> --- a/lisp/org.el
> +++ b/lisp/org.el
> @@ -5141,21 +5141,24 @@ will be prompted for."
>             (add-text-properties
>              beg end
>              '(font-lock-fontified t font-lock-multiline t))
> -           (add-text-properties beg beg1 '(face org-meta-line))
> -           (add-text-properties end1 (+ end 1) '(face org-meta-line))
> -                                     ; for end_src
>             (cond
>              ((and lang org-src-fontify-natively)
> -             (org-src-font-lock-fontify-block lang block-start block-end))
> +             (org-src-font-lock-fontify-block lang block-start block-end)
> +                (overlay-put (make-overlay beg1 block-end)
> +                             'face 'org-block-background))
>              (quoting
> -             (add-text-properties beg1 (+ end1 1) '(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)))
> +             (add-text-properties beg1 (1+ end1) '(face org-quote)))
>              ((string= block-type "verse")
> -             (add-text-properties beg1 end1 '(face org-verse))))
> +             (add-text-properties beg1 (1+ end1) '(face org-verse))))
> +           (add-text-properties beg beg1 '(face org-meta-line))
> +           (add-text-properties beg beg1 '(face org-block-begin-line))
> +           (add-text-properties (1+ end) (1+ end1) '(face org-meta-line))
> +           (add-text-properties (1+ end) (1+ end1)
> +                                '(face org-block-end-line))
>             t))
>          ((member dc1 '("title:" "author:" "email:" "date:"))
>           (add-text-properties
> @@ -5171,7 +5174,7 @@ will be prompted for."
>          ((not (member (char-after beg) '(?\  ?\t)))
>           ;; just any other in-buffer setting, but not indented
>           (add-text-properties
> -          beg (match-end 0)
> +          beg (1+ (match-end 0))
>            '(font-lock-fontified t face org-meta-line))
>           t)
>          ((or (member dc1 '("begin:" "end:" "caption:" "label:"
>
> I noticed a couple of issues in the applied patch (possibly due to a
> transcription error on my part).  Namely
> - I believe your default faces only work for white backgrounds

Yes in my example test file -- I'm only using a "light theme".

Not in the patch to come, as it simply is a copy of org-meta-line; so, if your
org-meta-line is "dark theme"-compatible, the patch won't alter anything for
you.

> - I didn't notice a change in background for the code blocks

I guess because your defface does not contain any background property?

> - it seems that the #+end_src line is fontified but the #+begin_src line
>   is not

That was not the case for me.

> An image of my Emacs after applying the patch is available at:
> http://i.imgur.com/2eu3z.png

I'll now make a proper patch of what I want to submit, and let you review it.
I'll share an image as well, of a possible customization.

Thanks for your comments, Eric(s) and Dan.

Best regards,
  Seb

-- 
Sébastien Vauban