From mboxrd@z Thu Jan 1 00:00:00 1970 From: rpgoldman@sift.info Subject: [PATCH] Revised my #+index preprocessor to fontify index entries. Date: Sun, 1 May 2011 11:01:49 -0500 Message-ID: <1304265709-1322-1-git-send-email-rpgoldman@sift.info> Return-path: Received: from eggs.gnu.org ([140.186.70.92]:43138) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QGZ63-0004Lh-Jm for emacs-orgmode@gnu.org; Sun, 01 May 2011 12:02:12 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QGZ62-000601-An for emacs-orgmode@gnu.org; Sun, 01 May 2011 12:02:11 -0400 Received: from enchanter.real-time.com ([63.170.91.11]:1893) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QGZ62-0005zm-3A for emacs-orgmode@gnu.org; Sun, 01 May 2011 12:02:10 -0400 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: "Robert P. Goldman" From: Robert P. Goldman --- The previous patch wasn't quite right because, e.g., it would index #+INDEX: =Class= as \\index{=Class=} instead of \\index{\texttt{Class}} This patch attempts to fix that. Question: would you prefer to have this reformulated as some kind of unified patch with the earlier one? lisp/org-latex.el | 12 +++++++++--- 1 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/org-latex.el b/lisp/org-latex.el index 731d6e6..b8f7019 100644 --- a/lisp/org-latex.el +++ b/lisp/org-latex.el @@ -1,4 +1,4 @@ -;;; org-latex.el --- LaTeX exporter for org-mode +;; org-latex.el --- LaTeX exporter for org-mode ;; ;; Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc. ;; @@ -2331,9 +2331,15 @@ The conversion is made depending of STRING-BEFORE and STRING-AFTER." (let ((case-fold-search t)) (re-search-forward "^[ \t]*#\\+index:[ \t]*\\(.*?\\)[ \t]*$" nil t)) (> (match-end 1) (match-beginning 1))) + ;; (message "Found a #+INDEX match...") (let ((entry (match-string 1))) -;; (message "Found a #+INDEX match...") - (replace-match (format "\\index{%s}" entry) t t))) + (replace-match (format "\\index{%s}" entry) t t) + ;; now process font directives in the index entry + (re-search-forward "^[ \t]*\\\\index{\\([^}]\\)}" nil t) + ;; (message (format "Trying to fontify string %s" (match-string 1))) + (save-restriction + (narrow-to-region (match-beginning 1) (match-end 1)) + (org-export-latex-fontify)))) ;; Convert center (goto-char (point-min)) -- 1.7.3.5