Add macro for exporting edwin-specific names.

Author: Duncan Mak

config-macros.scm

@@ -0,0 +1,27 @@
+;;;
+;;; Macro used to exporting edwin-specific bindings.
+;;;
+;;; (edwin:export (variable a)
+;;;               (command  b)
+;;;               (mode     c))
+;;; This is equivalent to
+;;;
+;;; (export edwin-variable$a
+;;;         edwin-command$b
+;;;         edwin-mode$c)
+;;;
+(define-syntax edwin:export
+  (lambda (form rename compare)
+    `(,(rename 'export)
+      ,@(apply append
+               (map (lambda (specifier)
+                      (let ((category (car specifier))
+                            (names    (cdr specifier)))
+                        (map (lambda (name)
+                               (string->symbol
+                                (apply string-append
+                                       (map symbol->string
+                                            `(edwin - ,category $ ,name)))))
+                             names)))
+                    (cdr form)))))
+  (export))

load.scm

@@ -10,6 +10,9 @@
 
 (user)
 
+;;; EDWIN-EXPORT
+(config '(load "config-macros.scm"))
+
 (config '(load "terminfo/interfaces.scm"
                "terminfo/scsh-packages.scm"))