summaryrefslogtreecommitdiff
path: root/src/as
diff options
context:
space:
mode:
authorEkaitz Zarraga <ekaitz@elenq.tech>2023-10-08 15:23:54 +0200
committerEkaitz Zarraga <ekaitz@elenq.tech>2023-10-08 15:57:44 +0200
commitdc7202a0338126cef3a756dc6761eb0c3885078e (patch)
tree9051e96870315307c5b8689d31b39a434475d0e5 /src/as
parent959d4fd10f365bbb1cbba1de367544d519274b8e (diff)
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.
Diffstat (limited to 'src/as')
-rw-r--r--src/as/atom.scm7
-rw-r--r--src/as/html.scm7
-rw-r--r--src/as/media-list.scm15
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)