diff options
| author | Ludovic Courtès | 2013-05-19 17:12:02 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2013-05-19 17:36:16 +0200 |
| commit | eafb5d00fbec47a314b4eff32dddc36c3ba9a561 (patch) | |
| tree | bdb45653082bb9ba6a0a14f5c99e21a155e22c75 | |
| parent | 86f94102f6bb98203462ae53dfcfcc39c18eb5c0 (diff) | |
| download | skribilo-eafb5d00fbec47a314b4eff32dddc36c3ba9a561.tar.gz skribilo-eafb5d00fbec47a314b4eff32dddc36c3ba9a561.tar.lz skribilo-eafb5d00fbec47a314b4eff32dddc36c3ba9a561.zip | |
acmproc: Make `references' conform to the ACM guidelines.
* src/guile/skribilo/package/acmproc.scm (references): Always use `chapter'. Leave the font size unchanged. Sort entries according to `bib-sort/first-author-last-name'. * NEWS: Update.
| -rw-r--r-- | NEWS | 1 | ||||
| -rw-r--r-- | src/guile/skribilo/package/acmproc.scm | 11 |
2 files changed, 7 insertions, 5 deletions
diff --git a/NEWS b/NEWS index 6a58f08..a557d7e 100644 --- a/NEWS +++ b/NEWS @@ -24,6 +24,7 @@ It used to be that footnote HTML code contained an extraneous </div>, and nested <a> tags, which is invalid. ** acmproc: Fix typos in the LaTeX engine customs +** acmproc: `references' uses a chapter, the default font, and sorts entries ** `ref' warnings now always print the location of erroneous `:bib' references ** `numref' inserts an unbreakable space (was a breakable space) after its `:text' diff --git a/src/guile/skribilo/package/acmproc.scm b/src/guile/skribilo/package/acmproc.scm index 9929c85..92f7b6d 100644 --- a/src/guile/skribilo/package/acmproc.scm +++ b/src/guile/skribilo/package/acmproc.scm @@ -28,6 +28,7 @@ :use-module (skribilo package base) :autoload (skribilo utils keywords) (the-options the-body) :autoload (skribilo evaluator) (evaluate-document) + :autoload (skribilo biblio author) (bib-sort/first-author-last-name) :use-module (skribilo lib) :use-module (skribilo utils syntax) @@ -180,13 +181,13 @@ (if (string? old) (engine-custom-set! le 'predocument (string-append cop old)) (engine-custom-set! le 'predocument cop)))) - + ;*---------------------------------------------------------------------*/ ;* references ... */ ;*---------------------------------------------------------------------*/ (define (references) (list "\n\n" - (if (engine-format? "latex") - (font :size -1 (flush :side 'left (the-bibliography))) - (section :title "References" - (font :size -1 (the-bibliography)))))) + (chapter :title "References" + (flush :side 'left + (the-bibliography + :sort bib-sort/first-author-last-name))))) |