rc/home/-shrc

#!/usr/bin/env false
# for ash, dash, bash, and zsh.
[ -n "$ZSH_VERSION" -o -n "$BASH" ] && FANCY=1 || FANCY=0

# {{{1 utilities

if [ -z "$ZSH_VERSION" ]; then
    has() { ### @- hardcoded here for convenience.
        which "$1" >/dev/null 2>&1 && which "$1"
    }
fi

# not available in busybox:
#exports() {
#    printenv | cut -d= -f1
#}

if has sudo >/dev/null; then
    alias maybesudo=sudo
else
    alias maybesudo="maybesudo_ " # allows aliases within the alias
fi

ADDPATH() { ### @-
    ### append a directory to `$PATH` if it isn't already present.
    new="$(readlink -f "$1")"
    if [ ! -d "$new" ]; then
        echo -E "ADDPATH: path doesn't exist: $1" >&2
        return 1
    fi
    echo ":$PATH:" | grep -q ":$new:" || export PATH="$PATH:$new"
}

# shortcuts {{{1

if [ $FANCY -eq 1 ]; then
    # these drive letters only help because of a bug in my zsh completions...
    hash -d c="/c"
    hash -d d="/d"
    [ -d /media/chibi ] && hash -d e="/media/chibi" || hash -d e="/e"
    hash -d s="/s"

    hash -d cyg=~c"/cygwin/home/$USER"
    hash -d msys=~c"/msys64/home/$USER"
    hash -d win=~c"/Users/$USER"
    hash -d mm=~c"/Program Files (x86)/mupen64plus/mm"
    hash -d py=~win"/Dropbox/py"
fi

# {{{1 configurations

# umask should be reset else pip might make faulty installations.
umask 022

ADDPATH "$HOME/opt/local/bin"
[ -n "$MSYSTEM" ] && ADDPATH "/c/path"
[ -n "$MSYSTEM" ] && ADDPATH "/c/Program Files/7-Zip-Zstandard" 2>/dev/null
[ -n "$MSYSTEM" ] && ADDPATH ~win"/Desktop/_programs/rakudo-2021.06/bin" 2>/dev/null

export _REMOTE_DOMAIN="https://eaguru.guru"
export _REMOTE_DIR="t"
export _REMOTE_AUTH="auth"

# for dash:
export ENV="$HOME/.-shrc"

# https://bugs.launchpad.net/ubuntu/+source/openssh/+bug/1380084
export SSH_AUTH_SOCK=0

# https://blog.packagecloud.io/eng/2017/02/21/set-environment-variable-save-thousands-of-system-calls/
# i haven't checked if this makes any difference personally, but may as well, eh?
export TZ=':/etc/localtime'

# damnit python.
export PYTHONIOENCODING=utf-8

# cleanup in case of inherited exports
unset PREFIX CC CPP CXX LD CFLAGS CPPFLAGS CXXFLAGS LDFLAGS
unset AR RANLIB RC WINDRES OBJDUMP OBJCOPY
unset LD_LIBRARY_PATH

# PuTTY over serial
test "$TERM" = vt102 && export TERM="xterm"

# Qt is stupid and thinks we're running unity so it hides the menu bar
test "$DESKTOP_SESSION" = xfce && export QT_QPA_PLATFORMTHEME=""

export EDITOR=vim
export PAGER=less
export VST_SDK_DIR="$HOME/src/vstsdk2.4"
export LADSPA_PATH="/usr/lib/ladspa"
export NQDIR="$HOME/play"

if [ "$LANG" != "en_US.UTF-8" ] && [ "$LANG" != "en_CA.UTF-8" ]; then
    if [ -z "$MSYSTEM" ] || [ "$LANG" != "C.UTF-8" ]; then
        if [ -z "$LANG" ]; then
            echo -E "Warning: LANG is empty!" >&2
        else
            echo -E "Warning: LANG is $LANG" >&2
        fi
    fi
fi

# aliases {{{1

# enable colors {{{2

(echo test | grep --color=auto blah >/dev/null 2>&1) && alias grep='grep --color=auto'
(ls --color=auto >/dev/null 2>&1) && alias ls='ls --color=auto'
alias lr="lr -G"
#alias make="$(has colormake || has make)"

# just flags {{{2

export LESS='-SRQ'
alias db="dropbox_uploader"
alias fils="du -bahd1" ### @- (GNU du) display human-friendly filesizes for the files in a directory.
alias lsa="ls -A --group-directories-first" ### @- (GNU ls) list files with directories and dotfiles ordered first.
alias perlu='perl -Mopen=locale -Mutf8' ### @- invoke perl expecting files with UTF-8 encoding.
alias rgn="rg --no-ignore" ### @- invoke ripgrep without respecting `.gitignore` files.
alias cms="cryptominisat5 --verb 0" ### @- invoke cryptominisat5 with less noise.
alias curls="curl -sS" ### @- invoke curl with less noise.

# git {{{2

alias get="git clone --single-branch --depth 1" ### @- retrieve the most recent files from the default branch of a git repository, and not much else.
alias gs='git status' ### @- invoke git's status subcommand.
### **TODO:** consider renaming because gs(1) already exists.
alias gd='git diff -U2' ### @- invoke git's diff subcommand with fewer lines of context.
alias gds='git --no-pager diff --stat' ### @- display difference stats from git.
alias gl='git log --oneline' ### @- invoke git's log subcommand with a single line per commit.
alias glo='git log --graph --decorate --pretty=oneline --abbrev-commit --all' ### @- navigate git's commit tree succinctly.
alias g1='git log --pretty=oneline --abbrev-commit --color=always | head -1' ### @- display the most recent git commit.
alias gr='git remote -v' ### @- display remote git repositories verbosely.
alias gb='git --no-pager branch' ### @- display the current git branch.
### **NOTE:** there also exists a gb(1) program provided by
### the *gb* package that i don't use.

