Windowing/layout experiments.

gistfile1.clj

(ns slide.window
  (:use [dommy.core :only [set-style!]]
        [dommy.template :only [PElement]]))

(defprotocol PWindow
  (parent [this])
  (position [this])
  (size [this])
  #_(set-parent! [this par])
  #_(set-position! [this pos])
  #_(set-size! [this s]))

(defprotocol PTransparentWindow
  (opacity [this])
  (set-opacity! [this s]))

(defn size-to-css [v]
  (cond (integer? v) (str v "px")
        (= v :auto) "auto"))

(extend-protocol PWindow
  js/HTMLDivElement
  (parent [this] (.-parentNode this))
  (position [this] {:top (.-clientTop this) :left (.-clientLeft this)})
  (size [this] {:width (.-clientWidth this) :height (.-clientHeight this)})

  js/HTMLBodyElement
  (parent [this] nil)
  (position [this] {:top (.-clientTop this) :left (.-clientLeft this)})
  (size [this] {:width (.-clientWidth this) :height (.-clientHeight this)}))


; responsible for position and browsing of level-order
(defprotocol PWindowManager
  (root-window [this])
  (cycle-children [this]))

(defprotocol PInputHandler
  (on-focus [this])
  (on-unfocus [this]))

(defrecord SingleWindowManager [root-window decorator]
  PWindowManager
  (root-window [this] root-window)
  (cycle-children [this] nil))