90 lines
2.6 KiB
Fennel
90 lines
2.6 KiB
Fennel
(local { : view } (require :fennel))
|
|
|
|
(local texture (require :texture))
|
|
(local matrix (require :matrix))
|
|
(local socket-repl (require :socket-repl))
|
|
|
|
(let [repl-socket-name
|
|
(..
|
|
(: (os.getenv "XDG_RUNTIME_DIR") :gsub "/$" "")
|
|
"/kiwmi-repl."
|
|
(os.getenv "WAYLAND_DISPLAY")
|
|
".socket"
|
|
)]
|
|
(socket-repl.start repl-socket-name))
|
|
|
|
|
|
(kiwmi:on
|
|
"output"
|
|
(fn [output]
|
|
(output:set_mode 360 720 0)
|
|
(let [r (output:renderer)
|
|
kill (texture.from-file r "close-window.png")
|
|
launch (texture.from-file r "launcher.png")
|
|
spinner (texture.from-file r "carousel.png")]
|
|
(output:on "render"
|
|
(fn [{: output : renderer}]
|
|
(let [bar-height 40]
|
|
(renderer:draw_rect :#00000077
|
|
0 (- 720 bar-height)
|
|
690 360 bar-height)
|
|
(renderer:draw_texture
|
|
kill
|
|
matrix.identity
|
|
30 (- 720 bar-height)
|
|
0.7)
|
|
(renderer:draw_texture
|
|
launch
|
|
matrix.identity
|
|
(- 180 (/ bar-height 2)) (- 720 bar-height)
|
|
0.7)
|
|
(renderer:draw_texture
|
|
spinner
|
|
matrix.identity
|
|
(- 360 30 bar-height) (- 720 bar-height)
|
|
0.7)))))))
|
|
|
|
(fn kill-window []
|
|
(print "DIE")
|
|
true)
|
|
|
|
(fn launch []
|
|
(print "WHOOSH")
|
|
true)
|
|
|
|
(fn carousel []
|
|
(print "spin spin sugar")
|
|
true)
|
|
|
|
(let [cursor (kiwmi:cursor)]
|
|
(cursor:on "button_down"
|
|
(fn [button]
|
|
(let [(x y) (cursor:pos)]
|
|
(if (> y 680)
|
|
(if (< x 70)
|
|
(kill-window)
|
|
(and (< 150 x) (< x 190))
|
|
(launch)
|
|
(and (< 285 x) (< x 330))
|
|
(carousel)
|
|
false))))))
|
|
|
|
|
|
(kiwmi:on "view"
|
|
(fn [view]
|
|
(let [(w h) (: (kiwmi:active_output) :size)]
|
|
(view:resize w h)
|
|
(view:move 0 0))
|
|
(view:focus)
|
|
(view:show)
|
|
(view:on "request_move" #(view:imove))
|
|
(view:on "request_resize" (fn [ev] (view:iresize ev.edges)))))
|
|
|
|
|
|
;(kiwmi:spawn "swaybg -c '#ff00ff'")
|
|
(kiwmi:spawn "lua -l fennelrun modeline.fnl")
|
|
(kiwmi:spawn "lua -l fennelrun saturn/main.fnl")
|
|
(kiwmi:spawn "lua -l fennelrun crier/crier.fnl")
|
|
(kiwmi:spawn "lua -l fennelrun just/just.fnl")
|
|
;(kiwmi:spawn "foot")
|