mirrors/dwl
1
0
Fork 0
mirror of https://codeberg.org/dwl/dwl.git synced 2026-04-08 08:21:00 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

it works!

Browse source
This commit is contained in:
Simeon Schaub 2021-06-19 10:18:11 +02:00
parent 84f3a4e2d7
commit 11f5f44ae6
No known key found for this signature in database
GPG key ID: EB2EE6B6F3725876
3 changed files with 75 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

73
dwl.jl
View file

@ -1,8 +1,9 @@
module DWL
struct xkb_keysym_t
x::UInt32
end
const xkb_keysym_t = UInt32
#struct xkb_keysym_t
# x::UInt32
#end
struct Arg
x::UInt
@ -15,24 +16,60 @@ struct Key
arg::Arg
end
const keys = @show unsafe_wrap(Array, cglobal(:keys, Key), unsafe_load(cglobal(:KEYS_LEN, Cint)))
keysym(x) = ccall((:XStringToKeysym, "libxkbfile"), xkb_keysym_t, (Cstring,), string(x))
# from wlr_keyboard.h
const WLR_MODIFIER_SHIFT = xkb_keysym_t(1 << 0)
const WLR_MODIFIER_CAPS = xkb_keysym_t(1 << 1)
const WLR_MODIFIER_CTRL = xkb_keysym_t(1 << 2)
const WLR_MODIFIER_ALT = xkb_keysym_t(1 << 3)
const WLR_MODIFIER_MOD2 = xkb_keysym_t(1 << 4)
const WLR_MODIFIER_MOD3 = xkb_keysym_t(1 << 5)
const WLR_MODIFIER_LOGO = xkb_keysym_t(1 << 6)
const WLR_MODIFIER_MOD5 = xkb_keysym_t(1 << 7)
const WLR_MODIFIER_CAPS = @show unsafe_load(cglobal(:_WLR_MODIFIER_CAPS, UInt32))
const MODKEY = WLR_MODIFIER_ALT
#const keys = @show unsafe_wrap(Array, cglobal(:keys, Key), unsafe_load(cglobal(:KEYS_LEN, Cint)))
function spawn(cmd::Vector{String})
cmd = Base.cconvert.(Cstring, cmd)
ptrs = push!(pointer.(cmd), C_NULL)
@ccall spawn(pointer(ptrs)::Ref{Ptr{Cstring}})::Cvoid
GC.@preserve cmd ptrs
end
focusstack(x::Int) = @ccall focusstack(x::Ref{Cint})::Cvoid
killclient() = @ccall killclient(C_NULL::Ptr{Cvoid})::Cvoid
quit() = @ccall quit(C_NULL::Ptr{Cvoid})::Cvoid
const keys = Dict{Tuple{UInt32, xkb_keysym_t}, Any}(
(MODKEY, keysym(:p)) => () -> spawn(["dmenu_run"]),
(MODKEY | WLR_MODIFIER_SHIFT, keysym(:Return)) => () -> spawn(["alacritty"]),
(MODKEY, keysym(:j)) => () -> focusstack(+1),
(MODKEY, keysym(:k)) => () -> focusstack(-1),
(MODKEY | WLR_MODIFIER_SHIFT, keysym(:C)) => killclient,
(MODKEY | WLR_MODIFIER_SHIFT, keysym(:Q)) => quit,
)
#const WLR_MODIFIER_CAPS = @show unsafe_load(cglobal(:_WLR_MODIFIER_CAPS, UInt32))
cleanmask(x) = x & ~WLR_MODIFIER_CAPS
#function keybinding(mods::UInt32, sym::xkb_keysym_t)::Cint
function keybinding(ptr::Ptr{Cvoid})::Cint
mods = unsafe_load(unsafe_load(Ptr{Ptr{UInt32}}(ptr)), 1)
sym = unsafe_load(unsafe_load(Ptr{Ptr{xkb_keysym_t}}(ptr)), 2)
@show mods sym
handled = false
for k in keys
if cleanmask(mods) == cleanmask(k.mod) && sym == k.keysym && k.func != C_NULL
ccall(k.func, Cvoid, (Ptr{Arg},), Ref(k.arg))
handled = true
end
end
return handled
function keybinding(mods::UInt32, sym::xkb_keysym_t)::Cint
#function keybinding(ptr::Ptr{Cvoid})::Cint
# mods = unsafe_load(unsafe_load(Ptr{Ptr{UInt32}}(ptr)), 1)
# sym = unsafe_load(unsafe_load(Ptr{Ptr{xkb_keysym_t}}(ptr)), 2)
#@show mods sym
f = get(keys, (cleanmask(mods), sym), nothing)
f === nothing && return false
try Base.invokelatest(f) catch e; @show e end
return true
# handled = false
# for k in keys
# if cleanmask(mods) == cleanmask(k.mod) && sym == k.keysym && k.func != C_NULL
# ccall(k.func, Cvoid, (Ptr{Arg},), Ref(k.arg))
# handled = true
# end
# end
# return @show handled
end
end