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 <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
-- 
cgit v1.2.3