Improve `(skribilo config)'.

* configure.ac: Don't generate `src/guile/skribilo/config.scm'; don't
  substitute `SKRIBILO_DOC_DIR', `SKRIBILO_EXT_DIR' and
  `SKRIBILO_SKR_PATH'.

* doc/modules/skribilo/documentation/env.scm (*courtes-mail*): Update.
  (*skribe-user-doc-url*, *skribe-dir-doc-url*): Update.

* src/guile/skribilo/Makefile.am (CLEANFILES, .in): New.
  Include `substitute.am'.

* src/guile/skribilo/config.scm.in: Overhauled.

* src/guile/skribilo/engine/context.scm: Use `skribilo-version' instead
  of `skribilo-release'.

* src/guile/skribilo/engine/lout.scm: Likewise.

* src/guile/skribilo/utils/compat.scm: Use `(skribilo config)'.
  (skribe-release, skribe-url, skribe-doc-dir, skribe-ext-dir,
  skribe-default-path, skribe-scheme): New.

5 files changed, 55 insertions, 19 deletions

diff --git a/src/guile/skribilo/Makefile.am b/src/guile/skribilo/Makefile.am
index c872d64..3846af4 100644
--- a/src/guile/skribilo/Makefile.am
+++ b/src/guile/skribilo/Makefile.am
@@ -10,4 +10,12 @@ dist_module_DATA =      biblio.scm color.scm config.scm		\
 
 SUBDIRS = utils reader engine package source biblio
 
+CLEANFILES = config.scm
+
+include $(top_srcdir)/substitute.am
+
+.in:
+	$(substitute) "$^" > "$@.tmp" &&	\
+	mv "$@.tmp" "$@"
+
 include $(top_srcdir)/guile-lint.am
diff --git a/src/guile/skribilo/config.scm.in b/src/guile/skribilo/config.scm.in
index 545612c..3d9c027 100644
--- a/src/guile/skribilo/config.scm.in
+++ b/src/guile/skribilo/config.scm.in
@@ -1,20 +1,35 @@
-;;; -*- Scheme -*-
+;;; config.scm  --  Skribilo configuration.
 ;;;
+;;; Copyright 2005, 2006, 2007  Ludovic Courtès <ludo@gnu.org>
+;;;
+;;;
+;;; This program is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 2 of the License, or
+;;; (at your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program; if not, write to the Free Software
+;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
+;;; USA.
 
-(define-module (skribilo config))
+(define-module (skribilo config)
+  :export (skribilo-version skribilo-url
+           skribilo-module-directory skribilo-doc-directory
+           skribilo-scheme))
 
-(define-public (skribilo-release)             "1.2")
-(define-public (skribilo-url)                 "http://www.nongnu.org/skribilo/")
-(define-public (skribilo-doc-directory)       "@SKRIBILO_DOC_DIR@")
-(define-public (skribilo-extension-directory) "@SKRIBILO_EXT_DIR@")
-(define-public (skribilo-default-path)        "@SKRIBILO_SKR_PATH@")
-(define-public (skribilo-scheme)              "guile")
+(define (skribilo-version)             "@PACKAGE_VERSION@")
+(define (skribilo-url)                 "http://www.nongnu.org/skribilo/")
+(define (skribilo-module-directory)    "@guilemoduledir@")
+(define (skribilo-scheme)              "@GUILE@")
+(define (skribilo-doc-directory)       "@docdir@")
 
-;; Compatibility.
 
-(define-public skribe-release      skribilo-release)
-(define-public skribe-url          skribilo-url)
-(define-public skribe-doc-dir      skribilo-doc-directory)
-(define-public skribe-ext-dir      skribilo-extension-directory)
-(define-public skribe-default-path skribilo-default-path)
-(define-public skribe-scheme       skribilo-scheme)
+;;; Local Variables:
+;;; coding: latin-1
+;;; End:
diff --git a/src/guile/skribilo/engine/context.scm b/src/guile/skribilo/engine/context.scm
index c56c9cf..970b35f 100644
--- a/src/guile/skribilo/engine/context.scm
+++ b/src/guile/skribilo/engine/context.scm
@@ -33,7 +33,7 @@
   :autoload   (skribilo output)        (output *document-being-output*)
   :autoload   (skribilo color)         (color->rgb
                                         document-used-colors)
-  :autoload   (skribilo config)        (skribilo-release)
+  :autoload   (skribilo config)        (skribilo-version)
   :use-module (ice-9 optargs)
   :use-module (ice-9 receive)
   :export (context-engine
@@ -430,7 +430,7 @@
 	     (display "% interface=en output=pdftex\n")
 	     (display "%%%% -*- TeX -*-\n")
 	     (format #t "%%%% File automatically generated by Skribilo ~A\n\n"
-		     (skribilo-release))
+		     (skribilo-version))
 	     ;; Make URLs active
 	     (display "\\setupinteraction[state=start]\n")
 	     ;; Choose the document font
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index e9483dd..49365ca 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -710,8 +710,8 @@
 
 			 ;; Extra PDF information, an alist of key-value
 			 ;; pairs (string pairs).
-			 (pdf-extra-info (("SkribeVersion"
-					   ,(skribilo-release))))
+			 (pdf-extra-info (("SkribiloVersion"
+					   ,(skribilo-version))))
 
 			 ;; Tells whether to produce PDF "docinfo"
 			 ;; (meta-information with title, author,
diff --git a/src/guile/skribilo/utils/compat.scm b/src/guile/skribilo/utils/compat.scm
index 8ba4a7d..8af3240 100644
--- a/src/guile/skribilo/utils/compat.scm
+++ b/src/guile/skribilo/utils/compat.scm
@@ -24,6 +24,7 @@
   :use-module (skribilo utils files)
   :use-module (skribilo parameters)
   :use-module (skribilo evaluator)
+  :use-module (skribilo config)
   :use-module (skribilo color)
   :use-module (skribilo lib)
   :use-module (srfi srfi-1)
@@ -70,6 +71,18 @@
 
 
 ;;;
+;;; Configuration.
+;;;
+
+(define-public skribe-release      skribilo-version)
+(define-public skribe-url          skribilo-url)
+(define-public skribe-doc-dir      skribilo-doc-directory)
+(define-public skribe-ext-dir      skribilo-module-directory)
+(define-public skribe-default-path skribilo-module-directory)
+(define-public skribe-scheme       skribilo-scheme)
+
+
+;;;
 ;;; Global variables that have been replaced by parameter objects
 ;;; in `(skribilo parameters)'.
 ;;;