                       #(dispatch/fire :ns-clicked {:ns (parent-ns all-ns ns-nav)})))
       (set-styles! prev {:display "none"}))))
 
-(defn- display-ns "Display namespaces"
+(defn- display-lns "Display namespaces"
   [lns]
   (let [nsn (by-id "ns-nav")]
     (when lns

                           "click"
                           #(dispatch/fire :fn-clicked {:fn f}))) fns)))))

(dispatch/react-to #{:state-change-fnx} (fn [_ m] (render-fnx m)))

;; ------------- fnx -------------

                           "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"})
