Re: [Orgmode] [PATCH] Emphasize caption in html output

[Carsten Dominik]

Hi Thomas,

I have just checked in a similar patch, thanks a lot.

- Carsten

On Mar 29, 2010, at 7:45 AM, Thomas S. Dye wrote:

> Hi Carsten,
>
> This appears to emphasize org-mode markup in html export of  
> captions.  It seems to work, but I have a difficult time  
> understanding org-mode code and haven't any sense of the proper way  
> to do things, etc., so caveat emptor.
>
> All the best,
> Tom
>
> ---------------
>         Modified lisp/org-html.el
> diff --git a/lisp/org-html.el b/lisp/org-html.el
> index d75d8f5..71e3e99 100644
> --- a/lisp/org-html.el
> +++ b/lisp/org-html.el
> @@ -1521,7 +1521,7 @@ lang=\"%s\" xml:lang=\"%s\">
>   (save-match-data
>     (if (string-match "^ltxpng/" src)
>         (format "<img src=\"%s\"/>" src)
> -      (let* ((caption (org-find-text-property-in-string 'org- 
> caption src))
> +      (let* ((caption (org-export-html-convert-emphasize (org-find- 
> text-property-in-string 'org-caption src)))
>              (attr (org-find-text-property-in-string 'org-attributes src))
>              (label (org-find-text-property-in-string 'org-label src)))
>         (concat
> @@ -1599,11 +1599,11 @@ lang=\"%s\" xml:lang=\"%s\">
>     ;; column and the special lines
>     (setq lines (org-table-clean-before-export lines)))
>
> -  (let* ((caption (or (get-text-property 0 'org-caption (car lines))
> +  (let* ((caption (org-export-html-convert-emphasize (or (get-text- 
> property 0 'org-caption (car lines))
>                       (get-text-property (or (next-single-property-change
>                                               0 'org-caption (car lines))
>                                              0)
> -                                        'org-caption (car lines))))
> +                                        'org-caption (car lines)))))
>          (attributes (or (get-text-property 0 'org-attributes (car lines))
>                          (get-text-property (or (next-single-property-change
>                                                  0 'org-attributes (car lines))
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> address@hidden
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

- Carsten