Browse Source

ox-bibtex: Allow nil style

* contrib/lisp/ox-bibtex.el (org-bibtex-process-bib-files,
  org-latex-keyword): Allow nil style.
Nicolas Goaziou 7 years ago
parent
commit
677b228104
1 changed files with 13 additions and 8 deletions
  1. 13 8
      contrib/lisp/ox-bibtex.el

+ 13 - 8
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))