From 6b72aa99c8628d54d405d6acac9195302eac560d Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Fri, 31 Aug 2007 17:05:03 +0000
Subject: biblio: Fixed default template for `book' and `inbook'.

* src/guile/skribilo/biblio/template.scm
  (make-bib-entry-template/default): For `book', use `(or author
  editor)'.  Added an `inbook' case.

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

(limited to 'src/guile')

diff --git a/src/guile/skribilo/biblio/template.scm b/src/guile/skribilo/biblio/template.scm
index 5699699..cf17a92 100644
--- a/src/guile/skribilo/biblio/template.scm
+++ b/src/guile/skribilo/biblio/template.scm
@@ -153,13 +153,13 @@
               (", " month) " " year
               (", pp. " pages) "."))
     ((article)
-     `(author ". " (or title url documenturl) ". "
+     '(author ". " (or title url documenturl) ". "
               "In " journal ", " volume
               ("(" number ") ")", "
               (address ", ") month " " year ", "
               ("pp. " pages) "."))
     ((inproceedings)
-     `(author ". " (or title url documenturl) ". "
+     '(author ". " (or title url documenturl) ". "
               "In " booktitle ", "
               (series ", ")
               ("(" number ")")
@@ -167,12 +167,20 @@
               (publisher ", ")
               (month " ") year "."))
     ((book) ;; FIXME:  Title should be in italics
-     '(author ". " (or title url documenturl) ". "
+     '((or author editor)
+              ". " (or title url documenturl) ". "
               publisher
               (", " address)
               (", " month)
               ", " year
               (", pp. " pages) "."))
+    ((inbook)
+     `(author ". " (or title url documenturl) ". "
+              "In " booktitle ", " publisher
+              (", " editor " (" ,(_ "editor") ")")
+              (", " ,(_ "Chapter ") chapter)
+              (", pp. " pages) ", "
+              (month " ") year "."))
     ((phdthesis)
      `(author ". " (or title url documenturl)
               ", " ,(_ "PhD Thesis")
-- 
cgit v1.2.3