Refactor contact parser

Author: strika

src/contact/parser.janet

@@ -12,10 +12,11 @@
                       (? (* (constant :last-contact) :last-contact)))
                    ,contact/build-contact)
     :name (* "# " (? (some :d)) (replace (capture (some (if-not "\n" 1))) ,string/trim) "\n")
-    :detail (+ :category :birthday :other-detail)
-    :category (* "- Category: " (constant :category) (capture (+ "A" "a" "B" "b" "C" "c" "D" "d")) "\n")
-    :birthday (* "- Birthday: " (constant :birthday) (capture (* :d :d "-" :d :d)) "\n")
-    :other-detail (* "- " (some (if-not ":" 1)) ": " (some (if-not "\n" 1)) "\n")
+    :detail
+      {:main (+ :category :birthday :other-detail)
+       :category (* "- Category: " (constant :category) (capture (+ "A" "a" "B" "b" "C" "c" "D" "d")) "\n")
+       :birthday (* "- Birthday: " (constant :birthday) (capture (* :d :d "-" :d :d)) "\n")
+       :other-detail (* "- " (some (if-not ":" 1)) ": " (some (if-not "\n" 1)) "\n")}
     :last-contact (* "## " (replace :date ,d/parse))
     :date (capture (* :d :d :d :d "-" :d :d "-" :d :d))})