Merge branch 'next' into datarewrite-structures

1 files changed, 47 insertions, 0 deletions

diff --git a/static/ts/components/vevent-dl.ts b/static/ts/components/vevent-dl.ts
new file mode 100644
index 00000000..a4b51dd9
--- /dev/null
+++ b/static/ts/components/vevent-dl.ts
@@ -0,0 +1,47 @@
+/**
+ * `<vevent-dl />`
+ *
+ * A description list of a vevent, used for debugging.
+ *
+ * No guarantees are given about the contents of the data fields, more
+ * than that they are related to the value in question.
+ *
+ * @category Web Components
+ * @mergeTarget components
+ * @module
+ */
+export { VEventDL }
+
+import { ComponentVEvent } from './vevent'
+import { VEvent } from '../vevent'
+import { makeElement } from '../lib'
+
+import { RecurrenceRule } from '../vevent'
+
+/* <vevent-dl /> */
+class VEventDL extends ComponentVEvent {
+    redraw(obj: VEvent) {
+        let dl = buildDescriptionList(
+            Array.from(obj.boundProperties)
+                .map(key => [key, obj.getProperty(key)]))
+        this.replaceChildren(dl);
+    }
+}
+
+function buildDescriptionList(data: [string, any][]): HTMLElement {
+    let dl = document.createElement('dl');
+    for (let [key, val] of data) {
+        dl.appendChild(makeElement('dt', { textContent: key }))
+        let fmtVal: string = val;
+        if (val instanceof Date) {
+            fmtVal = val.format(
+                val.dateonly
+                    ? '~Y-~m-~d'
+                    : '~Y-~m-~dT~H:~M:~S');
+        } else if (val instanceof RecurrenceRule) {
+            fmtVal = JSON.stringify(val.to_jcal())
+        }
+        dl.appendChild(makeElement('dd', { textContent: fmtVal }))
+    }
+    return dl;
+}