From 5dfd4c5c3026ba0f9e56ce6706322b76e1d8fb2c Mon Sep 17 00:00:00 2001 From: Ludovic Court`es Date: Tue, 16 Jan 2007 17:28:27 +0000 Subject: `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 --- src/guile/skribilo/package/lncs.scm | 27 +++++++++++++++++++++++---- 1 file changed, 23 insertions(+), 4 deletions(-) (limited to 'src/guile') 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 ;;; ;;; ;;; 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 -- cgit v1.2.3