emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Nicolas Goaziou <n.goaziou@gmail.com>
To: Julian Gehring <julian.gehring@gmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: ox-bibtex: Allow for missing bibtex style
Date: Sat, 21 Dec 2013 16:15:53 +0100	[thread overview]
Message-ID: <87d2kqjkuu.fsf@gmail.com> (raw)
In-Reply-To: <52B5551A.6040508@gmail.com> (Julian Gehring's message of "Sat, 21 Dec 2013 09:45:14 +0100")

[-- Attachment #1: Type: text/plain, Size: 330 bytes --]

Hello,

Julian Gehring <julian.gehring@gmail.com> 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

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-ox-bibtex-Allow-nil-style.patch --]
[-- Type: text/x-diff, Size: 2247 bytes --]

From 7f1ce8e8ba52152371e3aaf9af9a736fe443fde4 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <n.goaziou@gmail.com>
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


  reply	other threads:[~2013-12-21 15:15 UTC|newest]

Thread overview: 6+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2013-12-19 12:03 ox-bibtex: Allow for missing bibtex style Julian Gehring
2013-12-20 22:30 ` Nicolas Goaziou
2013-12-21  8:45   ` Julian Gehring
2013-12-21 15:15     ` Nicolas Goaziou [this message]
2014-01-07 13:40       ` Julian Gehring
2014-01-07 16:26         ` Nicolas Goaziou

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87d2kqjkuu.fsf@gmail.com \
    --to=n.goaziou@gmail.com \
    --cc=emacs-orgmode@gnu.org \
    --cc=julian.gehring@gmail.com \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).