💾 Archived View for dots.omarpolo.com › kshrc.gmi captured on 2023-04-19 at 22:40:16. Gemini links have been rewritten to link to archived content

View Raw

More Information

⬅️ Previous capture (2023-03-20)

➡️ Next capture (2023-11-04)

-=-=-=-=-=-=-

ksh

OpenBSD ksh (sometimes called opdksh or oksh) is the default shell on OpenBSD, and is generally my go-to choince on other systems too. It has a good ratio of features and simplicity

if [ "$TERM" = dumb ]; then
	PS1='$ '
	return
fi

Enable emacs-like command editing regardless of $EDITOR and csh-like history expansion with !

set -o emacs
set -o csh-history

Talking about history, by default ksh won't store any, which is unfortunate. I can't live without my C-r working!

HISTCONTROL=ignoredups:ignorespace
HISTFILE=$HOME/.history
HISTSIZE=10000

OpenBSD ksh has a limited support for programmed completions through static lists. The completions are provided via an array called complete_$progname; or complete_$progname_$nth for the nth argument.

Here's the completions for ssh and scp:

HOST_LIST=$(awk '/Host / {print $2}' ~/.ssh/config | xargs echo)

set -A complete_ssh -- $HOST_LIST
set -A complete_scp -- $HOST_LIST

and for kill(1) and pkill(1)

set -A complete_kill_1 -- -9 -HUP -INFO -KILL -TERM
set -A complete_pkill_2 -- -SIGHUP -SIGUSR1 -SIGUSR2 -SIGTERM -SIGKILL

and for vmd(8) if available

if test -f /usr/sbin/vmd && pgrep -fq /usr/sbin/vmd; then
	set -A complete_vmctl_1 -- console load reload start stop \
		reset status send receive
	set -A complete_vmctl -- \
		$(vmctl status | awk '!/NAME/{printf "%s ", $NF}')
fi

and for ifconfig(8)

command -v ifconfig >/dev/null && \
	set -A complete_ifconfig_1 -- $(ifconfig | grep ^[a-z] | cut -d: -f1)

and for got(1)

command -v got >/dev/null && \
	set -A complete_got_1 -- $(got -h 2>&1 | sed -n s/commands://p)

Tweak the output of ls

alias ls='ls -F'

Provide an easiest access to amused

alias a=amused

and to quit

alias q=exit

reset(1) doesn't work as expected inside tmux: the old output can still be consulted when scrolling. If I, lazy as I am, bother to type "reset" I want to be sure that the history was cleared!

if [ -n "$TMUX" ]; then
	alias reset='reset && tmux clear-history'
fi

CDPATH is super useful! I even wrote a post about it: https://www.omarpolo.com/post/enjoying-cdpath.html

export CDPATH=".:$HOME/w:/usr/ports:/usr/ports/mystuff:$HOME/quicklisp/local-projects"

I love to hate gpg! It needs some special treatments to work and this should also (finger crossed!) fix pinentry over ssh. I'm not sure it works though, it's been a while since I've connected remotely to my desktop.

export GPG_TTY=$(tty)
if [ -n "$SSH_CONNECTION" ]; then
	export PINENTRY_USER_DATA="USE_CURSES=1"
fi

The BSDs have this incredibly useful signal available, it's a shame not to use it!

case "$(uname)" in
	*BSD) stty status ^T ;;
esac

I really like my prompt to be as minimal as possible. For some time I've used a single colon `;' as prompt, it's really nice! At the moment thought I'm usign a more plan9-esque percent sign, with an optional hostname:

if [ "$(hostname)" = venera ]; then
	PS1='% '
else
	PS1='\h% '
fi

I got tired of trying to remember the set of flags for nc to walk to Gemini servers, so here we are:

# "post" stdin to the gemini server
# usage: gem host [port]
gem()
{
	host="${1:?missing host}"
	port="${2:-1965}"
	nc -c -Tnoverify "${host}" "${port}"
}

I think I've stolen these from someone. It makes a copy of the file and launch an editor on the original file, incledibly useful when working with ports (that's why doas!)

mgdiff()
{
	if [ -z "$1" ]; then
		printf "%s\n" "USAGE: mgdiff file" >&2
		return
	fi
	doas cp -p "$1" "$1.orig.port"
	doas mg "$1"
}

hist is a quick wrapper around history and grep to quickly search for a previous command:

