zsh/install.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use File::Basename;
   5 use Cwd;
   6 use Cwd "abs_path";
   7
   8 my $home = $ENV{'HOME'};
   9 my $zshDir = dirname abs_path(__FILE__);
  10 my $zshrc = $zshDir . "/zshrc";
  11
  12 die "~/.zsh or ~/.zshrc exist. Backup them first.\n" if -e "$home/.zsh" or -e "$home/.zshrc";
  13
  14
  15 my $zshsyntaxDir = $zshDir . "plugins/zsh-syntax-highlighting";
  16
  17 if (not -e $zshsyntaxDir) {
  18     print " clone submoduells\n ";
  19     ! system "git submodule init" or die $!;
  20     ! system "git submodule update" or die $!;
  21 } else {
  22     print "zsh syntax submodule already exists.\n";
  23 }
  24
  25 print `ln -s $zshDir $home/.zsh`;
  26 print `ln -s $zshrc $home/.zshrc`;
  27
  28 print "Done\n" unless $?;
  29