class Pry
  module DefaultCommands

    EasterEggs = Pry::CommandSet.new do

      command "nyan-cat", "", :requires_gem => ["nyancat"] do
        run ".nyancat"
      end

      command(/!s\/(.*?)\/(.*?)/, "") do |source, dest|
        eval_string.gsub!(/#{source}/) { dest }
        run "show-input"
      end

      command "get-naked", "" do
        text = %{
--
We dont have to take our clothes off to have a good time.
We could dance & party all night And drink some cherry wine.
-- Jermaine Stewart }
        output.puts text
        text
      end

      command "east-coker", "" do
        text = %{
--
Now the light falls
Across the open field, leaving the deep lane
Shuttered with branches, dark in the afternoon,
Where you lean against a bank while a van passes,
And the deep lane insists on the direction
Into the village, in the electric heat
Hypnotised. In a warm haze the sultry light
Is absorbed, not refracted, by grey stone.
The dahlias sleep in the empty silence.
Wait for the early owl.
-- T.S Eliot
            }
        output.puts text
        text
      end

      command "cohen-poem", "" do
        text = %{
--
When this American woman,
whose thighs are bound in casual red cloth,
comes thundering past my sitting place
like a forest-burning Mongol tribe,
the city is ravished
and brittle buildings of a hundred years
splash into the street;
and my eyes are burnt
for the embroidered Chinese girls,
already old,
and so small between the thin pines
on these enormous landscapes,
that if you turn your head
they are lost for hours.
                  -- Leonard Cohen
                }
  output.puts text
  text
end

      command "test-ansi", "" do
        prev_color = Pry.color
        Pry.color = true

        picture = unindent <<-'EOS'.gsub(/[[:alpha:]!]/) { |s| text.red(s) }
           ____      _______________________
          /    \    |  A         W     G    |
         / O  O \   |   N    I    O   N !   |
        |        |  |    S    S    R I   !  |
         \ \__/ / __|     I         K     ! |
          \____/   \________________________|
        EOS

        if defined?(Win32::Console)
          move_up = proc { |n| "\e[#{n}F" }
        else
          move_up = proc { |n| "\e[#{n}A\e[0G" }
        end

        output.puts "\n" * 6
        output.puts picture.lines.map(&:chomp).reverse.join(move_up[1])
        output.puts "\n" * 6
        output.puts "** ENV['TERM'] is #{ENV['TERM']} **\n\n"

        Pry.color = prev_color
      end
    end
  end
end