zsh: add busctl completions
This commit is contained in:
parent
d4d74d0fc0
commit
161719d50c
|
@ -37,6 +37,7 @@
|
||||||
else
|
else
|
||||||
local curcontext="$curcontext"
|
local curcontext="$curcontext"
|
||||||
cmd="${${_busctl_cmds[(r)$words[1]:*]%%:*}}"
|
cmd="${${_busctl_cmds[(r)$words[1]:*]%%:*}}"
|
||||||
|
curcontext="${curcontext%:*:*}:busctl-${cmd}:"
|
||||||
if (( $+functions[_busctl_$cmd] )); then
|
if (( $+functions[_busctl_$cmd] )); then
|
||||||
_busctl_$cmd
|
_busctl_$cmd
|
||||||
else
|
else
|
||||||
|
@ -45,6 +46,194 @@
|
||||||
fi
|
fi
|
||||||
}
|
}
|
||||||
|
|
||||||
|
__busctl() {
|
||||||
|
busctl $_bus_address --no-pager --no-legend "$@" 2>/dev/null
|
||||||
|
}
|
||||||
|
|
||||||
|
(( $+functions[_busctl_get_json] )) || _busctl_get_json()
|
||||||
|
{
|
||||||
|
local -a _json_forms
|
||||||
|
_json_forms=( $(__busctl --json=help; echo help) )
|
||||||
|
_values 'format' $_json_forms
|
||||||
|
}
|
||||||
|
|
||||||
|
(( $+functions[_busctl_get_service_names] )) || _busctl_get_service_names()
|
||||||
|
{
|
||||||
|
local -a bus_names
|
||||||
|
bus_names=( $(__busctl call \
|
||||||
|
"org.freedesktop.DBus" \
|
||||||
|
"/org/freedesktop/DBus" \
|
||||||
|
"org.freedesktop.DBus" \
|
||||||
|
ListNames) )
|
||||||
|
echo ${(Q)bus_names[3,-1]}
|
||||||
|
}
|
||||||
|
|
||||||
|
(( $+functions[_busctl_get_objects] )) || _busctl_get_objects()
|
||||||
|
{
|
||||||
|
local -a objects
|
||||||
|
local name="$1"
|
||||||
|
objects=($(__busctl --list tree $name ))
|
||||||
|
echo $objects
|
||||||
|
}
|
||||||
|
|
||||||
|
(( $+functions[_busctl_get_interfaces] )) || _busctl_get_interfaces()
|
||||||
|
{
|
||||||
|
local NAME TYPE OTHER
|
||||||
|
__busctl introspect "$1" "$2" |
|
||||||
|
while read NAME TYPE OTHER; do
|
||||||
|
if [[ ${TYPE} == "interface" ]]; then
|
||||||
|
echo ${NAME}
|
||||||
|
fi
|
||||||
|
done
|
||||||
|
}
|
||||||
|
|
||||||
|
(( $+functions[_busctl_get_members] )) || _busctl_get_members()
|
||||||
|
{
|
||||||
|
local member="$4"
|
||||||
|
local required="$5"
|
||||||
|
local NAME TYPE SIGNATURE VALUE FLAGS
|
||||||
|
__busctl introspect "$1" "$2" "$3" |
|
||||||
|
while read NAME TYPE SIGNATURE VALUE FLAGS; do
|
||||||
|
[[ -z "$member" || ${TYPE} == "$member" ]] &&
|
||||||
|
[[ -z "$required" || ${${(s: :)FLAGS}[-1]} == "$required" ]] &&
|
||||||
|
echo ${NAME#.}
|
||||||
|
done
|
||||||
|
}
|
||||||
|
|
||||||
|
(( $+functions[_busctl_get_signature] )) || _busctl_get_signature()
|
||||||
|
{
|
||||||
|
local NAME TYPE SIGNATURE VALUE FLAGS
|
||||||
|
__busctl introspect "$1" "$2" "$3" |
|
||||||
|
while read NAME TYPE SIGNATURE VALUE FLAGS; do
|
||||||
|
if [[ ${NAME#.} == "$4" ]]; then
|
||||||
|
[[ ${SIGNATURE} != "-" ]] && echo ${SIGNATURE}
|
||||||
|
fi
|
||||||
|
done
|
||||||
|
}
|
||||||
|
|
||||||
|
(( $+functions[_busctl_status] )) || _busctl_status()
|
||||||
|
{
|
||||||
|
local expl
|
||||||
|
_wanted busname expl 'busname' compadd "$@" - $(_busctl_get_service_names)
|
||||||
|
}
|
||||||
|
|
||||||
|
(( $+functions[_busctl_monitor] )) || _busctl_monitor()
|
||||||
|
{
|
||||||
|
local expl
|
||||||
|
_wanted busname expl 'busname' compadd "$@" - $(_busctl_get_service_names)
|
||||||
|
}
|
||||||
|
|
||||||
|
(( $+functions[_busctl_tree] )) || _busctl_tree()
|
||||||
|
{
|
||||||
|
local expl
|
||||||
|
_wanted busname expl 'busname' compadd "$@" - $(_busctl_get_service_names)
|
||||||
|
}
|
||||||
|
|
||||||
|
(( $+functions[_busctl_introspect] )) || _busctl_introspect()
|
||||||
|
{
|
||||||
|
local expl
|
||||||
|
case $CURRENT in
|
||||||
|
2)
|
||||||
|
_wanted busname expl 'busname' \
|
||||||
|
compadd "$@" - $(_busctl_get_service_names)
|
||||||
|
;;
|
||||||
|
3)
|
||||||
|
_wanted path expl 'path' \
|
||||||
|
compadd "$@" - $(_busctl_get_objects $words[2])
|
||||||
|
;;
|
||||||
|
4)
|
||||||
|
_wanted interface expl 'interface' \
|
||||||
|
compadd "$@" - $(_busctl_get_interfaces $words[2,3])
|
||||||
|
;;
|
||||||
|
*)
|
||||||
|
_message "no more options"
|
||||||
|
esac
|
||||||
|
}
|
||||||
|
|
||||||
|
(( $+functions[_busctl_call] )) || _busctl_call()
|
||||||
|
{
|
||||||
|
local expl
|
||||||
|
case $CURRENT in
|
||||||
|
2)
|
||||||
|
_wanted busname expl 'busname' \
|
||||||
|
compadd "$@" - $(_busctl_get_service_names)
|
||||||
|
;;
|
||||||
|
3)
|
||||||
|
_wanted path expl 'path' \
|
||||||
|
compadd "$@" - $(_busctl_get_objects $words[2])
|
||||||
|
;;
|
||||||
|
4)
|
||||||
|
_wanted interface expl 'interface' \
|
||||||
|
compadd "$@" - $(_busctl_get_interfaces $words[2,3])
|
||||||
|
;;
|
||||||
|
5)
|
||||||
|
_wanted method expl 'method' \
|
||||||
|
compadd "$@" - $(_busctl_get_members $words[2,4] "method")
|
||||||
|
;;
|
||||||
|
6)
|
||||||
|
compadd "$@" - $(_busctl_get_signature $words[2,5])
|
||||||
|
;;
|
||||||
|
*)
|
||||||
|
_message "no more options"
|
||||||
|
esac
|
||||||
|
}
|
||||||
|
|
||||||
|
(( $+functions[_busctl_get-property] )) || _busctl_get-property()
|
||||||
|
{
|
||||||
|
local expl
|
||||||
|
case $CURRENT in
|
||||||
|
2)
|
||||||
|
_wanted busname expl 'busname' \
|
||||||
|
compadd "$@" - $(_busctl_get_service_names)
|
||||||
|
;;
|
||||||
|
3)
|
||||||
|
_wanted path expl 'path' \
|
||||||
|
compadd "$@" - $(_busctl_get_objects $words[2])
|
||||||
|
;;
|
||||||
|
4)
|
||||||
|
_wanted interface expl 'interface' \
|
||||||
|
compadd "$@" - $(_busctl_get_interfaces $words[2,3])
|
||||||
|
;;
|
||||||
|
5)
|
||||||
|
_wanted property expl 'property' \
|
||||||
|
compadd "$@" - $(_busctl_get_members $words[2,4] "property")
|
||||||
|
;;
|
||||||
|
*)
|
||||||
|
_message "no more options"
|
||||||
|
esac
|
||||||
|
}
|
||||||
|
|
||||||
|
(( $+functions[_busctl_set-property] )) || _busctl_set-property()
|
||||||
|
{
|
||||||
|
local expl
|
||||||
|
case $CURRENT in
|
||||||
|
2)
|
||||||
|
_wanted busname expl 'busname' \
|
||||||
|
compadd "$@" - $(_busctl_get_service_names)
|
||||||
|
;;
|
||||||
|
3)
|
||||||
|
_wanted path expl 'path' \
|
||||||
|
compadd "$@" - $(_busctl_get_objects $words[2])
|
||||||
|
;;
|
||||||
|
4)
|
||||||
|
_wanted interface expl 'interface' \
|
||||||
|
compadd "$@" - $(_busctl_get_interfaces $words[2,3])
|
||||||
|
;;
|
||||||
|
5)
|
||||||
|
_wanted property expl 'property' \
|
||||||
|
compadd "$@" - $(_busctl_get_members $words[2,4] "property" "writable")
|
||||||
|
;;
|
||||||
|
6)
|
||||||
|
compadd "$@" - $(_busctl_get_signature $words[2,5])
|
||||||
|
;;
|
||||||
|
*)
|
||||||
|
_message "no more options"
|
||||||
|
esac
|
||||||
|
}
|
||||||
|
|
||||||
|
local -a _modes; _modes=("--user" "--system")
|
||||||
|
# Use the last mode (they are exclusive and the last one is used).
|
||||||
|
local _bus_address=${${words:*_modes}[(R)(${(j.|.)_modes})]}
|
||||||
_arguments \
|
_arguments \
|
||||||
{-h,--help}'[Prints a short help text and exits.]' \
|
{-h,--help}'[Prints a short help text and exits.]' \
|
||||||
'--version[Prints a short version string and exits.]' \
|
'--version[Prints a short version string and exits.]' \
|
||||||
|
@ -61,8 +250,10 @@ _arguments \
|
||||||
'--activatable[Only show activatable names]' \
|
'--activatable[Only show activatable names]' \
|
||||||
'--match=[Only show matching messages]:match' \
|
'--match=[Only show matching messages]:match' \
|
||||||
'--list[Do not show tree, but simple object path list]' \
|
'--list[Do not show tree, but simple object path list]' \
|
||||||
'--quiet[Do not show method call reply]'\
|
{-q,--quiet}'[Do not show method call reply]'\
|
||||||
'--verbose[Show result values in long format]' \
|
'--verbose[Show result values in long format]' \
|
||||||
|
'--json=[Show result values in long format]:format:_busctl_get_json' \
|
||||||
|
'-j[Show pretty json in interactive sessions, short json otherwise]' \
|
||||||
'--expect-reply=[Expect a method call reply]:boolean:(1 0)' \
|
'--expect-reply=[Expect a method call reply]:boolean:(1 0)' \
|
||||||
'--auto-start=[Auto-start destination service]:boolean:(1 0)' \
|
'--auto-start=[Auto-start destination service]:boolean:(1 0)' \
|
||||||
'--allow-interactive-authorization=[Allow interactive authorization for operation]:boolean:(1 0)' \
|
'--allow-interactive-authorization=[Allow interactive authorization for operation]:boolean:(1 0)' \
|
||||||
|
|
Loading…
Reference in New Issue