as; call-in-module instead of calling in interface

Calling in module let's the user write any scheme code they want inside
the template.

3 files changed, 7 insertions, 22 deletions

diff --git a/src/as/atom.scm b/src/as/atom.scm
index 2f88b7e..c55d550 100644
--- a/src/as/atom.scm
+++ b/src/as/atom.scm
@@ -1,11 +1,6 @@
 (define-module (src as atom)
   #:use-module ((src atom) #:prefix atom:)
-  #:use-module (src dates)
-  #:re-export (string/ISO->date)
-  #:export (main
-            post
-            person
-            media))
+  #:use-module (src dates))
 
 (define main atom:feed)
 (define post atom:entry)
diff --git a/src/as/html.scm b/src/as/html.scm
index 6a612dc..0ea5434 100644
--- a/src/as/html.scm
+++ b/src/as/html.scm
@@ -1,11 +1,6 @@
 (define-module (src as html)
   #:use-module (src dates)
-  #:use-module ((src html) #:prefix html:)
-  #:re-export (string/ISO->date)
-  #:export (main
-            post
-            person
-            media))
+  #:use-module ((src html) #:prefix html:))
 
 (define main html:index)
 (define post html:post)
diff --git a/src/as/media-list.scm b/src/as/media-list.scm
index f5a1eb2..68af2d3 100644
--- a/src/as/media-list.scm
+++ b/src/as/media-list.scm
@@ -1,13 +1,8 @@
 (define-module (src as media-list)
   #:use-module (src dates)
-  #:use-module (src media-list)
-  #:re-export (string/ISO->date)
-  #:export (main
-            post
-            person
-            media))
+  #:use-module ((src media-list) #:prefix media-list:))
 
-(define main media-list)
-(define post ignore)
-(define person ignore)
-(define media add-to-list)
+(define main media-list:media-list)
+(define post media-list:ignore)
+(define person media-list:ignore)
+(define media media-list:add-to-list)