From mboxrd@z Thu Jan 1 00:00:00 1970 From: rpgoldman@sift.info Subject: [PATCH] Make the latex export preprocessor rewrite #+INDEX to \index. Date: Thu, 28 Apr 2011 06:47:23 -0500 Message-ID: <1303991243-30731-2-git-send-email-rpgoldman@sift.info> References: <1303991243-30731-1-git-send-email-rpgoldman@sift.info> Return-path: Received: from eggs.gnu.org ([140.186.70.92]:38297) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QFPhp-0006bc-3X for emacs-orgmode@gnu.org; Thu, 28 Apr 2011 07:48:25 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QFPho-0008NL-1Y for emacs-orgmode@gnu.org; Thu, 28 Apr 2011 07:48:25 -0400 Received: from enchanter.real-time.com ([63.170.91.11]:3181) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QFPhn-0008NG-NI for emacs-orgmode@gnu.org; Thu, 28 Apr 2011 07:48:23 -0400 In-Reply-To: <1303991243-30731-1-git-send-email-rpgoldman@sift.info> 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 --- lisp/org-latex.el | 13 +++++++++++++ 1 files changed, 13 insertions(+), 0 deletions(-) diff --git a/lisp/org-latex.el b/lisp/org-latex.el index e7307ef..731d6e6 100644 --- a/lisp/org-latex.el +++ b/lisp/org-latex.el @@ -1775,6 +1775,8 @@ The conversion is made depending of STRING-BEFORE and STRING-AFTER." (end-of-line 1) (insert "\n"))))) + + (defun org-export-latex-fixed-width (opt) "When OPT is non-nil convert fixed-width sections to LaTeX." (goto-char (point-min)) @@ -2322,6 +2324,17 @@ The conversion is made depending of STRING-BEFORE and STRING-AFTER." (and (looking-at "[ \t]*ORG-VERSE-END.*") (org-replace-match-keep-properties "\\end{verse}" t t))) + ;; Convert #+INDEX to LaTeX \\index. + (goto-char (point-min)) + (while + (and + (let ((case-fold-search t)) + (re-search-forward "^[ \t]*#\\+index:[ \t]*\\(.*?\\)[ \t]*$" nil t)) + (> (match-end 1) (match-beginning 1))) + (let ((entry (match-string 1))) +;; (message "Found a #+INDEX match...") + (replace-match (format "\\index{%s}" entry) t t))) + ;; Convert center (goto-char (point-min)) (while (search-forward "ORG-CENTER-START" nil t) -- 1.7.3.5