109 lines
3.1 KiB
Fennel
109 lines
3.1 KiB
Fennel
(local { : GdkPixbuf } (require :lgi))
|
|
(local { : view } (require :fennel))
|
|
|
|
(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))
|
|
|
|
|
|
(fn texture-from-file [renderer filename]
|
|
(let [pixels
|
|
(let [(buf err) (GdkPixbuf.Pixbuf.new_from_file filename)]
|
|
(if (not buf) (print :err err))
|
|
buf)]
|
|
(renderer:texture_from_pixels
|
|
pixels.rowstride
|
|
pixels.width
|
|
pixels.height
|
|
(pixels:get_pixels))))
|
|
|
|
|
|
(fn resize-wayland-backend [output]
|
|
(when (string.find (output:name) "^WL-")
|
|
(output:set_mode 360 720 0)))
|
|
|
|
(kiwmi:on
|
|
"output"
|
|
(fn [output]
|
|
(resize-wayland-backend output)
|
|
(let [[width height] (output:size)
|
|
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 (/ height 15)
|
|
matrix [1 0 0
|
|
0 1 0
|
|
0 0 1]]
|
|
(renderer:draw_rect :#00000077
|
|
0 (- height bar-height)
|
|
width bar-height)
|
|
(renderer:draw_texture
|
|
kill
|
|
matrix
|
|
30 (- height bar-height)
|
|
0.7)
|
|
(renderer:draw_texture
|
|
launch
|
|
matrix
|
|
(- (/ width 2) (/ bar-height 2)) (- height bar-height)
|
|
0.7)
|
|
(renderer:draw_texture
|
|
spinner
|
|
matrix
|
|
(- width 30 bar-height) (- height 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")
|