From 2efe70aec1e1146abdae6a007af27b3662f89338 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Mon, 5 Feb 2007 13:40:03 +0000
Subject: Cleaned up the default bibliography template.

* src/guile/skribilo/biblio/template.scm
  (make-bib-entry-template/default): Cleaned up.  Produces better
  output.

git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-14
---
 src/guile/skribilo/biblio/template.scm | 45 ++++++++++++++++++++--------------
 1 file changed, 26 insertions(+), 19 deletions(-)

(limited to 'src/guile')

diff --git a/src/guile/skribilo/biblio/template.scm b/src/guile/skribilo/biblio/template.scm
index 0917a93..02b4e76 100644
--- a/src/guile/skribilo/biblio/template.scm
+++ b/src/guile/skribilo/biblio/template.scm
@@ -141,14 +141,16 @@
   (case kind
     ((techreport)
      `(author ". " (or title url documenturl) ". "
-              ,(_ "Technical Report") " " number ", " institution ", "
-              address ", " month " " year ", "
-              ("pp. " pages) "."))
+              ,(_ "Technical Report") " " number
+              (", " institution)
+              (", " address)
+              (", " month) " " year
+              (", pp. " pages) "."))
     ((article)
      `(author ". " (or title url documenturl) ". "
               "In " journal ", " volume
-              ("(" number ")") ", "
-              address ", " month " " year ", "
+              ("(" number ") ")", "
+              (address ", ") month " " year ", "
               ("pp. " pages) "."))
     ((inproceedings)
      `(author ". " (or title url documenturl) ". "
@@ -156,28 +158,33 @@
               (series ", ")
               ("(" number ")")
               ("pp. " pages ", ")
-              ("" publisher ", ")
-              ;; FIXME:  Addr., month.
-              year "."))
+              (publisher ", ")
+              (month " ") year "."))
     ((book) ;; FIXME:  Title should be in italics
      '(author ". " (or title url documenturl) ". "
-              publisher ", " address
-              ", " month " " year ", "
+              publisher
+              (", " address)
+              (", " month)
+              (if month " " ", ") year ", "
               ("pp. " pages) "."))
     ((phdthesis)
-     '(author ". " (or title url documenturl)
-              ". " type ", "
-              school ", " address
-              ", " month " " year"."))
+     `(author ". " (or title url documenturl)
+              ", " ,(_ "PhD Thesis")
+              (", " (or school institution))
+              (", " address)
+              (", " month)
+              (if month " " ", ") year "."))
     ((misc)
      '(author ". " (or title url documenturl) ". "
-              publisher ", " address
-              ", " month " " year
-              (", " url) "."))
+              (publisher ", ")
+              (address ", ")
+              (month " ") year ". "
+              (url ".")))
     (else
      '(author ". " (or title url documenturl) ". "
-              publisher ", " address
-              ", " month " " year ", "
+              (publisher ", ")
+              (address ", ")
+              (month " ") year ", "
               ("pp. " pages) "."))))
 
 (define (make-bib-entry-template/skribe kind)
-- 
cgit v1.2.3