Implemented alternative dotfile dirs via mask mechanism

Each mask is appended to DOTROOT to create an alternative DOTROOT path,
and finally to link target.  Therefore, you can have shared structure
like this:

    dotroot/fooapp
    dotroot/barapp
    dotroot.config/janeapp
    dotroot.config/aliceapp
    dotroot.local/share/janeapp
    dotroot.local/share/fooapp

The first two examples work just like before, but if masks ".config" and
".local/share" are defined, the rest is treated specially.  Final
mapping looks like this:

    ~/.fooapp -> dotroot/fooapp
    ~/.barapp -> dotroot/barapp
    ~/.config/aliceapp -> dotroot.config/aliceapp
    ~/.config/janeapp -> dotroot.config/janeapp
    ~/.local/share/fooapp-> dotroot.local/share/fooapp
    ~/.local/share/janeapp -> dotroot.local/share/janeapp

This allows for quite a good flexibility of how you define your shared
structure to reflect habits of many common applications while retaining
ease of deplyment.

Note that:

*   `.config` and `.local/share` masks are defined by default

*   you can provide your own by using one or more `--mask` arguments;
    this, however, removes the default ones

**Warning:** Potential clases between masks like ".local/share and
".local" are **not** solved within script.  Avoid that.  Currently
it's an undefined behavior.

mklinks

@@ -36,12 +36,16 @@ sub usage { print STDERR "usage: $0: DOTROOT [PREFIX]\n"; exit 1; }
 
 my $dotroot;
 my $prefix;
+my @masks;
 
 my $opts = GetOptions(
-    'dotroot=s' =>  \$dotroot,
-    'prefix=s' =>   \$prefix
+    'dotroot=s' => \$dotroot,
+    'prefix=s'  => \$prefix,
+    'masks=s'   => \@masks
 ) or usage;
 
+@masks = @masks ? @masks : qw ( .config .local/share );
+
 $dotroot = $dotroot // shift;
 $prefix = $prefix // shift;
 $prefix = $prefix // $ENV{HOME};
@@ -49,13 +53,24 @@ $dotroot or usage;
 
 sub mklinks {
     my $dotroot = shift;
-    -d $dotroot or die "not a directory: $dotroot";
+    my $mask = shift;
+    $dotroot =~ s|/?$||;
+    if ($mask) {
+        $dotroot .= $mask;
+    }
+    if (not -d $dotroot) { warn "not a directory: $dotroot\n"; return }
     my @dirs = `ls $dotroot`;
     foreach my $dir (@dirs) {
         chomp $dir;
         my $source = File::Spec->rel2abs("$dotroot/$dir");
-        my $target = "$prefix/.$dir";
-        `mkdir -p $prefix`;
+        my $target;
+        if ($mask) {
+            $target = "$prefix/$mask/$dir";
+            `mkdir -p $prefix/$mask`;
+        } else {
+            $target = "$prefix/.$dir";
+            `mkdir -p $prefix`;
+        }
         if (-e $target) {
             warn "target exists: $target\n";
         } else {
@@ -65,4 +80,4 @@ sub mklinks {
 }
 
 mklinks($dotroot);
-
+mklinks($dotroot, $_) foreach (@masks);