levels

app/Rendering.hs

@@ -25,6 +25,7 @@ wrapBox a body =
   char a '└' <|> charFill a '─' (imageWidth body) 1 <|> char a '┘'
 
 button :: Attr -> Int -> Int -> Image
+button a 1 1 = char a '□'
 button a 1 w = string a ("[" ++ replicate (w-2) '-' ++ "]")
 button a h w = vertCat $
   string a ('┌' : replicate (w-2) '─' ++ "┐") :
@@ -32,6 +33,7 @@ button a h w = vertCat $
   [string a ('└' : replicate (w-2) '─' ++ "┘")]
 
 home :: Attr -> Int -> Int -> Image
+home a 1 1 = char a '⊞'
 home a 1 w = string a ("<" ++ replicate (w-2) '=' ++ ">")
 home a h w  = vertCat $
   string a ('╔' : replicate (w-2) '═' ++ "╗") :