如何在ClojureScript / Reagent中动态更改页面标题和描述

(def page-info (reagent/atom {:title "默认标题" :description "默认描述"}))

(defn page-component []
  (let [info (reagent/subscribe [:page-info])]
    [:div
      [:h1 (:title @info)]
      [:p (:description @info)]]))

(defn page-component []
  (let [info (reagent/subscribe [:page-info])]
    (reagent/with-let [title (:title @info)
                       description (:description @info)]
      (reagent/create-element
        :div
        [:h1 title]
        [:p description]))))

(defn update-page-info [new-title new-description]
  (swap! page-info assoc :title new-title :description new-description))

(defn set-page-title [new-title]
  (set! (.-title js/document) new-title))

(defn set-page-description [new-description]
  (let [meta-tag (js/document.querySelector "meta[name='description']")]
    (when meta-tag
      (set! (.-content meta-tag) new-description))))

(update-page-info "新标题" "新描述")
(set-page-title (:title @page-info))
(set-page-description (:description @page-info))