#!/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
  "zsh"           => "zsh",
  "hypr"          => "hypr",
  "niri"          => "niri",
  "waybar"        => "waybar",
  "mako"          => "mako",
  "kitty"         => "kitty",
#  "rofi"          => "rofi",
#  "Thunar"        => "thunar",
  "environment.d" => "environment.d",
  "mpd"           => "mpd",
  "rmpc"          => "rmpc"
);
#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");