1 files changed, 410 insertions, 0 deletions

diff --git a/accounts/gkleen@sif/zshrc b/accounts/gkleen@sif/zshrc
new file mode 100644
index 00000000..d4d75073
--- /dev/null
+++ b/accounts/gkleen@sif/zshrc
@@ -0,0 +1,410 @@
+filebin() {
+    basePath=/srv/www/files
+    ssh ymir find /srv/www/files -type f -printf "$'%T@ %TY-%Tm-%TdT%TH:%TM %P\\\\0'" | sort -zn | cut -z -d ' ' -f 2- \
+        | while IFS= read -r -d $'\0' l; do
+            IFS=' ' read -r t p <<<"${l}"
+            printf "%s https://f.141.li/%s\n" "${t}" "${p}"
+          done
+}
+
+push2bin() {
+    if [[ ${#@} -eq 1 && ! -r ${1} ]]; then
+        uux -p 'ymir!push2bin' $(echo -n "${1:t}" | tr -c $'[:alnum:]+-=.' '_')
+    else
+        for f (${@}); do
+            uux -p 'ymir!push2bin' $(echo -n "${f:t}" | tr -c $'[:alnum:]+-=.' '_') <${f}
+        done
+    fi
+}
+
+genmail() {
+    local baseName=""
+    local target=""
+    if [[ ${#@} -ge 1 ]]; then
+        target=${1}
+        shift
+    fi
+
+    if [[ ${#@} -ge 1 ]]; then
+        baseName=$(pwgen ${@})
+    else
+        baseName=$(pwgen -v -A -0 16 1)
+    fi
+    baseName=$(tr -cd $'[:alnum:]!#$%&*+-/=?^_{|}~.' <<<${baseName})
+    address=${baseName}@141.li
+    insertAddr() {
+      echo "${baseName} gkleen" | ssh ymir tee -a /srv/mail/spm 1>/dev/null \
+    }
+
+    printf "%s\n" ${address}
+    read -q 'cont?Continue [y/N]? ' || return
+
+    insertAddr
+}
+
+s() {
+    dir=$(pwd)
+    [[ ${#@} -ge 1 ]] && dir=$1
+    
+    shellFile=$(findNix ${@})
+    [[ ${#@} -ge 1 ]] && shift
+
+    typeset -a cmd
+    if [[ -d ${dir}/.nix-gc-roots ]]; then
+        cmd=(persistent-nix-shell ${shellFile} ${S_EXTRA_ARGS} ${@})
+    else
+        cmd=(nix-shell ${shellFile} ${S_EXTRA_ARGS} ${@})
+    fi
+
+    if [[ -n "${S_SYSTEMD}" ]]; then
+        systemd-run --user --slice=development.slice --collect -E PATH=${PATH} -p WorkingDirectory=${dir} -- ${cmd}
+    else
+        (
+            cd ${dir}
+
+            exec ${cmd}
+        )
+    fi
+}
+
+sz() {
+    typeset -a S_EXTRA_ARGS
+    S_EXTRA_ARGS=(--run "env __ETC_ZSHENV_SOURCED=1 zsh") s ${@}
+}
+st() {
+    typeset -a S_EXTRA_ARGS
+    S_EXTRA_ARGS=(--run "tmux new-session env __ETC_ZSHENV_SOURCED=1 zsh") s ${@}
+}
+stt() {
+    typeset -a S_EXTRA_ARGS
+    S_SYSTEMD=true S_EXTRA_ARGS=(--run "urxvt -e tmux -S .tmux.sock new-session env __ETC_ZSHENV_SOURCED=1 zsh") s ${@}
+}
+se() {
+    typeset -a S_EXTRA_ARGS
+    S_SYSTEMD=true S_EXTRA_ARGS=(--run "emacs") s ${@}
+}
+
+findNix() {
+    if [[ $#@ -eq 0 ]]; then
+        findNix $(pwd)
+    elif [[ -f "$1" ]]; then
+        print ${1:a}
+    elif [[ -d "$1" && -f "$1"/shell.nix ]]; then
+        print ${1:a}/shell.nix
+    elif [[ -d "$1" && -f "$1"/default.nix ]]; then
+        print ${1:a}/default.nix
+    elif [[ -d "$1" && "$1" != "/" ]]; then
+        findNix ${1:h}
+    else
+        printf "Traversed directories to ‘/’ and found no shell specification\n" >&2
+        return 1
+    fi
+}
+
+dir() {
+    curlArchive=false
+    templateArchive=""
+    repoUrl=""
+    nixShell=""
+    findNix=false
+    dir=""
+    forceShell=false
+    wormhole=false
+    gitWorktree=""
+    notmuchMsg=""
+    quickserve=false
+
+    while getopts ':t:a:s:Sd:ir:wqg:n:' arg; do
+        case $arg in
+            "t") ;;
+            "a")
+                if [[ ${OPTARG} =~ "://" ]]; then
+                    templateArchive=${OPTARG}
+                    curlArchive=true
+                else
+                    templateArchive=${OPTARG:a}
+                fi
+                ;;
+            "s") nixShell=${OPTARG:a} ;;
+            "S") findNix=true ;;
+            "d") dir=${OPTARG} ;;
+            "i") forceShell=true ;;
+            "r") repoUrl=${OPTARG} ;;
+            "w") wormhole=true ;;
+            "g") gitWorktree=${OPTARG} ;;
+            "n") notmuchMsg=${OPTARG} ;;
+            "q") quickserve=true ;;
+            *) printf "Invalid option: %s\n" $arg >&2; exit 2 ;;
+        esac
+    done
+            
+    shift $((OPTIND - 1))
+
+    if [[ -z ${dir} && ${#@} -ge 1 ]]; then
+        dir=${1}
+        shift
+    fi
+
+    [[ -n ${dir} ]] || return 2; 
+
+    if [[ ! -e ${dir} ]]; then
+        if [[ -z "${gitWorktree}" ]]; then
+            mkdir -vp ${dir}
+        else
+            git -C ${gitWorktree} worktree add ${dir}
+        fi
+    else
+        gitWorktree=""
+    fi
+            
+    (
+        cd ${dir}
+        export dir;
+
+        ${findNix} && { nixShell=$(findNix) || return $? }
+
+        [[ -n ${repoUrl} ]] && git clone -- ${repoUrl} .
+        
+        if [[ -n ${templateArchive} ]]; then
+            (
+                archiveFile=""
+                cleanup() {
+                    [[ -n "${archiveFile}" ]] && rm -fv ${archiveFile}
+                }
+                trap cleanup EXIT
+
+                if ${curlArchive}; then
+                    archiveFile=$(mktemp -t "archive.XXXXXXXXXX.${templateArchive:t}")
+
+                    curl -L -o ${archiveFile} ${templateArchive}
+
+                    templateArchive=${archiveFile}
+                fi
+
+                case $(file --brief --mime-type ${templateArchive}) in
+                    application/zip) unzip ${templateArchive} ;;
+                    *) tar -xvaf ${templateArchive} ;;
+                esac
+            )
+        fi
+
+
+        if [[ -n ${notmuchMsg} ]]; then
+            getMimeTypes() {
+                nix-shell -p mailcap --run "find \${buildInputs} -path '*/etc/mime.types' | head -n 1 | xargs -- cat"
+            }
+
+            typeset -a messages
+            messages=(${(z)$(notmuch search --output=messages ${notmuchMsg})})
+            
+            for message (${messages}); do
+              typeset -A notmuchAtts
+              notmuchAtts=()
+
+              while IFS= read -r -d $'\n' line; do
+                  [[ ${line} =~ '(attachment|part)\{ ID: ([0-9]+)' ]] || continue
+                  attId=${match[2]}
+
+                  [[ ${line} =~ 'Content-type: multipart/' ]] && continue
+
+                  fName="part_${attId}"
+                  [[ ${line} =~ 'Filename: (([^,]|,[^ ])+)' ]] && fName=${match[1]}
+
+                  if [[ ${#messages} -gt 1 ]]; then
+                      fName="${message}/${fName}"
+                  fi
+
+                  fExt="${fName:e}"
+                  [[ -n "${fExt}" ]] && fName="${fName:r}"
+
+                  if [[ -z "${fExt}" && ${line} =~ 'Content-type: (([^,]|,[^ ])+)$' ]]; then
+                      fExt=$(getMimeTypes | grep ${match[1]}$'\t' | head -n 1 | awk '{ print $2; }')
+                  fi
+
+                  mkdir -p ${fName:h}
+                  if [[ -n "${fExt}" ]]; then
+                      fName=$(mktemp -p . "${fName}.XXXXXX.${fExt}")
+                  else
+                      fName=$(mktemp -p . "${fName}.XXXXXX")
+                  fi
+
+                  notmuchAtts[${attId}]=${fName}
+              done <<(notmuch show --decrypt=false -- ${message} | tr -d $'\f')
+
+              for attId fName in ${(kv)notmuchAtts}; do
+                  [[ -d ${fName:h} ]] || mkdir -p ${fName:h}
+                  printf "#%d → ‘%s’\n" "${attId}" "${fName}" >&2
+
+                  notmuch show --decrypt=false --part=${attId} -- ${message} | pv -W -D 2 -i 0.1 >${fName}
+              done
+            done
+        fi
+
+
+        ${wormhole} && wormhole receive
+
+        if ${quickserve}; then
+          quickserve --root . --upload . --show-hidden --tar gz
+        fi
+
+        
+        if [[ ${#@} -eq 0 ]] || ${forceShell}; then
+            if [[ ${#@} -gt 0 ]]; then
+                if [[ -z ${nixShell} ]]; then
+                    ${@}
+                else
+                    nix-shell ${nixShell} --run "${@}"
+                fi
+            fi
+
+            cd $(pwd) # Needed for mounting to work
+            
+            isSingleDir() {
+                typeset -a contents
+                contents=(*(N) .*(N))
+                    
+                if [[ ${#contents} -eq 1 && -d ${contents[1]} ]]; then
+                    print ${contents[1]}
+                    return 0
+                else
+                    return 1
+                fi
+            }
+            while d=$(isSingleDir); do cd ${d}; done
+
+            
+            if [[ -z ${nixShell} ]]; then
+                exec -- zsh
+            else
+                exec -- nix-shell ${nixShell} --run zsh
+            fi
+        else
+            if [[ -z ${nixShell} ]]; then
+                exec -- ${@}
+            else
+                exec -- nix-shell ${nixShell} --run "${@}"
+            fi
+        fi
+    )
+}
+
+tmpdir() {
+    cleanup()
+    {
+      cd /
+        unmount() {
+            printf "Unmounting %s\n" ${1} >&2
+            fusermount -u ${1} || umount ${1} || sudo umount ${1}
+        }
+        
+        if mountpoint -q -- ${dir}; then
+            unmount ${dir} || return $?
+        else
+            while read -d $'\0' subDir; do
+                mountpoint -q -- ${subDir} || continue
+                unmount ${subDir} || return $?
+            done <<<$(find ${dir} -xdev -type d -print0 | sort -zr)
+        fi
+        
+        rm -rfv --one-file-system -- ${dir}
+    }
+
+    local tmpdir=""
+
+    while getopts ':t:a:s:Sd:ir:wqg:n:' arg; do
+        case $arg in
+            "t") tmpdir="=${OPTARG}" ;;
+            "?"|":") printf "Invalid option: %s\n" $arg >&2; exit 2 ;;
+        esac
+    done
+            
+    (
+        trap cleanup EXIT
+
+
+        local dir=$(mktemp -ud --tmpdir${tmpdir} ${0}.XXXXXXXXXX || return $?)
+
+        dir -d ${dir} ${@}
+    )
+}
+
+inhibit-sleep() {
+    if systemctl --user is-active prevent-suspend.service 1>/dev/null; then
+        echo "Allowing suspend"
+        systemctl --user stop prevent-suspend.service
+    else
+        echo "Inhibiting suspend"
+        systemctl --user start prevent-suspend.service
+    fi
+}
+
+qr() {
+    qrencode -l M -o - -t ANSIUTF8 $@
+}
+
+clock() {
+    tty-clock -sSbc -C 7 -d 0 -a 100000000
+}
+
+public-ip() {
+    curl -s -H 'Accept: application/json' $@ ifconfig.co | jq -r '.ip'
+}
+
+nix-ghci() {
+    pkgExpr=""
+    if [[ ${#@} -gt 0 ]]; then
+        pkgExpr="${1}"
+        shift
+    fi
+    
+    nix-shell -p "with (import <nixpkgs> {}); pkgs.haskellPackages.ghcWithPackages (p: with p; [${pkgExpr}])" --run "ghci ${@}"
+}
+
+swap() {
+    f1=${1}
+    f2=${2}
+
+    if [[ -z "${f1}" || ! -e "${f1}" ]]; then
+        printf "‘%s’ does not exist\n" "${f1}" >&2
+        return 2
+    fi
+    if [[ -z "${f2}" || ! -e "${f2}" ]]; then
+        printf "‘%s’ does not exist\n" "${f2}" >&2
+        return 2
+    fi
+
+    tmpfile=$(mktemp --dry-run --tmpdir=${f1:h} .swap.XXXXXXXXXX)
+    mv -v ${f1} ${tmpfile}
+    mv -v ${f2} ${f1}
+    mv -v ${tmpfile} ${f2}
+}
+
+l() {
+  exa --binary --git --time-style=iso --long --all --header --group-directories-first --colour=always $@ | less --mouse -FR
+}
+
+re() {
+  systemctl --restart $@
+}
+
+ure() {
+  systemctl --user --restart $@
+}
+
+u2wdb() {
+  ssh -t postgres@uniworxdb2 psql uni2work
+}
+
+alias '..'='cd ..'
+alias -g L='| less'
+alias -g S='&> /dev/null'
+alias -g G='| grep'
+alias -g B='&> /dev/null &'
+alias -g BB='&> /dev/null &!'
+
+export DEFAULT_USER=gkleen
+export EDITOR=emacsclient
+
+bindkey -e
+bindkey ';5C' emacs-forward-word
+bindkey ';5D' emacs-backward-word
\ No newline at end of file