nix/home/program/bash/module/Pack.nix

{ ... }:
{
  text = ''
    export _unpack_supported=".tar$|.tgz$|.txz$|.tar.gz$|.tar.xz$|.zip$|.iso$|.rar$"

    # Pack files into desired format.
    # All files and directories by default.
    # Usage: pack <TARGET.ext> [FILES]
    function pack() {
      local IFS=$'\n'
      local output="''${1}"
      local targets=("''${@:2}")
      local format="''${output##*.}"
      local name="''${output%.*}"

      # report no output.
      if [[ "''${output}" = "" ]]; then
        help pack
        return 2
      fi

      # report no format.
      if [[ "''${format}" = "" ]]; then
        _error "Could not determine output format."
        help pack
        return 2
      fi

      # All targets by default.
      [[ "''${targets}" = "" ]] && targets=(*)

      case "''${format}" in
        "tgz")
          _pack_tgz "''${output}" "''${targets[@]}"
          ;;
        "txz")
          _pack_txz "''${output}" "''${targets[@]}"
          ;;
        "tar")
          _pack_tar "''${output}" "''${targets[@]}"
          ;;
        "zip")
          _pack_zip "''${output}" "''${targets[@]}"
          ;;
        "gz")
          _pack_gz "''${output}" "''${targets[@]}"
          ;;
        "xz")
          _pack_xz "''${output}" "''${targets[@]}"
          ;;
        "iso")
          _pack_iso "''${output}" "''${targets[@]}"
          ;;
        *)
          _error "''${target}: Format not supported."
          return 2
          ;;
      esac
    }

    # Attempt to unpack.
    # All supported formats by default.
    # Usage: unpack [FILES]
    function unpack() {
      local IFS=$'\n'
      local targets=(''${@})
      [[ "''${targets}" = "" ]] && targets=($(_ls_files | grep -E ''${_unpack_supported}))

      process() {
        # Use full path to file.
        target=''$(realpath "''${target}")

        # Unpack file type.
        local type="''${target##*.}"

        [[ "''${target}" =~ .tar.gz$ ]] && type="tar.gz"
        [[ "''${target}" =~ .tar.xz$ ]] && type="tar.xz"

        # Make a dir for files.
        local dir="''${target%.$type}"; dir="''${dir##*/}"
        mkdir "''${dir}" > /dev/null
        pushd "''${dir}" > /dev/null

        # Unpack content.
        case "''${type,,}" in
          "zip")
            _unpack_zip "''${target}"
            ;;
          "7z")
            _unpack_7z "''${target}"
            ;;
          "tgz"|"tar.gz")
            _unpack_tgz "''${target}"
            ;;
          "txz"|"tar.xz")
            _unpack_txz "''${target}"
            ;;
          "tar")
            _unpack_tar "''${target}"
            ;;
          "iso")
            _unpack_iso "''${target}"
            ;;
          "rar")
            _unpack_rar "''${target}"
            ;;
          "xz")
            _unpack_xz "''${target}"
            ;;
          "gz")
            _unpack_gz "''${target}"
            ;;
          *)
            _error "''${target}: Format not supported."
            return 2
            ;;
        esac

        # Cd back.
        popd > /dev/null
      }

      _iterate_targets process ''${targets[@]}
    }

    function _pack_zip() {
      zip -9 -r "''${@}"
    }

    function _pack_tgz() {
      tar -c "''${@:2}" | pv -s $(/usr/bin/env du -csb "''${@:2}" | sed -n -e '$p' | awk '{print $1}') | gzip -1 > "''${1}"
    }

    function _pack_txz() {
      tar -c "''${@:2}" | pv -s $(/usr/bin/env du -csb "''${@:2}" | sed -n -e '$p' | awk '{print $1}') | xz -9e > "''${1}"
    }

    function _pack_tar() {
      tar -c "''${@:2}" | pv -s $(/usr/bin/env du -csb "''${@:2}" | sed -n -e '$p' | awk '{print $1}') > "''${1}"
    }

    function _pack_gz() {
      pv "''${2}" | gzip -1 > "''${1}"
    }

    function _pack_xz() {
      pv "''${2}" | xz -9e > "''${1}"
    }

    function _pack_iso() {
      local input=("''${@:2}")
      local output="''${1}"
      local args=()

      for arg in ''${input[@]}; do
        [[ -d "''${arg}" ]] || {
          _error "''${arg} is not a directory."
          return 1
        };

        args+=("''${arg}=''${arg}")
      done

      genisoimage -J -r -pad -o "''${output}" -graft-points "''${args[@]}"
    }

    function _unpack_zip() {
      unzip "''${1}"
    }

    function _unpack_7z() {
      7za x "''${1}"
    }

    function _unpack_tgz() {
      pv "''${1}" | gzip -d | tar -xf -
    }

    function _unpack_txz() {
      pv "''${1}" | xz -d | tar -xf -
    }

    function _unpack_tar() {
      pv "''${1}" | tar -xf -
    }

    function _unpack_iso() {
      7za x "''${1}"
    }

    function _unpack_rar() {
      unrar x "''${1}"
    }

    function _unpack_gz() {
      pv "''${1}" | gzip -d > "''${1%.gz}"
    }

    function _unpack_xz() {
      pv "''${1}" | xz -d > "''${1%.xz}"
    }
  '';
}