          [:.pane {:style {:min-width width :max-width width}
                   :key "meta-pane"}
           (om/build meta-pane document
-                    {:init-state {:tags tag-changes}})])])))
+                    {:init-state {:tags tag-changes
+                                  :date date-changes}})])])))
 
 (defmethod draggable/pos->width ::thumbnails [sidebars sidebar [x _]]
   (draggable/limit

  (init-state [_]
    {:page-number 1
     :pages (async/chan)
     :tag-changes (async/chan)})
  (will-mount [_]
    ;; Start handling tag change events etc.
    (go-loop []
      (let [{:keys [pages tag-changes]} (om/get-state owner)
            [event port] (alts! [pages tag-changes])]
        (when (and event port)
          (condp = port
            pages

       (om/build tags/tags-input document
                 {:state (om/get-state owner)})]

      (let [formatter (DateTimeFormat. "yyyy-MM-dd")]
        (om/build date-picker document
                  {:init-state {:value (when document_date
                                         (.format formatter document_date))}
                   :state (om/get-state owner)}))
      
      ;; Buttons: Download, Delete, etc.
      [:.buttons
       [:button.download {:on-click #(js/window.open
