34 lines
796 B
Perl
Executable File
34 lines
796 B
Perl
Executable File
#!/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");
|