#!/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/Programming/dotfiles/(sequoia)/";

my %confDirs = (
# `.conf` dir     -> git repo dir
  "alacritty"     => "alacritty",
  "awesome"       => "awesome",
  "picom"         => "picom",
#  "rofi"          => "rofi",
#  "Thunar"        => "thunar",
  "environment.d" => "environment.d"
);
#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" "$git$value"`
}
# mount from %otherDirs
#while (my ($key, $value) = each %otherDirs) {
#  `mount --bind "$key" "$git$value"`
#}

print("Done!\n");