path: root/etc/sh/rc

#!/bin/sh
# shellcheck disable=1090,1091

export ENV=~/.profile

export XDG_DATA_DIRS="$XDG_DATA_HOME/flatpak/exports/share:/var/lib/flatpak/exports/share${XDG_DATA_DIRS:+:}${XDG_DATA_DIRS:-}"


mkdir -p \
	"$XDG_CONFIG_HOME"         \
	"$XDG_CACHE_HOME/euandreh" \
	"$XDG_DATA_HOME/euandreh"  \
	"$XDG_STATE_HOME/euandreh" \
	"$XDG_LOG_HOME/euandreh"

GUIX_PROFILE="$XDG_CONFIG_HOME"/guix/current
if [ -r "$GUIX_PROFILE"/etc/profile ]; then
	. "$GUIX_PROFILE"/etc/profile
fi

idempotent_path_add() {
	case "$(eval "echo \$$1")" in
		*"$2"*)
			;;
		*)
			eval "export $1=$2\${$1:+:}\${$1:-}"
			;;
	esac
}
export A="$HOME${A:+:}${A:-}"
# idempotent_path_add B "$HOME"
export XDG_DATA_DIRS="$XDG_DATA_HOME/flatpak/exports/share:/var/lib/flatpak/exports/share${XDG_DATA_DIRS:+:}${XDG_DATA_DIRS:-}"
# idempotent_path_add XDG_DATA_DIRS "$XDG_DATA_HOME/flatpak/exports/share"



#
#
#

export HISTSIZE=-1
export HISTFILE="$XDG_STATE_HOME/sh-history"
export SRC=~/dev
export PRIV_CONFIG="$XDG_PREFIX"/var/lib/private/tilde
export PRIV_STATEDIR=/var/lib/"$USER"
export EDITOR='e'
export VISUAL="$EDITOR"
export PAGER='less -R'
export BROWSER='firefox'
export MAILDIR=~/Maildir
export TZ='America/Sao_Paulo'

export GUILE_HISTORY="$XDG_STATE_HOME/guile-history"
export GNUPGHOME="$XDG_CONFIG_HOME/gnupg"
export RLWRAP_HOME="$XDG_CACHE_HOME/rlwrap"
export LESSHISTFILE="$XDG_STATE_HOME/lesshst"
export NOTMUCH_CONFIG="$XDG_CONFIG_HOME/notmuch/default/config"
export PASSWORD_STORE_DIR="$SRC/private/password-store"
export MAILCAPS="$XDG_CONFIG_HOME/mailcaps/config"
export PYTHONSTARTUP="$XDG_CONFIG_HOME/python/pythonrc.py"
export EXINIT='
	" set number
	" set autoindent
	set ruler
	set showmode
	set showmatch
'

HOSTNAME="$(hostname)"
export BORG_PASSCOMMAND="pass show $HOSTNAME/borg"
export BORG_REPO="suyin:borg/$HOSTNAME"
export BORG_REMOTE_PATH='borg1'

NPROC=$(($(nproc) * 2 + 1))
GUILE_EFFECTIVE_VERSION="$(guile -c '(display (effective-version))')"
export MAKEFLAGS="-j $NPROC"
export GOPATH="$SRC/go"
export VG_FLAGS='
--show-error-list=yes
--show-leak-kinds=all
--leak-check=full
--track-origins=yes
--error-exitcode=1
'
export CFLAGS='-D_POSIX_C_SOURCE=200809L -std=c99 -Wall -Wextra -Wpedantic -O0 -g -Werror'
export CC=gcc
export AR=gcc-ar
export LEX=flex
export LISP='sbcl --eval'
export LEIN_SUPPRESS_USER_LEVEL_REPO_WARNINGS=1
export NPROC GUILE_EFFECTIVE_VERSION
export LISP_CLI_IMPL=clisp
export GPODDER_HOME="$XDG_DATA_HOME"/gPodder
export GPODDER_DOWNLOAD_DIR="${XDG_DOWNLOAD_DIR:-$HOME/Downloads}"/gPodder

