From f553cb65b157b6df9563cefa593902d59301461b Mon Sep 17 00:00:00 2001
From: Ludovic Courtes
Date: Tue, 1 Nov 2005 16:19:34 +0000
Subject: Changes related to source-highlighting and to the manual.

* src/guile/skribilo/engine/lout.scm (lout-make-doc-cover-sheet): Fixed
  the definition of MULTI-COLUMN? (fixes a bug when producing
  multi-column documents).
  (lout-definitions): `@SkribeLeaders' renamed to `@SkribiloLeaders'.

* doc/skr/api.skr (api-search-definition): Fixed calls to `format'.

* doc/skr/manual.skr (keyword): Use `write' instead of `keyword->string'.

* doc/user/start.skb: Cosmetic changes.

* src/guile/skribilo/coloring/lisp.scm: First stab at its adaptation.

* src/guile/skribilo/coloring/xml.scm: Rewritten "by hand".

* src/guile/skribilo/evaluator.scm (skribe-include): Removed debugging
  statements.

* src/guile/skribilo/lib.scm (new): Added a trick such that users of this
  macro don't have to use `(oop goops)' and `(skribilo types)'.
  (date): New procedure.

* src/guile/skribilo/module.scm (*skribe-core-modules*): Renamed to
  `%skribe-core-modules'.
  (%skribe-core-modules): Removed `(oop goops)'.  Added `(skribilo
  source)', `(skribilo coloring lisp)' and `(skribilo coloring xml)'.

* src/guile/skribilo/skribe/api.scm (footnote): Fixed.

* src/guile/skribilo/source.scm: Cosmetic changes.

* src/guile/skribilo/types.scm: Export `language-extractor' and
  `language-fontifier'.

git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-11
---
 src/guile/skribilo/types.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/guile/skribilo/types.scm')

diff --git a/src/guile/skribilo/types.scm b/src/guile/skribilo/types.scm
index c6188b6..ac1edc4 100644
--- a/src/guile/skribilo/types.scm
+++ b/src/guile/skribilo/types.scm
@@ -43,7 +43,7 @@
 			container-ident container-body
 	    <document> document? document-ident document-body
 		       document-options document-end
-	    <language> language?
+	    <language> language? language-extractor language-fontifier
 	    <location> location? ast-location
 	    location-file location-line location-pos
 
@@ -283,8 +283,8 @@
 ;;; ======================================================================
 (define-class <language> ()
   (name	:init-keyword :name	 :init-value #f :getter langage-name)
-  (fontifier	:init-keyword :fontifier :init-value #f :getter langage-fontifier)
-  (extractor	:init-keyword :extractor :init-value #f :getter langage-extractor))
+  (fontifier	:init-keyword :fontifier :init-value #f :getter language-fontifier)
+  (extractor	:init-keyword :extractor :init-value #f :getter language-extractor))
 
 (define (language? obj)
   (is-a? obj <language>))
-- 
cgit v1.2.3