summaryrefslogtreecommitdiff
path: root/src
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
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')
-rw-r--r--src/as.scm6
-rw-r--r--src/as/atom.scm7
-rw-r--r--src/as/html.scm7
-rw-r--r--src/as/media-list.scm15
4 files changed, 10 insertions, 25 deletions
diff --git a/src/as.scm b/src/as.scm
index b95c096..d309b8a 100644
--- a/src/as.scm
+++ b/src/as.scm
@@ -4,13 +4,13 @@
(define (call-in-module thunk module)
(let* ((curmod (current-module))
- (_ (set-current-module (resolve-interface module)))
+ (_ (set-current-module (resolve-module module)))
(v (thunk))
(_ (set-current-module curmod)))
v))
-(define (load-with-interface path module-name)
+(define (load-in-module path module-name)
(call-in-module (lambda () (load path)) module-name))
(define (as what file)
- (load-with-interface file `(src as ,what)))
+ (load-in-module file `(src as ,what)))
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)