Add several paths to dispatch table, simplify table generation

I added a lot of things to profile, there was a lot of repetition in
dispatch table so I moved it to a function. Aliases were used for
inconvenient paths but I could've done this too:

    my %directories = (
        ssh => "$ENV{HOME}/.ssh",
        pass => "$ENV{HOME}/.password-store",
    );

    foreach my $dir (sort keys %directories) {
        $dispatch{$dir} = sub {
            archive("$archive_dir/${dir}_${ymd}.tar",
                    "-C", "$directories{$dir}", ".");
        };
    }

0 files changed, 0 insertions, 0 deletions