        [:option "PDF"]
        [:option "Plain Text"]]]])))
 
-(defn ^:private pages [pages owner]
+(defn ^:private pages-list [pages owner]
   (reify
     om/IRenderState
     (render-state [_ {:keys [events current-page]}]

                       :init-state {:events events}
                       :state {:current-page current-page}
                       :opts {:view page/full}})]))))

(defn ^:private meta-pane [document owner]
  (om/component

    (will-mount [_]
      ;; Start handling tag change events etc.
      (go-loop []
        (let [{:keys [pages tag-changes thumbnail-widths sidebar-widths]} (om/get-state owner)
              [event port] (alts! [pages tag-changes thumbnail-widths sidebar-widths])]
          (when (and event port)
            (condp = port
              pages
              (handle-page-click! @document owner event)
              
              tag-changes
              (let [[op tag] event]
                ;; Deref to get the 'actual' value (might be stale)
                (-> @document
