blob: 8ca121533a27c59e04d33e184923387fabf9b55e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
# Event loop
# SPDX-FileCopyrightText: 2025 Nguyễn Gia Phong
# SPDX-License-Identifier: GPL-3.0-or-later
(defn handle
[event]
(match event
[:key-press key] (cond
(:matches key (chr "c") {:ctrl true}) [:quit]
(:matches key (chr "h") {}) (do (:go-up env) [])
(:matches key (chr "j") {}) (do (:go-right env) [])
(:matches key (chr "k") {}) (do (:go-left env) [])
(:matches key (chr "l") {}) (do (:go-down env) [])
[])))
(defn run
[events]
(if-let [event (array/pop events)]
(unless (= :quit event)
(let [next-events (handle event)]
(:render env)
(run (array/join events next-events))))
(run @[(:next-event env)])))
(run @[])
|
