|
@@ -1,29 +1,39 @@
|
|
|
#!/bin/zsh -f
|
|
|
|
|
|
emulate -L zsh
|
|
|
+
|
|
|
+local RUNNING_AS_COMMAND=
|
|
|
local EXIT=return
|
|
|
if [[ $(whence -w $0) == *:' 'command ]]; then
|
|
|
- emulate -R zsh
|
|
|
- local RUNNING_AS_COMMAND=1
|
|
|
+ RUNNING_AS_COMMAND=1
|
|
|
EXIT=exit
|
|
|
fi
|
|
|
|
|
|
local DOC='scd -- smart change to a recently used directory
|
|
|
usage: scd [options] [pattern1 pattern2 ...]
|
|
|
-Go to a directory path that contains all fixed string patterns. Prefer
|
|
|
-recent or frequently visited directories as found in the directory index.
|
|
|
+Go to a directory path that matches all patterns. Prefer recent or
|
|
|
+frequently visited directories as found in the directory index.
|
|
|
Display a selection menu in case of multiple matches.
|
|
|
|
|
|
+Special patterns:
|
|
|
+ ^PAT match at the path root, "^/home"
|
|
|
+ PAT$ match paths ending with PAT, "man$"
|
|
|
+ ./ match paths under the current directory
|
|
|
+ :PAT require PAT to span the tail, ":doc", ":re/doc"
|
|
|
+
|
|
|
Options:
|
|
|
- -a, --add add specified directories to the directory index.
|
|
|
+ -a, --add add current or specified directories to the index.
|
|
|
--unindex remove current or specified directories from the index.
|
|
|
-r, --recursive apply options --add or --unindex recursively.
|
|
|
--alias=ALIAS create alias for the current or specified directory and
|
|
|
store it in ~/.scdalias.zsh.
|
|
|
--unalias remove ALIAS definition for the current or specified
|
|
|
directory from ~/.scdalias.zsh.
|
|
|
- -A, --all include all matching directories. Disregard matching by
|
|
|
- directory alias and filtering of less likely paths.
|
|
|
+ Use "OLD" to purge aliases to non-existent directories.
|
|
|
+ -A, --all display all directories even those excluded by patterns
|
|
|
+ in ~/.scdignore. Disregard unique match for a directory
|
|
|
+ alias and filtering of less likely paths.
|
|
|
+ -p, --push use "pushd" to change to the target directory.
|
|
|
--list show matching directories and exit.
|
|
|
-v, --verbose display directory rank in the selection menu.
|
|
|
-h, --help display this message and exit.
|
|
@@ -36,18 +46,28 @@ local SCD_MEANLIFE=${SCD_MEANLIFE:-86400}
|
|
|
local SCD_THRESHOLD=${SCD_THRESHOLD:-0.005}
|
|
|
local SCD_SCRIPT=${RUNNING_AS_COMMAND:+$SCD_SCRIPT}
|
|
|
local SCD_ALIAS=~/.scdalias.zsh
|
|
|
+local SCD_IGNORE=~/.scdignore
|
|
|
|
|
|
-local ICASE a d m p i maxrank threshold
|
|
|
+# Minimum logarithm of probability. Avoids out of range warning in exp().
|
|
|
+local -r MINLOGPROB=-15
|
|
|
+
|
|
|
+# When false, use case-insensitive globbing to fix PWD capitalization.
|
|
|
+local PWDCASECORRECT=true
|
|
|
+if [[ ${OSTYPE} == darwin* ]]; then
|
|
|
+ PWDCASECORRECT=false
|
|
|
+fi
|
|
|
+
|
|
|
+local a d m p i maxrank threshold
|
|
|
local opt_help opt_add opt_unindex opt_recursive opt_verbose
|
|
|
-local opt_alias opt_unalias opt_all opt_list
|
|
|
-local -A drank dalias
|
|
|
+local opt_alias opt_unalias opt_all opt_push opt_list
|
|
|
+local -A drank dalias scdignore
|
|
|
local dmatching
|
|
|
local last_directory
|
|
|
|
|
|
-setopt extendedhistory extendedglob noautonamedirs brace_ccl
|
|
|
+setopt extendedglob noautonamedirs brace_ccl
|
|
|
|
|
|
-# If SCD_SCRIPT is defined make sure the file exists and is empty.
|
|
|
-# This removes any previous old commands.
|
|
|
+# If SCD_SCRIPT is defined make sure that that file exists and is empty.
|
|
|
+# This removes any old previous commands from the SCD_SCRIPT file.
|
|
|
[[ -n "$SCD_SCRIPT" ]] && [[ -s $SCD_SCRIPT || ! -f $SCD_SCRIPT ]] && (
|
|
|
umask 077
|
|
|
: >| $SCD_SCRIPT
|
|
@@ -56,13 +76,17 @@ setopt extendedhistory extendedglob noautonamedirs brace_ccl
|
|
|
# process command line options
|
|
|
zmodload -i zsh/zutil
|
|
|
zmodload -i zsh/datetime
|
|
|
-zparseopts -D -- a=opt_add -add=opt_add -unindex=opt_unindex \
|
|
|
+zmodload -i zsh/parameter
|
|
|
+zparseopts -D -E -- a=opt_add -add=opt_add -unindex=opt_unindex \
|
|
|
r=opt_recursive -recursive=opt_recursive \
|
|
|
-alias:=opt_alias -unalias=opt_unalias \
|
|
|
- A=opt_all -all=opt_all -list=opt_list \
|
|
|
+ A=opt_all -all=opt_all p=opt_push -push=opt_push -list=opt_list \
|
|
|
v=opt_verbose -verbose=opt_verbose h=opt_help -help=opt_help \
|
|
|
|| $EXIT $?
|
|
|
|
|
|
+# remove the first instance of "--" from positional arguments
|
|
|
+argv[(i)--]=( )
|
|
|
+
|
|
|
if [[ -n $opt_help ]]; then
|
|
|
print $DOC
|
|
|
$EXIT
|
|
@@ -71,6 +95,22 @@ fi
|
|
|
# load directory aliases if they exist
|
|
|
[[ -r $SCD_ALIAS ]] && source $SCD_ALIAS
|
|
|
|
|
|
+# load scd-ignore patterns if available
|
|
|
+if [[ -s $SCD_IGNORE ]]; then
|
|
|
+ setopt noglob
|
|
|
+ <$SCD_IGNORE \
|
|
|
+ while read p; do
|
|
|
+ [[ $p != [\#]* ]] || continue
|
|
|
+ [[ -n $p ]] || continue
|
|
|
+ # expand leading tilde if it has valid expansion
|
|
|
+ if [[ $p == [~]* ]] && ( : ${~p} ) 2>/dev/null; then
|
|
|
+ p=${~p}
|
|
|
+ fi
|
|
|
+ scdignore[$p]=1
|
|
|
+ done
|
|
|
+ setopt glob
|
|
|
+fi
|
|
|
+
|
|
|
# Private internal functions are prefixed with _scd_Y19oug_.
|
|
|
# Clean them up when the scd function returns.
|
|
|
setopt localtraps
|
|
@@ -79,9 +119,17 @@ trap 'unfunction -m "_scd_Y19oug_*"' EXIT
|
|
|
# works faster than the (:a) modifier and is compatible with zsh 4.2.6
|
|
|
_scd_Y19oug_abspath() {
|
|
|
set -A $1 ${(ps:\0:)"$(
|
|
|
- unfunction -m "*"; shift
|
|
|
+ setopt pushdsilent
|
|
|
+ unfunction -m "*"
|
|
|
+ unalias -m "*"
|
|
|
+ unset CDPATH
|
|
|
+ shift
|
|
|
for d; do
|
|
|
- cd $d && print -Nr -- $PWD && cd $OLDPWD
|
|
|
+ pushd $d || continue
|
|
|
+ $PWDCASECORRECT &&
|
|
|
+ print -Nr -- $PWD ||
|
|
|
+ print -Nr -- (#i)$PWD
|
|
|
+ popd 2>/dev/null
|
|
|
done
|
|
|
)"}
|
|
|
}
|
|
@@ -106,47 +154,76 @@ if [[ -n $opt_alias ]]; then
|
|
|
$EXIT $?
|
|
|
fi
|
|
|
|
|
|
-# undefine directory alias
|
|
|
+# undefine one or more directory aliases
|
|
|
if [[ -n $opt_unalias ]]; then
|
|
|
- if [[ -n $1 && ! -d $1 ]]; then
|
|
|
- print -u2 "'$1' is not a directory."
|
|
|
- $EXIT 1
|
|
|
- fi
|
|
|
- _scd_Y19oug_abspath a ${1:-$PWD}
|
|
|
- a=$(print -rD ${a})
|
|
|
- if [[ $a != [~][^/]## ]]; then
|
|
|
- $EXIT
|
|
|
+ local -U uu
|
|
|
+ local ec=0
|
|
|
+ uu=( ${*:-${PWD}} )
|
|
|
+ if (( ${uu[(I)OLD]} && ${+nameddirs[OLD]} == 0 )); then
|
|
|
+ uu=( ${uu:#OLD} ${(ps:\0:)"$(
|
|
|
+ hash -dr
|
|
|
+ if [[ -r $SCD_ALIAS ]]; then
|
|
|
+ source $SCD_ALIAS
|
|
|
+ fi
|
|
|
+ for a d in ${(kv)nameddirs}; do
|
|
|
+ [[ -d $d ]] || print -Nr -- $a
|
|
|
+ done
|
|
|
+ )"}
|
|
|
+ )
|
|
|
fi
|
|
|
- a=${a#[~]}
|
|
|
- # unalias in the current shell, update alias file if successful
|
|
|
- if unhash -d -- $a 2>/dev/null && [[ -r $SCD_ALIAS ]]; then
|
|
|
+ m=( )
|
|
|
+ for p in $uu; do
|
|
|
+ d=$p
|
|
|
+ if [[ ${+nameddirs[$d]} == 0 && -d $d ]]; then
|
|
|
+ _scd_Y19oug_abspath d $d
|
|
|
+ fi
|
|
|
+ a=${(k)nameddirs[$d]:-${(k)nameddirs[(r)$d]}}
|
|
|
+ if [[ -z $a ]]; then
|
|
|
+ ec=1
|
|
|
+ print -u2 "'$p' is neither a directory alias nor an aliased path."
|
|
|
+ continue
|
|
|
+ fi
|
|
|
+ # unalias in the current shell and remember to update the alias file
|
|
|
+ if unhash -d -- $a 2>/dev/null; then
|
|
|
+ m+=( $a )
|
|
|
+ fi
|
|
|
+ done
|
|
|
+ if [[ $#m != 0 && -r $SCD_ALIAS ]]; then
|
|
|
(
|
|
|
umask 077
|
|
|
hash -dr
|
|
|
source $SCD_ALIAS
|
|
|
- unhash -d -- $a 2>/dev/null &&
|
|
|
+ for a in $m; do
|
|
|
+ unhash -d -- $a 2>/dev/null
|
|
|
+ done
|
|
|
hash -dL >| $SCD_ALIAS
|
|
|
- )
|
|
|
+ ) || ec=$?
|
|
|
fi
|
|
|
- $EXIT $?
|
|
|
+ $EXIT $ec
|
|
|
fi
|
|
|
|
|
|
-# The "compress" function collapses repeated directories to
|
|
|
-# one entry with a time stamp that gives equivalent-probability.
|
|
|
+# The "compress" function collapses repeated directories into
|
|
|
+# a single entry with a time-stamp yielding an equivalent probability.
|
|
|
_scd_Y19oug_compress() {
|
|
|
- awk -v epochseconds=$EPOCHSECONDS -v meanlife=$SCD_MEANLIFE '
|
|
|
- BEGIN { FS = "[:;]"; }
|
|
|
- length($0) < 4096 && $2 > 0 {
|
|
|
+ awk -v epochseconds=$EPOCHSECONDS \
|
|
|
+ -v meanlife=$SCD_MEANLIFE \
|
|
|
+ -v minlogprob=$MINLOGPROB \
|
|
|
+ '
|
|
|
+ BEGIN {
|
|
|
+ FS = "[:;]";
|
|
|
+ pmin = exp(minlogprob);
|
|
|
+ }
|
|
|
+ /^: deleted:0;/ { next; }
|
|
|
+ length($0) < 4096 && $2 > 1000 {
|
|
|
+ df = $0;
|
|
|
+ sub("^[^;]*;", "", df);
|
|
|
+ if (!df) next;
|
|
|
tau = 1.0 * ($2 - epochseconds) / meanlife;
|
|
|
- if (tau < -6.9078) tau = -6.9078;
|
|
|
- prob = exp(tau);
|
|
|
- sub(/^[^;]*;/, "");
|
|
|
- if (NF) {
|
|
|
- dlist[last[$0]] = "";
|
|
|
- dlist[NR] = $0;
|
|
|
- last[$0] = NR;
|
|
|
- ptot[$0] += prob;
|
|
|
- }
|
|
|
+ prob = (tau < minlogprob) ? pmin : exp(tau);
|
|
|
+ dlist[last[df]] = "";
|
|
|
+ dlist[NR] = df;
|
|
|
+ last[df] = NR;
|
|
|
+ ptot[df] += prob;
|
|
|
}
|
|
|
END {
|
|
|
for (i = 1; i <= NR; ++i) {
|
|
@@ -157,26 +234,38 @@ _scd_Y19oug_compress() {
|
|
|
}
|
|
|
}
|
|
|
}
|
|
|
- ' $*
|
|
|
+ ' $*
|
|
|
}
|
|
|
|
|
|
-# Rewrite directory index if it is at least 20% oversized
|
|
|
-if [[ -s $SCD_HISTFILE ]] && \
|
|
|
-(( $(wc -l <$SCD_HISTFILE) > 1.2 * $SCD_HISTSIZE )); then
|
|
|
- # compress repeated entries
|
|
|
- m=( ${(f)"$(_scd_Y19oug_compress $SCD_HISTFILE)"} )
|
|
|
- # purge non-existent directories
|
|
|
- m=( ${(f)"$(
|
|
|
- for a in $m; do
|
|
|
- if [[ -d ${a#*;} ]]; then print -r -- $a; fi
|
|
|
- done
|
|
|
- )"}
|
|
|
- )
|
|
|
- # cut old entries if still oversized
|
|
|
- if [[ $#m -gt $SCD_HISTSIZE ]]; then
|
|
|
- m=( ${m[-$SCD_HISTSIZE,-1]} )
|
|
|
- fi
|
|
|
- print -lr -- $m >| ${SCD_HISTFILE}
|
|
|
+# Rewrite directory index if it is at least 20% oversized.
|
|
|
+local curhistsize
|
|
|
+if [[ -z $opt_unindex && -s $SCD_HISTFILE ]] && \
|
|
|
+curhistsize=$(wc -l <$SCD_HISTFILE) && \
|
|
|
+(( $curhistsize > 1.2 * $SCD_HISTSIZE )); then
|
|
|
+ # Compress repeated entries in a background process.
|
|
|
+ (
|
|
|
+ m=( ${(f)"$(_scd_Y19oug_compress $SCD_HISTFILE)"} )
|
|
|
+ # purge non-existent and ignored directories
|
|
|
+ m=( ${(f)"$(
|
|
|
+ for a in $m; do
|
|
|
+ d=${a#*;}
|
|
|
+ [[ -z ${scdignore[(k)$d]} ]] || continue
|
|
|
+ [[ -d $d ]] || continue
|
|
|
+ $PWDCASECORRECT || d=( (#i)${d} )
|
|
|
+ t=${a%%;*}
|
|
|
+ print -r -- "${t};${d}"
|
|
|
+ done
|
|
|
+ )"}
|
|
|
+ )
|
|
|
+ # cut old entries if still oversized
|
|
|
+ if [[ $#m -gt $SCD_HISTSIZE ]]; then
|
|
|
+ m=( ${m[-$SCD_HISTSIZE,-1]} )
|
|
|
+ fi
|
|
|
+ # Checking existence of many directories could have taken a while.
|
|
|
+ # Append any index entries added in meantime.
|
|
|
+ m+=( ${(f)"$(sed "1,${curhistsize}d" $SCD_HISTFILE)"} )
|
|
|
+ print -lr -- $m >| ${SCD_HISTFILE}
|
|
|
+ ) &|
|
|
|
fi
|
|
|
|
|
|
# Determine the last recorded directory
|
|
@@ -197,13 +286,8 @@ _scd_Y19oug_record() {
|
|
|
}
|
|
|
|
|
|
if [[ -n $opt_add ]]; then
|
|
|
- for d; do
|
|
|
- if [[ ! -d $d ]]; then
|
|
|
- print -u2 "Directory '$d' does not exist."
|
|
|
- $EXIT 2
|
|
|
- fi
|
|
|
- done
|
|
|
- _scd_Y19oug_abspath m ${*:-$PWD}
|
|
|
+ m=( ${^${argv:-$PWD}}(N-/) )
|
|
|
+ _scd_Y19oug_abspath m ${m}
|
|
|
_scd_Y19oug_record $m
|
|
|
if [[ -n $opt_recursive ]]; then
|
|
|
for d in $m; do
|
|
@@ -220,6 +304,7 @@ if [[ -n $opt_unindex ]]; then
|
|
|
if [[ ! -s $SCD_HISTFILE ]]; then
|
|
|
$EXIT
|
|
|
fi
|
|
|
+ argv=( ${argv:-$PWD} )
|
|
|
# expand existing directories in the argument list
|
|
|
for i in {1..$#}; do
|
|
|
if [[ -d ${argv[i]} ]]; then
|
|
@@ -227,24 +312,28 @@ if [[ -n $opt_unindex ]]; then
|
|
|
argv[i]=${d}
|
|
|
fi
|
|
|
done
|
|
|
+ # strip trailing slashes, but preserve the root path
|
|
|
+ argv=( ${argv/(#m)?\/##(#e)/${MATCH[1]}} )
|
|
|
m="$(awk -v recursive=${opt_recursive} '
|
|
|
BEGIN {
|
|
|
for (i = 2; i < ARGC; ++i) {
|
|
|
argset[ARGV[i]] = 1;
|
|
|
delete ARGV[i];
|
|
|
}
|
|
|
+ unindex_root = ("/" in argset);
|
|
|
}
|
|
|
1 {
|
|
|
d = $0; sub(/^[^;]*;/, "", d);
|
|
|
if (d in argset) next;
|
|
|
}
|
|
|
recursive {
|
|
|
+ if (unindex_root) exit;
|
|
|
for (a in argset) {
|
|
|
if (substr(d, 1, length(a) + 1) == a"/") next;
|
|
|
}
|
|
|
}
|
|
|
{ print $0 }
|
|
|
- ' $SCD_HISTFILE ${*:-$PWD} )" || $EXIT $?
|
|
|
+ ' $SCD_HISTFILE $* )" || $EXIT $?
|
|
|
: >| ${SCD_HISTFILE}
|
|
|
[[ ${#m} == 0 ]] || print -r -- $m >> ${SCD_HISTFILE}
|
|
|
$EXIT
|
|
@@ -252,67 +341,113 @@ fi
|
|
|
|
|
|
# The "action" function is called when there is just one target directory.
|
|
|
_scd_Y19oug_action() {
|
|
|
- cd $1 || return $?
|
|
|
+ local cdcmd=cd
|
|
|
+ [[ -z ${opt_push} ]] || cdcmd=pushd
|
|
|
+ builtin $cdcmd $1 || return $?
|
|
|
if [[ -z $SCD_SCRIPT && -n $RUNNING_AS_COMMAND ]]; then
|
|
|
print -u2 "Warning: running as command with SCD_SCRIPT undefined."
|
|
|
fi
|
|
|
if [[ -n $SCD_SCRIPT ]]; then
|
|
|
- print -r "cd ${(q)1}" >| $SCD_SCRIPT
|
|
|
+ local d=$1
|
|
|
+ if [[ $OSTYPE == cygwin && ${(L)SCD_SCRIPT} == *.bat ]]; then
|
|
|
+ d=$(cygpath -aw .)
|
|
|
+ fi
|
|
|
+ print -r "${cdcmd} ${(qqq)d}" >| $SCD_SCRIPT
|
|
|
fi
|
|
|
}
|
|
|
|
|
|
-# Match and rank patterns to the index file
|
|
|
-# set global arrays dmatching and drank
|
|
|
+# Select and order indexed directories by matching command-line patterns.
|
|
|
+# Set global arrays dmatching and drank.
|
|
|
_scd_Y19oug_match() {
|
|
|
## single argument that is an existing directory or directory alias
|
|
|
if [[ -z $opt_all && $# == 1 ]] && \
|
|
|
- [[ -d ${d::=$1} || -d ${d::=${nameddirs[$1]}} ]] && [[ -x $d ]];
|
|
|
+ [[ -d ${d::=${nameddirs[$1]}} || -d ${d::=$1} ]] && [[ -x $d ]];
|
|
|
then
|
|
|
_scd_Y19oug_abspath dmatching $d
|
|
|
drank[${dmatching[1]}]=1
|
|
|
return
|
|
|
fi
|
|
|
|
|
|
- # ignore case unless there is an argument with an uppercase letter
|
|
|
- [[ "$*" == *[[:upper:]]* ]] || ICASE='(#i)'
|
|
|
- # support "$" as an anchor for the directory name ending
|
|
|
+ # quote brackets when PWD is /Volumes/[C]/
|
|
|
+ local qpwd=${PWD//(#m)[][]/\\${MATCH}}
|
|
|
+
|
|
|
+ # support "./" as an alias for $PWD to match only subdirectories.
|
|
|
+ argv=( ${argv/(#s).\/(#e)/(#s)${qpwd}(|/*)(#e)} )
|
|
|
+
|
|
|
+ # support "./pat" as an alias for $PWD/pat.
|
|
|
+ argv=( ${argv/(#m)(#s).\/?*/(#s)${qpwd}${MATCH#.}} )
|
|
|
+
|
|
|
+ # support "^" as an anchor for the root directory, e.g., "^$HOME".
|
|
|
+ argv=( ${argv/(#m)(#s)\^?*/(#s)${${~MATCH[2,-1]}}} )
|
|
|
+
|
|
|
+ # support "$" as an anchor at the end of directory name.
|
|
|
argv=( ${argv/(#m)?[$](#e)/${MATCH[1]}(#e)} )
|
|
|
|
|
|
- # calculate rank of all directories in the SCD_HISTFILE and keep it as drank
|
|
|
- # include a dummy entry for splitting of an empty string is buggy
|
|
|
+ # support prefix ":" to match over the tail component.
|
|
|
+ argv=( ${argv/(#m)(#s):?*/${MATCH[2,-1]}[^/]#(#e)} )
|
|
|
+
|
|
|
+ # calculate rank of all directories in SCD_HISTFILE and store it in drank.
|
|
|
+ # include a dummy entry to avoid issues with splitting an empty string.
|
|
|
[[ -s $SCD_HISTFILE ]] && drank=( ${(f)"$(
|
|
|
print -l /dev/null -10
|
|
|
<$SCD_HISTFILE \
|
|
|
- awk -v epochseconds=$EPOCHSECONDS -v meanlife=$SCD_MEANLIFE '
|
|
|
- BEGIN { FS = "[:;]"; }
|
|
|
+ awk -v epochseconds=$EPOCHSECONDS \
|
|
|
+ -v meanlife=$SCD_MEANLIFE \
|
|
|
+ -v minlogprob=$MINLOGPROB \
|
|
|
+ '
|
|
|
+ BEGIN {
|
|
|
+ FS = "[:;]";
|
|
|
+ pmin = exp(minlogprob);
|
|
|
+ }
|
|
|
+ /^: deleted:0;/ {
|
|
|
+ df = $0;
|
|
|
+ sub("^[^;]*;", "", df);
|
|
|
+ delete ptot[df];
|
|
|
+ next;
|
|
|
+ }
|
|
|
length($0) < 4096 && $2 > 0 {
|
|
|
+ df = $0;
|
|
|
+ sub("^[^;]*;", "", df);
|
|
|
+ if (!df) next;
|
|
|
+ dp = df;
|
|
|
+ while (!(dp in ptot)) {
|
|
|
+ ptot[dp] = pmin;
|
|
|
+ sub("//*[^/]*$", "", dp);
|
|
|
+ if (!dp) break;
|
|
|
+ }
|
|
|
+ if ($2 <= 1000) next;
|
|
|
tau = 1.0 * ($2 - epochseconds) / meanlife;
|
|
|
- if (tau < -6.9078) tau = -6.9078;
|
|
|
- prob = exp(tau);
|
|
|
- sub(/^[^;]*;/, "");
|
|
|
- if (NF) ptot[$0] += prob;
|
|
|
+ prob = (tau < minlogprob) ? pmin : exp(tau);
|
|
|
+ ptot[df] += prob;
|
|
|
}
|
|
|
- END { for (di in ptot) { print di; print ptot[di]; } }'
|
|
|
+ END { for (di in ptot) { print di; print ptot[di]; } }
|
|
|
+ '
|
|
|
)"}
|
|
|
)
|
|
|
unset "drank[/dev/null]"
|
|
|
|
|
|
# filter drank to the entries that match all arguments
|
|
|
for a; do
|
|
|
- p=${ICASE}"*(${a})*"
|
|
|
+ p="(#l)*(${a})*"
|
|
|
drank=( ${(kv)drank[(I)${~p}]} )
|
|
|
done
|
|
|
- # require at least one argument matches the directory name
|
|
|
- p=${ICASE}"*(${(j:|:)argv})[^/]#"
|
|
|
+ # require that at least one argument matches in directory tail name.
|
|
|
+ p="(#l)*(${(j:|:)argv})[^/]#"
|
|
|
drank=( ${(kv)drank[(I)${~p}]} )
|
|
|
|
|
|
+ # discard ignored directories
|
|
|
+ if [[ -z ${opt_all} ]]; then
|
|
|
+ for d in ${(k)drank}; do
|
|
|
+ [[ -z ${scdignore[(k)$d]} ]] || unset "drank[$d]"
|
|
|
+ done
|
|
|
+ fi
|
|
|
+
|
|
|
# build a list of matching directories reverse-sorted by their probabilities
|
|
|
dmatching=( ${(f)"$(
|
|
|
- for d p in ${(kv)drank}; do
|
|
|
- print -r -- "$p $d";
|
|
|
- done | sort -grk1 | cut -d ' ' -f 2-
|
|
|
- )"}
|
|
|
+ builtin printf "%s %s\n" ${(Oakv)drank} |
|
|
|
+ /usr/bin/sort -grk1 )"}
|
|
|
)
|
|
|
+ dmatching=( ${dmatching#*[[:blank:]]} )
|
|
|
|
|
|
# do not match $HOME or $PWD when run without arguments
|
|
|
if [[ $# == 0 ]]; then
|
|
@@ -320,12 +455,20 @@ _scd_Y19oug_match() {
|
|
|
fi
|
|
|
|
|
|
# keep at most SCD_MENUSIZE of matching and valid directories
|
|
|
+ # mark up any deleted entries in the index
|
|
|
+ local -A isdeleted
|
|
|
m=( )
|
|
|
+ isdeleted=( )
|
|
|
for d in $dmatching; do
|
|
|
[[ ${#m} == $SCD_MENUSIZE ]] && break
|
|
|
- [[ -d $d && -x $d ]] && m+=$d
|
|
|
+ (( ${+isdeleted[$d]} == 0 )) || continue
|
|
|
+ [[ -d $d ]] || { isdeleted[$d]=1; continue }
|
|
|
+ [[ -x $d ]] && m+=$d
|
|
|
done
|
|
|
dmatching=( $m )
|
|
|
+ if [[ -n ${isdeleted} ]]; then
|
|
|
+ print -lr -- ": deleted:0;"${^${(k)isdeleted}} >> $SCD_HISTFILE
|
|
|
+ fi
|
|
|
|
|
|
# find the maximum rank
|
|
|
maxrank=0.0
|
|
@@ -343,7 +486,7 @@ _scd_Y19oug_match() {
|
|
|
|
|
|
_scd_Y19oug_match $*
|
|
|
|
|
|
-## process whatever directories that remained
|
|
|
+## process matching directories.
|
|
|
if [[ ${#dmatching} == 0 ]]; then
|
|
|
print -u2 "No matching directory."
|
|
|
$EXIT 1
|
|
@@ -367,13 +510,13 @@ if [[ -n $opt_list ]]; then
|
|
|
$EXIT
|
|
|
fi
|
|
|
|
|
|
-## process single directory match
|
|
|
+## handle a single matching directory here.
|
|
|
if [[ ${#dmatching} == 1 ]]; then
|
|
|
_scd_Y19oug_action $dmatching
|
|
|
$EXIT $?
|
|
|
fi
|
|
|
|
|
|
-## here we have multiple matches - display selection menu
|
|
|
+## Here we have multiple matches. Let's use the selection menu.
|
|
|
a=( {a-z} {A-Z} )
|
|
|
a=( ${a[1,${#dmatching}]} )
|
|
|
p=( )
|