                               :allow-styling)]
       (html-sanitize policy content))))
 
+(defn save-badge-showcase! [ctx id block]
+  (let [badges (:badges block)
+        badges->json (-> badges (json/write-str))]
+    (dump badges->json)))
+
 
 (defn save-page-content! [ctx page-id page-content user-id]
 

                       (create-files-block! ctx block)))
            "tag" (if id
                    (update-tag-block! block (get-db ctx))
                    (insert-tag-block! block (get-db ctx))))))
      (doseq [old-block page-blocks]
        (if-not (some #(and (= (:type old-block) (:type %)) (= (:id old-block) (:id %))) blocks)
          (delete-block! ctx old-block)))

            [clj-pdf-markdown.core :refer [markdown->clj-pdf]]
            [clojure.zip :as zip]
            [net.cgrand.enlive-html :as enlive]
            [clojure.data.json :as json]
            ))


