mirror of
https://github.com/ebeem/guile-swayer.git
synced 2024-12-25 21:59:00 +01:00
export all modules under sjson and swayipc
This commit is contained in:
parent
3511abd7d4
commit
c686dd7a0e
2 changed files with 48 additions and 0 deletions
22
sjson.scm
Normal file
22
sjson.scm
Normal file
|
@ -0,0 +1,22 @@
|
||||||
|
;;; Commentary:
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
(define-module (sjson)
|
||||||
|
#:use-module (sjson builder)
|
||||||
|
#:use-module (sjson parser)
|
||||||
|
#:use-module (sjson record))
|
||||||
|
|
||||||
|
(define-syntax re-export-modules
|
||||||
|
(syntax-rules ()
|
||||||
|
((_ (mod ...) ...)
|
||||||
|
(begin
|
||||||
|
(module-use! (module-public-interface (current-module))
|
||||||
|
(resolve-interface '(mod ...)))
|
||||||
|
...))))
|
||||||
|
|
||||||
|
(re-export-modules (sjson builder)
|
||||||
|
(sjson parser)
|
||||||
|
(sjson record))
|
||||||
|
|
||||||
|
;;; (sjson) ends here
|
26
swayipc.scm
Normal file
26
swayipc.scm
Normal file
|
@ -0,0 +1,26 @@
|
||||||
|
;;; Commentary:
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
(define-module (swayipc)
|
||||||
|
#:use-module (swayipc connection)
|
||||||
|
#:use-module (swayipc dispatcher)
|
||||||
|
#:use-module (swayipc events)
|
||||||
|
#:use-module (swayipc info)
|
||||||
|
#:use-module (swayipc records))
|
||||||
|
|
||||||
|
(define-syntax re-export-modules
|
||||||
|
(syntax-rules ()
|
||||||
|
((_ (mod ...) ...)
|
||||||
|
(begin
|
||||||
|
(module-use! (module-public-interface (current-module))
|
||||||
|
(resolve-interface '(mod ...)))
|
||||||
|
...))))
|
||||||
|
|
||||||
|
(re-export-modules (swayipc connection)
|
||||||
|
(swayipc dispatcher)
|
||||||
|
(swayipc events)
|
||||||
|
(swayipc info)
|
||||||
|
(swayipc records))
|
||||||
|
|
||||||
|
;;; (swayipc) ends here
|
Loading…
Reference in a new issue