From ddb2e47d8ed4d6d6508d342c0718492f99db64d4 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sat, 1 Aug 2020 12:40:39 +0200 Subject: Write '#:use-module', '#:export', etc. instead of ':use-module', etc. Changes made by running: for i in $(git ls-tree -r HEAD --name-only) ; do sed -i $i -e's/:use-module/#:use-module/g ; s/:autoload/#:autoload/g ; s/:export/#:export/g' ; done --- src/guile/Makefile.am | 8 ++--- src/guile/diff.scm | 2 +- src/guile/skribilo.scm | 32 +++++++++--------- src/guile/skribilo/ast.scm | 22 ++++++------ src/guile/skribilo/biblio.scm | 28 ++++++++-------- src/guile/skribilo/biblio/abbrev.scm | 10 +++--- src/guile/skribilo/biblio/author.scm | 24 ++++++------- src/guile/skribilo/biblio/bibtex.scm | 14 ++++---- src/guile/skribilo/biblio/template.scm | 18 +++++----- src/guile/skribilo/color.scm | 10 +++--- src/guile/skribilo/condition.scm | 16 ++++----- src/guile/skribilo/config.in | 2 +- src/guile/skribilo/debug.scm | 6 ++-- src/guile/skribilo/engine.scm | 22 ++++++------ src/guile/skribilo/engine/base.scm | 22 ++++++------ src/guile/skribilo/engine/context.scm | 32 +++++++++--------- src/guile/skribilo/engine/html.scm | 52 ++++++++++++++--------------- src/guile/skribilo/engine/html4.scm | 24 ++++++------- src/guile/skribilo/engine/info.scm | 40 +++++++++++----------- src/guile/skribilo/engine/latex.scm | 36 ++++++++++---------- src/guile/skribilo/engine/lout.scm | 50 +++++++++++++-------------- src/guile/skribilo/engine/xml.scm | 16 ++++----- src/guile/skribilo/evaluator.scm | 14 ++++---- src/guile/skribilo/index.scm | 18 +++++----- src/guile/skribilo/lib.scm | 18 +++++----- src/guile/skribilo/location.scm | 8 ++--- src/guile/skribilo/module.scm | 8 ++--- src/guile/skribilo/output.scm | 28 ++++++++-------- src/guile/skribilo/package/acmproc.scm | 26 +++++++-------- src/guile/skribilo/package/base.scm | 38 ++++++++++----------- src/guile/skribilo/package/diff.scm | 40 +++++++++++----------- src/guile/skribilo/package/eq.scm | 34 +++++++++---------- src/guile/skribilo/package/eq/lout.scm | 16 ++++----- src/guile/skribilo/package/french.scm | 2 +- src/guile/skribilo/package/html-navtabs.scm | 20 +++++------ src/guile/skribilo/package/jfp.scm | 28 ++++++++-------- src/guile/skribilo/package/letter.scm | 20 +++++------ src/guile/skribilo/package/lncs.scm | 30 ++++++++--------- src/guile/skribilo/package/pie.scm | 28 ++++++++-------- src/guile/skribilo/package/pie/lout.scm | 16 ++++----- src/guile/skribilo/package/scribe.scm | 22 ++++++------ src/guile/skribilo/package/sigplan.scm | 24 ++++++------- src/guile/skribilo/package/slide.scm | 18 +++++----- src/guile/skribilo/package/slide/base.scm | 18 +++++----- src/guile/skribilo/package/slide/html.scm | 24 ++++++------- src/guile/skribilo/package/slide/latex.scm | 30 ++++++++--------- src/guile/skribilo/package/slide/lout.scm | 18 +++++----- src/guile/skribilo/package/web-article.scm | 20 +++++------ src/guile/skribilo/package/web-book.scm | 8 ++--- src/guile/skribilo/package/web-book2.scm | 14 ++++---- src/guile/skribilo/parameters.scm | 2 +- src/guile/skribilo/prog.scm | 14 ++++---- src/guile/skribilo/reader.scm | 12 +++---- src/guile/skribilo/reader/outline.scm | 20 +++++------ src/guile/skribilo/reader/rss-2.scm | 24 ++++++------- src/guile/skribilo/reader/skribe.scm | 10 +++--- src/guile/skribilo/resolve.scm | 20 +++++------ src/guile/skribilo/source.scm | 18 +++++----- src/guile/skribilo/source/c-lex.scm | 8 ++--- src/guile/skribilo/source/c.scm | 12 +++---- src/guile/skribilo/source/lisp-lex.scm | 8 ++--- src/guile/skribilo/source/lisp.scm | 18 +++++----- src/guile/skribilo/source/parameters.scm | 4 +-- src/guile/skribilo/source/xml-lex.scm | 8 ++--- src/guile/skribilo/source/xml.scm | 6 ++-- src/guile/skribilo/sui.scm | 32 +++++++++--------- src/guile/skribilo/table.scm | 6 ++-- src/guile/skribilo/utils/compat.scm | 42 +++++++++++------------ src/guile/skribilo/utils/files.scm | 2 +- src/guile/skribilo/utils/images.in | 14 ++++---- src/guile/skribilo/utils/justify.scm | 10 +++--- src/guile/skribilo/utils/keywords.scm | 2 +- src/guile/skribilo/utils/strings.scm | 6 ++-- src/guile/skribilo/utils/syntax.scm | 8 ++--- src/guile/skribilo/utils/text-table.scm | 10 +++--- src/guile/skribilo/verify.scm | 24 ++++++------- src/guile/skribilo/writer.scm | 22 ++++++------ 77 files changed, 718 insertions(+), 718 deletions(-) (limited to 'src/guile') diff --git a/src/guile/Makefile.am b/src/guile/Makefile.am index 2d6571c..6599581 100644 --- a/src/guile/Makefile.am +++ b/src/guile/Makefile.am @@ -137,11 +137,11 @@ clean-local: mv "$@" "$@.tmp" && \ echo '(define-module (skribilo source $(^:skribilo/source/%.l=%))' \ > "$@" && \ - echo ' :use-module (skribilo lib)' >> "$@" && \ - echo ' :use-module (skribilo source parameters)' \ + echo ' #:use-module (skribilo lib)' >> "$@" && \ + echo ' #:use-module (skribilo source parameters)' \ >> "$@" && \ - echo ' :use-module (srfi srfi-1)' >> "$@" && \ - echo ' :export (lexer-init lexer' >> "$@" && \ + echo ' #:use-module (srfi srfi-1)' >> "$@" && \ + echo ' #:export (lexer-init lexer' >> "$@" && \ echo ' lexer-get-func-column' >> "$@" && \ echo ' lexer-get-func-offset' >> "$@" && \ echo ' lexer-get-line lexer-getc' >> "$@" && \ diff --git a/src/guile/diff.scm b/src/guile/diff.scm index 6cf125e..82cf405 100644 --- a/src/guile/diff.scm +++ b/src/guile/diff.scm @@ -7,7 +7,7 @@ ;;; (define-module (diff) - :export (diff:longest-common-subsequence diff:edits + #:export (diff:longest-common-subsequence diff:edits diff:edit-length)) ;Permission to copy this software, to modify it, to redistribute it, diff --git a/src/guile/skribilo.scm b/src/guile/skribilo.scm index 4d9b2c6..512b462 100644 --- a/src/guile/skribilo.scm +++ b/src/guile/skribilo.scm @@ -31,22 +31,22 @@ (define-module (skribilo) - :autoload (skribilo module) (make-user-module *skribilo-user-module*) - :autoload (skribilo engine) (*current-engine*) - :autoload (skribilo reader) (*document-reader*) - - :use-module (skribilo utils syntax) - :use-module (skribilo evaluator) - :use-module (skribilo debug) - :use-module (skribilo parameters) - :use-module (skribilo config) - - :use-module (srfi srfi-1) - :use-module (srfi srfi-13) - :use-module (srfi srfi-37) - :use-module (srfi srfi-39) - - :export (skribilo)) + #:autoload (skribilo module) (make-user-module *skribilo-user-module*) + #:autoload (skribilo engine) (*current-engine*) + #:autoload (skribilo reader) (*document-reader*) + + #:use-module (skribilo utils syntax) + #:use-module (skribilo evaluator) + #:use-module (skribilo debug) + #:use-module (skribilo parameters) + #:use-module (skribilo config) + + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-13) + #:use-module (srfi srfi-37) + #:use-module (srfi srfi-39) + + #:export (skribilo)) ;; Install the Skribilo module syntax reader. diff --git a/src/guile/skribilo/ast.scm b/src/guile/skribilo/ast.scm index 524e654..4a39ebf 100644 --- a/src/guile/skribilo/ast.scm +++ b/src/guile/skribilo/ast.scm @@ -21,20 +21,20 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo ast) - :use-module (oop goops) + #:use-module (oop goops) - :use-module (srfi srfi-1) - :use-module (srfi srfi-13) - :use-module (srfi srfi-34) - :use-module (srfi srfi-35) - :use-module (skribilo condition) - :use-module (skribilo utils syntax) - :use-module (skribilo location) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-13) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) + #:use-module (skribilo condition) + #:use-module (skribilo utils syntax) + #:use-module (skribilo location) - :use-module (ice-9 match) - :use-module (ice-9 optargs) + #:use-module (ice-9 match) + #:use-module (ice-9 optargs) - :export ( ast? ast-loc ast-loc-set! + #:export ( ast? ast-loc ast-loc-set! ast-parent ast->string ast->file-location ast-resolved? diff --git a/src/guile/skribilo/biblio.scm b/src/guile/skribilo/biblio.scm index b240f81..f255441 100644 --- a/src/guile/skribilo/biblio.scm +++ b/src/guile/skribilo/biblio.scm @@ -23,24 +23,24 @@ (define-module (skribilo biblio) - :use-module (skribilo utils syntax) ;; `when', `unless' + #:use-module (skribilo utils syntax) ;; `when', `unless' - :use-module (srfi srfi-1) - :autoload (srfi srfi-34) (raise) - :use-module (srfi srfi-35) - :use-module (srfi srfi-39) - :use-module (skribilo condition) + #:use-module (srfi srfi-1) + #:autoload (srfi srfi-34) (raise) + #:use-module (srfi srfi-35) + #:use-module (srfi srfi-39) + #:use-module (skribilo condition) - :autoload (skribilo reader) (*document-reader*) - :autoload (skribilo parameters) (*bib-path*) - :autoload (skribilo ast) ( is-markup?) - :autoload (skribilo lib) (skribe-warning) - :autoload (skribilo biblio author)(short-author-names) + #:autoload (skribilo reader) (*document-reader*) + #:autoload (skribilo parameters) (*bib-path*) + #:autoload (skribilo ast) ( is-markup?) + #:autoload (skribilo lib) (skribe-warning) + #:autoload (skribilo biblio author)(short-author-names) - :use-module (ice-9 optargs) - :use-module (oop goops) + #:use-module (ice-9 optargs) + #:use-module (oop goops) - :export (bib-table? make-bib-table *bib-table* + #:export (bib-table? make-bib-table *bib-table* bib-add! bib-duplicate bib-for-each bib-map open-bib-file parse-bib diff --git a/src/guile/skribilo/biblio/abbrev.scm b/src/guile/skribilo/biblio/abbrev.scm index 239e305..35a0758 100644 --- a/src/guile/skribilo/biblio/abbrev.scm +++ b/src/guile/skribilo/biblio/abbrev.scm @@ -19,11 +19,11 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo biblio abbrev) - :use-module (srfi srfi-13) - :autoload (skribilo ast) (markup? markup-body-set!) - :autoload (skribilo utils strings) (make-string-replace) - :autoload (ice-9 regex) (regexp-substitute/global) - :export (is-abbreviation? is-acronym? abbreviate-word + #:use-module (srfi srfi-13) + #:autoload (skribilo ast) (markup? markup-body-set!) + #:autoload (skribilo utils strings) (make-string-replace) + #:autoload (ice-9 regex) (regexp-substitute/global) + #:export (is-abbreviation? is-acronym? abbreviate-word abbreviate-string abbreviate-markup %cs-conference-abbreviations diff --git a/src/guile/skribilo/biblio/author.scm b/src/guile/skribilo/biblio/author.scm index 6a93348..d38ecaa 100644 --- a/src/guile/skribilo/biblio/author.scm +++ b/src/guile/skribilo/biblio/author.scm @@ -20,18 +20,18 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo biblio author) - :use-module (srfi srfi-13) - :use-module (srfi srfi-14) - :autoload (srfi srfi-34) (raise) - :use-module (srfi srfi-35) - :use-module (ice-9 match) - :use-module (skribilo biblio abbrev) - :autoload (skribilo ast) (markup-option markup-body markup-ident) - :autoload (skribilo utils strings) (make-string-replace) - :autoload (skribilo package base) (it) - :use-module (skribilo utils syntax) - - :export (comma-separated->author-list + #:use-module (srfi srfi-13) + #:use-module (srfi srfi-14) + #:autoload (srfi srfi-34) (raise) + #:use-module (srfi srfi-35) + #:use-module (ice-9 match) + #:use-module (skribilo biblio abbrev) + #:autoload (skribilo ast) (markup-option markup-body markup-ident) + #:autoload (skribilo utils strings) (make-string-replace) + #:autoload (skribilo package base) (it) + #:use-module (skribilo utils syntax) + + #:export (comma-separated->author-list comma-separated->and-separated-authors extract-first-author-name diff --git a/src/guile/skribilo/biblio/bibtex.scm b/src/guile/skribilo/biblio/bibtex.scm index d9e70f2..e8ec613 100644 --- a/src/guile/skribilo/biblio/bibtex.scm +++ b/src/guile/skribilo/biblio/bibtex.scm @@ -20,13 +20,13 @@ (define-module (skribilo biblio bibtex) - :autoload (skribilo utils strings) (make-string-replace) - :autoload (skribilo ast) (markup-option ast->string) - :autoload (skribilo engine) (engine-filter find-engine) - :use-module (skribilo biblio author) - :use-module (srfi srfi-39) - :use-module (srfi srfi-13) - :export (print-as-bibtex-entry)) + #:autoload (skribilo utils strings) (make-string-replace) + #:autoload (skribilo ast) (markup-option ast->string) + #:autoload (skribilo engine) (engine-filter find-engine) + #:use-module (skribilo biblio author) + #:use-module (srfi srfi-39) + #:use-module (srfi srfi-13) + #:export (print-as-bibtex-entry)) ;;; Author: Ludovic Courtès ;;; diff --git a/src/guile/skribilo/biblio/template.scm b/src/guile/skribilo/biblio/template.scm index b2d2924..96ac4e3 100644 --- a/src/guile/skribilo/biblio/template.scm +++ b/src/guile/skribilo/biblio/template.scm @@ -20,19 +20,19 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo biblio template) - :use-module (srfi srfi-1) - :use-module (srfi srfi-34) - :use-module (srfi srfi-35) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) - :use-module (skribilo ast) - :autoload (skribilo output) (output) - :use-module (skribilo biblio) + #:use-module (skribilo ast) + #:autoload (skribilo output) (output) + #:use-module (skribilo biblio) - :use-module (ice-9 optargs) + #:use-module (ice-9 optargs) - :use-module (skribilo utils syntax) + #:use-module (skribilo utils syntax) - :export (evaluate-bib-entry-template + #:export (evaluate-bib-entry-template output-bib-entry-template make-bib-entry-template/default make-bib-entry-template/skribe)) diff --git a/src/guile/skribilo/color.scm b/src/guile/skribilo/color.scm index ab5f943..9697ea1 100644 --- a/src/guile/skribilo/color.scm +++ b/src/guile/skribilo/color.scm @@ -22,11 +22,11 @@ (define-module (skribilo color) - :use-module (skribilo utils syntax) - :autoload (skribilo ast) (search-down) - :autoload (srfi srfi-1) (append-map) - :autoload (srfi srfi-60) (bitwise-and arithmetic-shift) - :export (color->rgb document-used-colors)) + #:use-module (skribilo utils syntax) + #:autoload (skribilo ast) (search-down) + #:autoload (srfi srfi-1) (append-map) + #:autoload (srfi srfi-60) (bitwise-and arithmetic-shift) + #:export (color->rgb document-used-colors)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/condition.scm b/src/guile/skribilo/condition.scm index 99e8b4b..3d99c06 100644 --- a/src/guile/skribilo/condition.scm +++ b/src/guile/skribilo/condition.scm @@ -20,14 +20,14 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo condition) - :autoload (srfi srfi-1) (find) - :use-module (srfi srfi-34) - :use-module (srfi srfi-35) - :use-module (srfi srfi-39) - :use-module (ice-9 optargs) - :autoload (skribilo parameters) (*destination-file*) - :autoload (skribilo utils syntax) (G_ N_) - :export (&skribilo-error skribilo-error? + #:autoload (srfi srfi-1) (find) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) + #:use-module (srfi srfi-39) + #:use-module (ice-9 optargs) + #:autoload (skribilo parameters) (*destination-file*) + #:autoload (skribilo utils syntax) (G_ N_) + #:export (&skribilo-error skribilo-error? invalid-argument-error &invalid-argument-error invalid-argument-error? diff --git a/src/guile/skribilo/config.in b/src/guile/skribilo/config.in index 238266b..8f5a812 100644 --- a/src/guile/skribilo/config.in +++ b/src/guile/skribilo/config.in @@ -20,7 +20,7 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo config) - :export (skribilo-version skribilo-url skribilo-bug-report-address + #:export (skribilo-version skribilo-url skribilo-bug-report-address skribilo-module-directory skribilo-doc-directory skribilo-locale-directory skribilo-scheme)) diff --git a/src/guile/skribilo/debug.scm b/src/guile/skribilo/debug.scm index 983dddc..f3da3b9 100644 --- a/src/guile/skribilo/debug.scm +++ b/src/guile/skribilo/debug.scm @@ -20,9 +20,9 @@ (define-module (skribilo debug) - :use-module (skribilo utils syntax) - :use-module (srfi srfi-39) - :export (debug-item debug-bold with-debug)) + #:use-module (skribilo utils syntax) + #:use-module (srfi srfi-39) + #:export (debug-item debug-bold with-debug)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/engine.scm b/src/guile/skribilo/engine.scm index 5f82044..b1df2ce 100644 --- a/src/guile/skribilo/engine.scm +++ b/src/guile/skribilo/engine.scm @@ -21,20 +21,20 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo engine) - :use-module (skribilo debug) - :use-module (skribilo utils syntax) - :use-module (skribilo condition) + #:use-module (skribilo debug) + #:use-module (skribilo utils syntax) + #:use-module (skribilo condition) - :use-module (oop goops) - :use-module (ice-9 optargs) - :use-module (ice-9 format) + #:use-module (oop goops) + #:use-module (ice-9 optargs) + #:use-module (ice-9 format) - :use-module (srfi srfi-1) - :autoload (srfi srfi-34) (raise guard) - :use-module (srfi srfi-35) - :autoload (srfi srfi-39) (make-parameter) + #:use-module (srfi srfi-1) + #:autoload (srfi srfi-34) (raise guard) + #:use-module (srfi srfi-35) + #:autoload (srfi srfi-39) (make-parameter) - :export ( engine? engine-ident engine-format + #:export ( engine? engine-ident engine-format engine-customs engine-filter engine-symbol-table *current-engine* diff --git a/src/guile/skribilo/engine/base.scm b/src/guile/skribilo/engine/base.scm index 96344eb..60f15cb 100644 --- a/src/guile/skribilo/engine/base.scm +++ b/src/guile/skribilo/engine/base.scm @@ -21,20 +21,20 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo engine base) - :use-module (skribilo ast) - :use-module (skribilo engine) - :use-module (skribilo writer) - :use-module (skribilo evaluator) - :use-module (skribilo package base) - :autoload (skribilo output) (output) - :autoload (skribilo lib) (skribe-error) - :autoload (skribilo utils keywords) (list-split) - :autoload (skribilo biblio template) (make-bib-entry-template/default + #:use-module (skribilo ast) + #:use-module (skribilo engine) + #:use-module (skribilo writer) + #:use-module (skribilo evaluator) + #:use-module (skribilo package base) + #:autoload (skribilo output) (output) + #:autoload (skribilo lib) (skribe-error) + #:autoload (skribilo utils keywords) (list-split) + #:autoload (skribilo biblio template) (make-bib-entry-template/default output-bib-entry-template) ;; syntactic sugar - :use-module (skribilo utils syntax) + #:use-module (skribilo utils syntax) - :export (base-engine)) + #:export (base-engine)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/engine/context.scm b/src/guile/skribilo/engine/context.scm index b8c431d..f8e2c5f 100644 --- a/src/guile/skribilo/engine/context.scm +++ b/src/guile/skribilo/engine/context.scm @@ -21,23 +21,23 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo engine context) - :use-module (skribilo lib) - :use-module (skribilo ast) - :use-module (skribilo engine) - :use-module (skribilo writer) - :use-module (skribilo utils keywords) - :use-module (skribilo utils strings) - :use-module (skribilo utils syntax) - :use-module (skribilo package base) - :autoload (skribilo utils images) (convert-image) - :autoload (skribilo evaluator) (evaluate-document) - :autoload (skribilo output) (output *document-being-output*) - :autoload (skribilo color) (color->rgb + #:use-module (skribilo lib) + #:use-module (skribilo ast) + #:use-module (skribilo engine) + #:use-module (skribilo writer) + #:use-module (skribilo utils keywords) + #:use-module (skribilo utils strings) + #:use-module (skribilo utils syntax) + #:use-module (skribilo package base) + #:autoload (skribilo utils images) (convert-image) + #:autoload (skribilo evaluator) (evaluate-document) + #:autoload (skribilo output) (output *document-being-output*) + #:autoload (skribilo color) (color->rgb document-used-colors) - :autoload (skribilo config) (skribilo-version) - :use-module (ice-9 optargs) - :use-module (ice-9 receive) - :export (context-engine + #:autoload (skribilo config) (skribilo-version) + #:use-module (ice-9 optargs) + #:use-module (ice-9 receive) + #:export (context-engine ConTeXt TeX)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm index bcf9214..edbd69e 100644 --- a/src/guile/skribilo/engine/html.scm +++ b/src/guile/skribilo/engine/html.scm @@ -21,32 +21,32 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo engine html) - :use-module (skribilo lib) - :use-module (skribilo ast) - :use-module (skribilo config) - :use-module (skribilo engine) - :use-module (skribilo writer) - :use-module (skribilo location) - :use-module (skribilo utils strings) - :use-module (skribilo utils syntax) - :use-module (skribilo package base) - :autoload (skribilo utils images) (convert-image) - :autoload (skribilo utils files) (file-prefix file-suffix) - :autoload (skribilo parameters) (*destination-file*) - :autoload (skribilo evaluator) (evaluate-document) - :autoload (skribilo output) (output) - :autoload (skribilo debug) (*debug*) - :autoload (skribilo sui) (document-sui) - :autoload (ice-9 rdelim) (read-line) - :autoload (ice-9 regex) (regexp-substitute/global) - :use-module (ice-9 match) - - :use-module (srfi srfi-1) - :use-module (srfi srfi-13) - :use-module (srfi srfi-14) - :use-module (srfi srfi-39) - - :export (html-engine html-title-engine html-file + #:use-module (skribilo lib) + #:use-module (skribilo ast) + #:use-module (skribilo config) + #:use-module (skribilo engine) + #:use-module (skribilo writer) + #:use-module (skribilo location) + #:use-module (skribilo utils strings) + #:use-module (skribilo utils syntax) + #:use-module (skribilo package base) + #:autoload (skribilo utils images) (convert-image) + #:autoload (skribilo utils files) (file-prefix file-suffix) + #:autoload (skribilo parameters) (*destination-file*) + #:autoload (skribilo evaluator) (evaluate-document) + #:autoload (skribilo output) (output) + #:autoload (skribilo debug) (*debug*) + #:autoload (skribilo sui) (document-sui) + #:autoload (ice-9 rdelim) (read-line) + #:autoload (ice-9 regex) (regexp-substitute/global) + #:use-module (ice-9 match) + + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-13) + #:use-module (srfi srfi-14) + #:use-module (srfi srfi-39) + + #:export (html-engine html-title-engine html-file html-width html-class html-markup-class html-title-authors)) diff --git a/src/guile/skribilo/engine/html4.scm b/src/guile/skribilo/engine/html4.scm index a9b90de..b158b57 100644 --- a/src/guile/skribilo/engine/html4.scm +++ b/src/guile/skribilo/engine/html4.scm @@ -21,18 +21,18 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo engine html4) - :use-module (skribilo ast) - :use-module (skribilo config) - :use-module (skribilo engine) - :use-module (skribilo writer) - :use-module (skribilo utils syntax) - :use-module (skribilo package base) - :use-module (skribilo engine html) - :autoload (skribilo evaluator) (evaluate-document) - :autoload (skribilo output) (output) - :autoload (skribilo lib) (skribe-error) - :use-module (srfi srfi-1) - :use-module ((srfi srfi-19) :renamer (symbol-prefix-proc 's19:))) + #:use-module (skribilo ast) + #:use-module (skribilo config) + #:use-module (skribilo engine) + #:use-module (skribilo writer) + #:use-module (skribilo utils syntax) + #:use-module (skribilo package base) + #:use-module (skribilo engine html) + #:autoload (skribilo evaluator) (evaluate-document) + #:autoload (skribilo output) (output) + #:autoload (skribilo lib) (skribe-error) + #:use-module (srfi srfi-1) + #:use-module ((srfi srfi-19) :renamer (symbol-prefix-proc 's19:))) (skribilo-module-syntax) diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm index 13ba77c..9bebd02 100644 --- a/src/guile/skribilo/engine/info.scm +++ b/src/guile/skribilo/engine/info.scm @@ -21,27 +21,27 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo engine info) - :use-module (skribilo lib) - :use-module (skribilo ast) - :use-module (skribilo engine) - :use-module (skribilo writer) - :use-module (skribilo utils syntax) - :use-module (skribilo package base) - :autoload (skribilo parameters) (*destination-file*) - :autoload (skribilo output) (output) - :autoload (skribilo utils justify) (output-justified make-justifier + #:use-module (skribilo lib) + #:use-module (skribilo ast) + #:use-module (skribilo engine) + #:use-module (skribilo writer) + #:use-module (skribilo utils syntax) + #:use-module (skribilo package base) + #:autoload (skribilo parameters) (*destination-file*) + #:autoload (skribilo output) (output) + #:autoload (skribilo utils justify) (output-justified make-justifier with-justification) - :autoload (skribilo utils text-table) (table->ascii) - :autoload (skribilo utils images) (convert-image) - :autoload (srfi srfi-1) (fold) - :use-module (srfi srfi-8) - :use-module (srfi srfi-11) - :use-module (srfi srfi-13) - :use-module (srfi srfi-26) - :use-module (ice-9 match) - :use-module (ice-9 format) - - :export (info-engine)) + #:autoload (skribilo utils text-table) (table->ascii) + #:autoload (skribilo utils images) (convert-image) + #:autoload (srfi srfi-1) (fold) + #:use-module (srfi srfi-8) + #:use-module (srfi srfi-11) + #:use-module (srfi srfi-13) + #:use-module (srfi srfi-26) + #:use-module (ice-9 match) + #:use-module (ice-9 format) + + #:export (info-engine)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/engine/latex.scm b/src/guile/skribilo/engine/latex.scm index ea63924..6cd98e9 100644 --- a/src/guile/skribilo/engine/latex.scm +++ b/src/guile/skribilo/engine/latex.scm @@ -21,24 +21,24 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo engine latex) - :use-module (skribilo lib) - :use-module (skribilo ast) - :use-module (skribilo engine) - :use-module (skribilo writer) - :use-module (skribilo location) - :use-module (skribilo utils strings) - :use-module (skribilo utils syntax) - :use-module (skribilo package base) - :autoload (skribilo utils images) (convert-image) - :autoload (skribilo evaluator) (evaluate-document) - :autoload (skribilo output) (output) - :autoload (skribilo debug) (*debug*) - :autoload (skribilo color) (color->rgb) - :use-module (srfi srfi-13) - :use-module (ice-9 optargs) - :use-module (ice-9 receive) - - :export (latex-engine + #:use-module (skribilo lib) + #:use-module (skribilo ast) + #:use-module (skribilo engine) + #:use-module (skribilo writer) + #:use-module (skribilo location) + #:use-module (skribilo utils strings) + #:use-module (skribilo utils syntax) + #:use-module (skribilo package base) + #:autoload (skribilo utils images) (convert-image) + #:autoload (skribilo evaluator) (evaluate-document) + #:autoload (skribilo output) (output) + #:autoload (skribilo debug) (*debug*) + #:autoload (skribilo color) (color->rgb) + #:use-module (srfi srfi-13) + #:use-module (ice-9 optargs) + #:use-module (ice-9 receive) + + #:export (latex-engine LaTeX TeX !latex skribe-color->latex-rgb)) diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm index a5afcae..ba39280 100644 --- a/src/guile/skribilo/engine/lout.scm +++ b/src/guile/skribilo/engine/lout.scm @@ -21,31 +21,31 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo engine lout) - :use-module (skribilo lib) - :use-module (skribilo ast) - :use-module (skribilo config) - :use-module (skribilo engine) - :use-module (skribilo writer) - :use-module (skribilo condition) - :use-module (skribilo utils keywords) - :use-module (skribilo utils strings) - :use-module (skribilo utils syntax) - :use-module (skribilo package base) - :autoload (skribilo utils images) (convert-image) - :autoload (skribilo evaluator) (evaluate-document) - :autoload (skribilo output) (output) - :autoload (skribilo color) (color->rgb) - :use-module (srfi srfi-1) - :use-module (srfi srfi-2) - :use-module (srfi srfi-11) - :use-module (srfi srfi-13) - :use-module (srfi srfi-14) - :autoload (srfi srfi-34) (raise) - :use-module (srfi srfi-35) - :autoload (ice-9 popen) (open-output-pipe) - :autoload (ice-9 rdelim) (read-line) - - :export (lout-engine + #:use-module (skribilo lib) + #:use-module (skribilo ast) + #:use-module (skribilo config) + #:use-module (skribilo engine) + #:use-module (skribilo writer) + #:use-module (skribilo condition) + #:use-module (skribilo utils keywords) + #:use-module (skribilo utils strings) + #:use-module (skribilo utils syntax) + #:use-module (skribilo package base) + #:autoload (skribilo utils images) (convert-image) + #:autoload (skribilo evaluator) (evaluate-document) + #:autoload (skribilo output) (output) + #:autoload (skribilo color) (color->rgb) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-2) + #:use-module (srfi srfi-11) + #:use-module (srfi srfi-13) + #:use-module (srfi srfi-14) + #:autoload (srfi srfi-34) (raise) + #:use-module (srfi srfi-35) + #:autoload (ice-9 popen) (open-output-pipe) + #:autoload (ice-9 rdelim) (read-line) + + #:export (lout-engine lout-illustration !lout lout-verbatim-encoding lout-encoding diff --git a/src/guile/skribilo/engine/xml.scm b/src/guile/skribilo/engine/xml.scm index 23ca8c0..20d82c5 100644 --- a/src/guile/skribilo/engine/xml.scm +++ b/src/guile/skribilo/engine/xml.scm @@ -21,14 +21,14 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo engine xml) - :use-module (skribilo ast) - :use-module (skribilo engine) - :use-module (skribilo writer) - :use-module (skribilo utils strings) - :use-module (skribilo utils syntax) - :autoload (skribilo output) (output) - :use-module (srfi srfi-1) - :export (xml-engine)) + #:use-module (skribilo ast) + #:use-module (skribilo engine) + #:use-module (skribilo writer) + #:use-module (skribilo utils strings) + #:use-module (skribilo utils syntax) + #:autoload (skribilo output) (output) + #:use-module (srfi srfi-1) + #:export (xml-engine)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/evaluator.scm b/src/guile/skribilo/evaluator.scm index f6adfa1..e1a5a7d 100644 --- a/src/guile/skribilo/evaluator.scm +++ b/src/guile/skribilo/evaluator.scm @@ -22,18 +22,18 @@ (define-module (skribilo evaluator) - :export (evaluate-ast-from-port + #:export (evaluate-ast-from-port evaluate-document evaluate-document-from-port load-document include-document *load-options*) - :autoload (skribilo parameters) (*verbose* *document-path*) - :autoload (skribilo engine) (*current-engine* + #:autoload (skribilo parameters) (*verbose* *document-path*) + #:autoload (skribilo engine) (*current-engine* engine? find-engine engine-ident) - :autoload (skribilo reader) (*document-reader*) + #:autoload (skribilo reader) (*document-reader*) - :autoload (skribilo verify) (verify) - :autoload (skribilo resolve) (resolve!) + #:autoload (skribilo verify) (verify) + #:autoload (skribilo resolve) (resolve!) - :autoload (skribilo module) (*skribilo-user-module*)) + #:autoload (skribilo module) (*skribilo-user-module*)) (use-modules (skribilo utils syntax) diff --git a/src/guile/skribilo/index.scm b/src/guile/skribilo/index.scm index d9616b4..c0c779e 100644 --- a/src/guile/skribilo/index.scm +++ b/src/guile/skribilo/index.scm @@ -20,22 +20,22 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo index) - :use-module (skribilo utils syntax) - :use-module (skribilo lib) + #:use-module (skribilo utils syntax) + #:use-module (skribilo lib) - :use-module (skribilo ast) - :autoload (srfi srfi-34) (raise) - :use-module (srfi srfi-35) - :use-module (srfi srfi-39) + #:use-module (skribilo ast) + #:autoload (srfi srfi-34) (raise) + #:use-module (srfi srfi-35) + #:use-module (srfi srfi-39) ;; XXX: The use of `mark' here introduces a cross-dependency between ;; `index' and `package base'. Thus, we require that each of these two ;; modules autoloads the other one. - :autoload (skribilo package base) (mark) + #:autoload (skribilo package base) (mark) - :autoload (skribilo location) (location?) + #:autoload (skribilo location) (location?) - :export (index? make-index-table *index-table* + #:export (index? make-index-table *index-table* default-index resolve-the-index)) diff --git a/src/guile/skribilo/lib.scm b/src/guile/skribilo/lib.scm index bbd4b54..5543644 100644 --- a/src/guile/skribilo/lib.scm +++ b/src/guile/skribilo/lib.scm @@ -20,8 +20,8 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo lib) - :use-module (skribilo utils syntax) - :export (skribe-ast-error skribe-error + #:use-module (skribilo utils syntax) + #:export (skribe-ast-error skribe-error skribe-type-error warning/loc skribe-warning @@ -36,18 +36,18 @@ &invocation-location) ;; Re-exported because used in `define-markup'. - :re-export (invocation-location) + #:re-export (invocation-location) - :use-module (skribilo ast) + #:use-module (skribilo ast) ;; useful for `new' to work well with - :autoload (skribilo source) () + #:autoload (skribilo source) () - :use-module (skribilo parameters) - :use-module (skribilo location) + #:use-module (skribilo parameters) + #:use-module (skribilo location) - :use-module (srfi srfi-1) - :use-module (oop goops)) + #:use-module (srfi srfi-1) + #:use-module (oop goops)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/location.scm b/src/guile/skribilo/location.scm index 7605600..520fe22 100644 --- a/src/guile/skribilo/location.scm +++ b/src/guile/skribilo/location.scm @@ -21,10 +21,10 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo location) - :use-module (oop goops) - :use-module ((skribilo utils syntax) :select (skribilo-module-syntax)) - :autoload (srfi srfi-13) (string-prefix?) - :export ( location? ast-location + #:use-module (oop goops) + #:use-module ((skribilo utils syntax) :select (skribilo-module-syntax)) + #:autoload (srfi srfi-13) (string-prefix?) + #:export ( location? ast-location location-file location-line location-column invocation-location source-properties->location diff --git a/src/guile/skribilo/module.scm b/src/guile/skribilo/module.scm index e5c5143..e7fa2c5 100644 --- a/src/guile/skribilo/module.scm +++ b/src/guile/skribilo/module.scm @@ -20,10 +20,10 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo module) - :use-module (srfi srfi-1) - :use-module (srfi srfi-39) - :use-module (skribilo utils syntax) - :export (make-user-module user-module-flavor + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-39) + #:use-module (skribilo utils syntax) + #:export (make-user-module user-module-flavor *skribilo-user-module*)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/output.scm b/src/guile/skribilo/output.scm index c3ceb57..e789a00 100644 --- a/src/guile/skribilo/output.scm +++ b/src/guile/skribilo/output.scm @@ -22,20 +22,20 @@ (define-module (skribilo output) - :autoload (skribilo engine) (engine-ident processor-get-engine) - :autoload (skribilo writer) (writer? writer-ident lookup-markup-writer) - :autoload (skribilo location) (location?) - :use-module (skribilo ast) - :use-module (skribilo debug) - :use-module (skribilo utils syntax) - :use-module (oop goops) - - :use-module (skribilo condition) - :use-module (srfi srfi-35) - :use-module (srfi srfi-34) - :use-module (srfi srfi-39) - - :export (output + #:autoload (skribilo engine) (engine-ident processor-get-engine) + #:autoload (skribilo writer) (writer? writer-ident lookup-markup-writer) + #:autoload (skribilo location) (location?) + #:use-module (skribilo ast) + #:use-module (skribilo debug) + #:use-module (skribilo utils syntax) + #:use-module (oop goops) + + #:use-module (skribilo condition) + #:use-module (srfi srfi-35) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-39) + + #:export (output *document-being-output* &output-error &output-unresolved-error &output-writer-error output-error? output-unresolved-error? output-writer-error?)) diff --git a/src/guile/skribilo/package/acmproc.scm b/src/guile/skribilo/package/acmproc.scm index 5b66be8..b1c3745 100644 --- a/src/guile/skribilo/package/acmproc.scm +++ b/src/guile/skribilo/package/acmproc.scm @@ -21,22 +21,22 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo package acmproc) - :use-module (skribilo ast) - :use-module (skribilo engine) - :use-module (skribilo writer) - :autoload (skribilo output) (output) - :use-module (skribilo package base) - :autoload (skribilo utils keywords) (the-options the-body) - :autoload (skribilo evaluator) (evaluate-document) - :autoload (skribilo biblio author) (bib-sort/first-author-last-name) + #:use-module (skribilo ast) + #:use-module (skribilo engine) + #:use-module (skribilo writer) + #:autoload (skribilo output) (output) + #:use-module (skribilo package base) + #:autoload (skribilo utils keywords) (the-options the-body) + #:autoload (skribilo evaluator) (evaluate-document) + #:autoload (skribilo biblio author) (bib-sort/first-author-last-name) - :use-module (skribilo lib) - :use-module (skribilo utils syntax) + #:use-module (skribilo lib) + #:use-module (skribilo utils syntax) - :use-module (ice-9 optargs) - :use-module (srfi srfi-13) + #:use-module (ice-9 optargs) + #:use-module (srfi srfi-13) - :export (abstract references acm-copyright)) + #:export (abstract references acm-copyright)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/package/base.scm b/src/guile/skribilo/package/base.scm index 2e5ab65..d287caa 100644 --- a/src/guile/skribilo/package/base.scm +++ b/src/guile/skribilo/package/base.scm @@ -21,29 +21,29 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo package base) - :use-module (skribilo lib) - :use-module (skribilo utils syntax) - :use-module (ice-9 optargs) - - :use-module (skribilo ast) - :use-module (skribilo resolve) - :use-module (skribilo location) - :use-module (skribilo condition) - :use-module (skribilo utils keywords) - :autoload (srfi srfi-1) (every any filter) - :autoload (skribilo evaluator) (include-document) - :autoload (skribilo engine) (engine?) - :autoload (skribilo parameters)(*document-path* *sui-path*) + #:use-module (skribilo lib) + #:use-module (skribilo utils syntax) + #:use-module (ice-9 optargs) + + #:use-module (skribilo ast) + #:use-module (skribilo resolve) + #:use-module (skribilo location) + #:use-module (skribilo condition) + #:use-module (skribilo utils keywords) + #:autoload (srfi srfi-1) (every any filter) + #:autoload (skribilo evaluator) (include-document) + #:autoload (skribilo engine) (engine?) + #:autoload (skribilo parameters)(*document-path* *sui-path*) ;; optional ``sub-packages'' - :autoload (skribilo biblio) (*bib-table* resolve-bib + #:autoload (skribilo biblio) (*bib-table* resolve-bib bib-load! bib-add! bib-sort-refs/number) - :autoload (skribilo source) (language? source-read-lines source-fontify) - :autoload (skribilo prog) (make-prog-body resolve-line) - :autoload (skribilo index) (make-index-table default-index) - :autoload (skribilo sui) (load-sui sui-ref->url) + #:autoload (skribilo source) (language? source-read-lines source-fontify) + #:autoload (skribilo prog) (make-prog-body resolve-line) + #:autoload (skribilo index) (make-index-table default-index) + #:autoload (skribilo sui) (load-sui sui-ref->url) - :replace (symbol)) + #:replace (symbol)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/package/diff.scm b/src/guile/skribilo/package/diff.scm index ff0b75a..eaac1cc 100644 --- a/src/guile/skribilo/package/diff.scm +++ b/src/guile/skribilo/package/diff.scm @@ -20,26 +20,26 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo package diff) - :use-module (diff) - :use-module (srfi srfi-1) - :use-module (srfi srfi-14) - :use-module (srfi srfi-39) - :use-module (ice-9 optargs) - - :use-module (skribilo ast) - :use-module (skribilo lib) - :use-module (skribilo engine) - :use-module (skribilo writer) - :autoload (skribilo output) (output) - :autoload (skribilo reader) (*document-reader*) - :autoload (skribilo module) (make-user-module) - :autoload (skribilo resolve) (resolve!) - :autoload (skribilo evaluator) (evaluate-ast-from-port) - :autoload (skribilo biblio) (*bib-table* make-bib-table) - :use-module (skribilo package base) - :use-module (skribilo utils syntax) - - :export (make-diff-document + #:use-module (diff) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-14) + #:use-module (srfi srfi-39) + #:use-module (ice-9 optargs) + + #:use-module (skribilo ast) + #:use-module (skribilo lib) + #:use-module (skribilo engine) + #:use-module (skribilo writer) + #:autoload (skribilo output) (output) + #:autoload (skribilo reader) (*document-reader*) + #:autoload (skribilo module) (make-user-module) + #:autoload (skribilo resolve) (resolve!) + #:autoload (skribilo evaluator) (evaluate-ast-from-port) + #:autoload (skribilo biblio) (*bib-table* make-bib-table) + #:use-module (skribilo package base) + #:use-module (skribilo utils syntax) + + #:export (make-diff-document make-diff-document-from-files)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/package/eq.scm b/src/guile/skribilo/package/eq.scm index 781b394..4d640c9 100644 --- a/src/guile/skribilo/package/eq.scm +++ b/src/guile/skribilo/package/eq.scm @@ -20,23 +20,23 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo package eq) - :autoload (skribilo ast) (markup? find1-up) - :autoload (skribilo output) (output) - :use-module (skribilo writer) - :use-module (skribilo engine) - :use-module (skribilo lib) - :use-module (skribilo condition) - :use-module (skribilo utils syntax) - :use-module (skribilo utils keywords) ;; `the-options', etc. - :use-module (skribilo package base) - :autoload (skribilo engine lout) (lout-illustration) - :autoload (skribilo resolve) (resolve-counter) - - :use-module (srfi srfi-1) - :autoload (srfi srfi-34) (raise) - :use-module (srfi srfi-35) - :use-module (srfi srfi-39) - :use-module (ice-9 optargs)) + #:autoload (skribilo ast) (markup? find1-up) + #:autoload (skribilo output) (output) + #:use-module (skribilo writer) + #:use-module (skribilo engine) + #:use-module (skribilo lib) + #:use-module (skribilo condition) + #:use-module (skribilo utils syntax) + #:use-module (skribilo utils keywords) ;; `the-options', etc. + #:use-module (skribilo package base) + #:autoload (skribilo engine lout) (lout-illustration) + #:autoload (skribilo resolve) (resolve-counter) + + #:use-module (srfi srfi-1) + #:autoload (srfi srfi-34) (raise) + #:use-module (srfi srfi-35) + #:use-module (srfi srfi-39) + #:use-module (ice-9 optargs)) ;;; Author: Ludovic Courtès ;;; diff --git a/src/guile/skribilo/package/eq/lout.scm b/src/guile/skribilo/package/eq/lout.scm index 148de1a..1e5b7a3 100644 --- a/src/guile/skribilo/package/eq/lout.scm +++ b/src/guile/skribilo/package/eq/lout.scm @@ -19,14 +19,14 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo package eq lout) - :use-module (skribilo package eq) - :use-module (skribilo ast) - :autoload (skribilo output) (output) - :use-module (skribilo writer) - :use-module (skribilo engine) - :use-module (skribilo lib) - :use-module (skribilo utils syntax) - :use-module (srfi srfi-1)) + #:use-module (skribilo package eq) + #:use-module (skribilo ast) + #:autoload (skribilo output) (output) + #:use-module (skribilo writer) + #:use-module (skribilo engine) + #:use-module (skribilo lib) + #:use-module (skribilo utils syntax) + #:use-module (srfi srfi-1)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/package/french.scm b/src/guile/skribilo/package/french.scm index dacb4b4..a9ec47d 100644 --- a/src/guile/skribilo/package/french.scm +++ b/src/guile/skribilo/package/french.scm @@ -21,7 +21,7 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo package french) - :use-module (skribilo engine)) + #:use-module (skribilo engine)) ;*---------------------------------------------------------------------*/ ;* LaTeX configuration */ diff --git a/src/guile/skribilo/package/html-navtabs.scm b/src/guile/skribilo/package/html-navtabs.scm index 1a06b4b..b8f9712 100644 --- a/src/guile/skribilo/package/html-navtabs.scm +++ b/src/guile/skribilo/package/html-navtabs.scm @@ -21,16 +21,16 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo package html-navtabs) - :use-module (skribilo lib) - :use-module (skribilo ast) - :use-module (skribilo engine) - :use-module (skribilo writer) - :autoload (skribilo output) (output) - :autoload (skribilo package base) (handle) - :autoload (skribilo engine html) (html-width html-class html-file) - :autoload (skribilo parameters) (*destination-file*) - :use-module (skribilo utils strings) - :use-module (skribilo utils syntax)) + #:use-module (skribilo lib) + #:use-module (skribilo ast) + #:use-module (skribilo engine) + #:use-module (skribilo writer) + #:autoload (skribilo output) (output) + #:autoload (skribilo package base) (handle) + #:autoload (skribilo engine html) (html-width html-class html-file) + #:autoload (skribilo parameters) (*destination-file*) + #:use-module (skribilo utils strings) + #:use-module (skribilo utils syntax)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/package/jfp.scm b/src/guile/skribilo/package/jfp.scm index 2e305e5..5052092 100644 --- a/src/guile/skribilo/package/jfp.scm +++ b/src/guile/skribilo/package/jfp.scm @@ -21,22 +21,22 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo package jfp) - :use-module (skribilo ast) - :use-module (skribilo engine) - :use-module (skribilo writer) - :autoload (skribilo output) (output) - :autoload (skribilo evaluator) (evaluate-document) - :autoload (skribilo lib) (skribe-error) - :autoload (skribilo biblio template) (output-bib-entry-template) - :autoload (skribilo utils keywords) (the-body) - :use-module (skribilo package base) - :use-module (srfi srfi-1) + #:use-module (skribilo ast) + #:use-module (skribilo engine) + #:use-module (skribilo writer) + #:autoload (skribilo output) (output) + #:autoload (skribilo evaluator) (evaluate-document) + #:autoload (skribilo lib) (skribe-error) + #:autoload (skribilo biblio template) (output-bib-entry-template) + #:autoload (skribilo utils keywords) (the-body) + #:use-module (skribilo package base) + #:use-module (srfi srfi-1) - :use-module (skribilo utils syntax) - :use-module (ice-9 optargs) - :autoload (ice-9 regex) (regexp-substitute/global) + #:use-module (skribilo utils syntax) + #:use-module (ice-9 optargs) + #:autoload (ice-9 regex) (regexp-substitute/global) - :export (abstract references)) + #:export (abstract references)) ;;; Author: Manuel Serrano, Ludovic Courtès ;;; diff --git a/src/guile/skribilo/package/letter.scm b/src/guile/skribilo/package/letter.scm index 98ab639..a40d673 100644 --- a/src/guile/skribilo/package/letter.scm +++ b/src/guile/skribilo/package/letter.scm @@ -21,17 +21,17 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo package letter) - :use-module (skribilo ast) - :use-module (skribilo engine) - :use-module (skribilo writer) - :use-module (skribilo lib) - :autoload (skribilo output) (output) - :autoload (skribilo utils keywords) (the-body the-options) - :use-module ((skribilo package base) :renamer (symbol-prefix-proc 'skr:)) - :use-module (srfi srfi-1) + #:use-module (skribilo ast) + #:use-module (skribilo engine) + #:use-module (skribilo writer) + #:use-module (skribilo lib) + #:autoload (skribilo output) (output) + #:autoload (skribilo utils keywords) (the-body the-options) + #:use-module ((skribilo package base) :renamer (symbol-prefix-proc 'skr:)) + #:use-module (srfi srfi-1) - :use-module (skribilo utils syntax) - :use-module (ice-9 optargs)) + #:use-module (skribilo utils syntax) + #:use-module (ice-9 optargs)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/package/lncs.scm b/src/guile/skribilo/package/lncs.scm index 4678e76..8ad5240 100644 --- a/src/guile/skribilo/package/lncs.scm +++ b/src/guile/skribilo/package/lncs.scm @@ -21,26 +21,26 @@ ;;; along with Skribilo. If not, see . (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) (chapter font flush + #:use-module (skribilo ast) + #:use-module (skribilo engine) + #:use-module (skribilo writer) + #:autoload (skribilo output) (output) + #:autoload (skribilo package base) (chapter font flush toc the-bibliography) - :autoload (skribilo utils keywords) (the-options the-body) - :autoload (skribilo biblio template)(output-bib-entry-template + #:autoload (skribilo utils keywords) (the-options the-body) + #:autoload (skribilo biblio template)(output-bib-entry-template make-bib-entry-template/default) - :autoload (skribilo biblio author) (bib-sort/first-author-last-name) - :autoload (skribilo evaluator) (evaluate-document) + #:autoload (skribilo biblio author) (bib-sort/first-author-last-name) + #:autoload (skribilo evaluator) (evaluate-document) - :use-module (skribilo lib) - :use-module (skribilo utils syntax) + #:use-module (skribilo lib) + #:use-module (skribilo utils syntax) - :use-module (ice-9 optargs) - :use-module (srfi srfi-1) - :use-module (srfi srfi-13) + #:use-module (ice-9 optargs) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-13) - :export (abstract references)) + #:export (abstract references)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/package/pie.scm b/src/guile/skribilo/package/pie.scm index ef21d96..e08acee 100644 --- a/src/guile/skribilo/package/pie.scm +++ b/src/guile/skribilo/package/pie.scm @@ -20,20 +20,20 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo package pie) - :use-module (skribilo ast) - :autoload (skribilo output) (output) - :use-module (skribilo writer) - :use-module (skribilo engine) - :use-module (skribilo lib) ;; `skribe-error' et al. - :use-module (skribilo utils syntax) - :use-module (skribilo utils keywords) ;; `the-options', etc. - :use-module (skribilo utils strings) ;; `make-string-replace' - :autoload (skribilo color) (color->rgb) - :autoload (skribilo package base) (bold) - :autoload (srfi srfi-13) (string-concatenate) - :autoload (ice-9 popen) (open-output-pipe) - :use-module (ice-9 optargs) - :export (%ploticus-program %ploticus-debug? + #:use-module (skribilo ast) + #:autoload (skribilo output) (output) + #:use-module (skribilo writer) + #:use-module (skribilo engine) + #:use-module (skribilo lib) ;; `skribe-error' et al. + #:use-module (skribilo utils syntax) + #:use-module (skribilo utils keywords) ;; `the-options', etc. + #:use-module (skribilo utils strings) ;; `make-string-replace' + #:autoload (skribilo color) (color->rgb) + #:autoload (skribilo package base) (bold) + #:autoload (srfi srfi-13) (string-concatenate) + #:autoload (ice-9 popen) (open-output-pipe) + #:use-module (ice-9 optargs) + #:export (%ploticus-program %ploticus-debug? pie-sliceweight-value pie-remove-markup)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/package/pie/lout.scm b/src/guile/skribilo/package/pie/lout.scm index 48787f7..eed6d8a 100644 --- a/src/guile/skribilo/package/pie/lout.scm +++ b/src/guile/skribilo/package/pie/lout.scm @@ -19,14 +19,14 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo package pie lout) - :use-module (skribilo package pie) - :use-module (skribilo ast) - :autoload (skribilo output) (output) - :use-module (skribilo writer) - :use-module (skribilo engine) - :use-module (skribilo lib) - :use-module (skribilo utils syntax) - :autoload (skribilo engine lout) (lout-color-specification)) + #:use-module (skribilo package pie) + #:use-module (skribilo ast) + #:autoload (skribilo output) (output) + #:use-module (skribilo writer) + #:use-module (skribilo engine) + #:use-module (skribilo lib) + #:use-module (skribilo utils syntax) + #:autoload (skribilo engine lout) (lout-color-specification)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/package/scribe.scm b/src/guile/skribilo/package/scribe.scm index 481c0c4..e759f89 100644 --- a/src/guile/skribilo/package/scribe.scm +++ b/src/guile/skribilo/package/scribe.scm @@ -21,20 +21,20 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo package scribe) - :use-module (skribilo engine) - :autoload (skribilo utils keywords) (the-options the-body) - :autoload (skribilo evaluator) (load-document) - :use-module (skribilo biblio) - :use-module ((skribilo package base) :renamer (symbol-prefix-proc 'skr:)) + #:use-module (skribilo engine) + #:autoload (skribilo utils keywords) (the-options the-body) + #:autoload (skribilo evaluator) (load-document) + #:use-module (skribilo biblio) + #:use-module ((skribilo package base) :renamer (symbol-prefix-proc 'skr:)) - :use-module (skribilo lib) - :use-module (skribilo utils syntax) + #:use-module (skribilo lib) + #:use-module (skribilo utils syntax) - :use-module (ice-9 optargs) - :use-module (srfi srfi-1) - :use-module (srfi srfi-13) + #:use-module (ice-9 optargs) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-13) - :export (style chapter table-of-contents frame copyright sect euro + #:export (style chapter table-of-contents frame copyright sect euro tab space print-bibliography linebreak ref make-index index print-index scribe-format? scribe-url prgm *scribe-tex-predocument* latex-prelude html-prelude diff --git a/src/guile/skribilo/package/sigplan.scm b/src/guile/skribilo/package/sigplan.scm index d649ab7..6d049c7 100644 --- a/src/guile/skribilo/package/sigplan.scm +++ b/src/guile/skribilo/package/sigplan.scm @@ -21,20 +21,20 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo package sigplan) - :use-module (skribilo ast) - :use-module (skribilo engine) - :use-module (skribilo writer) - :autoload (skribilo output) (output) - :autoload (skribilo evaluator) (evaluate-document) - :use-module (skribilo lib) - :autoload (skribilo utils keywords) (the-body) - :use-module (skribilo package base) - :use-module (srfi srfi-1) + #:use-module (skribilo ast) + #:use-module (skribilo engine) + #:use-module (skribilo writer) + #:autoload (skribilo output) (output) + #:autoload (skribilo evaluator) (evaluate-document) + #:use-module (skribilo lib) + #:autoload (skribilo utils keywords) (the-body) + #:use-module (skribilo package base) + #:use-module (srfi srfi-1) - :use-module (skribilo utils syntax) - :use-module (ice-9 optargs) + #:use-module (skribilo utils syntax) + #:use-module (ice-9 optargs) - :export (abstract references acm-copyright)) + #:export (abstract references acm-copyright)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/package/slide.scm b/src/guile/skribilo/package/slide.scm index 9ba0692..3a54d1a 100644 --- a/src/guile/skribilo/package/slide.scm +++ b/src/guile/skribilo/package/slide.scm @@ -22,18 +22,18 @@ (define-module (skribilo package slide) - :use-module (skribilo utils syntax) + #:use-module (skribilo utils syntax) - :use-module (skribilo lib) - :use-module (skribilo ast) - :use-module (skribilo engine) - :use-module (skribilo evaluator) ;; `*load-options*' + #:use-module (skribilo lib) + #:use-module (skribilo ast) + #:use-module (skribilo engine) + #:use-module (skribilo evaluator) ;; `*load-options*' - :autoload (skribilo utils keywords) (the-options the-body) + #:autoload (skribilo utils keywords) (the-options the-body) - :use-module (srfi srfi-1) - :use-module (ice-9 optargs) - :use-module (ice-9 match)) + #:use-module (srfi srfi-1) + #:use-module (ice-9 optargs) + #:use-module (ice-9 match)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/package/slide/base.scm b/src/guile/skribilo/package/slide/base.scm index 2914012..f840b18 100644 --- a/src/guile/skribilo/package/slide/base.scm +++ b/src/guile/skribilo/package/slide/base.scm @@ -20,18 +20,18 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo package slide base) - :use-module (skribilo utils syntax) + #:use-module (skribilo utils syntax) - :use-module (skribilo package slide) - :use-module (skribilo writer) - :use-module (skribilo engine) - :use-module (skribilo ast) - :autoload (skribilo output) (output) - :autoload (skribilo package base) (symbol color itemize item) + #:use-module (skribilo package slide) + #:use-module (skribilo writer) + #:use-module (skribilo engine) + #:use-module (skribilo ast) + #:autoload (skribilo output) (output) + #:autoload (skribilo package base) (symbol color itemize item) - :use-module (srfi srfi-1) + #:use-module (srfi srfi-1) - :export (%slide-outline-itemize-symbols)) + #:export (%slide-outline-itemize-symbols)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/package/slide/html.scm b/src/guile/skribilo/package/slide/html.scm index 0e37e90..33eac8f 100644 --- a/src/guile/skribilo/package/slide/html.scm +++ b/src/guile/skribilo/package/slide/html.scm @@ -19,18 +19,18 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo package slide html) - :use-module (skribilo utils syntax) - - :use-module (skribilo ast) - :use-module (skribilo engine) - :use-module (skribilo writer) - :autoload (skribilo resolve) (resolve!) - :autoload (skribilo output) (output) - :autoload (skribilo evaluator) (evaluate-document) - :autoload (skribilo engine html) (html-width html-title-authors) - - :use-module (skribilo package slide) - :use-module (skribilo package base)) + #:use-module (skribilo utils syntax) + + #:use-module (skribilo ast) + #:use-module (skribilo engine) + #:use-module (skribilo writer) + #:autoload (skribilo resolve) (resolve!) + #:autoload (skribilo output) (output) + #:autoload (skribilo evaluator) (evaluate-document) + #:autoload (skribilo engine html) (html-width html-title-authors) + + #:use-module (skribilo package slide) + #:use-module (skribilo package base)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/package/slide/latex.scm b/src/guile/skribilo/package/slide/latex.scm index 7a3a0ce..3bbcd76 100644 --- a/src/guile/skribilo/package/slide/latex.scm +++ b/src/guile/skribilo/package/slide/latex.scm @@ -20,24 +20,24 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo package slide latex) - :use-module (skribilo package slide) - :use-module (skribilo utils syntax) + #:use-module (skribilo package slide) + #:use-module (skribilo utils syntax) - :use-module (skribilo engine) - :use-module (skribilo writer) - :autoload (skribilo output) (output) - :use-module (skribilo ast) - :use-module (skribilo lib) - :autoload (skribilo evaluator) (evaluate-document) - :autoload (skribilo engine latex) (skribe-color->latex-rgb) + #:use-module (skribilo engine) + #:use-module (skribilo writer) + #:autoload (skribilo output) (output) + #:use-module (skribilo ast) + #:use-module (skribilo lib) + #:autoload (skribilo evaluator) (evaluate-document) + #:autoload (skribilo engine latex) (skribe-color->latex-rgb) - :autoload (ice-9 regex) (string-match) - :use-module (ice-9 match) - :use-module (srfi srfi-11) - :use-module (srfi srfi-13) - :use-module (srfi srfi-39) + #:autoload (ice-9 regex) (string-match) + #:use-module (ice-9 match) + #:use-module (srfi srfi-11) + #:use-module (srfi srfi-13) + #:use-module (srfi srfi-39) - :export (%slide-latex-mode %slide-latex-initialize! *slide-advi-scale*)) + #:export (%slide-latex-mode %slide-latex-initialize! *slide-advi-scale*)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/package/slide/lout.scm b/src/guile/skribilo/package/slide/lout.scm index d38e5ec..41c47cd 100644 --- a/src/guile/skribilo/package/slide/lout.scm +++ b/src/guile/skribilo/package/slide/lout.scm @@ -19,16 +19,16 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo package slide lout) - :use-module (skribilo utils syntax) + #:use-module (skribilo utils syntax) - :autoload (skribilo utils strings) (make-string-replace) - :use-module (skribilo engine) - :use-module (skribilo writer) - :autoload (skribilo output) (output) - :use-module (skribilo ast) - :autoload (skribilo lib) (skribe-error) + #:autoload (skribilo utils strings) (make-string-replace) + #:use-module (skribilo engine) + #:use-module (skribilo writer) + #:autoload (skribilo output) (output) + #:use-module (skribilo ast) + #:autoload (skribilo lib) (skribe-error) - :use-module (srfi srfi-13) ;; `string-join' + #:use-module (srfi srfi-13) ;; `string-join' ;; XXX: If changing the following `autoload' to `use-module' doesn't work, ;; then you need to fix your Guile. See this thread about @@ -37,7 +37,7 @@ ;; http://article.gmane.org/gmane.lisp.guile.devel/5748 ;; http://lists.gnu.org/archive/html/guile-devel/2006-03/msg00004.html . - :autoload (skribilo engine lout) (lout-tagify lout-output-pdf-meta-info + #:autoload (skribilo engine lout) (lout-tagify lout-output-pdf-meta-info lout-verbatim-encoding)) diff --git a/src/guile/skribilo/package/web-article.scm b/src/guile/skribilo/package/web-article.scm index e560625..8ef5adc 100644 --- a/src/guile/skribilo/package/web-article.scm +++ b/src/guile/skribilo/package/web-article.scm @@ -21,19 +21,19 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo package web-article) - :use-module (skribilo utils syntax) + #:use-module (skribilo utils syntax) - :use-module (skribilo ast) - :use-module (skribilo engine) - :use-module (skribilo writer) - :use-module (skribilo package base) + #:use-module (skribilo ast) + #:use-module (skribilo engine) + #:use-module (skribilo writer) + #:use-module (skribilo package base) - :autoload (skribilo output) (output) - :autoload (skribilo evaluator) (evaluate-document) - :autoload (skribilo engine html) (html-width html-title-authors) - :autoload (skribilo utils strings) (string-canonicalize) + #:autoload (skribilo output) (output) + #:autoload (skribilo evaluator) (evaluate-document) + #:autoload (skribilo engine html) (html-width html-title-authors) + #:autoload (skribilo utils strings) (string-canonicalize) - :use-module (srfi srfi-1)) + #:use-module (srfi srfi-1)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/package/web-book.scm b/src/guile/skribilo/package/web-book.scm index ec12432..69099c5 100644 --- a/src/guile/skribilo/package/web-book.scm +++ b/src/guile/skribilo/package/web-book.scm @@ -21,11 +21,11 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo package web-book) - :use-module (skribilo utils syntax) + #:use-module (skribilo utils syntax) - :use-module (skribilo ast) - :use-module (skribilo engine) - :use-module (skribilo package base)) + #:use-module (skribilo ast) + #:use-module (skribilo engine) + #:use-module (skribilo package base)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/package/web-book2.scm b/src/guile/skribilo/package/web-book2.scm index 08ca3ba..2fb449a 100644 --- a/src/guile/skribilo/package/web-book2.scm +++ b/src/guile/skribilo/package/web-book2.scm @@ -20,16 +20,16 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo package web-book2) - :use-module (skribilo ast) - :use-module (skribilo engine) - :use-module ((skribilo package base) :renamer (symbol-prefix-proc 'b:)) + #:use-module (skribilo ast) + #:use-module (skribilo engine) + #:use-module ((skribilo package base) :renamer (symbol-prefix-proc 'b:)) - :use-module (skribilo utils syntax) - :use-module (skribilo utils keywords) + #:use-module (skribilo utils syntax) + #:use-module (skribilo utils keywords) - :use-module (srfi srfi-1) + #:use-module (srfi srfi-1) - :replace (chapter section subsection subsubsection)) + #:replace (chapter section subsection subsubsection)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/parameters.scm b/src/guile/skribilo/parameters.scm index 4085852..6d5db8e 100644 --- a/src/guile/skribilo/parameters.scm +++ b/src/guile/skribilo/parameters.scm @@ -20,7 +20,7 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo parameters) - :use-module (srfi srfi-39)) + #:use-module (srfi srfi-39)) ;;; Author: Ludovic Courtès ;;; diff --git a/src/guile/skribilo/prog.scm b/src/guile/skribilo/prog.scm index 3c881b5..e10aa28 100644 --- a/src/guile/skribilo/prog.scm +++ b/src/guile/skribilo/prog.scm @@ -21,15 +21,15 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo prog) - :use-module (ice-9 regex) - :use-module (srfi srfi-1) - :use-module (srfi srfi-11) + #:use-module (ice-9 regex) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-11) - :use-module (skribilo lib) ;; `new' - :use-module (skribilo ast) - :use-module (skribilo utils syntax) + #:use-module (skribilo lib) ;; `new' + #:use-module (skribilo ast) + #:use-module (skribilo utils syntax) - :export (make-prog-body resolve-line)) + #:export (make-prog-body resolve-line)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/reader.scm b/src/guile/skribilo/reader.scm index 5a985c5..7cc96f6 100644 --- a/src/guile/skribilo/reader.scm +++ b/src/guile/skribilo/reader.scm @@ -20,12 +20,12 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo reader) - :use-module (srfi srfi-9) ;; records - :use-module (srfi srfi-39) ;; parameter objects - :use-module (skribilo condition) - :autoload (srfi srfi-34) (raise) - :use-module (srfi srfi-35) - :export (%make-reader lookup-reader make-reader + #:use-module (srfi srfi-9) ;; records + #:use-module (srfi srfi-39) ;; parameter objects + #:use-module (skribilo condition) + #:autoload (srfi srfi-34) (raise) + #:use-module (srfi srfi-35) + #:export (%make-reader lookup-reader make-reader *document-reader* reader:name reader:version diff --git a/src/guile/skribilo/reader/outline.scm b/src/guile/skribilo/reader/outline.scm index 23e8e86..e416080 100644 --- a/src/guile/skribilo/reader/outline.scm +++ b/src/guile/skribilo/reader/outline.scm @@ -19,19 +19,19 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo reader outline) - :use-module (skribilo utils syntax) - :use-module (skribilo reader) - :use-module (ice-9 optargs) + #:use-module (skribilo utils syntax) + #:use-module (skribilo reader) + #:use-module (ice-9 optargs) - :use-module (srfi srfi-1) - :use-module (srfi srfi-11) - :use-module (srfi srfi-13) - :use-module (srfi srfi-14) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-11) + #:use-module (srfi srfi-13) + #:use-module (srfi srfi-14) - :autoload (ice-9 rdelim) (read-line) - :autoload (ice-9 regex) (make-regexp) + #:autoload (ice-9 rdelim) (read-line) + #:autoload (ice-9 regex) (make-regexp) - :export (reader-specification + #:export (reader-specification make-outline-reader)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/reader/rss-2.scm b/src/guile/skribilo/reader/rss-2.scm index 84f452a..290d48c 100755 --- a/src/guile/skribilo/reader/rss-2.scm +++ b/src/guile/skribilo/reader/rss-2.scm @@ -21,21 +21,21 @@ (define-module (skribilo reader rss-2) ;; We depend on `guile-library' (available in Debian). - :use-module (sxml simple) - :use-module (htmlprag) + #:use-module (sxml simple) + #:use-module (htmlprag) - :use-module (ice-9 match) - :use-module (srfi srfi-1) - :use-module (srfi srfi-13) - :use-module (srfi srfi-14) - :use-module (srfi srfi-19) - :use-module (srfi srfi-34) - :use-module (srfi srfi-35) + #:use-module (ice-9 match) + #:use-module (srfi srfi-1) + #:use-module (srfi srfi-13) + #:use-module (srfi srfi-14) + #:use-module (srfi srfi-19) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) - :use-module (skribilo reader) - :use-module (skribilo utils syntax) + #:use-module (skribilo reader) + #:use-module (skribilo utils syntax) - :export (reader-specification)) + #:export (reader-specification)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/reader/skribe.scm b/src/guile/skribilo/reader/skribe.scm index f320b53..7fe7e4b 100644 --- a/src/guile/skribilo/reader/skribe.scm +++ b/src/guile/skribilo/reader/skribe.scm @@ -19,14 +19,14 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo reader skribe) - :use-module (skribilo reader) - :use-module (ice-9 optargs) - :use-module (srfi srfi-1) + #:use-module (skribilo reader) + #:use-module (ice-9 optargs) + #:use-module (srfi srfi-1) ;; the Scheme reader composition framework - :use-module ((system reader) #:renamer (symbol-prefix-proc 'r:)) + #:use-module ((system reader) #:renamer (symbol-prefix-proc 'r:)) - :export (reader-specification + #:export (reader-specification make-skribe-reader)) ;;; Author: Ludovic Courtès diff --git a/src/guile/skribilo/resolve.scm b/src/guile/skribilo/resolve.scm index 7058d90..61cf72b 100644 --- a/src/guile/skribilo/resolve.scm +++ b/src/guile/skribilo/resolve.scm @@ -20,19 +20,19 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo resolve) - :use-module (skribilo debug) - :use-module (skribilo ast) - :use-module (skribilo utils syntax) + #:use-module (skribilo debug) + #:use-module (skribilo ast) + #:use-module (skribilo utils syntax) - :use-module (oop goops) - :use-module (srfi srfi-39) + #:use-module (oop goops) + #:use-module (srfi srfi-39) - :use-module (skribilo condition) - :use-module (srfi srfi-34) - :use-module (srfi srfi-35) - :use-module (ice-9 match) + #:use-module (skribilo condition) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) + #:use-module (ice-9 match) - :export (resolve! resolve-search-parent + #:export (resolve! resolve-search-parent resolve-counter resolve-parent resolve-ident *document-being-resolved*)) diff --git a/src/guile/skribilo/source.scm b/src/guile/skribilo/source.scm index b1e1e1d..cf4f22c 100644 --- a/src/guile/skribilo/source.scm +++ b/src/guile/skribilo/source.scm @@ -21,7 +21,7 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo source) - :export ( language? language-extractor language-fontifier + #:export ( language? language-extractor language-fontifier language-name source-read-lines source-read-definition source-fontify @@ -32,15 +32,15 @@ definition-not-found-error:definition definition-not-found-error:language) - :use-module (srfi srfi-35) - :autoload (srfi srfi-34) (raise) - :autoload (srfi srfi-13) (string-prefix-length string-concatenate) - :use-module (skribilo condition) + #:use-module (srfi srfi-35) + #:autoload (srfi srfi-34) (raise) + #:autoload (srfi srfi-13) (string-prefix-length string-concatenate) + #:use-module (skribilo condition) - :use-module (skribilo utils syntax) - :use-module (skribilo parameters) - :use-module (oop goops) - :use-module (ice-9 rdelim)) + #:use-module (skribilo utils syntax) + #:use-module (skribilo parameters) + #:use-module (oop goops) + #:use-module (ice-9 rdelim)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/source/c-lex.scm b/src/guile/skribilo/source/c-lex.scm index 05ed641..9725f24 100644 --- a/src/guile/skribilo/source/c-lex.scm +++ b/src/guile/skribilo/source/c-lex.scm @@ -1,8 +1,8 @@ (define-module (skribilo source c-lex) - :use-module (skribilo lib) - :use-module (skribilo source parameters) - :use-module (srfi srfi-1) - :export (lexer-init lexer + #:use-module (skribilo lib) + #:use-module (skribilo source parameters) + #:use-module (srfi srfi-1) + #:export (lexer-init lexer lexer-get-func-column lexer-get-func-offset lexer-get-line lexer-getc diff --git a/src/guile/skribilo/source/c.scm b/src/guile/skribilo/source/c.scm index 9dde8bb..e44e764 100644 --- a/src/guile/skribilo/source/c.scm +++ b/src/guile/skribilo/source/c.scm @@ -20,12 +20,12 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo source c) - :use-module (skribilo lib) - :use-module (skribilo utils syntax) - :use-module (skribilo source c-lex) ;; SILex generated - :use-module (skribilo source parameters) - :use-module (srfi srfi-39) - :export (c c-language java)) + #:use-module (skribilo lib) + #:use-module (skribilo utils syntax) + #:use-module (skribilo source c-lex) ;; SILex generated + #:use-module (skribilo source parameters) + #:use-module (srfi srfi-39) + #:export (c c-language java)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/source/lisp-lex.scm b/src/guile/skribilo/source/lisp-lex.scm index fa1a698..2f00c1f 100644 --- a/src/guile/skribilo/source/lisp-lex.scm +++ b/src/guile/skribilo/source/lisp-lex.scm @@ -1,8 +1,8 @@ (define-module (skribilo source lisp-lex) - :use-module (skribilo lib) - :use-module (skribilo source parameters) - :use-module (srfi srfi-1) - :export (lexer-init lexer + #:use-module (skribilo lib) + #:use-module (skribilo source parameters) + #:use-module (srfi srfi-1) + #:export (lexer-init lexer lexer-get-func-column lexer-get-func-offset lexer-get-line lexer-getc diff --git a/src/guile/skribilo/source/lisp.scm b/src/guile/skribilo/source/lisp.scm index d144917..ac161cb 100644 --- a/src/guile/skribilo/source/lisp.scm +++ b/src/guile/skribilo/source/lisp.scm @@ -21,15 +21,15 @@ (define-module (skribilo source lisp) - :use-module (skribilo utils syntax) - :use-module (skribilo source) - :use-module (skribilo source parameters) - :use-module (skribilo lib) - :use-module (srfi srfi-39) - :use-module (ice-9 match) - :autoload (skribilo reader) (make-reader) - :autoload (skribilo source lisp-lex) (lexer-init) - :export (skribe scheme stklos bigloo lisp)) + #:use-module (skribilo utils syntax) + #:use-module (skribilo source) + #:use-module (skribilo source parameters) + #:use-module (skribilo lib) + #:use-module (srfi srfi-39) + #:use-module (ice-9 match) + #:autoload (skribilo reader) (make-reader) + #:autoload (skribilo source lisp-lex) (lexer-init) + #:export (skribe scheme stklos bigloo lisp)) (define %lisp-keys #f) diff --git a/src/guile/skribilo/source/parameters.scm b/src/guile/skribilo/source/parameters.scm index c45bbf7..70e0e4b 100644 --- a/src/guile/skribilo/source/parameters.scm +++ b/src/guile/skribilo/source/parameters.scm @@ -19,8 +19,8 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo source parameters) - :use-module (srfi srfi-39) - :export (*bracket-highlight* *class-highlight* *the-keys*)) + #:use-module (srfi srfi-39) + #:export (*bracket-highlight* *class-highlight* *the-keys*)) ;;; ;;; Parameters used by the fontifiers. diff --git a/src/guile/skribilo/source/xml-lex.scm b/src/guile/skribilo/source/xml-lex.scm index 2028a39..5b28827 100644 --- a/src/guile/skribilo/source/xml-lex.scm +++ b/src/guile/skribilo/source/xml-lex.scm @@ -1,8 +1,8 @@ (define-module (skribilo source xml-lex) - :use-module (skribilo lib) - :use-module (skribilo source parameters) - :use-module (srfi srfi-1) - :export (lexer-init lexer + #:use-module (skribilo lib) + #:use-module (skribilo source parameters) + #:use-module (srfi srfi-1) + #:export (lexer-init lexer lexer-get-func-column lexer-get-func-offset lexer-get-line lexer-getc diff --git a/src/guile/skribilo/source/xml.scm b/src/guile/skribilo/source/xml.scm index 650a4b8..2306fb8 100644 --- a/src/guile/skribilo/source/xml.scm +++ b/src/guile/skribilo/source/xml.scm @@ -19,9 +19,9 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo source xml) - :export (xml) - :use-module (skribilo lib) - :use-module (ice-9 regex)) + #:export (xml) + #:use-module (skribilo lib) + #:use-module (ice-9 regex)) (define %comment-rx (make-regexp "" regexp/extended)) diff --git a/src/guile/skribilo/sui.scm b/src/guile/skribilo/sui.scm index 34e146a..eb7f8cb 100644 --- a/src/guile/skribilo/sui.scm +++ b/src/guile/skribilo/sui.scm @@ -21,23 +21,23 @@ ;;; USA. (define-module (skribilo sui) - :use-module (skribilo ast) - :autoload (skribilo parameters) (*verbose* *destination-file* + #:use-module (skribilo ast) + #:autoload (skribilo parameters) (*verbose* *destination-file* *sui-path*) - :autoload (skribilo reader) (make-reader) - :autoload (skribilo engine) (find-engine) - :autoload (skribilo evaluator) (evaluate-document) - :use-module (skribilo condition) - :use-module (skribilo utils strings) - :use-module (skribilo utils syntax) - :use-module (skribilo utils files) - - :use-module (ice-9 match) - :use-module (srfi srfi-1) - :autoload (srfi srfi-34) (raise) - :use-module (srfi srfi-35) - - :export (load-sui sui-ref->url sui-title sui-file sui-key + #:autoload (skribilo reader) (make-reader) + #:autoload (skribilo engine) (find-engine) + #:autoload (skribilo evaluator) (evaluate-document) + #:use-module (skribilo condition) + #:use-module (skribilo utils strings) + #:use-module (skribilo utils syntax) + #:use-module (skribilo utils files) + + #:use-module (ice-9 match) + #:use-module (srfi srfi-1) + #:autoload (srfi srfi-34) (raise) + #:use-module (srfi srfi-35) + + #:export (load-sui sui-ref->url sui-title sui-file sui-key sui-find-ref sui-search-ref sui-filter document-sui sui-referenced-file sui-marks sui-blocks)) diff --git a/src/guile/skribilo/table.scm b/src/guile/skribilo/table.scm index babbb9d..97e9e93 100644 --- a/src/guile/skribilo/table.scm +++ b/src/guile/skribilo/table.scm @@ -21,10 +21,10 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo table) - :use-module (skribilo ast) - :use-module (skribilo utils syntax) + #:use-module (skribilo ast) + #:use-module (skribilo utils syntax) - :export (table-column-count)) + #:export (table-column-count)) ;;; Author: Manuel Serrano, Ludovic Courtès ;;; diff --git a/src/guile/skribilo/utils/compat.scm b/src/guile/skribilo/utils/compat.scm index 3f0ec6e..a1d5b74 100644 --- a/src/guile/skribilo/utils/compat.scm +++ b/src/guile/skribilo/utils/compat.scm @@ -21,27 +21,27 @@ (define-module (skribilo utils compat) - :use-module (skribilo utils syntax) - :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) - :autoload (srfi srfi-13) (string-rindex) - :use-module (srfi srfi-34) - :use-module (ice-9 optargs) - :autoload (skribilo ast) (ast? document? document-lookup-node) - :autoload (skribilo condition) (file-search-error? &file-search-error) - :autoload (skribilo reader) (make-reader) - :autoload (skribilo resolve) (*document-being-resolved*) - :autoload (skribilo output) (*document-being-output*) - :autoload (skribilo biblio) (*bib-table* open-bib-file) - :use-module (skribilo debug) - - :re-export (file-size) ;; re-exported from `(skribilo utils files)' - :replace (gensym)) + #:use-module (skribilo utils syntax) + #: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) + #:autoload (srfi srfi-13) (string-rindex) + #:use-module (srfi srfi-34) + #:use-module (ice-9 optargs) + #:autoload (skribilo ast) (ast? document? document-lookup-node) + #:autoload (skribilo condition) (file-search-error? &file-search-error) + #:autoload (skribilo reader) (make-reader) + #:autoload (skribilo resolve) (*document-being-resolved*) + #:autoload (skribilo output) (*document-being-output*) + #:autoload (skribilo biblio) (*bib-table* open-bib-file) + #:use-module (skribilo debug) + + #:re-export (file-size) ;; re-exported from `(skribilo utils files)' + #:replace (gensym)) ;;; Author: Ludovic Courtès ;;; diff --git a/src/guile/skribilo/utils/files.scm b/src/guile/skribilo/utils/files.scm index 55740dd..7321a88 100644 --- a/src/guile/skribilo/utils/files.scm +++ b/src/guile/skribilo/utils/files.scm @@ -19,7 +19,7 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo utils files) - :export (file-prefix file-suffix file-size)) + #:export (file-prefix file-suffix file-size)) ;;; Author: Ludovic Courtès ;;; diff --git a/src/guile/skribilo/utils/images.in b/src/guile/skribilo/utils/images.in index e8b581f..672e8b5 100644 --- a/src/guile/skribilo/utils/images.in +++ b/src/guile/skribilo/utils/images.in @@ -20,15 +20,15 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo utils images) - :export (convert-image + #:export (convert-image *fig-convert-program* *generic-convert-program*) - :autoload (skribilo utils files) (file-suffix file-prefix) - :autoload (skribilo parameters) (*image-path* *verbose*) - :autoload (skribilo condition) (&file-search-error) - :autoload (srfi srfi-34) (raise) - :use-module (srfi srfi-35) - :use-module (srfi srfi-39)) + #:autoload (skribilo utils files) (file-suffix file-prefix) + #:autoload (skribilo parameters) (*image-path* *verbose*) + #:autoload (skribilo condition) (&file-search-error) + #:autoload (srfi srfi-34) (raise) + #:use-module (srfi srfi-35) + #:use-module (srfi srfi-39)) ;;; Author: Erick Gallesio, Ludovic Courtès ;;; diff --git a/src/guile/skribilo/utils/justify.scm b/src/guile/skribilo/utils/justify.scm index e6ad8cb..4833e0a 100644 --- a/src/guile/skribilo/utils/justify.scm +++ b/src/guile/skribilo/utils/justify.scm @@ -20,11 +20,11 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo utils justify) - :use-module (srfi srfi-13) - :autoload (srfi srfi-34) (raise) - :use-module (srfi srfi-35) - :use-module (skribilo condition) - :export (make-justifier output-flush + #:use-module (srfi srfi-13) + #:autoload (srfi srfi-34) (raise) + #:use-module (srfi srfi-35) + #:use-module (skribilo condition) + #:export (make-justifier output-flush *text-column-width* *text-justification* diff --git a/src/guile/skribilo/utils/keywords.scm b/src/guile/skribilo/utils/keywords.scm index fa13ed1..818e131 100644 --- a/src/guile/skribilo/utils/keywords.scm +++ b/src/guile/skribilo/utils/keywords.scm @@ -20,7 +20,7 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo utils keywords) - :export (the-body the-options list-split)) + #:export (the-body the-options list-split)) ;;; Author: Manuel Serrano, Ludovic Courtès ;;; diff --git a/src/guile/skribilo/utils/strings.scm b/src/guile/skribilo/utils/strings.scm index b2c2ba1..7bbd4b1 100644 --- a/src/guile/skribilo/utils/strings.scm +++ b/src/guile/skribilo/utils/strings.scm @@ -19,10 +19,10 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo utils strings) - :export (strip-ref-base string-canonicalize + #:export (strip-ref-base string-canonicalize make-string-replace) - :autoload (skribilo parameters) (*ref-base*) - :use-module (srfi srfi-13)) + #:autoload (skribilo parameters) (*ref-base*) + #:use-module (srfi srfi-13)) ;;; diff --git a/src/guile/skribilo/utils/syntax.scm b/src/guile/skribilo/utils/syntax.scm index b6c93b4..c771507 100644 --- a/src/guile/skribilo/utils/syntax.scm +++ b/src/guile/skribilo/utils/syntax.scm @@ -20,10 +20,10 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo utils syntax) - :use-module (system reader library) - :use-module (system reader compat) ;; make sure `current-reader' exists - :use-module (system reader confinement) - :export (%skribilo-module-reader + #:use-module (system reader library) + #:use-module (system reader compat) ;; make sure `current-reader' exists + #:use-module (system reader confinement) + #:export (%skribilo-module-reader skribilo-module-syntax set-correct-file-encoding! default-to-utf-8 diff --git a/src/guile/skribilo/utils/text-table.scm b/src/guile/skribilo/utils/text-table.scm index dfb2473..5b40e0c 100644 --- a/src/guile/skribilo/utils/text-table.scm +++ b/src/guile/skribilo/utils/text-table.scm @@ -20,12 +20,12 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo utils text-table) - :use-module (skribilo ast) - :use-module (skribilo table) - :use-module (skribilo utils justify) - :use-module (skribilo utils syntax) + #:use-module (skribilo ast) + #:use-module (skribilo table) + #:use-module (skribilo utils justify) + #:use-module (skribilo utils syntax) - :export (table->ascii)) + #:export (table->ascii)) ;;; Author: Manuel Serrano, Ludovic Courtès ;;; diff --git a/src/guile/skribilo/verify.scm b/src/guile/skribilo/verify.scm index 0f9bf5d..0689c2a 100644 --- a/src/guile/skribilo/verify.scm +++ b/src/guile/skribilo/verify.scm @@ -21,21 +21,21 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo verify) - :autoload (skribilo engine) (engine-ident processor-get-engine) - :autoload (skribilo writer) (writer? writer-options lookup-markup-writer) - :autoload (skribilo lib) (skribe-warning/ast) - :use-module (skribilo debug) - :use-module (skribilo ast) - :use-module (skribilo condition) - :use-module (skribilo utils syntax) - :autoload (skribilo location) (location?) + #:autoload (skribilo engine) (engine-ident processor-get-engine) + #:autoload (skribilo writer) (writer? writer-options lookup-markup-writer) + #:autoload (skribilo lib) (skribe-warning/ast) + #:use-module (skribilo debug) + #:use-module (skribilo ast) + #:use-module (skribilo condition) + #:use-module (skribilo utils syntax) + #:autoload (skribilo location) (location?) - :autoload (srfi srfi-34) (raise) - :use-module (srfi srfi-35) + #:autoload (srfi srfi-34) (raise) + #:use-module (srfi srfi-35) - :use-module (oop goops) + #:use-module (oop goops) - :export (verify)) + #:export (verify)) (skribilo-module-syntax) diff --git a/src/guile/skribilo/writer.scm b/src/guile/skribilo/writer.scm index 6d9c02e..b757f03 100644 --- a/src/guile/skribilo/writer.scm +++ b/src/guile/skribilo/writer.scm @@ -21,24 +21,24 @@ ;;; along with Skribilo. If not, see . (define-module (skribilo writer) - :export ( writer? writer-options writer-ident + #:export ( writer? writer-options writer-ident writer-before writer-action writer-after writer-class invoke markup-writer markup-writer-get markup-writer-get* lookup-markup-writer copy-markup-writer) - :use-module (skribilo utils syntax) - :autoload (srfi srfi-1) (find filter) - :autoload (srfi srfi-34) (raise) - :autoload (skribilo engine) (engine? engine-ident? default-engine) + #:use-module (skribilo utils syntax) + #:autoload (srfi srfi-1) (find filter) + #:autoload (srfi srfi-34) (raise) + #:autoload (skribilo engine) (engine? engine-ident? default-engine) - :use-module (srfi srfi-35) - :use-module (skribilo condition) - :use-module (skribilo debug) - :use-module (skribilo ast) + #:use-module (srfi srfi-35) + #:use-module (skribilo condition) + #:use-module (skribilo debug) + #:use-module (skribilo ast) - :use-module (oop goops) - :use-module (ice-9 optargs)) + #:use-module (oop goops) + #:use-module (ice-9 optargs)) (skribilo-module-syntax) -- cgit v1.2.3