hist()
{
	if [ -z "$1" ]; then
		printf "%s\n" "USAGE: hist pattern" >&2
		return 1
	fi
	history 0 | grep "$1"
}

clbin (the site) is a web pastebin that's easy to use from the command line with curl. clbin (the function) is an easy way to share something, just pipe it to clbin and it returns an url.

clbin()
{
	curl -F 'clbin=<-' https://clbin.com
}

Some aliases I use when working with the OpenBSD port tree:

alias m="make"
alias mup="VISUAL=mg make update-patches"
alias mupl="make update-plist"
alias mpldc="make port-lib-depends-check"
alias pbuild="env MAKE_JOBS=5 time make"
alias build="pbuild 2>&1 | tee build"
alias pclean='make clean="package plist"'

This one is pretty sophisticated, I've stolen it from jca@

# check shared libs version
cshlib() {
	local cnt=0
	local f

	for f in $(make show=SHARED_LIBS); do
		[ "$((cnt++ % 2))" -eq 1 ] && continue
		echo '===>' $f
		/usr/src/lib/check_sym /usr/local/lib/lib$f.so* \
			$(make show=WRKINST)/usr/local/lib/lib$f.so*
	done
}

And even more aliases:

alias mopnew="mdirs ~/Maildir/op | grep -v rss | mlist -st | mthread -r | mseq -S; mscan"

for c in com rep fwd bnc; do
	local _mvisual='mg -f auto-fill-mode'
	if [ -n "$DISPLAY" ]; then
		_mvisual='emacsclient -c'
	fi

	alias m$c="VISUAL='$_mvisual' m$c"
	alias o$c="m$c -from 'Omar Polo <op@openbsd.org>'"
done

And finally some aliases for mq

alias pnq="NQDIR=/tmp/ports/ nq "
alias pfq="NQDIR=/tmp/ports/ fq "

Stuff to use my own purritobin instance

: ${P_SERVER=paste.omarpolo.com}
: ${P_PORT=42069}
: ${P_TIME=week}
: ${P_MAXTIME=30}

shell client to upload a plaintext message

purr() {
	curl --silent --max-time "${P_MAXTIME}" \
		--data-binary "@${1:-/dev/stdin}" \
		"${P_SERVER}:${P_PORT}/${P_TIME}"
}

shell client to upload an encrypted message

meow() {
	key="$(openssl rand -hex 32)"
	iv="$(openssl rand -hex 16)"
	url="$(openssl enc -aes-256-cbc -K ${key} -iv ${iv} -e -base64 -A < ${1:-/dev/stdin} | purr)"
	printf "%s\n" "${url%\/*}/paste.html#${url##*\/}_${key}_${iv}"
	unset key iv url
}

...and to decrypt it

meowd() {
	url="$1"
	baseurl="${url%\/*}"
	vals="${url##*\#}"
	paste=$(printf '%s\n' "${vals}" | cut -d_ -f1)
	key=$(printf '%s\n' "${vals}" | cut -d _ -f2)
	iv=$(printf '%s\n' "${vals}" | cut -d _ -f3)
	curl --max-time "${P_MAXTIME}" --write-out "\n" --silent \
		"${baseurl}/${paste}" | openssl enc -aes-256-cbc \
		-base64 -d -K ${key} -iv ${iv}
	unset url baseurl vals paste key iv
}

llama is also nice. It's possible to use it to cd too!

ll() {
	cd "$(llama "$@")"
}

For extra-comfyness bind it to C-o

bind -m '^O=^U ll^M^Y'

find(1) is an invaluable tool and I use it all the time. walk is an attempt to build a wrapper around some common usages of find that is a little bit less verbose to use. The name is stolen from 9front, but the implementation is completely different.

# usage: walk [dir] [type] [name regexp] [! command to execute]
walk()
{
	if [ $# -eq 0 ]; then
		find .
		return
	fi

	local dir=.
	local type=
	local name=\*

	if [ -n "$1" -a -d "$1" ]; then
		dir="$1"
		shift
	fi

	case "$1" in
	b|c|d|f|l|p|s)
		type="-type $1"
		shift
	esac

	if [ -n "$1" -a "x$1" != "x!" ]; then
		name="$1"
		shift
	fi

	if [ "x$1" = x! ]; then
		shift
	fi

	if [ $# -eq 0 ]; then
		find "$dir" $type -iname "$name"
	else
		find "$dir" $type -iname "$name" -exec "$@" {} +
	fi
}