From 3aabb0889169fa4aea380dc7958a4df6232c6d81 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Mon, 24 Jun 2013 10:39:04 -0400 Subject: switch to reply --- Makefile | 2 +- re.pl/repl.rc | 82 ----------------------------------------------------------- replyrc | 17 +++++++++++++ 3 files changed, 18 insertions(+), 83 deletions(-) delete mode 100644 re.pl/repl.rc create mode 100644 replyrc diff --git a/Makefile b/Makefile index bd612ac..b489646 100644 --- a/Makefile +++ b/Makefile @@ -22,6 +22,7 @@ INSTALL = abcde.conf \ procmailrc \ proverc \ pwsafe.dat \ + replyrc \ screenrc \ tmux.conf \ vimrc \ @@ -41,7 +42,6 @@ INSTALL = abcde.conf \ ncmpc \ procmail \ pentadactyl \ - re.pl \ services \ ssh \ taeb \ diff --git a/re.pl/repl.rc b/re.pl/repl.rc deleted file mode 100644 index bed8edb..0000000 --- a/re.pl/repl.rc +++ /dev/null @@ -1,82 +0,0 @@ -# set up Devel::REPL -{ - use Term::ANSIColor; - - my @plugins = ( - 'ClassRefresh', # refresh before every eval - 'Colors', # colorize return value and errors - 'Editor', # #e to edit code in vim - 'FancyPrompt', # provide an irb-like prompt - 'Interrupt', # improve handling of ^C - 'LoadClass', # automatically load unloaded classes - 'MultiLine::PPI', # allow multiple lines - 'Nopaste', # paste session with #nopaste - 'OutputCache', # access previous results - 'Peek', # Devel::Peek support - 'ReadLineHistory', # history saved across sessions - 'Time', # time specific commands - - 'Completion', - 'CompletionDriver::Globals', # global variables - 'CompletionDriver::INC', # loading new modules - 'CompletionDriver::Keywords', # substr, while, etc - 'CompletionDriver::LexEnv', # current environment - 'CompletionDriver::Methods', # class method completion - 'CompletionDriver::Turtles', # turtle command completion - ); - - $_REPL->load_plugin($_) for @plugins; - - $_REPL->fancy_prompt(sub { - my $self = shift; - "\ca" . color('blue') . "\cb" . $self->current_package - . "\ca" . color('green') . "\cb" . '(0)' - . "\ca" . color('reset') . "\cb" . '> ' - } ); - $_REPL->fancy_continuation_prompt(sub { - my $self = shift; - "\ca" . color('blue') . "\cb" . $self->current_package - . "\ca" . color('yellow') . "\cb" . '(' . $self->line_depth . ')' - . "\ca" . color('reset') . "\cb" . '> ' . (' ' x ($self->line_depth * 2)) - }); - - $Devel::REPL::Plugin::Packages::PKG_SAVE = 'main'; -} - -# set up the default environment -{ - package main; - - use List::Util qw(first max maxstr min minstr reduce shuffle sum); - use List::MoreUtils ':all'; - use Scalar::Util qw(blessed weaken isweak); - use Path::Class; -} - -# load a local config file if it exists -{ - use Cwd (); - my $cd = Path::Class::dir(Cwd::getcwd)->absolute->cleanup; - my $home = Path::Class::dir(File::HomeDir->my_home)->absolute->cleanup; - if ($home->subsumes($cd)) { - while ($cd ne $home) { - my $proj = $cd->file('.repl.rc'); - if (-f $proj) { - $Devel::REPL::Script::CURRENT_SCRIPT->apply_script( - $proj->stringify, - 0, - ); - last; - } - $cd = $cd->parent; - } - } -} - -# stuff that needs to be lexical -use 5.010; # would be nice if it was possible to do this conditionally - -# do this last (and at runtime) so the previous stuff doesn't see it -unshift @INC, 'lib'; - -# vim:filetype=perl: diff --git a/replyrc b/replyrc new file mode 100644 index 0000000..fc87f60 --- /dev/null +++ b/replyrc @@ -0,0 +1,17 @@ +script_line1 = use strict +script_line2 = use warnings +script_line3 = use 5.018000 +script_line4 = use lib 'lib' + +[Nopaste] +[Interrupt] +[FancyPrompt] +[DataDump] +[Colors] +[ReadLine] +[Hints] +[Packages] +[LexicalPersistence] +[LoadClass] +[Editor] +[ResultCache] -- cgit v1.2.3-54-g00ecf