summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Courtès2007-12-11 17:07:18 +0100
committerLudovic Courtès2007-12-11 17:07:18 +0100
commitb944137b1fe3e2ba16f3942d14dc5e58d8dd28c6 (patch)
tree8d05dea6c4517cf202dd1e75b96930d85d38104b /src/guile
parent9b10150c17b02bfcb21dd21269a71db8b45ceb37 (diff)
downloadskribilo-b944137b1fe3e2ba16f3942d14dc5e58d8dd28c6.tar.gz
skribilo-b944137b1fe3e2ba16f3942d14dc5e58d8dd28c6.tar.lz
skribilo-b944137b1fe3e2ba16f3942d14dc5e58d8dd28c6.zip
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.
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/Makefile.am8
-rw-r--r--src/guile/skribilo/config.scm.in45
-rw-r--r--src/guile/skribilo/engine/context.scm4
-rw-r--r--src/guile/skribilo/engine/lout.scm4
-rw-r--r--src/guile/skribilo/utils/compat.scm13
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)'.
;;;