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

                              :allow-styling)]
      (html-sanitize policy content))))


(defn save-page-content! [ctx page-id page-content user-id]


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


