        [:span {:aria-hidden             "true"
                :dangerouslySetInnerHTML {:__html "&times;"}}]]]]]
    [view-page page]])
+
+(defn view-page-modal [page]
+  (create-class {:reagent-render (fn [] (render-page-modal page))
+                 :component-will-unmount (fn [] (m/close-modal!))}))
 
 (defn edit-page-header [header]
   [:div.row

                      "tag" (tag-block block)
                      nil)]))]]]])]))

(defn view-page-modal [page]
  [:div {:id "badge-content"}
   [:div.modal-body
    [:div.row

(ns salava.page.ui.helper
  (:require [reagent.core :refer [create-class]]
            [reagent-modals.modals :as m]
            [markdown.core :refer [md->html]]
            [salava.core.ui.ajax-utils :as ajax]
            [salava.core.i18n :refer [t]]
