[PATCH] Emphasize caption in html output

[PATCH] Emphasize caption in html output

[Thomas S. Dye]

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))

Re: [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.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

- Carsten