xiki 0.5.0a

data/menus/wikipedia.rb

@@ -0,0 +1,34 @@
+class Wikipedia
+
+  def self.menu name=nil
+    "
+    > See
+    << wp/
+    "
+  end
+
+  def self.wp name=nil
+    if name.nil?
+      # TODO: how to deal with fact that history will have wp and wikipedia? - pass in list:
+      # Maybe get the actual root pass it (wikipedia or wp)
+        # How to get it?
+          # Do: pass list into Launcher.last
+            # Launcher.last(["wp", "wikipedia"], :exclude_path=>1)
+            # or, just make it a regex?
+              # And add ^...$ inside .last
+
+      return (
+        Launcher.last("wp", :exclude_path=>1) +
+        Launcher.last("wikipedia", :exclude_path=>1)
+        )
+
+    end
+
+    Firefox.url "http://en.wikipedia.org/wiki/#{TextUtil.title_case name}"
+    ".flash - opened in browser!"
+  end
+end
+
+Menu.wp {|path|
+  Wikipedia.wp Tree.rootless(path)
+}

data/menus/words.rb

@@ -0,0 +1,11 @@
+class Words
+  def self.menu *args
+
+    # If no args, explain what it does
+    if args.empty?
+      return View.prompt "Add some text to count the words."
+    end
+
+    txt = ENV['txt'].scan(/[a-z']+/i).length.to_s
+  end
+end

data/spec/code_tree_spec.rb

@@ -0,0 +1,59 @@
+$:.unshift "spec/"
+require 'xiki'
+require 'code_tree'
+# require 'core_ext'
+
+describe CodeTree, "#extract_class" do
+
+  it "should extract method" do
+    CodeTree.extract_method("- .you/").should == "you"
+    CodeTree.extract_method("- Hey.you").should == "you"
+    CodeTree.extract_method("- .you").should == "you"
+    CodeTree.extract_method("- Wiki.menu('hey')").should == "menu('hey')"
+    CodeTree.extract_method("- .pages('new')").should == "pages('new')"
+    CodeTree.extract_method("- Wiki1.menu('hey')").should == "menu('hey')"
+    CodeTree.extract_method("- .merb_local").should == "merb_local"
+    CodeTree.extract_method("- Remote.dir 'f.com:21'").should == "dir 'f.com:21'"
+
+  end
+
+  it "should extract method with junk at beginning" do
+    CodeTree.extract_method("you there/").should == nil
+    CodeTree.extract_method(".you 'Bla.there'/").should == "you 'Bla.there'"
+  end
+
+  it "should extract class" do
+    CodeTree.extract_class("wiki1.menu('hey')").should == nil
+    CodeTree.extract_class("Wiki1.menu('hey')").should == "Wiki1"
+    CodeTree.extract_class("blaa Wiki1.menu('hey')").should == nil
+  end
+
+  it "should get class from parent" do
+    code = CodeTree.determine_code_from_path([
+      "Wiki.menu('hey')",
+      ".pages"])
+    code.should == "Wiki.pages()"
+  #     assert_equal("Wiki.pages()", code)
+  end
+
+  it "should ignore parent when child is root" do
+    code = CodeTree.determine_code_from_path([
+      "Red.herring/", "Foo.menu/", ".php/"])
+    code.should == "Foo.php()"
+  end
+
+  it "should add curlies when hash" do
+    code = CodeTree.determine_code_from_path(["CodeTree.menu/",
+      "ProtoNight.menu/", ".data/", ".local/",
+      ".send_invite_emails :date=>'2010-02-17'", "- Hey\n- You"])
+    code.should == "ProtoNight.send_invite_emails( {:date=>'2010-02-17'}, \"Hey\n- You\")"
+  end
+
+  #   # Should get class from parent
+  #   def test_with_params
+  #     code = CodeTree.determine_code_from_path(["Foo.menu/", ".php(10)/", "mt"])
+  #     assert_equal("Foo.php(10, 'mt')", code)
+  #   end
+
+end
+

data/spec/diff_log_spec.rb

@@ -0,0 +1,40 @@
+$:.unshift "spec/"
+require 'line'
+require 'ol'
+require 'diff_log'
+# require 'core_ext'
+
+describe Line, "#parse_tree_diffs" do
+  #   it "parses a rename" do
+  #     DiffLog.parse_tree_diffs("d5 1\na5 1\n    - cccc\n").should == [[[5, "    - cccc"]], [5]]
+  #   end
+
+  it "parses a delete" do
+    DiffLog.parse_tree_diffs("d3 2\nd6 1\n").should == [[], [3, 4, 6]]
+  end
+
+  #   it "parses a move" do
+  #     DiffLog.parse_tree_diffs("d4 1\na7 1\n    - bb\n").should == [[[7, "    - bb"]], [4]]
+  #   end
+
+  #   it "parses an add" do
+  #     DiffLog.parse_tree_diffs("a24 1\n    - nn\n").should == [[[24, "    - nn"]], []]
+  #   end
+
+  #   it "parses 2 adds and 2 deletes" do
+  #     DiffLog.parse_tree_diffs("d12 2\na15 2\n    - cc\n    - dd\n").should == [[[15, "    - cc"], [16, "    - dd"]], [12, 13]]
+  #   end
+end
+
+describe Line, "#last_edit" do
+  it "calculates addition" do
+    txt = DiffLog.last_intraline_diff "- /tmp/\n  - t.txt\n    :10\n      |-aaaaa\n      |+aaHIaaa\n"
+    txt.should == ["", "HI"]
+  end
+
+  it "calculates deletion" do
+    txt = DiffLog.last_intraline_diff "- /tmp/\n  - t.txt\n    :10\n      |-heyyyy\n      |+yyy\n"
+    txt.should == ["hey", ""]
+  end
+end
+

data/spec/file_tree_spec.rb

@@ -0,0 +1,102 @@
+$:.unshift "spec/"
+require 'file_tree'
+require 'core_ext'
+
+
+describe "handles?" do
+  it "handles when slash" do
+    FileTree.handles?(["/tmp/", "aa/"]).should == 0
+  end
+
+  it "doesn't handle when slash not at root" do
+    FileTree.handles?(["foo/", "/tmp/"]).should == nil
+  end
+end
+
+
+describe "matches_root_pattern?" do
+  it "handles root" do
+    !!FileTree.matches_root_pattern?("/").should == true
+    !!FileTree.matches_root_pattern?("/hey").should == true
+  end
+
+  it "handles others" do
+    !!FileTree.matches_root_pattern?("~/aa").should == true
+    !!FileTree.matches_root_pattern?("./aa").should == true
+  end
+
+  it "declines non-file paths" do
+    !!FileTree.matches_root_pattern?("hey").should == false
+    !!FileTree.matches_root_pattern?("hey/you").should == false
+  end
+end
+
+
+describe "snippet" do
+  it "uses options" do
+    FileTree.snippet(:txt=>"hey", :file=>"/tmp/file_tree.rb").should == "/tmp/\n  - file_tree.rb\n    | hey\n"
+  end
+end
+
+
+# TODO 2011-11-11: turn these into specs!
+
+
+
+#   def test_move_dir_to_junior_internal
+#     before =
+#       "|- /projects/foo/
+#        |  - pages.rb
+#        |".gsub(/^ *\|/, '')
+#     after =
+#       "|- /projects/
+#        |  - foo/
+#        |    - pages.rb
+#        |".gsub(/^ *\|/, '')
+#     assert_equal after, FileTree.move_dir_to_junior_internal(before)
+#   end
+#   def test_move_dir_to_junior_internal_indented
+#     before =
+#       "|  - app/controllers/
+#        |    - pages.rb
+#        |      |def
+#        |".gsub(/^ *\|/, '')
+#     after =
+#       "|  - app/
+#        |    - controllers/
+#        |      - pages.rb
+#        |        |def
+#        |".gsub(/^ *\|/, '')
+#     assert_equal after, FileTree.move_dir_to_junior_internal(before)
+#   end
+#   def test_move_dir_to_junior_internal_indented
+#     before =
+#       "|- app/controllers/
+#        |  - pages.rb
+#        |- stay
+#        |".gsub(/^ *\|/, '')
+#     after =
+#       "|- app/
+#        |  - controllers/
+#        |    - pages.rb
+#        |- stay
+#        |".gsub(/^ *\|/, '')
+#     assert_equal after, FileTree.move_dir_to_junior_internal(before)
+#   end
+
+#   def test_move_dir_to_junior_internal_indented_complex
+#     before =
+#       "|  - app/controllers/
+#        |    - pages.rb
+#        |  - stay
+#        |    - stay2
+#        |".gsub(/^ *\|/, '')
+#     after =
+#       "|  - app/
+#        |    - controllers/
+#        |      - pages.rb
+#        |  - stay
+#        |    - stay2
+#        |".gsub(/^ *\|/, '')
+#     assert_equal after, FileTree.move_dir_to_junior_internal(before)
+#   end

data/spec/keys_spec.rb

@@ -0,0 +1,24 @@
+# $:.unshift "spec/"
+# require 'keys'
+# require 'ol'
+
+# describe Keys, "#input" do
+#   before(:each) do
+
+#     View = mock 'View'
+#     #     Cursor = mock 'Cursor', :remember=>1, :green=>1, :hollow=>1
+#     #     Cursor = mock 'Cursor', :null_object=>true
+#     #     Cursor = mock  # :null_object=>true
+#     #     Cursor = mock :null_object=>true
+#     #     Cursor = mock 'Cursor', :null_object=>true
+#     $el = mock "el", :read_char=>98   # doesn't matter what it returns
+#     @choices = [['aaa', 'Aye'], ['bbb', 'Bye']]
+#   end
+
+#   it "with :choices param, gives choice according to char typed" do
+#     $el.stub!(:char_to_string).and_return "a"
+#     Keys.input(:prompt=>'letters: ', :choices=>@choices).should == 'Aye'
+#     $el.stub!(:char_to_string).and_return "b"
+#     Keys.input(:prompt=>'letters: ', :choices=>@choices).should == 'Bye'
+#   end
+# end

data/spec/line_spec.rb

@@ -0,0 +1,68 @@
+$:.unshift "spec/"
+require 'line'
+require 'core_ext'
+
+describe Line, "#without_label" do
+  it "removes bullets" do
+    Line.without_label(:line=>"- you").should == "you"
+  end
+
+  it "should remove new parethesis labels" do
+    Line.without_label(:line=>"- hey) you").should == "you"
+  end
+
+  it "should keep labels if opening paren" do
+    Line.without_label(:line=>"- (hey) you").should == "(hey) you"
+  end
+
+  it "should respect collapse bullets" do
+    Line.without_label(:line=>"< hey) you").should == "you"
+  end
+
+  it "should respect multiple collapse bullets" do
+    Line.without_label(:line=>"<< hey) you").should == "you"
+  end
+
+  it "should respect multiple collapses and only label" do
+    Line.without_label(:line=>"<< hey)").should == ""
+  end
+
+  it "should leave old style labels" do
+    Line.without_label(:line=>"- hey: you").should == "hey: you"
+  end
+
+end
+
+# class LineTest < Test::Unit::TestCase
+
+#   def test_normal
+#     assert_equal "you", Line.without_label(:line=>"- hey: you")
+#   end
+
+#   def test_just_bullet
+#     assert_equal "you", Line.without_label(:line=>"- you")
+#   end
+
+#   def test_blank
+#     assert_equal "", Line.without_label(:line=>"- hey: ")
+#   end
+
+#   def test_with_indent
+#     assert_equal "you", Line.without_label(:line=>"  - hey: you")
+#     assert_equal "", Line.without_label(:line=>"    - hey: ")
+#     assert_equal "you", Line.without_label(:line=>"    - you")
+#   end
+
+#   def test_leave_indent
+#     assert_equal "  you", Line.without_label(:line=>"  - hey: you", :leave_indent=>true)
+#     assert_equal "    ", Line.without_label(:line=>"    - hey: ", :leave_indent=>true)
+#   end
+
+#   # Make sure it doesn't mess up the string
+#   def test_side_effects
+#     before = "  - label: hey1"
+#     Line.without_label(:line=>before)
+#     assert_equal "  - label: hey1", before
+#   end
+
+# end

data/spec/menu_spec.rb

@@ -0,0 +1,50 @@
+$:.unshift "spec/"
+require 'ol'
+require 'tree'
+require 'core_ext'
+require 'mode'
+class Mode
+  def self.define *args; end
+end
+require 'menu'
+
+describe Menu, "#split" do
+  it "splits normal strings" do
+    Menu.split("bb").should == ["bb"]
+    Menu.split("aa/bb").should == ["aa", "bb"]
+    Menu.split("aa/|bb").should == ["aa", "|bb"]
+  end
+
+  it "handles :rootless option" do
+    Menu.split("bb", :rootless=>1).should == []
+    Menu.split("aa/bb", :rootless=>1).should == ["bb"]
+  end
+
+  it "handles trailing slashes" do
+    Menu.split("dom/body/").should == ["dom", "body"]
+    Menu.split("dom/body/", :rootless=>1).should == ["body"]
+  end
+
+  it "handles pipes" do
+    Menu.split("aa/|b/b").should == ["aa", "|b/b"]
+    Menu.split("aa/|b/b/|c/c").should == ["aa", "|b/b", "|c/c"]
+  end
+
+  it "handles :rootless with pipes" do
+    Menu.split("dom/| </div>", :rootless=>1).should == ["| </div>"]
+  end
+end
+
+describe Menu, "#menu_to_hash" do
+  it "handles simple menu" do
+    input = "
+      | dotsies.loc : /projects/dotsies.org/www/
+      | dotsies.org : /xiki@xiki.org/var/www/dotsies.org/
+      ".unindent
+
+    Menu.menu_to_hash(input).should == {
+      "dotsies.loc"=>"/projects/dotsies.org/www/",
+      "dotsies.org"=>"/xiki@xiki.org/var/www/dotsies.org/",
+    }
+  end
+end

data/spec/ol_spec.rb

@@ -0,0 +1,98 @@
+$:.unshift "spec/"
+require 'line'
+require 'ol'
+require 'core_ext'
+
+def define_vars
+  @stack = [
+    "/projects/moo/moo.merb/app/models/cache.rb:77:in `get'",
+    "/projects/moo/moo.merb/app/models/user.rb:28:in `exists?'",
+    "/projects/moo/moo.merb/app/controllers/accounts.rb:248:in `check_availability'",
+    "/Library/Ruby/Gems/1.8/gems/merb-action-args-1.1/lib/merb-action-args/abstract_controller.rb:42:in `__send__'",
+    "/Library/Ruby/Gems/1.8/gems/merb-action-args-1.1/lib/merb-action-args/abstract_controller.rb:42:in `_call_action'"
+     ]
+  @stack_limited = [
+    "/projects/moo/moo.merb/app/controllers/accounts.rb:248:in `check_availability'",
+    "/projects/moo/moo.merb/app/models/user.rb:28:in `exists?'",
+    "/projects/moo/moo.merb/app/models/cache.rb:77:in `get'"
+    ]
+  @stack_limited_previous = [
+    "/projects/moo/moo.merb/app/controllers/accounts.rb:248:in `check_availability'",
+    "/projects/moo/moo.merb/app/models/user.rb:8:in `exists?'",
+    "/projects/moo/moo.merb/app/models/cache.rb:7:in `get'"
+    ]
+end
+
+describe Ol, "#parse_line" do
+  it "pulls out relevant parts" do
+    h = Ol.parse_line "/projects/moo/moo.merb/app/models/cache.rb:77:in `get'"
+    h.should == {:path=>"/projects/moo/moo.merb/app/models/cache.rb", :line=>"77", :method=>'get', :clazz=>'Cache'}
+  end
+end
+
+describe Ol, "#remove_redundance" do
+  before(:each) do
+    define_vars
+  end
+
+  it "removes lines outside of a project" do
+    stack = Ol.remove_redundance @stack_limited, @stack_limited_previous
+    stack.should == [nil, @stack_limited[1], @stack_limited[2]]
+  end
+
+  it "doesn't remove all lines" do
+    stack = Ol.remove_redundance @stack_limited, @stack_limited
+    stack.should == [nil, nil, @stack_limited[2]]
+  end
+end
+
+describe Ol, "#limit_stack" do
+  before(:each) do
+    define_vars
+  end
+
+  it "should remove lines outside of a project" do
+    Ol.limit_stack @stack
+    @stack.size.should == 3
+    @stack.should == @stack_limited
+  end
+
+  it "should leave one line if all don't match" do
+    Ol.limit_stack @stack, /^\/xx/
+    @stack.size.should == 1
+    @stack.should == ["/projects/moo/moo.merb/app/models/cache.rb:77:in `get'"]
+  end
+end
+
+describe Ol, "#line" do
+  before(:each) do
+    @line = "/projects/moo/moo.merb/app/controllers/accounts.rb:24:in `check'"
+  end
+
+  it "writes line to log with label like - class.method (line):" do
+    Ol.should_receive(:pause_since_last?).and_return false
+    Ol.should_receive(:write_to_file).with('/tmp/ds_ol.notes', "- Accounts.check 24) hi\n")
+    Ol.should_receive(:write_to_file_lines).with("/tmp/ds_ol.notes", "/projects/moo/moo.merb/app/controllers/accounts.rb:24\n")
+
+    Ol.line "hi", @line, "", "ds"#, @@last_log
+  end
+end
+
+describe Ol, "#log" do
+  before(:each) do
+    define_vars
+    #     @line = "/projects/moo/moo.merb/app/controllers/accounts.rb:24:in `check'"
+  end
+
+  it "writes lines to log when stack is passed in" do
+    Ol.should_receive(:pause_since_last?).and_return false
+    Ol.should_receive(:write_to_file).with('/tmp/ds_ol.notes', "- Cache.get 77)\n  - User.exists? 28)\n    - Accounts.check_availability 248) hi\n")
+    Ol.should_receive(:write_to_file_lines).with("/tmp/ds_ol.notes", "/projects/moo/moo.merb/app/models/cache.rb:77\n/projects/moo/moo.merb/app/models/user.rb:28\n/projects/moo/moo.merb/app/controllers/accounts.rb:248\n")
+
+    Ol.log "hi", @stack[0..2], "ds"#, @@last_log
+  end
+
+  # TODO 1 reverse them
+  # TODO 1 make it indent
+
+end