diff options
| -rw-r--r-- | README.md | 8 | ||||
| -rw-r--r-- | ss/as.scm (renamed from src/as.scm) | 4 | ||||
| -rw-r--r-- | ss/as/atom.scm (renamed from src/as/atom.scm) | 6 | ||||
| -rw-r--r-- | ss/as/html.scm (renamed from src/as/html.scm) | 6 | ||||
| -rw-r--r-- | ss/as/media-list.scm (renamed from src/as/media-list.scm) | 6 | ||||
| -rw-r--r-- | ss/atom.scm (renamed from src/atom.scm) | 6 | ||||
| -rw-r--r-- | ss/dates.scm (renamed from src/dates.scm) | 2 | ||||
| -rw-r--r-- | ss/html.scm (renamed from src/html.scm) | 6 | ||||
| -rw-r--r-- | ss/media-list.scm (renamed from src/media-list.scm) | 2 | ||||
| -rw-r--r-- | ss/mime-types.scm (renamed from src/mime-types.scm) | 2 | ||||
| -rw-r--r-- | tests/atom.scm | 4 | ||||
| -rw-r--r-- | tests/html.scm | 4 |
12 files changed, 28 insertions, 28 deletions
@@ -6,7 +6,7 @@ It doesn't control errors for the moment so be careful with what you do. ## Usage -`(src atom)` and `(src html)` are libraries you can use independently as in +`(ss atom)` and `(ss html)` are libraries you can use independently as in `tests/`, but the magic comes when you read the basic Format (see below) as a generic generator. @@ -14,9 +14,9 @@ The following script shows one way to do it: ``` scm (define-module (scripts create) - #:use-module ((src atom) #:prefix atom:) - #:use-module ((src html) #:prefix html:) - #:use-module (src as)) + #:use-module ((ss atom) #:prefix atom:) + #:use-module ((ss html) #:prefix html:) + #:use-module (ss as)) (define root (canonicalize-path (cadr (command-line)))) @@ -1,4 +1,4 @@ -(define-module (src as) +(define-module (ss as) #:export (as) #:declarative? #f) @@ -13,4 +13,4 @@ (call-in-module (lambda () (load path)) module-name)) (define (as what file) - (load-in-module file `(src as ,what))) + (load-in-module file `(ss as ,what))) diff --git a/src/as/atom.scm b/ss/as/atom.scm index 092393c..c089974 100644 --- a/src/as/atom.scm +++ b/ss/as/atom.scm @@ -1,6 +1,6 @@ -(define-module (src as atom) - #:use-module ((src atom) #:prefix atom:) - #:use-module (src dates) +(define-module (ss as atom) + #:use-module ((ss atom) #:prefix atom:) + #:use-module (ss dates) #:declarative? #f) (define main atom:feed) diff --git a/src/as/html.scm b/ss/as/html.scm index 8d2a6e8..743a77c 100644 --- a/src/as/html.scm +++ b/ss/as/html.scm @@ -1,6 +1,6 @@ -(define-module (src as html) - #:use-module (src dates) - #:use-module ((src html) #:prefix html:) +(define-module (ss as html) + #:use-module (ss dates) + #:use-module ((ss html) #:prefix html:) #:declarative? #f) (define main html:index) diff --git a/src/as/media-list.scm b/ss/as/media-list.scm index ca29507..ca07829 100644 --- a/src/as/media-list.scm +++ b/ss/as/media-list.scm @@ -1,6 +1,6 @@ -(define-module (src as media-list) - #:use-module (src dates) - #:use-module ((src media-list) #:prefix media-list:) +(define-module (ss as media-list) + #:use-module (ss dates) + #:use-module ((ss media-list) #:prefix media-list:) #:declarative? #f) (define main media-list:media-list) diff --git a/src/atom.scm b/ss/atom.scm index ba4ff3d..37cec5a 100644 --- a/src/atom.scm +++ b/ss/atom.scm @@ -1,6 +1,6 @@ -(define-module (src atom) - #:use-module (src mime-types) - #:use-module (src dates) +(define-module (ss atom) + #:use-module (ss mime-types) + #:use-module (ss dates) #:use-module (srfi srfi-1) #:use-module (srfi srfi-9) #:use-module (sxml simple) diff --git a/src/dates.scm b/ss/dates.scm index a70aa01..58a1ec6 100644 --- a/src/dates.scm +++ b/ss/dates.scm @@ -1,4 +1,4 @@ -(define-module (src dates) +(define-module (ss dates) #:use-module (ice-9 format) #:use-module (srfi srfi-1) #:use-module (srfi srfi-19) diff --git a/src/html.scm b/ss/html.scm index e957683..7f31f85 100644 --- a/src/html.scm +++ b/ss/html.scm @@ -1,8 +1,8 @@ -(define-module (src html) - #:use-module (src dates) +(define-module (ss html) + #:use-module (ss dates) #:use-module (srfi srfi-9) #:use-module (sxml simple) - #:use-module (src mime-types) + #:use-module (ss mime-types) #:export (render person person? diff --git a/src/media-list.scm b/ss/media-list.scm index 115ae0a..8e49e9b 100644 --- a/src/media-list.scm +++ b/ss/media-list.scm @@ -1,4 +1,4 @@ -(define-module (src media-list) +(define-module (ss media-list) #:use-module (ice-9 format) #:export (ignore media-list diff --git a/src/mime-types.scm b/ss/mime-types.scm index 20dd228..f6f1f3c 100644 --- a/src/mime-types.scm +++ b/ss/mime-types.scm @@ -1,4 +1,4 @@ -(define-module (src mime-types) +(define-module (ss mime-types) #:export (mime-types)) (define mime-types diff --git a/tests/atom.scm b/tests/atom.scm index c6cd268..bdf78c6 100644 --- a/tests/atom.scm +++ b/tests/atom.scm @@ -1,7 +1,7 @@ (define-module (tests atom) - #:use-module (src dates) + #:use-module (ss dates) #:use-module (srfi srfi-64) - #:use-module ((src atom) #:prefix atom:)) + #:use-module ((ss atom) #:prefix atom:)) (test-begin "Atom feed") diff --git a/tests/html.scm b/tests/html.scm index 805ab17..974b2f1 100644 --- a/tests/html.scm +++ b/tests/html.scm @@ -1,7 +1,7 @@ (define-module (tests html) - #:use-module (src dates) + #:use-module (ss dates) #:use-module (srfi srfi-64) - #:use-module ((src html) #:prefix html:)) + #:use-module ((ss html) #:prefix html:)) (test-begin "HTML index page") |