|
(fn dump-contents [filename]
|
|
(let [f (assert (io.open filename))
|
|
contents (f:read "*all")]
|
|
(f:close)
|
|
contents))
|
|
|
|
{
|
|
:name "rules"
|
|
|
|
:display (fn [p]
|
|
(print (dump-contents "mode/rules.txt"))
|
|
)
|
|
|
|
:key-pressed (fn key-pressed [p k set-mode]
|
|
(set-mode :mode.menu)
|
|
)
|
|
}
|