34 lines
971 B
Fish
Executable File
34 lines
971 B
Fish
Executable File
#!/usr/bin/env
|
|
|
|
function parent_dir
|
|
set -f trace (status stack-trace)
|
|
# By index:
|
|
# 1: in command substitution
|
|
# 2: parent.fish line
|
|
# 3: in function 'parent'
|
|
# 4: caller import line
|
|
# 5: in command substitution
|
|
# 6: caller "parent" invokation line
|
|
# 7: in function calling parent
|
|
# 8: jackpot! here's the parent of the caller
|
|
set -f parent_line $trace[8]
|
|
set -f parent_split (string split 'of file' $parent_line)
|
|
set -f parent (string trim $parent_split[2])
|
|
|
|
# qualify ~
|
|
set -f parent (string replace '~' "$HOME" $parent)
|
|
|
|
# Qualify the path to absolute and remove the filename
|
|
set -f parent_dir (realpath $parent)
|
|
set -f parent (string join '/' (string split '/' $parent_dir)[1..-2])
|
|
echo $parent
|
|
end
|
|
|
|
function import
|
|
set -f self_directory (parent_dir)
|
|
if set -q debug;
|
|
echo "importing $argv.fish from [$self_directory]"
|
|
end
|
|
source $self_directory/"$argv.fish"
|
|
end
|