xiki 0.5.0a

data/lib/merb.rb

@@ -0,0 +1,259 @@
+require "launcher"
+
+class Merb
+
+  def self.menu name=nil, port=nil
+    unless name  # Print menu
+      r = "+ current dir: #{View.dir}, 4000\n"
+      r << "+ upper: #{View.dir_of_after_bar}, 4000\n" if View.in_bar?
+      r + "
+      + tmp: /tmp/merb1, 4000
+      + .links/
+      - .snippets/
+      + .version/
+      ".unindent
+    else  # Print options
+      "
+      - .create
+      - .start
+      - .url '/'
+      + .shells/
+      + .generate/
+      + .rake/
+      + .models/
+      + .db/
+      + .files/
+      "
+    end
+  end
+
+  def self.shells dir, port=nil
+    puts "
+      - .console
+      - .shell
+      "
+  end
+
+  def self.files dir, port=nil
+    puts "- #{self.path_from_dir(dir)}/"
+  end
+
+  def self.generate dir, port=nil
+    puts "
+      - .merb_gen 'controller posts'
+      - .merb_gen 'model post body:string'
+      - .merb_gen 'resource post body:string'
+      "
+  end
+
+  def self.rake dir, port, task=nil
+    unless task
+      #puts self.path_from_dir(dir)
+      out = Console.run "rake -T", :dir => self.path_from_dir(dir), :sync => true
+      # Pull out tasks
+      out.scan(/^rake ([\w:]+)/) do |m|
+        puts "- #{m[0]}"
+      end
+      return
+    end
+
+    Console.run "rake #{task}", :dir => self.path_from_dir(dir), :buffer => "*rake #{dir}"
+
+  end
+
+  def self.merb_gen command, dir, port=nil
+    Console.run "merb-gen #{command} --no-color", :dir => self.path_from_dir(dir), :buffer => "*merb-gen #{dir}"
+  end
+
+  def self.links
+    puts "
+      - home: http://www.merbivore.com/
+      - open-source book: http://book.merbist.com/
+      "
+  end
+
+  def self.db dir, port
+    puts "
+      - .db_create
+      - .migrate
+      "
+  end
+
+  def self.db_create dir, port
+    Mysql.create_db self.name_from_dir(dir) + "_development"
+  end
+
+  def self.snippets
+    puts "- create (o): Foo.create(:a => 'aa')"
+    puts "- find first (o): y Foo.first"
+  end
+
+  def self.create dir, port=nil
+    # Split into dir and name
+    dir = self.path_from_dir(dir)
+    path, name = dir.match(/(.+)\/(.+)/)[1..2]
+    Console.run "merb-gen app -f --no-color #{name}", :dir=>path, :buffer=>"*merb-gen app #{name}" #, :sync=>true
+  end
+
+  def self.start dir, port
+    Console.run "merb -a thin -p #{port}", :dir=>self.path_from_dir(dir), :buffer=>"*merb #{dir}"
+    #     Console.run "merb -p #{port}", :dir=>self.path_from_dir(dir), :buffer=>"*merb #{dir}"
+  end
+
+  def self.shell dir, port
+    Console.run "", :dir=>self.path_from_dir(dir)#, :buffer=>"*merb #{dir}"
+
+    #     buffer = "*" + self.name_from_dir(dir) + " merb shell"
+
+    #     path = self.path_from_dir(dir)
+    #     View.to_after_bar
+
+    #     # Just go there if already open
+    #     if View.buffer_open? buffer
+    #       View.to_buffer buffer
+    #       return
+    #     end
+
+    #     Console.run nil, :path => path, :buffer => buffer
+  end
+
+#   def self.url path='/', dir=nil, port
+#     $el.browse_url "http://localhost:#{port}#{path}"
+#   end
+
+  def self.url path, dir, port
+    $el.browse_url "http://localhost:#{port}#{path}"
+    nil
+  end
+
+  def self.console dir=nil, port=nil
+    b = "*merb console #{self.name_from_dir(dir)}"
+    if View.buffer_open?(b)
+      View.handle_bar
+      View.to_buffer b
+    else
+      Console.run "merb -i", :dir => dir, :buffer => b
+    end
+    nil
+  end
+
+  def self.migrate dir=nil, port=nil
+    b = "*merb console #{self.name_from_dir(dir)}"
+
+    if View.buffer_open?(b)
+      View.handle_bar
+      View.to_buffer b
+    else  # If console not open, open it
+      self.console dir
+    end
+
+    View.to_buffer(b)
+    $el.insert("repository.auto_migrate!")
+    #$el.insert("DataMapper::Base.auto_migrate!")
+    Console.enter
+
+    # TODO: item for migrating test
+    #   - always take env as param?
+    #     - default to 'development'
+    #   - auto_migrate MERB_ENV=test
+  end
+
+  def self.name_from_dir dir
+    dir = View.dir_of_after_bar if dir == "."
+    dir[/(\w+)\/?$/, 1]
+  end
+
+  def self.path_from_dir dir
+    # If ., grab path of window after bar
+    dir = View.dir_of_after_bar if dir == "."
+    Bookmarks.expand(dir, :absolute => true)
+  end
+
+  def self.models model=nil
+    # If no model specified, show all
+    unless model
+      Dir.foreach(Bookmarks['$mo']) { |m|
+        next unless m =~ /(.+)\.rb$/
+        puts "+ #{TextUtil.camel_case($1)}/"
+      }
+      return
+    end
+
+    # Show options
+    puts "
+    + .first/
+    + .recent 1/
+    + .all/
+    + .count/
+    + .first \":name => 'foo'\"/
+    + .recent 1, \":name => 'foo'\"/
+    + .all \":name => 'foo'\"/
+    + .count \":name => 'foo'\"/
+    "
+  end
+
+  def self.first *args
+    # If 2 args, it's where, model
+    where = (args.size == 2) ? "(#{args.shift})" : ''
+    model = args.shift
+    model.sub! /\/$/, ''
+    puts RubyConsole.at(:m, "y #{model}.first#{where}")
+  end
+
+  def self.all *args
+    # If 2 args, it's where, model
+    where = (args.size == 2) ? "(#{args.shift})" : ''
+    model = args.shift
+    model.sub! /\/$/, ''
+    puts RubyConsole.at(:m, "y #{model}.all#{where}")
+  end
+
+  def self.count *args
+    # If 2 args, it's where, model
+    where = (args.size == 2) ? "(#{args.shift})" : ''
+    model = args.shift
+    model.sub! /\/$/, ''
+    puts RubyConsole.at(:m, "puts #{model}.count#{where}")
+  end
+
+  def self.recent *args
+    number = args.shift
+    where = (args.size == 2) ? "#{args.shift}, " : ''
+    model = args.shift
+    model.sub! /\/$/, ''
+
+    number ||= 1
+
+    model.sub! /\/$/, ''
+    puts RubyConsole.at(:m, "y #{model}.all(#{where}:order => [:updated_at.desc], :limit => #{number})")
+  end
+
+  def self.version
+    Console.run('merb --version', :sync=>true)
+  end
+
+  def self.launch_merb_log_line line
+    #     if Keys.prefix_u   # If U, just go there
+    # Pull out action and controller
+    action = line[/"action"=>"(.+?)"/, 1]
+    controller = line[/"controller"=>"(.+?)"/, 1]
+    # Open controller
+    View.open "$co/#{controller}.rb"
+    # Jump to method
+    View.to_highest
+    Search.forward "^\\s-+def #{action}[^a-z_]"
+    Line.to_beginning
+
+  end
+
+  def self.init
+    # Jump to controller from line in merb log
+    Launcher.add(/^.* ~ Routed to: \{/) do |line|
+      Merb.launch_merb_log_line line
+    end
+  end
+end
+
+
+
+Merb.init

data/lib/message.rb

@@ -0,0 +1,5 @@
+class Message
+  def self.<< txt
+    View.message txt
+  end
+end

data/lib/meths.rb

@@ -0,0 +1,56 @@
+# Is this still being used?
+
+gem 'method_source'
+require 'method_source'
+
+# Adds .drill method to Object and Class
+
+# For:
+#   my_instace.drill
+
+class ::Object
+  #   def drill method=nil
+
+  #     # If no method, show all
+  #     if method.nil?
+  #       result = ""
+  #       methods = self.methods - Object.methods
+  #       cmethods = self.class.methods - Class.methods
+  #       return methods.sort.map{|o| "#{o}/"} + cmethods.sort.map{|o| "self.#{o}/"}
+  #     end
+
+  #     # Method passed
+
+  #     method
+
+  #     # CodeTree.tree_search_option + result
+  #   end
+
+  def self.meths method=nil
+    Class.meths_internal self, method
+  end
+
+  def meths method=nil
+    Class.meths_internal self.class, method
+  end
+
+  def self.meths_internal clazz, method=nil
+    # If no method, show all
+    if method.nil?
+      result = ""
+      methods = clazz.instance_methods - Object.methods
+      cmethods = clazz.methods - Class.methods
+      return cmethods.sort.map{|o| ".#{o}"} + methods.sort.map{|o| "##{o}"}
+    end
+
+    # Method passed
+
+    method.sub! /\/$/, ''
+    if method =~ /\.(.+)/
+      return "- " + clazz.method($1).source_location.join(':')
+    end
+    "- " + clazz.instance_method(method).source_location.join(':')
+
+  end
+
+end

data/lib/mode.rb

@@ -0,0 +1,34 @@
+# Helps you define modes.
+#
+# Sample usage:
+#   Mode.define(:deck, ".deck") do
+#     Deck.apply_styles
+#   end
+#
+class Mode
+
+  def self.menu
+    "
+    - Put something here.
+    "
+  end
+
+  # Easy way to define a mode
+  def self.define name, extension, &block
+
+    return if ! $el
+
+    # Mode function
+    $el.defun("#{name}_mode".to_sym, :interactive => "", :docstring => "Apply #{name} styles, etc") do
+      $el.el4r_lisp_eval "(setq font-lock-defaults '(nil t))"
+      block.call
+
+      map_name = "#{name}_mode_map".to_sym
+      $el.use_local_map $el.elvar.send(map_name) if $el.boundp(map_name)
+    end
+
+    # Associate with file extension
+    $el.el4r_lisp_eval %Q<(add-to-list 'auto-mode-alist '("\\\\#{extension}\\\\'" . #{name}-mode))>
+
+  end
+end

data/lib/move.rb

@@ -0,0 +1,248 @@
+require 'keys'
+
+# Provides different ways of moving cursor.
+class Move
+
+  # Go to last line having indent
+  def self.to_indent
+    direction_down = true   # Assume down
+    prefix = Keys.prefix
+    line = Line.value
+
+    if prefix.is_a? Fixnum   # If U, reverse
+      indent = prefix   # If numeric, make that be the indent
+    else
+      direction_down = ! direction_down if line =~ /^ *(end|\]|\}|\))$/   # If end of block, reverse direction
+
+      if prefix == :u   # If U, reverse
+        direction_down = false
+      else
+      end
+    end
+
+    column = View.column
+    indent ||= Line.indent(line).size
+
+    # If negative, reverse direction and amke positive
+    if indent < 0
+      direction_down = false
+      indent = 0 - indent
+    end
+
+    orig = Location.new
+    # Search for matching in right direction
+    if direction_down == false
+      Line.to_left
+      success = Search.backward "^ \\{#{indent}\\}[^ \t\n]"
+    else
+      Line.next
+      success = Search.forward "^ \\{#{indent}\\}[^ \t\n]"
+    end
+
+    Move.to_column prefix.is_a?(Fixnum) ? indent : column
+
+    unless success
+      View.beep
+      orig.go
+    end
+  end
+
+  def self.to_next_paragraph options={}
+    prefix = Keys.prefix :clear=>1
+    if prefix == :u   # If C-u, just go to end
+      if Line.blank?
+        Line.value(2) =~ /./ ?   # If on blank line but next line has stuff, just move down
+          Line.next :
+          Move.to_next_paragraph
+      end
+
+      Search.forward "^[ \t]*$", :go_anyway=>1
+
+      Move.to_axis
+      return
+    end
+
+    return Line.next if options[:no_skip] && Line.blank? && Line.value(2) =~ /./   # Don't skip if right before paragraph
+
+    prefix = prefix.is_a?(Fixnum) ? prefix : 1
+    prefix.times do
+      Search.forward "\n[ \t]*\\(\n+[ \t]*\\)+", :go_anyway=>1
+    end
+    $el.beginning_of_line
+  end
+
+  def self.to_previous_paragraph
+    prefix = Keys.prefix :clear=>1
+    if prefix == :u   # If C-u, just go to end
+
+      # If line before us isn't blank, move past this paragraph first
+      Move.to_previous_paragraph if Line.value(0) =~ /./
+
+      Search.backward ".", :go_anyway=>1   # Go to non-blank line
+      Line.next
+      return
+    end
+
+    prefix = prefix.is_a?(Fixnum) ? prefix : 1
+
+    prefix.times do
+      $el.skip_chars_backward "\n "
+      $el.re_search_backward "\n[ \t]*\\(\n+[ \t]*\\)+", nil, 1
+    end
+    $el.skip_chars_forward "\n "
+    $el.beginning_of_line
+  end
+
+  def self.to_window n, options={}
+
+    views = View.list   # Get views in this window
+
+    if n >= views.size   # If they wanted to go further than exists
+      $el.select_window(views[views.size - 1])
+    else
+      $el.select_window(views[n-1])
+    end
+
+    Effects.blink(:what=>:line) if options[:blink]
+  end
+
+  def self.to_last_window options={}
+
+    View.to_nth(View.list.size - 1)
+
+    Effects.blink(:what=>:line) if options[:blink]
+  end
+
+  def self.to_line n=nil
+    # Use arg or numeric prefix or get input
+    n = n || $el.elvar.current_prefix_arg || Keys.input(:prompt=>"Go to line number: ")
+    $el.goto_line n.to_i
+  end
+
+  # Move to the specified column.
+  def self.to_column n=nil
+
+    prefix = Keys.prefix :clear=>1
+
+    # If dash+, go to specific char
+    if prefix == :-
+      return View.cursor = Keys.input(:prompt=>"Point to go to: ", :timed=>1).to_i
+    end
+
+    n = n || prefix || Keys.input(:prompt=>"column to go to: ").to_i
+    if n < 0
+      Move.to_end
+      n = $el.abs(n)
+      n > length = Line.txt.length and n = length
+      Move.backward n
+      return
+    end
+    $el.move_to_column n# - 1
+  end
+
+  # Go to opposite bracket
+  def self.to_other_bracket
+    prefix = Keys.prefix
+    # If prefix or after closing bracket, go backward
+    last_char = $el.point == 1 ? "" : $el.buffer_substring($el.point-1, $el.point)
+
+    # If numeric prefix
+    if prefix.class == Fixnum
+      if prefix > 0
+        prefix.times { $el.forward_sexp }
+      else
+        (0-prefix).times { $el.backward_sexp }
+      end
+    elsif prefix == :u or last_char =~ /[)}\]'">]/
+      $el.backward_sexp
+    # Otherwise, go forward
+    else
+      $el.forward_sexp
+    end
+  end
+
+  def self.backward count=nil
+    count ||= Keys.prefix# :clear => true
+    count ||= 1
+    case count
+    when :u; $el.backward_word 1
+    when :uu; $el.backward_word 2
+    when :uuu; $el.backward_word 3
+    else
+      $el.backward_char count
+    end
+  end
+
+  def self.forward count=nil
+
+    count ||= Keys.prefix# :clear => true
+    count ||= 1
+    case count
+    when :u
+      $el.forward_word 1
+    when :uu
+      $el.forward_word 2
+    when :uuu
+      $el.forward_word 3
+    else
+      $el.forward_char(count) rescue nil   # In case tried to move past end
+    end
+  end
+
+  def self.top
+    $el.beginning_of_buffer
+  end
+
+  def self.bottom
+    $el.end_of_buffer
+  end
+
+  def self.to_quote
+    prefix = Keys.prefix :clear=>true
+    if prefix.nil?
+      times = 1
+      Keys.clear_prefix
+    elsif prefix.is_a? Fixnum
+      times = prefix
+      View.to_relative
+    end
+
+    (times||1).times do
+      Line.next if Line.matches(/^ *\|/)
+      $el.re_search_forward "^ *|"
+      $el.backward_char
+    end
+
+    # If on a quote, move off
+  end
+
+  # Move to file in tree (not dir) ?
+  def self.to_junior
+    Keys.prefix_times.times do
+      # Move to line without / at end
+      Line.next if Line.matches(/^ +[+-]? ?[a-zA-Z_-].+[^\/\n]$/)
+      $el.re_search_forward "^ +[+-]? ?[a-zA-Z_-].+[^\/\n]$"
+      Line.to_words
+    end
+  end
+
+  # Moves cursor to left of line:
+  #
+  # Move.to_axis
+  # Move.to_axiss
+  def self.to_axis
+    n = Keys.prefix_n   # Check for numeric prefix
+    Line.next(n) if n.is_a? Fixnum   # If there, move down
+    Line.to_left
+  end
+
+  # Moves cursor to left of line:
+  #
+  # Move.to_end
+  def self.to_end n=nil
+    n ||= Keys.prefix_n   # Check for numeric prefix
+    Line.next(n) if n.is_a? Fixnum   # If there, move down
+    Line.to_right
+  end
+
+end