Skip to content

Instantly share code, notes, and snippets.

@underr
Last active August 29, 2015 14:20
Show Gist options
  • Save underr/7d625bdea648109c5887 to your computer and use it in GitHub Desktop.
Save underr/7d625bdea648109c5887 to your computer and use it in GitHub Desktop.
punkto
zshrc .zshrc
vimrc .vimrc
tmuxconf .tmux.conf
#!/usr/bin/env perl
use strict;
use warnings;
use File::Copy qw(copy);
# Copia dotfiles para a $HOME
# Feito na mão porque todas as ferramentas que já existiam para isso foram criadas por macfags em linguagens de bicha
# Usa um arquivo no formato homeru (.ho) (variação sem categorias) para a configuração
my $punk = <<PUNK;
|
\ | /
. \ | / .
`-.__|\/_\/|_.-'
.__ \ / `./
`- |
.-'`. · - punkto 1.0.0
' ` __.'
_)___(
// \\
| | | \
| | | \
PUNK
my $config = '_config.ho';
my @lines;
print $punk;
open(my $F, "<", $config)
or die "Não foi possível abrir o arquivo: $!\n";
while(<$F>) {
chomp;
push @lines, $_;
}
close $F;
for(@lines) {
my @ss = split(' ', $_);
copy $ss[0], $ENV{HOME} . "/" . $ss[1];
print $ss[0] . " => " . $ss[1] . "\n";
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment