From 7aecddd0f7c22ed2beb1ccf268d3b0e8b2d08831 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 13 Nov 2010 08:42:09 -0800
Subject: Replaced --biblio-file with --bibliography, removed --biblio-format.

Bibliography format is guessed from the file extension of the
bibliography.

Also, the bibliography entries are now read during option parsing.
---
 src/pandoc.hs | 27 +++++++++------------------
 1 file changed, 9 insertions(+), 18 deletions(-)

(limited to 'src')

diff --git a/src/pandoc.hs b/src/pandoc.hs
index 349d86ca2..d6b40cc94 100644
--- a/src/pandoc.hs
+++ b/src/pandoc.hs
@@ -163,8 +163,7 @@ data Opt = Opt
     , optIndentedCodeClasses :: [String] -- ^ Default classes for indented code blocks
     , optDataDir           :: Maybe FilePath
 #ifdef _CITEPROC
-    , optBiblioFile        :: String
-    , optBiblioFormat      :: String
+    , optBibliography      :: [Reference]
     , optCslFile           :: String
 #endif
     }
@@ -205,8 +204,7 @@ defaultOpts = Opt
     , optIndentedCodeClasses = []
     , optDataDir           = Nothing
 #ifdef _CITEPROC
-    , optBiblioFile        = []
-    , optBiblioFormat      = []
+    , optBibliography      = []
     , optCslFile           = []
 #endif
     }
@@ -520,16 +518,14 @@ options =
                   "FORMAT")
                  "" -- "Print default template for FORMAT"
 #ifdef _CITEPROC
-    , Option "" ["biblio"]
+    , Option "" ["bibliography"]
                  (ReqArg
-                  (\arg opt -> return opt { optBiblioFile = arg} )
+                  (\arg opt -> do
+                     refs <- readBiblioFile arg ""
+                     return opt { optBibliography =
+                                   optBibliography opt ++ refs } )
                   "FILENAME")
                  ""
-    , Option "" ["biblio-format"]
-                 (ReqArg
-                  (\arg opt -> return opt { optBiblioFormat = arg} )
-                  "STRING")
-                 ""
     , Option "" ["csl"]
                  (ReqArg
                   (\arg opt -> return opt { optCslFile = arg} )
@@ -684,9 +680,8 @@ main = do
               , optIndentedCodeClasses = codeBlockClasses
               , optDataDir           = mbDataDir
 #ifdef _CITEPROC
-              , optBiblioFile         = biblioFile
-              , optBiblioFormat       = biblioFormat
-              , optCslFile            = cslFile
+              , optBibliography      = refs
+              , optCslFile           = cslFile
 #endif
              } = opts
 
@@ -746,10 +741,6 @@ main = do
 
   let standalone' = standalone || isNonTextOutput writerName'
 
-#ifdef _CITEPROC
-  refs <- if null biblioFile then return [] else readBiblioFile biblioFile biblioFormat
-#endif
-
   variables' <- case (writerName', standalone', offline) of
                       ("s5", True, True) -> do
                         inc <- s5HeaderIncludes datadir
-- 
cgit v1.2.3