summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Courtès2015-10-12 14:24:43 +0200
committerLudovic Courtès2015-10-12 14:24:43 +0200
commitdde71887ed4c1e149fe78aef14207b8422695a8b (patch)
treee3ba7cd2ed425ea61e4677e4b08426dd928819db /src/guile
parentd8d0d7cca22c207f4134c6761bc262981de61fba (diff)
downloadskribilo-dde71887ed4c1e149fe78aef14207b8422695a8b.tar.gz
skribilo-dde71887ed4c1e149fe78aef14207b8422695a8b.tar.lz
skribilo-dde71887ed4c1e149fe78aef14207b8422695a8b.zip
lncs: Make bibliography entries look closer to what's expected.
* src/guile/skribilo/package/lncs.scm (bib-entry-template): New procedure. (&bib-entry-body): Use it instead of 'make-bib-entry-template/default'. (&bib-entry-author, &bib-entry-booktitle, &bib-entry-journal): New writers.
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/package/lncs.scm90
1 files changed, 87 insertions, 3 deletions
diff --git a/src/guile/skribilo/package/lncs.scm b/src/guile/skribilo/package/lncs.scm
index 0289095..8a3acbe 100644
--- a/src/guile/skribilo/package/lncs.scm
+++ b/src/guile/skribilo/package/lncs.scm
@@ -2,7 +2,7 @@
;;; -*- coding: iso-8859-1 -*-
;;;
;;; Copyright 2003, 2004 Manuel Serrano
-;;; Copyright 2007 Ludovic Courtès <ludovic.courtes@laas.fr>
+;;; Copyright 2007, 2015 Ludovic Courtès <ludovic.courtes@laas.fr>
;;;
;;;
;;; This file is part of Skribilo.
@@ -207,6 +207,69 @@
(font :size -1
(the-bibliography :sort sort-proc)))))))
+(define (bib-entry-template kind)
+ ;; Return the LNCS bibliography entry template for KIND.
+ (case kind
+ ((techreport)
+ `(author ": " (or title url documenturl) ". "
+ ;; TRANSLATORS: The next few msgids are fragments of
+ ;; bibliography items.
+ ,(_ "Technical Report") " " number
+ (", " institution)
+ (", " address)
+ (", " pages)
+ (" (" year ")")))
+ ((article)
+ `(author ": " (or title url documenturl) ". "
+ ,(_ "In: ") journal ", " volume
+ ("(" number ")") ", "
+ (address ", ")
+ ("pp. " pages) (" (" year ")")))
+ ((inproceedings)
+ '(author ": " (or title url documenturl) ". "
+ ,(_ "In: ") booktitle ", "
+ (series)
+ ("(" number "), ")
+ (publisher ", ")
+ ("pp. " pages)
+ (" (" year ")")))
+ ((book)
+ '((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)
+ (" (" year ")")))
+ ((phdthesis)
+ `(author ": " (or title url documenturl)
+ ", " ,(_ "PhD Thesis")
+ (", " (or school institution))
+ (", " address)
+ (", " month)
+ (if month " " ", ") year))
+ ((misc)
+ '(author ": " (or title url documenturl) ". "
+ (institution ", ")
+ (publisher ", ")
+ (address ", ")
+ (month " ") ("(" year ")")
+ (" " url)))
+ (else
+ '(author ": " (or title url documenturl) ". "
+ (publisher ", ")
+ (address ", ")
+ (month " ")
+ (", pp. " pages)
+ (" (" year ")")))))
+
;;;
;;; Writers for LaTeX's `llncs' document class.
@@ -254,7 +317,7 @@
(markup-writer '&bib-entry-body
:action (lambda (n e)
(let* ((kind (markup-option n 'kind))
- (template (make-bib-entry-template/default kind)))
+ (template (bib-entry-template kind)))
(output-bib-entry-template n e template))))
(markup-writer '&bib-entry latex
@@ -263,7 +326,28 @@
(output (markup-option n :title) e)
(format #t "]{~a}\n" (markup-ident n))
(output n e (markup-writer-get '&bib-entry-body e)))
- :after "\n%\n"))))
+ :after "\n%\n")
+
+ ;; Abbreviate author first names like this: "Stallman, R.".
+ (markup-writer '&bib-entry-author
+ :action (lambda (n e)
+ (let ((names (markup-body n)))
+ (evaluate-document
+ (if (string? names)
+ (abbreviate-first-names
+ names
+ abbreviate-author-first-names/family-first)
+ names)
+ e))))
+ ;; Journal and book titles must not be italicized.
+ (markup-writer '&bib-entry-booktitle
+ :action (lambda (n e)
+ (let ((title (markup-body n)))
+ (evaluate-document title e))))
+
+ (markup-writer '&bib-entry-journal
+ :action (lambda (n e)
+ (evaluate-document (markup-body n) e))))))
;;; lncs.scm ends here