Block references wip

web/src/main/frontend/format/block.cljs

@@ -48,6 +48,12 @@
    (vector? block)
    (= "Timestamp" (first block))))
 
+(defn- properties-block?
+  [block]
+  (and
+   (vector? block)
+   (= "Property_Drawer" (first block))))
+
 (defn- paragraph-timestamp-block?
   [block]
   (and (paragraph-block? block)

web/src/main/frontend/format/mldoc.cljs

@@ -26,11 +26,14 @@
 
 (defn ->edn
   [content config]
-  (if (string/blank? content)
-    {}
-    (-> content
-        (parse-json config)
-        (util/json->clj))))
+  (try
+    (if (string/blank? content)
+     {}
+     (-> content
+         (parse-json config)
+         (util/json->clj)))
+    (catch js/Error _e
+      [])))
 
 (defrecord MldocMode []
   protocol/Format