Add (vcomponent build).

1 files changed, 38 insertions, 0 deletions

diff --git a/module/vcomponent/build.scm b/module/vcomponent/build.scm
new file mode 100644
index 00000000..dd3431c1
--- /dev/null
+++ b/module/vcomponent/build.scm
@@ -0,0 +1,38 @@
+;;; Commentary:
+;; Module for quickly building new vcomponents from code.
+;; @example
+;; (vevent
+;;  summary: "This is a test event"
+;;  dtstart: #2020-01-01T13:37:00
+;;  children: (list
+;;             (valarm ...)))
+;;; Code:
+
+(define-module (vcomponent build)
+  :use-module (util)
+  :use-module (vcomponent base)
+  :use-module (srfi srfi-26)
+  :use-module ((srfi srfi-88) :select (keyword->string)))
+
+(define-public (vevent . body)    (apply vcomponent 'VEVENT    body))
+(define-public (vcalendar . body) (apply vcomponent 'VCALENDAR body))
+(define-public (valarm . body)    (apply vcomponent 'VALARM    body))
+
+(define-public (vcomponent tag . rest)
+  (define v (make-vcomponent tag))
+
+  (let loop ((rem rest))
+    (unless (null? rem)
+      (if (eq? children: (car rem))
+          (for-each (cut add-child! v <>) (cadr rem))
+          (let ((symb (-> (car rem)
+                          keyword->string
+                          string-upcase
+                          string->symbol)))
+            (set! (prop v symb) (cadr rem))))
+      (loop (cddr rem))))
+
+  ;; Return
+  v)
+
+