dotfiles/.local/bin/compiler

#!/bin/sh

# This script will compile or run another finishing operation on a document. I
# have this script run via vim.
#
# Compiles .tex. groff (.mom, .ms), .rmd, .md, .org.  Opens .sent files as sent
# presentations. Runs scripts based on extension or shebang.
#
# Note that .tex files which you wish to compile with XeLaTeX should have the
# string "xelatex" somewhere in a comment/command in the first 5 lines.
file=$(readlink -f "$1")
dir=${file%/*}
base="${file%.*}"
ext="${file##*.}"

cd "$dir" || exit 1

textype() {
	command="pdflatex"
	texroot=$(readlink -f "$(grep -Poi "^ *% *\! *tex root *= *\w+(?:\.\w*)?" "$file" | cut -d "=" -f 2 | tr -d "[:blank:]")")
	[ -n "$texroot" ] && base=$texroot && echo "Compiling from TeX root: $texroot"
	(head -n5 "$file" | grep -qi 'xelatex') && command="xelatex"
	$command --output-directory="$dir" "$base" &&
		grep -qi addbibresource "$file" &&
		biber --input-directory "$dir" "$base" &&
		$command --output-directory="$dir" "$base" &&
		$command --output-directory="$dir" "$base"
}

case "$ext" in
# Try to keep these cases in alphabetical order.
[0-9]) preconv "$file" | refer -PS -e | groff -mandoc -T pdf >"$base".pdf ;;
c) cc "$file" -o "$base" && "$base" ;;
cpp) g++ "$file" -o "$base" && "$base" ;;
cs) mcs "$file" && mono "$base".exe ;;
go) go run "$file" ;;
h) sudo make install ;;
	# findup is a script available here: https://unix.stackexchange.com/a/35265
java)
	loc=$(findup . -name gradlew)
	[ "$loc":w != "" ] && exec "$loc" run -q -p "$(dirname $loc)"
	;;
m) octave "$file" ;;
md) if [ -x "$(command -v pandoc)" ]; then
    pandoc -t latex -s -o "$base".pdf "$file"
elif [ -x "$(command -v groffdown)" ]; then
	groffdown -i "$file" | groff -T pdf >"$base.pdf"
else
	pandoc -t ms --highlight-style=kate -s -o "$base".pdf "$file"
fi ;;
mom) preconv "$file" | refer -PS -e | groff -mom -kept -T pdf >"$base".pdf ;;
ms) preconv "$file" | refer -PS -e | groff -me -ms -kept -T pdf >"$base".pdf ;;
org) emacs "$file" --batch -u "$USER" -f org-latex-export-to-pdf ;;
py) python "$file" ;;
[rR]md) Rscript -e "rmarkdown::render('$file', quiet=TRUE)" ;;
rs) cargo build ;;
sass) sassc -a "$file" "$base".css ;;
scad) openscad -o "$base".stl "$file" ;;
sent) setsid -f sent "$file" 2>/dev/null ;;
tex) textype "$file" ;;
fnl) fennel --compile "$file" >"$base.lua" ;;
*) sed -n '/^#!/s/^#!//p; q' "$file" | xargs -r -I % "$file" ;;
esac