API: move `src` to `ss`

12 files changed, 28 insertions, 28 deletions

diff --git a/README.md b/README.md
index 32d46a3..b1a9f33 100644
--- a/README.md
+++ b/README.md
@@ -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))))
 
diff --git a/src/as.scm b/ss/as.scm
index d309b8a..6af0ff4 100644
--- a/src/as.scm
+++ b/ss/as.scm
@@ -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")