dotfiles/linkdir.pl

25 lines
672 B
Perl
Raw Normal View History

2023-05-26 02:15:43 +00:00
#!/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 = (
2023-06-27 00:52:06 +00:00
# `.conf` dir -> git repo dir
"alacritty" => "alacritty",
"awesome" => "awesome",
"omf" => "fish",
"picom" => "picom",
"rofi" => "rofi",
"BetterDiscord" => "discord",
2023-07-18 02:24:56 +00:00
"Thunar" => "thunar",
2023-05-26 02:15:43 +00:00
);
while (my ($key, $value) = each %confDirs) {
`mount --bind "/home/nu/.config\/$key" "/mnt/Storage/(500) Programming/598. Groups of smaller projects/dotfiles\/$value"`
}
print("Done!");