dotfiles/linkdir.pl

#!/usr/bin/env perl

if ($< != 0) { die "Can't link dirs. Please re-run as root." }

my $conf =
  "/home/nu/.config/";
my $git  =
  "/mnt/Storage/(500) Programming/598.\ Groups\ of\ smaller\ projects/dotfiles/";

my %confDirs = (
# `.conf` dir     -> git repo dir
  "alacritty"     => "alacritty",
  "awesome"       => "awesome",
  "omf"           => "fish",
  "picom"         => "picom",
  "rofi"          => "rofi",
  "Thunar"        => "thunar",
  "polybar"       => "polybar"
);
my %otherDirs = (
  "/home/nu/.var/app/com.discordapp.Discord/config/BetterDiscord/"
    => "discord"
);

# mount from %confDirs
while (my ($key, $value) = each %confDirs) {
  `mount --bind "/home/nu/.config\/$key" "/mnt/Storage/(500) Programming/598. Groups of smaller projects/dotfiles\/$value"`
}
# mount from %otherDirs
while (my ($key, $value) = each %otherDirs) {
  `mount --bind "$key" "/mnt/Storage/(500) Programming/598. Groups of smaller projects/dotfiles\/$value"`
}

print("Done!");