(ns clogue.core
  (:require [zaffre.terminal :as zat]
            [zaffre.glterminal :as zgl]
            [zaffre.events :as zevents]
            [zaffre.font :as zfont]
            [zaffre.tilesets :as ztiles]
            [zaffre.util :as zutil]
            [clojure.core.async :as async :refer [<! <!! go-loop]]))

(defn -main [& _]
  (zgl/create-terminal
   {:app {           ;; Setup a layer group `:app`
          :layers [:text] ;; With one layer `:text`
          :columns 16     ;; 16 characters wide
          :rows 16        ;; 16 characters tall
          :pos [0 0]      ;; With no position offset
          :font (constantly ztiles/pastiche-16x16)}} ;; Give the group a nice font
   {:title "Zaffre demo"     ;; Set the window title
    :screen-width (* 16 16)  ;; Screen dimentions in pixels
    :screen-height (* 16 16)} ;; Since our font is 16x16 and our layer group
   ;; is also 16x16
   (fn [terminal]
     (zat/do-frame 33 (zat/clear! terminal) ))))