UX: editor tabstate can be driven by fragment

[dustingetz]

Problem is that Reagent tab wrap already hardcodes uses wrapper [:a] and you can't nest them.

Here is the change:

(defn fiddle-src-renderer [val ctx {:keys [:embed-mode] :as props}]
  (let [ctx (shadow-fiddle ctx)
        target-route (context/target-route ctx)
        selected-tab (or (get target-route 3) (:initial-tab props) :hf.src/query)]
    [:div (select-keys props [:class])
     #_(if-not embed-mode
         [:h3 "Source: " (str @(r/cursor (:hypercrud.browser/data ctx) [:fiddle/ident]))])
     ; Design constraint: one codemirror per tab, and it will expand to fill height.
     [horizontal-tabs
      ; F U recom: Validation failed: Expected 'vector of tabs | atom'. Got '[:query :links :view :css :fiddle]'
      :tabs [{:id :hf.src/query} {:id :hf.src/links} {:id :hf.src/markdown}
             {:id :hf.src/view} {:id :hf.src/css} {:id :hf.src/fiddle}]
      :id-fn :id
      :label-fn (fn [{:keys [id]}]
                  (let [root-rel-path (runtime/encode-route (:peer ctx) (router/dissoc-frag target-route))]
                    [:a {:href (str root-rel-path "#" (encode-rfc3986-pchar (encode-ednish (pr-str id))))}
                     (name id)]))
      :model selected-tab
      :on-change #()]
     [(get tabs selected-tab) val ctx {:embed-mode embed-mode}]]))

[dustingetz]

It actually already is driven externally by fragment deeplink, it is just initial state only and doesn't sync after that. http://tank.hyperfiddle.net/:dustingetz!html5-video-m3u8/#:hf.src!view

[dustingetz]

Pushy causes major fuckery here, it ends up hard navigating. If the pathname is omitted which i believe is legal for a page-relative hash, pushy eats the page segment and the URL ends up out of sync with the view.