aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Court`es2007-08-31 17:05:03 +0000
committerLudovic Court`es2007-08-31 17:05:03 +0000
commit6b72aa99c8628d54d405d6acac9195302eac560d (patch)
treee4a08261810e3c1b631116c65b3112d0b06ccb36 /src/guile
parent0b43fcc72a3d8cd8de9fe72c99440b095946593d (diff)
downloadskribilo-6b72aa99c8628d54d405d6acac9195302eac560d.tar.gz
skribilo-6b72aa99c8628d54d405d6acac9195302eac560d.tar.lz
skribilo-6b72aa99c8628d54d405d6acac9195302eac560d.zip
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
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/biblio/template.scm14
1 files changed, 11 insertions, 3 deletions
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")