[Orgmode] [PATCH] org-exp-bibtex.el changes

[Chris Gray]

Hi,

Here is a patch that uses the -a switch of bibtex2html to sort the
citations as bibtex would.  It also changes the invocations of
replace-match to set fixedcase and literal to t.  This is so that emacs
does not try to interpret backslash characters in the bibtex file as it
is inserting them.

Cheers,
Chris

---
 contrib/lisp/org-exp-bibtex.el |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/contrib/lisp/org-exp-bibtex.el b/contrib/lisp/org-exp-bibtex.el
index d27fd59..a2051ff 100644
--- a/contrib/lisp/org-exp-bibtex.el
+++ b/contrib/lisp/org-exp-bibtex.el
@@ -56,7 +56,7 @@
        (replace-match
        (cond
         (htmlp ;; We are exporting to HTML
-         (call-process "bibtex2html" nil nil nil "--nodoc"  "--style" style 
"--no-header" (concat file ".bib"))
+         (call-process "bibtex2html" nil nil nil "-a" "--nodoc"  "--style" 
style "--no-header" (concat file ".bib"))
          (with-temp-buffer
            (save-match-data
              (insert-file-contents (concat file ".html"))
@@ -65,19 +65,19 @@
                (setq oebp-cite-plist (cons (cons (match-string 1) 
(match-string 2)) oebp-cite-plist)))
              (goto-char (point-min))
              (while (re-search-forward "<hr>" nil t)
-               (replace-match "<hr/>"))
+               (replace-match "<hr/>" t t))
              (concat "\n#+BEGIN_HTML\n<div class=\"bibliography\">\n" 
(buffer-string) "\n</div>\n#+END_HTML\n"))))
         (latexp ;; Latex export
          (concat "\n#+LATEX: \\\\bibliographystyle{" style "}"
-                 "\n#+LATEX: \\\\bibliography{" file "}\n"))))))
+                 "\n#+LATEX: \\\\bibliography{" file "}\n"))) t t)))
     ;; Convert cites to links in html
     (goto-char (point-min))
     (when htmlp
       (while (re-search-forward "\\\\cite{\\(\\w+\\)}" nil t)
        (let* ((cn (match-string 1))
               (cv (assoc cn oebp-cite-plist)))
-         (replace-match 
-          (concat "\[_{}[[" cn "][" (if cv (cdr cv) cn) "]]\]")))))))
+         (replace-match
+          (concat "\[_{}[[" cn "][" (if cv (cdr cv) cn) "]]\]") t t))))))
 
 
 (add-hook 'org-export-preprocess-hook 'org-export-bibtex-preprocess)
-- 
1.5.6.3