Re: [O] ox-bibtex: Allow for missing bibtex style

[Nicolas Goaziou]

Hello,

Julian Gehring <address@hidden> writes:

> I would like to add this feature, if I knew how to program in lisp...
> Would you like to work on this together?  I could contribute on the
> side of documenting and testing, if this helps.

Fair enough. Here is a patch for you to test.


Regards,

-- 
Nicolas Goaziou

>From 7f1ce8e8ba52152371e3aaf9af9a736fe443fde4 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <address@hidden>
Date: Sat, 21 Dec 2013 16:13:56 +0100
Subject: [PATCH] ox-bibtex: Allow nil style

* contrib/lisp/ox-bibtex.el (org-bibtex-process-bib-files,
  org-latex-keyword): Allow nil style.
---
 contrib/lisp/ox-bibtex.el | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

diff --git a/contrib/lisp/ox-bibtex.el b/contrib/lisp/ox-bibtex.el
index 629695e..894d413 100644
--- a/contrib/lisp/ox-bibtex.el
+++ b/contrib/lisp/ox-bibtex.el
@@ -42,6 +42,8 @@
 ;;
 ;;   #+BIBLIOGRAPHY: foo plain option:-d
 ;;
+;; "stylename" can also be "nil", in which case no style will be used.
+;;
 ;; Optional options are of the form:
 ;;
 ;;   option:-foobar pass '-foobar' to bibtex2html
@@ -184,13 +186,16 @@ Return new parse tree."
                                 (append (plist-get arguments :options)
                                         (list "-citefile" temp-file))))))
            ;; Call "bibtex2html" on specified file.
-           (unless (eq 0 (apply 'call-process
-                                (append '("bibtex2html" nil nil nil)
-                                        '("-a" "-nodoc" "-noheader" 
"-nofooter")
-                                        (list "--style"
-                                              (org-bibtex-get-style keyword))
-                                        (plist-get arguments :options)
-                                        (list (concat file ".bib")))))
+           (unless (eq 0 (apply
+                          'call-process
+                          (append '("bibtex2html" nil nil nil)
+                                  '("-a" "-nodoc" "-noheader" "-nofooter")
+                                  (let ((style
+                                         (org-not-nil
+                                          (org-bibtex-get-style keyword))))
+                                    (and style (list "--style" style)))
+                                  (plist-get arguments :options)
+                                  (list (concat file ".bib")))))
              (error "Executing bibtex2html failed"))
            (and temp-file (delete-file temp-file))
            ;; Open produced HTML file, and collect Bibtex key names
@@ -291,7 +296,7 @@ Fallback to `latex' back-end for other keywords."
     (if (not (equal (org-element-property :key keyword) "BIBLIOGRAPHY"))
         ad-do-it
       (let ((file (org-bibtex-get-file keyword))
-            (style (org-bibtex-get-style keyword)))
+            (style (org-not-nil (org-bibtex-get-style keyword))))
         (setq ad-return-value
               (when file
                 (concat (and style (format "\\bibliographystyle{%s}\n" style))
-- 
1.8.5.2