diff options
| author | Ludovic Court`es | 2007-01-16 17:28:27 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-01-16 17:28:27 +0000 |
| commit | 5dfd4c5c3026ba0f9e56ce6706322b76e1d8fb2c (patch) | |
| tree | a157ec17527c5f35a3d3468f0409efd9bfd996bc | |
| parent | e3d0d2d69fe98177edf8a67080f2812aecc4fa43 (diff) | |
| download | skribilo-5dfd4c5c3026ba0f9e56ce6706322b76e1d8fb2c.tar.gz skribilo-5dfd4c5c3026ba0f9e56ce6706322b76e1d8fb2c.tar.lz skribilo-5dfd4c5c3026ba0f9e56ce6706322b76e1d8fb2c.zip | |
`lncs' package: Use the native APIs.
* src/guile/skribilo/package/lncs.scm: Use `define-module' instead of
`define-skribe-module'. When customizing the LaTeX engine, set
`class-has-chapters?' to `#f'.
git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-3
| -rw-r--r-- | src/guile/skribilo/package/lncs.scm | 27 |
1 files changed, 23 insertions, 4 deletions
diff --git a/src/guile/skribilo/package/lncs.scm b/src/guile/skribilo/package/lncs.scm index 8ffa7da..0c7ef3b 100644 --- a/src/guile/skribilo/package/lncs.scm +++ b/src/guile/skribilo/package/lncs.scm @@ -1,6 +1,7 @@ -;;; lncs.scm -- The Skribe style for LNCS articles. +;;; lncs.scm -- The Skribilo style for LNCS articles. ;;; ;;; Copyright 2003, 2004 Manuel Serrano +;;; Copyright 2007 Ludovic Courtès <ludovic.courtes@laas.fr> ;;; ;;; ;;; This program is free software; you can redistribute it and/or modify @@ -18,13 +19,31 @@ ;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, ;;; USA. -(define-skribe-module (skribilo package lncs)) +(define-module (skribilo package lncs) + :use-module (skribilo ast) + :use-module (skribilo engine) + :use-module (skribilo writer) + :autoload (skribilo output) (output) + :autoload (skribilo package base) (section font flush + toc the-bibliography) + :autoload (skribilo utils keywords) (the-options the-body) + :use-module (skribilo lib) + :use-module (skribilo utils syntax) + + :use-module (ice-9 optargs) + + :export (abstract references)) + +(fluid-set! current-reader %skribilo-module-reader) + + ;*---------------------------------------------------------------------*/ ;* LaTeX global customizations */ ;*---------------------------------------------------------------------*/ (let ((le (find-engine 'latex))) (engine-custom-set! le 'documentclass "\\documentclass{llncs}") + (engine-custom-set! le 'class-has-chapters? #f) ;; &latex-author (markup-writer '&latex-author le :action (lambda (n e) @@ -130,11 +149,11 @@ (exp (p (center (color :bg bg :width 90. (markup-body n)))))) (skribe-eval exp e))))) - + ;*---------------------------------------------------------------------*/ ;* abstract ... */ ;*---------------------------------------------------------------------*/ -(define-markup (abstract #!rest opt #!key postscript) +(define-markup (abstract :rest opt :key postscript) (if (engine-format? "latex") (section :number #f :title "ABSTRACT" (p (the-body opt))) (let ((a (new markup |