summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Court`es2007-01-16 17:34:12 +0000
committerLudovic Court`es2007-01-16 17:34:12 +0000
commit2e87af7845cf7f83f3ed1b451e67054dd1d4ee93 (patch)
treea157ec17527c5f35a3d3468f0409efd9bfd996bc /src/guile
parentfb3978e2fd640d31053254ef1a4ab14c84624f07 (diff)
parent5dfd4c5c3026ba0f9e56ce6706322b76e1d8fb2c (diff)
downloadskribilo-2e87af7845cf7f83f3ed1b451e67054dd1d4ee93.tar.gz
skribilo-2e87af7845cf7f83f3ed1b451e67054dd1d4ee93.tar.lz
skribilo-2e87af7845cf7f83f3ed1b451e67054dd1d4ee93.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: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-40
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/package/lncs.scm27
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