   (if (querydb [:serialized])
     (updatedb [:serialized] false)
     (updatedb [:serialized] true)))
+
+(defn set_serialize
+  [serializer]
+  (updatedb [:serializer] serializer))
 
 ;; App
 

; Constants
;
(def ^:const DATEFORMAT "d.M.yyyy H:mm")


;; Transito functions



(defn serialization
  []
  (let [serialize (querydb [:serialized])
        serializer (querydb [:serializer])]
    (if serialize
      (nm "#serialization" [(nm "div" [(nm "button.pure-button"
                                           {:onclick #(toggle-serialization)} "Close")
                                       (nm "button.pure-button"
                                           {:onclick #(set_serialize serialize-edn)} "EDN")
                                       (nm "button.pure-button"
                                           {:onclick #(set_serialize serialize-md)} "Markdown")
                                       " Click the text area and select text"])
                            (nm "textarea" (serialize-db serializer))]))))

(defn reporender
  "Render repository trees"
