 
 (defrender documentation [app owner opts]
   (let [subpage (get-in app [:navigation-data :subpage])
+        fragment (get-in app [:navigation-data :_fragment])
         docs (get-in app state/docs-data-path)
         categories ((juxt :gettingstarted :languages :how-to :troubleshooting
                           :reference :parallelism :privacy-security) docs)]

         [:article
          (if-not subpage
            (om/build front-page app)
            (om/build docs-subpage (get docs subpage)))]]]]])))

(defn docs-subpage [doc owner]
  (reify
    om/IDidMount
    (did-mount [_]
      (add-link-targets (om/get-node owner))
      (navigation/scroll-to-fragment! (-> owner om/get-state :_fragment)))
    om/IDidUpdate
    (did-update [_ _ _]
      (add-link-targets (om/get-node owner))
      (navigation/scroll-to-fragment! (-> owner om/get-state :_fragment)))
    om/IRender
    (render [_]
      (html
