Mercurial > hg > indyvon

changeset 117:a50a304e58d8

find changesets by author, revision, files, or words in the commit message
Empty layer.
author Mikhail Kryshen <mikhail@kryshen.net>
date Fri, 02 Mar 2012 05:21:45 +0400
parents b76c0d00898b
children b6b83ca37318
files src/net/kryshen/indyvon/layers.clj
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line diff
     1.1 --- a/src/net/kryshen/indyvon/layers.clj	Tue Feb 28 02:31:10 2012 +0400
     1.2 +++ b/src/net/kryshen/indyvon/layers.clj	Fri Mar 02 05:21:45 2012 +0400
     1.3 @@ -53,6 +53,14 @@
     1.4         (render! ~@render-tail)
     1.5         (geometry [t#] (geometry layer#)))))
     1.6  
     1.7 +(defrecord Empty []
     1.8 +  Layer
     1.9 +  (render! [_])
    1.10 +  (geometry [_]
    1.11 +    (->Size 0 0)))
    1.12 +
    1.13 +(def empty-layer (->EmptyLayer))
    1.14 +
    1.15  (defn padding
    1.16    "Decorates layer adding padding."
    1.17    ([content pad]