# being specific {{{2

[ -e "$HOME/python3" ] && alias py="~/python3" || alias py="python3"
alias ash="busybox ash"
alias pip="maybesudo -H pip3"
alias revend='objcopy -I binary -O binary --reverse-bytes=4' ### @- reverse the 4-byte endianness of a single file. *this is an in-place operation!*
alias aur="BUILDDIR=$HOME/src $HOME/sh/aur -jj"
alias clone='maybesudo rsync -aHA --info=progress2 --no-i-r' ### @- invoke rsync suitably for creating virtually indistinguishable copies of files.
alias aligntabs="column -t -s$'\t'" ### @- align tab-delimited fields in stdin.
alias crawla='ssh joshua@crawl.akrasiac.org -i ~/.ssh/crawl' ### @- play Dungeon Crawl: Stone Soup through ssh on the akrasiac server.
alias crawlz='ssh crawl@crawl.develz.org -i ~/.ssh/crawl' ### @- play Dungeon Crawl: Stone Soup through ssh on the develz server.

alias eahead='ea head' ### @- deprecated name for [`ea head`.](#ea)
alias eaget='ea get' ### @- deprecated name for [`ea get`.](#ea)
alias eaput='ea put' ### @- deprecated name for [`ea put`.](#ea)
alias eamove='ea move' ### @- deprecated name for [`ea move`.](#ea)
alias eacopy='ea copy' ### @- deprecated name for [`ea copy`.](#ea)
alias eadelete='ea delete' ### @- deprecated name for [`ea delete`.](#ea)
alias eamv='ea move' ### @- invoke [`ea move`.](#ea)
alias eacp='ea copy' ### @- invoke [`ea copy`.](#ea)
alias earm='ea delete' ### @- invoke [`ea delete`.](#ea)

alias ll="lol" # workaround for a strange issue with bash
lol() { ### @ ll - list files verbosely, fancily, ordered, but not recursively.
    { lr -1lshGG -o tev -t 'name~~".*"||type==d' "$@" \
     && lr -1lshGG -o tev -t 'name!~~".*"&&type!=d' "$@" \
     || ls -lAX --group-directories-first --color=force "$@"; } | less
}

# providing extra functionality {{{2

alias diff="git diff --color=auto --no-ext-diff --no-index --no-prefix" ### @- use git's diff subcommand for general diffing.
alias gc="git column --mode=dense --padding=2" ### @- columnize text by using git's column subcommand.
### **TODO:** consider renaming because gc(1) already exists.
alias counts='find . | wc -l' ### @- count files in the current directory, including files found recursively.
alias exts="find -type f | grep -o '\\.[^/.]*$' | sort | uniq -c | sort -n" ### @- count and sort file extensions in the current directory, including files found recursively.
alias nocom='grep -Ev --line-buffered --color=never "^[[:space:]]*(//|#)"' ### @- strip single-line C-like and shell-like comments.
alias sortip="sort -t . -k 1,1n -k 2,2n -k 3,3n -k 4,4n" ### @- sort numerically by IPv4 segments.
alias jrep='grep -aPo "[\x{20}-\x{7E}\x{4E00}-\x{9FFF}\x{3040}-\x{30FF}]+"' ### @- extract strings comprised of basic ASCII or Japanese codepoints.
alias bomb='uconv -f utf-8 -t utf-8 --add-signature' ### @- add a Byte-Order Mark to a file.
alias cleanse='tr -cd "\11\12\15\40-\176"' ### @- strip unprintable and non-ASCII characters.
alias unwrap='awk '\''BEGIN{RS="\n\n";FS="\n"}{for(i=1;i<=NF;i++)printf "%s ",$i;print "\n"}'\' ### @- join paragraphs into one line each.
alias double='awk "{print;print}"' ### @- print every line twice. <br/> print every line twice.
### **NOTE:** there also exists a double(1) program provided by
### the *plotutils* package that i don't use.
alias join2='paste -d" " - -' ### @- join every other line.
alias katagana='perlu -MUnicode::Normalize -pe'"'"'$_=NFKD($_)=~y/ァ-ヶ /ぁ-ゖ　/r'"'" ### @- convert katakana codepoints to their equivalent hiragana.
### useful for translating [debug text from ancient games.](https://tcrf.net/)
alias picky='{ pacman -Qgq base base-devel xorg xorg-drivers xfce4 | double; pacman -Qeq; } | sort | uniq -u' ### @- TODO
alias unused='{ pacman -Qtq; pacman -Qeq | double; } | sort | uniq -u' ### @- TODO
alias makepkgf='makepkg -Af --skipchecksums --skippgpcheck' ### @- make the freakin' package!
alias rakef='rake && gem build *.gemspec && gem install *.gem' ### @- make the freakin' gem!

eashare() { ### @- upload a file and copy its URL to the clipboard.
    ### **NOTE:** this only works on MSYS2 for now.
    ###
    ### **NOTE:** i lied, this doesn't work at all.
    local dest="${1##*/}"
    eaput "$1" || return
    printf "%s" "$_REMOTE_DOMAIN/$_REMOTE_DIR/$dest" >> /dev/clipboard
}