GIF89a;
Mini Shell
Mini Shell
#compdef lp lpr lpq lprm lpoptions lpstat lpinfo lpadmin
_lp_get_printer()
{
# No reason to call _lp_get_printer when service == lpstat or lpinfo. Others
# matched below.
case $service in
(lpr|lpq|lprm)
[[ "$words" == (#I)*-P* ]] && printer="${${words##*(#I)-P( |)}%% *}"
;;
(lp)
[[ "$words" == (#I)*-d* ]] && printer="${${words##*(#I)-d( |)}%% *}"
;;
(lpadmin)
[[ "$words" == (#I)*-p* ]] && printer="${${words##*(#I)-p( |)}%% *}"
;;
(lpoptions)
[[ "$words" == (#I)*-(d|p)* ]] && \
printer="${${words##*(#I)-(d|p)( |)}%% *}"
;;
esac
}
_lp_job_options()
{
local expl printer
local -a lopts_with_args lopts_no_args
# Generic options (from lp manual page)
lopts_with_args=( media orientation-requested sides number-up scaling cpi lpi
page-{bottom,left,right,top} page-ranges )
lopts_no_args=(fitplot landscape)
if [[ $service == 'lpadmin' ]]; then
# Extra options from lpadmin man page.
lopts_with_args+=(cupsIPPSupplies cupsSNMPSupplies job-k-limit
job-page-limit job-quota-period job-sheets-default name name-default
port-monitor printer-error-policy printer-is-shared printer-op-policy)
fi
_lp_get_printer
[[ -n "$printer" ]] && printer=(-p $printer)
# The program specified by the style list-printer-options should list jobs in
# the same style as lpoptions -l.
if compset -P '*='; then
# List values for the option
case ${IPREFIX%=} in
(media)
compadd "$@" a4 letter legal
;;
(orientation-requested)
compadd "$@" 4
;;
(sides)
compadd "$@" one-sided two-sided-{long,short}-edge
;;
(number-up)
_description -V option-o-1 expl "pages per sheet"
compadd "$expl[@]" 2 4 6 9 16
;;
(scaling|cpi|lpi|page-(bottom|left|right|top))
return 0; # Don't complete anything
;;
(cupsIPPSupplies|cupsSNMPSupplies|printer-is-shared)
compadd "$@" true false
;;
(printer-error-policy)
compadd "$@" abort-job retry-job retry-current-job stop-printer
;;
(*)
compadd "$@" \
$(_call_program list-printer-options lpoptions $printer -l | \
grep "^${IPREFIX%=}" | cut -d: -f2 | tr -d \* )
;;
esac
else
# List options
local eq_suffix
# Don't add an '=' suffix when completing lpoptions -r
if [[ $service == lpoptions && $words[CURRENT-1] == "-r" ]]; then
eq_suffix=()
else
eq_suffix=(-S '=')
fi
_description lpopts expl "generic printer options"
compadd "$expl[@]" $eq_suffix $lopts_with_args
compadd "$expl[@]" $lopts_no_args
_description printeropts expl "printer specific options"
compadd "$expl[@]" $eq_suffix \
$(_call_program list-printer-options \
lpoptions $printer -l | cut -d/ -f1)
fi
}
_lp_list_jobs()
{
local ret=1 printer shown
local -a list disp strs
_lp_get_printer
[[ -n "$printer" ]] && printer=(-P $printer)
list=( ${(M)"${(f@)$(_call_program jobs lpq $printer 2> /dev/null)}":#[0-9]*} )
if (( $#list )); then
_tags users jobs
while _tags; do
if _requested users; then
strs=( "${(@)${(@)list##[^ ]##[ ]##[^ ]##[ ]##}%%[ ]*}" )
if [[ -z "$shown" ]] &&
zstyle -T ":completion:${curcontext}:users" verbose;
then
disp=(-ld list)
shown=yes
else
disp=()
fi
_all_labels users expl user compadd "$disp[@]" -a strs ||
_users && ret=0
fi
if _requested jobs; then
strs=( "${(@)${(@)list##[^ ]##[ ]##[^ ]##[ ]##[^ ]##[ ]##}%%[ ]*}" )
if [[ -z "$shown" ]] &&
zstyle -T ":completion:${curcontext}:jobs" verbose; then
disp=(-ld list)
shown=yes
else
disp=()
fi
_all_labels jobs expl job compadd "$disp[@]" -a strs && ret=0
fi
(( ret )) || return 0
done
else
_message 'no print jobs'
fi
return 1
}
_lp()
{
case $service in
(lpq)
_arguments \
'-E[Force encryption]' \
'-U:username (for connection to server):_users' \
'-h:alternate server:_hosts' \
'(-a)-P+[Destination printer]:printers:_printers' \
'(-P)-a[All printers]' \
'-l[Long listing]' \
'*:poll interval (+seconds):'
;;
(lprm)
_arguments \
'-E[Force encryption]' \
'-U:username (for connection to server):_users' \
'-h:alternate server:_hosts' \
'-P+[Destination printer]:printers:_printers' \
'*:job ids:_lp_list_jobs'
;;
(lpoptions)
_arguments \
'-E[Force encryption]' \
'-U:username (for connection to server):_users' \
'-h:alternate server:_hosts' \
'(-p -l -r -x)-d+[Set default printer]:printers:_printers' \
'(-l -x)*-o:job options:_lp_job_options' \
'(-d -x)-p+[Destination printer for options]:printers:_printers' \
'(-d -o -r -x)-l[List options]' \
'(-d -l -x)*-r:remove option:_lp_job_options' \
'(-d -l -r -o)-x+[Remove all options]:printers:_printers'
;;
(lpstat)
_arguments \
'-E[Force encryption]' \
'-R[Shows print job ranking]' \
'-U:username (for connection to server):_users' \
'-W:which jobs:(completed not-completed)' \
'-a+[Show accepting state]:printers:_printers' \
'-c:printer classes:' \
'-d[Show current default destination]' \
'-h:hostname (alternate server):_hosts' \
'-l[Long listing]' \
'-o+[Destinations]:printers:_printers' \
'-p+:printers:_printers' \
'-r[CUPS server running status]' \
'-s[Status summary]' \
'-t[All status info]' \
'-u[List jobs by users]:users:_users' \
'-v+[Show devices]:printers:_printers'
;;
(lpr)
_arguments \
'-E[Force encryption]' \
'-H:hostname (alternate server):_hosts' \
'(-C -J -T)'-{C,J,T}':job name:' \
'-P+[Destination printer]:printers:_printers' \
'-U:username (for connection to server):_users' \
'-#[Copies]:copies (1--100):' \
'-h[Disables banner printing]' \
'-l[Raw file]' \
'-m[Send an email on job completion]' \
'*-o:print job options:_lp_job_options' \
'-p[Format with shaded header incl. date, time etc.]' \
'-q[Hold job for printing.]' \
'-r[Delete files after printing]' \
'*:PS/PDF files:_pspdf'
;;
(lp)
_arguments \
'-E[Force encryption]' \
'-U[Username (for connection to server)]:username:_users' \
'-c[(OBSOLETE) copy to spool dir before printing]' \
'-d+[Destination printer]:printers:_printers' \
'-h:hostname (alternate server):_hosts' \
'-i[Job id to modify]:job id:' \
'-m[Send an email on job completion]' \
'-n[Copies]:copies (1--100):' \
'*-o:print job options:_lp_job_options' \
'-q[Job priority -- 1 (lowest) to 100 (highest)]:priority:' \
'-s[Dont report resulting job IDs]' \
'-t[Sets the job name]:job name:' \
'-u[Job submission username]:username:_users' \
'-H[Time to print]:print time (or enter hh\:mm):(hold immediate restart resume)' \
'-P:page range list:' \
'*:PS/PDF files:_pspdf'
;;
(lpinfo)
_arguments \
'-E[Force encryption]' \
'-U[Username (for connection to server)]:username:_users' \
'-h:hostname (alternate server):_hosts' \
'-l[Shows a "long" listing of devices or drivers]' \
{--exclude-schemes,--include-schemes}'[Device/PPD schemes to filter from results]:scheme-list:' \
'(-v --timeout)--device-id[IEEE-1284 device ID to match]:device-id-string:' \
'(-v --timeout)--language:locale:' \
'(-v --timeout)--product[Product to match]:name:' \
'(-v --timeout)--make-and-model[Make and model to match]:name:' \
'(-v --timeout)-m[List available drivers]' \
'(-m --device-id --language --make-and-model --product)--timeout[Timeout when listing devices with -v]:timeout (seconds):' \
'(-m --device-id --language --make-and-model --product)-v[List available devices]'
;;
(lpadmin)
_arguments \
'-E[Force encryption/Enable destination]' \
'-U[Username (for connection to server)]:username:_users' \
'-h:hostname (alternate server):_hosts' \
'(-p -R -x -o)-d+[Default printer]:printers:_printers' \
'(-d -x)-p+[Configure printer]:printers:_printers' \
'(-p -R -d -o)-x+[Delete printer]:printers:_printers' \
'(-x -d)-R[Name-default]:name-default:' \
'-c:printer classes:' \
'-m:model:' \
'(-x -d)*-o:options:_lp_job_options' \
'-r[Remove from class]:class:' \
'-u[Access policy]:access policy:' \
'-v[Device-uri of printer queue]:device-uri:' \
'-D[Text description of destination]:info:' \
'-L[Location of the printer]:location:' \
'-P[PPD file to use]:PPD file:_files "*.(#i)ppd(-.)"'
esac
}
_lp "$@"
./BlackJoker Mini Shell 1.0