nux.use nux/check
@prefix check nux.check.

@namespace nux.fs. {

  function :exists target {
      check:file.exists "$target";
  }

  function :check.absolute target {
    case "$target" in
      /*) return 0;;
    esac
    return 1
  }

  function :name file {
    echo "${file##*/}";
  }

  function :dirname file {
    case "$file" in
      */*)
        echo "${file%/*}"
        ;;
      *)
        echo ".";;
    esac
  }

  function :closest target {
    nux.log trace "Secondary Path" "$@"
    cdir=$(realpath -m "${1:-$(pwd)}");
  	nux.log trace "Searching in: " $cdir;
  	until [ -e "$cdir/$target" -o "$cdir" == "/" ]; do
  		 cdir=$(dirname "$cdir");
  		 nux.log trace "Searching in: " $cdir;
	  done;
	 if [ -e "$cdir/$target" ]; then
  		 echo "$cdir/$target";
	 fi
  }

  function :path.relative.pwd target {
    :path.relative "." "$target"
  }

  function :path.relative base target {
    realpath -Lms --relative-to="$base" "$target"
  }

  function :symlink.target symlink {
    readlink "$symlink";
  }

  function :path.display target {
    echo $NC_LightPurple$(nux.fs.path.relative.pwd "$target")$NC_No;
  }

  function :move target {
    :stage mv -t "$target" "$@"
  }

  function :symlink target dir name {
    relative=$(nux.fs.path.relative "$dir" "$target")
    nux.log debug "Relative path is: $relative"
    :stage mkdir -p "$dir"
    if [ -n "$name" ]; then
      :stage ln -sf "$relative" "$dir/$name"
    else
      :stage ln -sf "$relative" "$dir"
    fi
  }

  function :stage {
    if [ -n "$NUXFS_STAGE" ]; then
      echo "[stage]" "$@"
    else
      "$@"
    fi
  }

  function :error file {
  	local filename=$(nux.fs.path.relative.pwd "$file");
  	nux.echo.error "$filename$NC_No: $@$NC_No";
  }

  function :warning file {
  	local filename=$(nux.fs.path.relative.pwd "$file");
  	nux.echo.warning "$filename$NC_No: $@$NC_No";
  }

  function :info file {
  	local filename=$(nux.fs.path.relative.pwd "$file");
  	echo -e "$NC_White$filename$NC_No: $@$NC_No";
  }
}