add_prefix() {
	export GUILE_LOAD_PATH="$1/share/guile/site/$GUILE_EFFECTIVE_VERSION${GUILE_LOAD_PATH:+:}${GUILE_LOAD_PATH:-:}"
	export GUILE_LOAD_COMPILED_PATH="$1/lib/guile/$GUILE_EFFECTIVE_VERSION/site-ccache${GUILE_LOAD_COMPILED_PATH:+:}${GUILE_LOAD_COMPILED_PATH:-}"
	export C_INCLUDE_PATH="$1/include${C_INCLUDE_PATH:+:}${C_INCLUDE_PATH:-}"
	export LIBRARY_PATH="$1/lib${LIBRARY_PATH:+:}${LIBRARY_PATH:-}"
	export INFOPATH="$1/share/info${INFOPATH:+:}${INFOPATH:-}"
	export MANPATH="$1/share/man${MANPATH:+:}${MANPATH:-}"
	export DICPATH="$1/share/hunspell${DICPATH:+:}${DICPATH:-}"
	export PATH="$1/bin${PATH:+:}${PATH:-}"
}
export PREFIX="$XDG_PREFIX/var/mkg"
add_prefix "$PREFIX"
add_prefix "$XDG_PREFIX"

for d in "$XDG_PREFIX"/opt/bin-dirs/*; do
	PATH="$d:$PATH"
done



#
# Aliases
#

unalias -a

alias p='ping euandre.org -c 3'
alias c='tmux send-keys -R \; clear-history'
alias o='open'
alias mm='msmtp-queue -r'
alias s='vcs status'
alias d='vcs diff'
alias ds='vcs diff -- --staged'
alias tpd='cd "$(mkdtemp)"'

alias l='ls -lahF --color'
alias grep='grep --color=auto'
alias diff='diff --color=auto'
alias watch='watch --color '
alias man='MANWIDTH=$((COLUMNS > 80 ? 80 : COLUMNS)) man'
alias less='less -R'
alias tree='tree -aC'
alias make='make -e --no-print-directory'
alias mv='mv -i'
alias bc='bc -l'

alias sqlite='rlwrap sqlite3'
alias guile='guile -l "$XDG_CONFIG_HOME"/guile/init.scm'
alias info='info --init-file "$XDG_CONFIG_HOME"/info/infokey'
alias wget='wget --hsts-file="$XDG_STATE_HOME"/wget-hsts'
alias tmux='tmux -f "$XDG_CONFIG_HOME"/tmux/tmux.conf'

alias flush='sync && echo 3 | sudo tee /proc/sys/vm/drop_caches > /dev/null'
alias kal='khal calendar today `LANG=en.UTF-8 date +%A`'



#
# PS1
#

error_marker() {
	STATUS=$?
	if [ "$STATUS" != 0 ]; then
		color -c redb " (!! $STATUS !!) "
	fi
}

shell_status_level() {
	if [ -z "${SHLVL:-}" ]; then
		return
	fi

	if [ -n "${TMUX:-}" ]; then
		LVL=$((SHLVL - 1))
	else
		LVL="$SHLVL"
	fi

	if [ "$LVL" = 1 ]; then
		return
	fi

	color -c white "$LVL"
	if [ -n "${RANGER_LEVEL:-}" ]; then
		color -c white '|'
		color -c bluei 'r'
	fi
}

shell_status_jobs() {
	JOBS="$(jobs | grep -cv autojump)"
	if [ "$JOBS" != 0 ]; then
		color -c red "$JOBS"
	fi
}

shell_status() {
	LEVEL="$(shell_status_level)"
	JOBS="$(shell_status_jobs)"

	if [ -z "$LEVEL" ] && [ -z "$JOBS" ]; then
		return
	fi

	color -c white '['
	printf '%s' "$LEVEL"
	if [ -n "$LEVEL" ] && [ -n "$JOBS" ]; then
		color -c white '|'
	fi
	printf '%s' "$JOBS"
	color -c white ']'
	printf ' '
}

timestamp() {
	color -c blacki '\T'
}

path() {
	color -c yellowb '\w/'
}

guix_env() {
	if [ -z "${GUIX_ENVIRONMENT:-}" ]; then
		return
	fi

	printf '\n'
	color -c blacki '~> '
	color -c purple 'guix environment '
	printf '('
	color -c blueb "$GUIX_ENVIRONMENT"
	printf ')'
}

in_nix_shell() {
	if [ -z "${IN_NIX_SHELL:-}" ]; then
		return
	fi

	printf '\n'
	color -c blacki '~> '
	color -c purpleb "$IN_NIX_SHELL "
	color -c purple 'nix-shell '
	printf '('
	color -c blueb "${name:-}"
	printf ')'
}

in_ssh_session() {
	if [ -n "${SSH_CLIENT:-}" ]; then
		color -c blackb '\\u'
		printf '@'
		color -c purple '\\H'
	fi
}

PS1='`error_marker`'$(timestamp)' '$(path)' `shell_status``vcs ps1``guix_env``in_nix_shell`
'$(in_ssh_session)'$ '



g() {
	if [ -z "${1:-}" ]; then
		cat <<-'EOF'
			Missing PATTERN.

			Usage:
			  g PATTERN [PATH]
		EOF
		return 2
	fi
	PAT="$(mkstemp)-g-shell-function"
	printf '%s' "$1" > "$PAT"
	PREVIEW_CMD="highlight -n{2} -f{1} -e \"\$(cat '$PAT')\""

	LINE="$(
		# shellcheck disable=2086
		git grep -iIE --color=always -n -- "$(cat "$PAT")" ${2:-} |
			fzf \
				--exit-0                           \
				--select-1                         \
				--ansi                             \
				--delimiter=:                      \
				--preview-window 'up,60%,+{2}+3/3' \
				--preview "$PREVIEW_CMD"
	)"
	rm -f "$(dirname "$PAT")"/*-g-shell-function
	if [ -n "$LINE" ]; then
		FILE="$(  echo "$LINE" | cut -d: -f1)"
		NUMBER="$(echo "$LINE" | cut -d: -f2)"
		case "$1" in
			"'"*"'")
				# Best effort handling of string escaping, since
				# one can't recover what was typed at this level
				H="\"$1\""
				;;
			*)
				H="'$1'"
				;;
		esac
		if [ -z "${2:-}" ]; then
			history -s g "$H"
		else
			history -s g "$H" "'$2'"
		fi
		history -s "$VISUAL" +"$NUMBER" "'$FILE'"
		"$VISUAL" +"$NUMBER" "$FILE"
	fi
}

f() {
	P="f-shell-function$(pwd | sed 's|/|-|g')"
	F="$(
		git ls-files |
			grep -E -e "${2:-.}" |
			remembering -p "$P" -- \
				fzf  \
					--select-1          \
					--exit-0            \
					--preview-window up \
					--preview 'cat {}'
	)"
	CMD="${1:-$VISUAL}"
	if [ -n "$F" ]; then
		if [ -z "${1:-}" ]; then
			history -s f
		elif [ -z "${2:-}" ]; then
			history -s f "$1"
		else
			history -s f "$1" "'$2'"
		fi

		case "$F" in
			-*)
				DELIM='--'
				;;
			*)
				DELIM=''
				;;
		esac
		history -s "$CMD" $DELIM "'$F'"

		"$CMD" -- "$F"
	fi
}



r() {
	. ~/.profile
}

_edit_without_executing() {
	F="$(mkstemp)"
	printf '%s\n' "$READLINE_LINE" > "$F"
	e "$F"
	READLINE_LINE="$(cat "$F")"
	READLINE_POINT="${#READLINE_LINE}"
	rm -f "$F"
}
if set -o | grep 'on' | grep -Eq '^(vi|emacs)'; then
	bind -x '"\C-x\C-e":_edit_without_executing'
fi




#
# GPG and SSH agents configuration
#

SSH_AUTH_SOCK=$(gpgconf --list-dirs agent-ssh-socket)
GPG_TTY=$(tty ||:)
export GPG_TTY SSH_AUTH_SOCK
gpgconf --launch gpg-agent



case $- in
	*i*)
		stty -ixon  # Disable C-s/C-q mode
		;;
	*)
		;;
esac

F="$PRIV_CONFIG"/privrc.sh
if [ -r "$F"  ]; then
	# Extra rc code to be loaded, stored in private repository
	. "$F"
fi


#
# Only for graphical sessions
#

if [ -n "$DISPLAY" ]; then
	xset s 1800
	xset r rate 225 100
fi

#
# From here on, bash-specific things.
#

if [ -z "$BASH_VERSION" ]; then
	return
fi

ln -fs .profile ~/.bashrc

export INPUTRC="$XDG_CONFIG_HOME/bash/inputrc"
export HISTCONTROL=ignorespace:ignoredups

eval "$(direnv hook bash)"


#
# From here on, interactive-only bash-specific things.
#

case $- in
	*i*)
		;;
	*)
		return
		;;
esac

# IIRC, the Guix profile should do this
for f in "$HOME_ENVIRONMENT"/profile/etc/bash_completion.d/*; do
	. "$f"
done

# IIRC, the Guix package should do this
F="$HOME_ENVIRONMENT"/profile/share/autojump/autojump.bash
if [ -r "$F" ]; then
	. "$F"
fi