etc/profile

# k1574's rc configuration file.

SHLVL = `{echo $SHLVL + 1 | bc}

oldifs = $ifs
prompt = '; ' # The simplest possible prompt.
fn % {
	switch($#*){
		case 0
		case *
			$*
	}
}
txt = $home/shr # Directory for notes, lists etc.
tmpl = $home/tmpl # Templates.
doc = $home/doc # Documents.
lib = $home/lib # Configuration for other applications.
txt = $home/txt # Plain text files. Lists, notes etc.
load = $home/load # Downloads.
mnt = $home/mnt # Mount.
pub = $home/pub # Public share.
vid = $home/vid # Video files.
snd = $home/snd # Audio files.
img = $home/img # Image files.
app = $home/app # Program installation directory.
env = $home/env # Environment setting directory.
dev = $home/dev # Development.
#etc = $local/etc # Configuration files for any system.
exe = $home/exe # Executable binaries installation directory.
tmp = $home/tmp # Temporary.
shr = $home/shr # Share files for programs.
man = $shr/man # Directory for manual pages. Are supposed to be written in plain text.
git = https://github.com/$USER
pager = less # Pager deleting all ESC-sequences. For 9term mostly.
manpager = $pager # Pager for man pages.
profile = $0 # Profile file.
indent = '	' # Indent for programming.

inferno = $app/inferno # Inferno.
infernoexe = `{ # Inferno executables files.
	sys = `{uname}
	machine = `{uname -m}
	if(test $machine '=' x86_64){
		machine = 386
	}
	echo $inferno/$sys/$machine/bin
}

plan9 = $app/plan9 # Plan9.
plan9exe= $plan9/bin # Plan9 exe files.
gopath = $app/go # Golang path.
vpath = $app/v # VLang binaries and scripts.
vexe = $vpath # VLang executives.
setenv = $lib/setenv/rc # Setting environment script.
composerexe = $lib/composer/vendor/bin # PHP executive shit.
editor = vi
shell = rc

path = ( $home/exe $path $home $plan9exe $infernoexe $vexe $composerexe )
# Prevent path from growing because of running many "rc"s.
if(which goblin >/dev/null >[2=1]){
	path = `{
		{ for( i in $path) echo $i } | goblin uniq -U
	}
}

# Xorg.
xinitrc = $lib/xinitrc
xresources = $lib/xresources
xmodmap = $lib/xmodmap

switch( `{uname} ){
case ( Linux NetBSD DragonFly OpenBSD FreeBSD ) # On Unix-like systems.
	if(which aes >/dev/null >[2=1]){
		LESS_TERMCAP_md = `{aes fg-red bold }
		LESS_TERMCAP_me = `{aes end}
		LESS_TERMCAP_us = `{aes fg-green bold}
		LESS_TERMCAP_ue = `{aes end}
		LESS_TERMCAP_so = `{aes fg-yellow}
		LESS_TERMCAP_se = `{aes end}
		LESS_TERMCAP_mb = `{aes fg-cyan}
		LESS_TERMCAP_me = `{aes end} 
	}
	if not {
		LESS_TERMCAP_md = `{ perl -e 'print "\033[1;31m" ;' }
		LESS_TERMCAP_me = `{ perl -e 'print "\033[0m"    ;' }
		# Underlined.
		LESS_TERMCAP_us = `{ perl -e 'print "\033[1;32m" ;' }
		LESS_TERMCAP_ue = `{ perl -e 'print "\033[0m"    ;' }
		# Service info.
		LESS_TERMCAP_so = `{ perl -e 'print "\033[1;33m ";' }
		LESS_TERMCAP_se = `{ perl -e 'print "\033[0m"    ;' }
		# Blinking color.
		LESS_TERMCAP_mb = `{ perl -e 'print "\033[1;32m" ;' }
		LESS_TERMCAP_me = `{ perl -e 'print "\033[0m"    ;' }
	}
case *
	# Nothing in non-Unix systems.
}

fn .. {
	# Move in to parent directory $1 times.
	if(test -z $1)
		builtin cd ..
	if not
		for(i in `{seq $1})
			builtin cd ..
	cds = (`{pwd} $cds)
}

fn l {
	goblin ls $* | goblin quote | fmt
}

fn ll {
	goblin ls $* | finfo
}


maxcds = 50
cdfile = $tmp/cdfile
if(! test -d `{dirname $cdfile}) mkdir `{dirname $cdfile}
if(! test -r $cdfile) touch $cdfile

tmpcdfile = `{mktemp}

fn cd {
	# History implementation.
	oldpwd = `{pwd}
 	if(builtin cd $1 && test -n $1){
		cat $cdfile > $tmpcdfile
		{pwd ; cat $tmpcdfile } | \
			sed $CDHISTMAX^q | goblin uniq -U > $cdfile
	}
}

fn cdl {
	cd $*
	ls
}

fn - {
	# Move back in history for $1 notes.
	num = $1
	if(~ $#* 0)
		num = 1
	backcd = `{sed -n $num^p $"cdfile}
	builtin cd $"backcd
}

fn cds {
	# Print history.
	cat $cdfile | goblin quote | nl >[2]/dev/null
}

fn hcds {
	cds | head >[2]/dev/null
}

fn p {
	plumb $*
}

fn e {
	$editor $*
}

fn q {
	echo $SHLVL - 1 | bc
	exit
}

fn g {
	9grep $*
}

fn uprofile {
	. $profile
}

fn noerr {
	{$*} >[2]/dev/null
}

fn nostd {
	{$*} >[1]/dev/null
}

fn m {
	for(i in $*){
		if(test -r $man/$i){
			man $man/$i | less
		}
		if not {
			man $i | less
		}
	}
}

fn rmr {
	rm -r $*
}

fn rmf {
	rm -r -f $*
}

fn cpr {
	cp -r $*
}

fn psagrep {
	ps -A | grep $*
}

# Setting enviroment.
if(test -r $setenv){
	. $setenv
	setenv rc
}