.arg-rc

export ah="$(dirname "${BASH_SOURCE[0]}")"

alias reverse=reverse-stdin
alias rvi=reverse-stdin
alias rvs=reverse-stdin

alias dr=drop-regex
alias drr=drop-right-regex
alias drn=drop-regex-n
alias drrn=drop-right-regex-n

alias dch=drop-chars
alias dc1="drop-chars 1"
alias dc2="drop-chars 2"
alias dc3="drop-chars 3"
alias dc4="drop-chars 4"
alias dc5="drop-chars 5"
alias dcr=drop-chars-right
alias drc=drop-chars-right
alias dcrn="drop-chars-right-n"
alias dcr1="drop-chars-right-n 1"
alias dcr2="drop-chars-right-n 2"
alias dcr3="drop-chars-right-n 3"
alias dcr4="drop-chars-right-n 4"
alias dcr5="drop-chars-right-n 5"

alias sw=starts-with
alias dsw="starts-with -v"
alias nsw="starts-with -v"
alias swv="starts-with -v"

alias ew=ends-with
alias dew="ends-with -v"
alias new="ends-with -v"
alias ewv="ends-with -v"

alias pp=prepend
alias ap=append
alias bp=bipend

defn tat two-at-a-time-tabs
defn taat two-at-a-time-tabs

defn tts two-at-a-time-spaces
defn taats two-at-a-time-spaces

defn x xargs
defn x0 xargs -0

alias er=escape-regex

alias tff=take-from-first
alias tkff=take-from-first

defn tpf take-past-first
defn dtf take-past-first  # aka. drop-to-first

alias dul=drop-until-last
alias tfl=take-from-last
alias tkfl=take-from-last

defn dtl drop-to-last
defn tpl take-past-last
defn tpls take-past-last /

defn dfl drop-from-last
defn tul take-until-last

defn dpl drop-past-last
defn ttl take-to-last

alias dfl.="drop-from-last ."

alias pt="paste -d' ' - -"
alias zs="paste -d' ' - -"
alias pts="paste -d' ' - -"
alias ptn="paste -d'\n' - -"

alias pt3="paste -d' ' - - -"
alias zs3="paste -d' ' - - -"

alias t=tee
alias ta="tee -a"
alias tc=cache

alias ca=count

defn una uname -a
defn unm uname -m

defn cn cat-n

keep_n_chars() {
    local n="$1"; shift
    while IFS= read -r line; do
        echo "${line:0:$n}"
    done
}
export -f keep_n_chars
defn knc keep_n_chars
defn kc keep_n_chars
defn kc1 keep_n_chars 1
defn kc2 keep_n_chars 2
defn kc3 keep_n_chars 3
defn kc4 keep_n_chars 4
defn kcs keep_n_chars

defn kr kill-regex
defn kx kill-regex

defn krs kill-regexs
defn kxs kill-regexs

defn kq kill-regex '\"'
defn kqs kill-regex '\"'

defn kcr tr -d $'\r'

defn exists apply-test -e
defn dne apply-test '!' -e

defn tk take
defn tkr take-right

defn tt take-to
defn tu take-until
defn tuf take-until
defn dpf take-to
defn dff take-until

alias cpt=capture

defn dr1 drop-chars-right-n 1

alias trd="tr -d"

defn sdf sed -f
defn sedf sed -f

seds() {
    # seds s/find1/replace1/ s/find2/replace2/ ...
    args=()
    for cmd in "$@"; do
        args+=(-e "$cmd")
    done
    sed "${args[@]}"
}
export -f seds

sedss() {
    # sedss find1/replace1 find2/replace2 ...
    args=()
    for cmd in "$@"; do
        args+=("s/$cmd/")
    done
    seds "${args[@]}"
}
export -f sedss