about summary refs log tree commit diff stats
path: root/hm/soispha/conf/lf/commands/scripts/archive.sh
blob: 9ac07898dac1613d0dbbf4ec45be0db83e462323 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
#! /usr/bin/env dash

# shellcheck source=/dev/null
SHELL_LIBRARY_VERSION="2.0.13" . %SHELL_LIBRARY_PATH

# Option '-f' disables pathname expansion which can be useful when $f, $fs, and
# $fx variables contain names with '*' or '?' characters. However, this option
# is used selectively within individual commands as it can be limiting at
# times.
set -f

# shellcheck disable=SC2269
f="$f"
# shellcheck disable=SC2269
fx="$fx"
# shellcheck disable=SC2269
fs="$fs"

archivers="$(tmp echo gzip xz 7z zip)"

prompt "Archive name: "
name=""
while [ -z "$name" ] || [ -e "$name" ]; do
    read -r name
    if [ -e "$name" ]; then
        prompt "Archive already exists, overwrite [y|N]: "
        read -r ans

        if [ "$ans" = "y" ]; then
            break
        else
            prompt "Archive name: "
        fi
    fi
done

root="$(if [ "$(pwd)" = "/" ]; then pwd; else echo "$(pwd)/"; fi)"

# fx contains all selected file name separated by a newline
while read -r raw_file; do
    file="$(echo "$raw_file" | sed "s|$root||")"
    set -- "$@" "$file"
done <"$(tmp echo "$fx")"

case "$(awk '{for (i=1; i<=NF; i++) print $i}' "$archivers" | fzf)" in
"gzip")
    tar -czf "$name".tar.gz "$@"
    ;;
"xz")
    tar -cf "$name".tar "$@"
    xz -z -9 -e -T0 "$name".tar
    ;;
"7z")
    7z a "$name".7z "$@"
    ;;
"zip")
    zip --symlinks -r "$name".zip "$@"
    ;;
esac
# vim: ft=sh