                            "click"
                            #(dispatch/fire :fn-clicked {:fn f}))) fns)))))
 
+(defmethod render-fnx :ns-navigating [{:keys [all-ns ns-nav]}]
+  (let [lns-fns (ls-curr-ns all-ns ns-nav)]
+    (hide-spinner)
+    (previous-ns-block all-ns ns-nav)
+    (display-lns (first lns-fns))
+    (display-fns (second lns-fns))))
+
 (dispatch/react-to #{:state-change-fnx} (fn [_ m] (render-fnx m)))
 
 ;; ------------- fnx -------------

                      #(dispatch/fire :ns-clicked {:ns (parent-ns all-ns ns-nav)})))
      (set-styles! prev {:display "none"}))))

(defn- display-ns "Display namespaces"
  [lns]
  (let [nsn (by-id "ns-nav")]
    (when lns

                           "click"
                           #(dispatch/fire :ns-clicked {:ns n}))) lns)))))

(defn- display-fns "Display functions list"
  [fns]
  (let [fnd (by-id "fn-display")]
    (when fns
      ;; show the function block
      (set-styles! fnd {:display "block" :color "blue"})
