   (:use snake.terminal)
   (:require [clojure.contrib.string :as string]))
 
-(defn draw-boarder
+(defn create-view
+  "Create a new board view"
+  [board]
+  :not-yet-implemented)
+
+(defn draw-borders
   "Draws the surrounding border of the board."
   [{width :width height :height}]
   

  (put (string/repeat width "-"))
  (put "/"))


(defn add-apple
  [{x :x y :y}]
  
  (set-cursor (+ x 1) (+ y 1))
  (put "o"))

(defn add-snake
  [{x :x y :y}]
  
  (set-cursor (+ x 1) (+ y 1))
  (put "#"))

(defn remove
  [{x :x y :y}]
  
  (set-cursor (+ x 1) (+ y 1))

  
  (doseq [[row] board]
    (doseq [[elem] row]
      (add-element elem))))

; REM: add the add function which will call add-apple or add-snake