1 files changed, 0 insertions, 38 deletions
diff --git a/module/vcomponent/build.scm b/module/vcomponent/build.scm
deleted file mode 100644
index d49844cc..00000000
--- a/module/vcomponent/build.scm
+++ /dev/null
@@ -1,38 +0,0 @@
-;;; 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 (calp 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)
-
-