   (update-in vt [:lines] (fn [lines]
                            (conj (vec (drop 1 lines)) (empty-line width)))))
 
-(defn scroll-down [{width :width height :height :as vt}]
+(defn scroll-down [{:keys [width height] :as vt}]
   (update-in vt [:lines] (fn [lines]
                            (vec (conj (take (dec height) lines) (empty-line width))))))
 

(defn ignore [vt input]
  vt)

(defn print [{width :width height :height {x :x y :y} :cursor :as vt} input]
  (if (= width (inc x))
    (if (= height (inc y))
      (-> vt


(defn execute-sc
  "http://www.vt100.net/docs/vt510-rm/DECSC"
  [{{:keys [x y]} :cursor :keys [char-attrs] :as vt}]
  (assoc vt :saved {:cursor {:x x :y y}
                    :char-attrs char-attrs}))

