From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Thomas S. Dye" Subject: [PATCH] Emphasize caption in html output Date: Sun, 28 Mar 2010 19:45:30 -1000 Message-ID: <42A8856C-EF43-408A-8646-D386760175A7@tsdye.com> Mime-Version: 1.0 (Apple Message framework v936) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Nw7n9-0004UX-5R for emacs-orgmode@gnu.org; Mon, 29 Mar 2010 01:45:39 -0400 Received: from [140.186.70.92] (port=45014 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Nw7n6-0004Tl-Sx for emacs-orgmode@gnu.org; Mon, 29 Mar 2010 01:45:38 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1Nw7n5-00033V-I8 for emacs-orgmode@gnu.org; Mon, 29 Mar 2010 01:45:36 -0400 Received: from outbound-mail-359.bluehost.com ([66.147.249.253]:52261) by eggs.gnu.org with smtp (Exim 4.69) (envelope-from ) id 1Nw7n5-00033K-9o for emacs-orgmode@gnu.org; Mon, 29 Mar 2010 01:45:35 -0400 Received: from cpe-24-161-159-72.hawaii.res.rr.com ([24.161.159.72] helo=[192.168.1.2]) by box472.bluehost.com with esmtpa (Exim 4.69) (envelope-from ) id 1Nw7n2-00062K-Cj for emacs-orgmode@gnu.org; Sun, 28 Mar 2010 23:45:33 -0600 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode list 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 "" 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))