diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-08 15:23:54 +0200 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-08 15:57:44 +0200 |
| commit | dc7202a0338126cef3a756dc6761eb0c3885078e (patch) | |
| tree | 9051e96870315307c5b8689d31b39a434475d0e5 | |
| parent | 959d4fd10f365bbb1cbba1de367544d519274b8e (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.
| -rw-r--r-- | src/as.scm | 6 | ||||
| -rw-r--r-- | src/as/atom.scm | 7 | ||||
| -rw-r--r-- | src/as/html.scm | 7 | ||||
| -rw-r--r-- | src/as/media-list.scm | 15 |
4 files changed, 10 insertions, 25 deletions
@@ -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) |