 
 (defn show-harnocode! [harnocode]
   (let [output-area (dom/getElement "output")]
-    (when output-area (set! (.-value output-area) harnocode))))
+    (set! (.-value output-area) harnocode)))
 
 ;; Ugly, but have no time to find a better way
 (defn insert [v pos item]

      )))

(defn display-image-array [pixels]
  (let [pixels-div (dom/getElement "pixels")]
    (when pixels-div
      (let [s (pixels-to-string pixels [])]
        (set! (.-innerHTML pixels-div) s))
      )
    ))

(defonce max-image-dimension 224)


(defonce setup-stuff
 (do
  (let [button (dom/getElement "go")]
   (events/listen button "click" go-click-listener))
  (events/listen (dom/getElement "inverse") "click"
    (fn [event]
     (swap! img invert-image)
