ankit 0.0.0

data/bin/ankit

@@ -0,0 +1,6 @@
+#!/usr/bin/env ruby
+
+require 'ankit'
+
+Ankit::Runtime::run(ARGV)
+

data/lib/ankit/add_command.rb

@@ -0,0 +1,28 @@
+
+require 'ankit/card'
+require 'ankit/text_reading_command'
+
+module Ankit
+  class AddCommand < TextReadingCommand
+    include CardNaming
+    available
+    define_options do |spec, options| 
+      superclass.option_spec.call(spec, options) 
+      spec.on("-d", "--dir DIR") { |d| options[:dir] = d }
+    end
+
+    def execute()
+      validate_options
+      each_text do |text|
+        card = Card.parse(text)
+        # TODO: gaurd ovewrite
+        # TODO: guard out-of-path write
+        filename = to_card_path(dest_dir, card.name)
+        File.open(filename, "w") { |f| f.write(text) }
+        runtime.stdout.write("#{filename}\n")
+      end
+    end
+
+    def dest_dir; options[:dir] || runtime.config.card_paths[0]; end
+  end
+end

data/lib/ankit/card.rb

@@ -0,0 +1,66 @@
+
+
+module Ankit
+  class Card
+   
+    attr_reader :deckname, :source
+
+    def self.parse(text)
+      lines = text.split(/\r?\n/).select { |l| !/^\#/.match(l) and !/^\s*$/.match(l) }
+      return nil if lines.empty?
+
+      params = lines.inject({}) do |a, line|
+        case line
+        when /^(\w+)\:(.*)/
+          a[$1.downcase.to_sym] = $2.strip
+        end
+        a
+      end
+
+      self.new(params)
+    end
+
+    def initialize(params)
+      @params = params
+    end
+
+    def original() @params[:o]; end
+    def translation() @params[:t]; end
+    
+    def name
+      original.gsub(/\W+/, "-").gsub(/^\-/, "").gsub(/\-$/, "").downcase
+    end
+
+    def match?(text)
+      return :match if plain_original == text
+      return :wrong if text.empty?
+
+      hiddens = decorated_original { |m| "*"*m[1].size }.chars.to_a
+      inside_essentials = to_enum(:diff_from_original, text).find do |ch|
+        ch.action != "=" && hiddens[ch.old_position] == "*"
+      end
+
+      inside_essentials ? :wrong : :typo
+    end
+
+    def diff_from_original(text, &block)
+      changes = Diff::LCS.sdiff(text, plain_original)
+      changes.map do |ch|
+        block.call(ch)
+      end.join("")
+    end
+
+    def decorated_original(&block)
+      decoed = original.gsub(/\[(.*?)\]/) { |t| block.call(Regexp.last_match) }
+      decoed != original ? decoed : decoed.gsub(/^(.*)$/) { |t| block.call(Regexp.last_match) }
+    end
+
+    def plain_original; decorated_original { |m| m[1] }; end
+  end
+
+  module CardNaming
+    def to_card_name(path) File.basename(path, ".card"); end
+    def to_card_path(dir, name) File.join(dir, "#{name}.card"); end
+    def card_wildcard_for(dir) File.join(dir, "*.card"); end
+  end
+end

data/lib/ankit/card_happening_command.rb

@@ -0,0 +1,31 @@
+
+require 'ankit/card'
+require 'ankit/command'
+require 'ankit/event'
+require 'ankit/event_traversing_command'
+require 'ankit/round_command'
+require 'fileutils'
+
+module Ankit
+  module CardHappening
+    include CardNaming, EventTraversing, EventFormatting, RoundCounting
+
+    def make_happen(method_name, card_name, round_proceeding=latest_round)
+      last = EventTraversing.find_latest_event_for(runtime, card_name) || Event.for_card(card_name, "vanilla", last_round)
+      head = last.send(method_name, Envelope.fresh(round_proceeding))
+      FileUtils.touch(runtime.config.primary_journal)
+      open(runtime.config.primary_journal, "a") { |f| f.write("#{head.to_json}\n") }
+      self.round_proceeded
+      head
+    end
+  end
+
+  class CardHappeningCommand < Command
+    include EventFormatting, CardHappening
+
+    def execute()
+      head = make_happen(self.class::EVENT_HAPPENING, to_card_name(args[0]))
+      runtime.stdout.print("#{format_as_score(head)}\n")
+    end
+  end
+end

data/lib/ankit/challenge_command.rb

@@ -0,0 +1,444 @@
+# -*- coding: utf-8 -*-
+
+require 'ankit/command'
+require 'ankit/coming_command'
+require 'ankit/fail_command'
+require 'ankit/find_command'
+require 'ankit/pass_command'
+require 'ankit/round_command'
+require 'highline'
+require 'diff/lcs'
+
+module Ankit
+
+  class StylableText
+    def self.styled_text(text, type)
+      case type
+      when :hidden
+        text.gsub(/\w/, "*")
+      when :failed
+        HighLine.color(text, HighLine::RED_STYLE)
+      when :warn
+        HighLine.color(text, HighLine::YELLOW_STYLE)
+      when :passed
+        HighLine.color(text, HighLine::GREEN_STYLE)
+      when :pending
+        HighLine.color(text, HighLine::DARK)
+      when :plus
+        HighLine.color(text, HighLine::RED_STYLE)
+      when :minus
+        HighLine.color(text, HighLine::REVERSE_STYLE)
+      else
+        raise
+      end
+    end
+
+    def initialize(text); @text = text; end
+
+    def decorated(type)
+      raise
+      decorated = @text.gsub(/\[(.*?)\]/) { |t|
+        p Regexp::last_match.offset(0)
+        self.class.styled_text($1, type)
+      }
+      decorated != @text ? decorated : self.class.styled_text(@text, type)
+    end
+
+    def diff(orig)
+      return @text if @text.empty?
+
+      changes = Diff::LCS.sdiff(orig, @text)
+      changes.map do |ch|
+        case ch.action
+        when "="
+          ch.new_element
+        when "!"
+          self.class.styled_text(ch.new_element, :plus)
+        when "-"
+          self.class.styled_text(ch.old_element, :minus)
+        when "+"
+          self.class.styled_text(ch.new_element, :plus)
+        else
+          raise
+        end
+      end.join("")
+    end
+  end
+
+  class Card
+    def hidden_original; decorated_original{ |m| StylableText.styled_text(m[1], :hidden) }; end
+    def hilighted_diff_from_original(text)
+      diff_from_original(text) do |ch|
+        case ch.action
+        when "="
+          ch.new_element
+        when "!"
+          StylableText.styled_text(ch.new_element, :plus)
+        when "-"
+          StylableText.styled_text(ch.old_element, :minus)
+        when "+"
+          StylableText.styled_text(ch.new_element, :plus)
+        else
+          raise
+        end
+      end
+    end
+  end
+
+  module Challenge
+    class Slot < Struct.new(:path, :rating, :event)
+      def maturity; self.event ? self.event.maturity : 0; end
+    end
+
+    class Session < Struct.new(:runtime, :npassed, :nfailed, :mature_names)
+      def self.make(runtime)
+        self.new(runtime, 0, 0, [])
+      end
+
+      def summary_text
+        total = self.npassed + self.nfailed
+        return "" if 0 == total
+        "#{self.npassed}/#{total} = #{self.npassed.to_f/total.to_f}, #mature: #{mature_names.size}"
+      end
+    end
+
+    class Progress
+      include CardHappening, CardNaming, RoundCounting
+
+      attr_reader :session, :slots, :index, :this_round
+
+      def initialize(session, slots)
+        @session, @slots, @index = session, slots, 0
+        @this_round = latest_round
+      end
+
+      def current_card
+        # XXX: might be better to cache
+        Card.parse(open(current_path, "r") { |f| f.read })
+      end
+
+      def round_delta
+        latest_round - this_round
+      end
+
+      def runtime; @session.runtime; end
+      def last_slot; @slots[@index-1]; end
+      def current_slot; @slots[@index]; end
+      def current_path; current_slot.path; end
+      def size; @slots.size; end
+      def over?; @slots.size <= @index; end
+      def npassed; @slots.count { |c| c.rating == :passed }; end
+      def nfailed; @slots.count { |c| c.rating == :failed }; end
+
+      def already_failed?; current_slot.rating == :failed; end
+
+      def attack
+        current_slot.rating = :attacking unless current_slot.rating
+        self
+      end
+        
+      def fail
+        unless already_failed?
+          last_slot = current_slot
+          last_slot.rating = :failed
+          last_slot.event = make_happen(FailCommand::EVENT_HAPPENING, to_card_name(current_path), this_round)
+        end
+        
+        self
+      end
+
+      def pass
+        unless already_failed?
+          last_slot = current_slot
+          last_slot.rating = :passed
+          last_slot.event = make_happen(PassCommand::EVENT_HAPPENING, to_card_name(current_path), this_round)
+        end
+
+        @index += 1
+        self
+      end
+
+      def indicator
+        @slots.inject("") do |a, i|
+          a += case i.rating
+               when :failed; "x"
+               when :passed; "o"
+               when :attacking; "*"
+               else;         "-"
+               end
+        end
+      end
+
+      def styled_indicator
+        indicator.to_enum(:each_char).map do |i|
+          case i
+          when "x"; StylableText.styled_text(i, :failed)
+          when "o"; StylableText.styled_text(i, :passed)
+          when "-"; StylableText.styled_text(i, :pending)
+          else; i
+          end
+        end.join
+      end
+
+      def update_session
+        session.npassed += npassed
+        session.nfailed += nfailed
+        session.mature_names = (session.mature_names + slots.select{ |s| 1 < s.maturity }.map(&:path)).uniq
+      end
+
+      def maturities; slots.map(&:maturity);  end
+    end
+
+    class State
+      attr_reader :progress, :last_answer
+
+      def initialize(progress, last_answer=nil)
+        @progress, @last_answer = progress, last_answer
+      end
+      
+      def keep_pumping_until(&block)
+        state = self
+        until block.call(state)
+          state = state.pump
+        end
+      end
+
+      def clear_screen
+        runtime.stdout.print("\033[2J")
+        h = HighLine::SystemExtensions.terminal_size[0]
+        runtime.stdout.print("\033[#{h}0A")
+      end
+
+      def say(msg, type=:progress)
+        line.say(message_for(msg, type))
+      end
+
+      def show_summary_status
+        line.say("Round #{progress.this_round}: #{progress.styled_indicator}")
+      end
+
+      def show_breaking_status
+        show_summary_status
+        line.say("Maturity: #{progress.maturities.map(&:to_s).join(',')}")
+        line.say("Session: #{progress.session.summary_text}")
+        line.say("next round will be +#{progress.round_delta}")
+      end
+
+      def show_header
+        show_summary_status
+        line.say("\n")
+      end
+
+      def show_and_ask_enter(msg, type)
+        line.ask(message_for(msg, type) + " ") { |q| q.readline = true }
+      end
+
+      def ask(msg="", type=:ask)
+        line.ask(message_for(msg, type)) { |q| q.readline = true }
+      end
+
+      def over?; false; end
+      def runtime; progress.runtime; end
+      def line; progress.runtime.line; end
+      def session; progress.session; end
+
+      private
+      
+      def message_for(body, type)
+        case type
+        when :progress
+          "      "
+        when :fail
+          StylableText.styled_text("FAIL: ", :failed)
+        when :typo
+          StylableText.styled_text("TYPO: ", :warn)
+        when :pass
+          StylableText.styled_text("PASS: ", :passed)
+        when :ask
+          "    > "
+        when :hit_return
+          "    < "
+        when :cont
+          "      "
+        else
+          raise "Unknown header type:#{type}"
+        end + body
+      end
+
+      def ask_header; "    > "; end
+    end
+
+    # XXX: test
+    class EditState < State
+      def pump
+        # XXX: makes configurable
+        system("vi " + progress.current_path)
+        QuestionState.new(progress)
+      end
+    end
+
+    module CommandRecognizing 
+      def may_pump_command(answered)
+        /^\/(\w+)/.match(answered) ? pump_command($1) : nil
+      end
+
+      def pump_command(command)
+        case command
+        when "edit"
+          EditState.new(progress)
+        else
+          raise
+        end
+      end
+    end
+
+    class QuestionState < State
+      include CommandRecognizing
+
+      def pump
+        progress.attack
+        clear_screen
+        show_header
+        card = progress.current_card
+        say("#{card.translation}")
+        say("#{card.hidden_original}", :cont)
+        answered = ask().strip
+        c = may_pump_command(answered)
+        return c if c
+        case card.match?(answered.strip)
+        when :match
+          PassedState.new(progress, answered)
+        when :wrong
+          FailedState.new(progress, answered)
+        when :typo
+          TypoState.new(progress, answered)
+        else
+          raise
+        end
+      end
+    end
+
+    class FailedStateBase < State
+      include CommandRecognizing
+
+      def pump
+        diff_from_original = progress.current_card.hilighted_diff_from_original(last_answer)
+        say("#{diff_from_original}", decoration_type)
+        answered = ask("", :hit_return)
+        c = may_pump_command(answered)
+        return c if c
+        mark_progress
+        QuestionState.new(progress)
+      end
+
+    end
+
+    class FailedState < FailedStateBase
+      def mark_progress
+        progress.fail
+      end
+
+      def decoration_type
+        :fail
+      end
+    end
+
+    class TypoState < FailedStateBase
+      def mark_progress
+        
+      end
+
+      def decoration_type
+        :typo
+      end
+    end
+
+    class PassedState < State
+      include CommandRecognizing
+
+      def pump
+        progress.pass
+        last_maturity = progress.last_slot.event.maturity
+        say("Maturity: #{last_maturity}", :pass)
+        answered = ask("", :hit_return)
+        c = may_pump_command(answered)
+        return c if c
+        progress.over? ? BreakingState.new(progress) : QuestionState.new(progress)
+      end
+    end
+
+    class BreakingState < State
+      def pump
+        progress.update_session
+        clear_screen
+        show_breaking_status
+
+        case ask_more
+        when :yes
+          initial_state
+        when :no
+          OverState.new(progress)
+        else
+          # TODO: handle help
+          self
+        end
+      end
+
+      def ask_more
+        case line.ask("More(y/n/?) ").strip
+        when /^y/, ""
+          :yes
+        when /^n/
+          :no
+        else
+          :help
+        end  
+      end
+
+      def coming_limit
+        progress.size
+      end
+    end
+
+    class OverState < State
+      def over?; true; end
+    end
+
+    module Approaching
+      def initial_state
+        slots = Coming.coming_paths(self.runtime).take(self.coming_limit).map { |path| Slot.new(path, nil) }
+        QuestionState.new(Progress.new(self.session, slots))
+      end
+    end
+
+    class BreakingState; include Approaching; end
+  end
+
+  class ChallengeCommand < Command
+    include Challenge, RoundCounting, Coming, Finding
+    include Challenge::Approaching
+    available
+
+    define_options do |spec, options| 
+      spec.on("-l", "--limit N") { |n| options[:limit] = n.to_i }
+    end
+
+    DEFAULT_COUNT = 5
+
+    def session; @session ||= Challenge::Session.make(runtime); end
+
+    def execute()
+      Signal.trap("INT") do
+        STDERR.print("Quit.\n")
+        exit(0)
+      end
+
+      initial_state.keep_pumping_until { |state| state.over? }
+      Signal.trap("INT", "DEFAULT")
+    end
+
+    def coming_limit
+      options[:limit] or DEFAULT_COUNT
+    end
+  end
+end

data/lib/ankit/coming_command.rb

@@ -0,0 +1,90 @@
+
+require 'ankit/command'
+require 'ankit/event_traversing_command'
+require 'ankit/list_command'
+require 'ankit/round_command'
+require 'ankit/event'
+
+module Ankit
+  class ComingCommand < Command
+    include RoundCounting
+
+    available
+    define_options do |spec, options| 
+      spec.on("-n", "--name") { options[:name] = true }
+    end
+
+    DEFAULT_COUNT = 6
+
+    def find_command; @find_command ||= FindCommand.new(runtime); end
+
+    def execute()
+      toprint = to_enum(options[:name] ? :each_coming_names : :each_coming_paths)
+      toprint.take(0 <= count ? count : name_to_events.size).each { |i| runtime.stdout.print("#{i}\n") }
+    end
+
+    def each_coming_names(&block); each_coming_events { |e| block.call(e.name) }; end
+
+    def each_coming_paths(&block)
+      each_coming_events do |event|
+        found = self.find_command.path_for(event.name)
+        block.call(found) if found
+      end
+    end
+
+    def each_coming_events(&block)
+      name_to_events.values.sort_by(&:next_round).each(&block)
+    end
+
+    def each_existing_events(&block)
+      name_to_existing_events.values.sort_by(&:next_round).each(&block)
+    end
+
+    def name_to_events
+      @name_to_events ||= compute_name_to_events
+    end
+
+    def name_to_existing_events
+      EventTraversingCommand.new(runtime).to_enum(:each_event).reduce({}) do |a, e|
+        existing = a[e.name]
+        a[e.name] = e if existing.nil? or existing.round < e.round
+        a
+      end
+    end
+
+    def name_to_vanilla_events
+      vanilla_round = last_round
+      ListCommand.new(runtime).to_enum(:each_card_name).reduce({}) do |a, name|
+        a[name] = Event.for_card(name, "vanilla", Envelope.fresh(vanilla_round))
+        a
+      end
+    end
+
+    private
+
+    def compute_name_to_events
+      existing = name_to_existing_events
+      vanilla = name_to_vanilla_events
+      vanilla.merge(existing)
+    end
+
+    def count
+      args.empty? ? DEFAULT_COUNT : args[0].to_i
+    end
+  end
+
+  module Coming
+    def self.coming_events(runtime)
+      ComingCommand.new(runtime).to_enum(:each_coming_events).to_a
+    end
+
+    def self.coming_paths(runtime)
+      ComingCommand.new(runtime).to_enum(:each_coming_paths).to_a
+    end
+
+    def self.existing_events(runtime)
+      ComingCommand.new(runtime).to_enum(:each_existing_events).to_a
+    end
+  end
+
+end

data/lib/ankit/command.rb

@@ -0,0 +1,40 @@
+
+require 'optparse'
+
+module Ankit
+  class Command
+    attr_reader :runtime, :options, :args
+
+    COMMANDS = []
+
+    def self.available
+      COMMANDS.push(self)
+    end
+
+    def self.by_name
+      COMMANDS.inject({}) do |a, cls|
+        name = /(.*)\:\:(\w+)Command/.match(cls.name).to_a[-1].downcase
+        a[name] = cls
+        a
+      end
+    end
+
+    def self.define_options(&block) @option_spec = block end
+    def self.option_spec; @option_spec; end
+
+    def initialize(runtime, args=[])
+      @runtime = runtime
+      @options = {}
+      @args = OptionParser.new do |spec|
+        self.class.option_spec.call(spec, @options) if self.class.option_spec
+      end.parse(args)
+    end
+  end
+
+  class BadOptions < StandardError; end
+
+  class HelloCommand < Command
+    available
+    def execute; end
+  end
+end