diff options
Diffstat (limited to 'src/guile')
| -rw-r--r-- | src/guile/skribilo/Makefile.am | 8 | ||||
| -rw-r--r-- | src/guile/skribilo/config.scm.in | 45 | ||||
| -rw-r--r-- | src/guile/skribilo/engine/context.scm | 4 | ||||
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 4 | ||||
| -rw-r--r-- | src/guile/skribilo/utils/compat.scm | 13 |
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)'. ;;; |