 
 (defn- load-context-and-go
   "Loads context with given loader and adds a new tab with a context-editor."
-  [frame loader]
+  [frame]
   (when-let [^File file (choose-open-file frame)]
     (let [path (.getPath file),
-          thing (loader path)]
+          thing (read-context path)]
       (add-tab frame
                (make-context-editor thing)
                (str "Context " path)))))


(defvar- context-menu
  {:name "Context",
   :content [{:name "Load Context",
              :handler #(load-context-and-go % read-context)},
             {:name "Random Context",
              :handler random-context-and-go},
             {:name "Second Operand Context",
              :handler second-op-context-and-go},
             {}

    (clone-context-view-from-panel (current-tab frame))
    (str (current-tab-title frame) "*")))

(defn- context-and-go
  "Opens given context in a new context editor tab."
  [frame context]
  (add-tab frame
           (make-context-editor context)
           "Context"))

(defn- second-op-context-and-go
  "Show the current second operand context in a new tab."
