1 files changed, 0 insertions, 91 deletions
diff --git a/bin/nhgrep b/bin/nhgrep
deleted file mode 100755
index bb353d9..0000000
--- a/bin/nhgrep
+++ /dev/null
@@ -1,91 +0,0 @@
-#!/usr/bin/perl
-use strict;
-use warnings;
-use Term::TtyRec::Plus;
-use Getopt::Long;
-
-my $full_frame = 0;
-my $hide_time  = 0;
-my $hide_turn  = 0;
-my $hide_dlvl  = 0;
-my $hide_frame = 0;
-my $hide_file  = @ARGV <= 1 ? 1 : 0;
-my $concat     = 1;
-my $first_only = 0;
-
-GetOptions
-(
-  full_frame => \$full_frame,
-  time       => \$hide_time,
-  turn       => \$hide_turn,
-  dlvl       => \$hide_dlvl,
-  file       => \$hide_file,
-  number     => \$hide_frame,
-  concat     => \$concat,
-  1          => \$first_only,
-  first      => \$first_only,
-);
-
-my $regex = shift;
-
-sub serialize
-{
-  my $seconds = int shift;
-  my $hours = int($seconds / 3600);
-  $seconds %= 3600;
-  my $minutes = int($seconds / 60);
-  $seconds %= 60;
-
-  return sprintf '%dh%dm%ds', $hours, $minutes, $seconds if $hours;
-  return sprintf '%dm%ds', $minutes, $seconds if $minutes;
-  return "${seconds}s";
-}
-
-my ($turn, $dlvl, $time, $frame) = ('?', '?', 0, 0);
-
-FILE: for my $file (@ARGV)
-{
-  my $ttp = Term::TtyRec::Plus->new(infile => $file);
-
-  if (not $concat)
-  {
-    $turn  = '?';
-    $dlvl  = '?';
-    $time  = 0;
-    $frame = 0;
-  }
-
-  FRAME: while (my $frame_ref = $ttp->next_frame())
-  {
-    $time += $frame_ref->{diff};
-    ++$frame;
-
-    if ($frame_ref->{data} =~ / T:(\d+)/)
-    {
-      $turn = $1;
-    }
-
-    if ($frame_ref->{data} =~ /(Dlvl:\d+|Home \d+)/)
-    {
-      ($dlvl = $1) =~ s/://g;
-    }
-
-    $frame_ref->{data} =~ s/\e/\\e/g;
-    if ($frame_ref->{data} =~ s/($regex)/\e[1;31m$1\e[0m/go)
-    {
-      my @out;
-
-      push @out, $file            if not $hide_file;
-      push @out, "T$turn"         if not $hide_turn;
-      push @out, $dlvl            if not $hide_dlvl;
-      push @out, serialize($time) if not $hide_time;
-      push @out, $frame           if not $hide_frame;
-
-      push @out, $full_frame ? $frame_ref->{data} : $1;
-
-      print join(':', @out), "\n";
-      next FILE if $first_only;
-    }
-  }
-}
-