xiki 0.5.0a

data/lib/buffers.rb

@@ -0,0 +1,170 @@
+class Buffers
+
+  def self.menu# buffer=nil
+    "
+    - .current/
+    - .tree/
+      - 20/
+    - .search/
+
+    > Lists
+    - .list/
+    - .current/
+
+    - docs/
+      > Todo
+    "
+  end
+
+  def self.current *name
+    if name.empty?  # If no buffer passed in, show list
+      case Keys.prefix :clear=>true
+
+      # Show all by default
+      when nil, "all":  return list.map{ |b| $el.buffer_name(b) }.map{ |o| "| #{o}\n" }.join('')
+
+      # Only files (no buffers)
+      when :u:  return list.select{ |b| $el.buffer_file_name(b) }.map{ |b| "| #{$el.buffer_name(b)}\n" }.join('')
+
+      # Only buffer without files
+      when 0:  return list.select{ |b| ! $el.buffer_file_name(b) }.map{ |b| "| #{$el.buffer_name(b)}\n" }[1..-1].join('')
+
+      when 1:  return list.select{ |b| $el.buffer_file_name(b) }.map{ |b| $el.buffer_name(b) }[1..-1]
+      when 3:  return list.select{ |b| ! $el.buffer_file_name(b) && $el.buffer_name(b) =~ /^#/ }.map{ |b| $el.buffer_name(b) }
+      when 4:  return list.select{ |b| ! $el.buffer_file_name(b) && $el.buffer_name(b) =~ /^\*console / }.map{ |b| $el.buffer_name(b) }
+      when 6:  return list.select{ |b| $el.buffer_file_name(b) =~ /\.rb$/ }.map{ |b| $el.buffer_name(b) }
+      when 7:  return list.select{ |b| $el.buffer_file_name(b) =~ /\.notes$/ }.map{ |b| $el.buffer_name(b) }
+
+      end
+      return
+    end
+
+    # If a buffer name passed, get whole line and escape it
+
+    name = Line.without_indent
+
+    name.sub! /^\| /, ''
+
+    # Switch to buffer
+    View.to_after_bar if View.in_bar?
+    View.to_buffer(name)
+  end
+
+  def self.names_array
+    self.list.map { |b| $el.buffer_name(b) }.to_a
+  end
+
+  def self.list
+    $el.buffer_list.to_a
+  end
+
+  def self.tree times=0, options={}
+    times ||= History.prefix_times
+    paths = View.files[0..(times-1)]
+    if options[:dir]
+      paths = paths.grep(Regexp.new(Regexp.escape(options[:dir])))
+    end
+    puts CodeTree.tree_search_option + Tree.paths_to_tree(paths)
+  end
+
+  def self.search string, options={}
+
+    orig = View.buffer
+
+    # Get buffer from name
+    list = options[:buffer] ?
+      [self.from_string(options[:buffer])] :
+      self.list
+    found = ""
+
+    list.to_a.each do |b|  # Each buffer open
+
+      file = $el.buffer_file_name(b)
+      #       file = $el.buffer_file_name(b) || "*#{View.name}"
+      # Show buffers too - wasn't as simple as just removing, because of filename indenting!
+
+      next unless file
+      next if file =~ /_ol.notes/
+
+      if options[:buffer].nil?   # If we're not searching in one buffer
+        next if ["todo.notes", "files.notes"].
+          member? file.sub(/.+\//, '')
+      end
+
+      # Skip if a verboten file
+      unless options[:buffer]
+        next if file =~ /(\/difflog\.notes|\.log|\/\.emacs)$/
+      end
+
+      $el.set_buffer b
+      started = $el.point
+      View.to_top
+      found_yet = nil
+      while(true)
+        break unless $el.search_forward(string, nil, true)
+        unless found_yet
+          found << "- @#{file.sub(/(.+)\//, "\\1\/\n  - ")}\n"
+
+          found_yet = true
+        end
+        found << "    | #{Line.value}\n"
+        Line.end
+      end
+      View.to started
+    end
+
+    View.to_buffer orig
+
+    # If nothing found, just insert message
+    if found.size == 0
+      Tree << "- nothing found!\n"
+      Search.isearch string, :reverse=>1
+      return
+    end
+
+    Tree << found
+    # $el.highlight_regexp string, :ls_quote_highlight
+  end
+
+  def self.from_string name
+    $el.get_buffer name
+  end
+
+  def self.open_viewing
+    case Keys.prefix
+    when nil:  Launcher.open("- Buffers.tree 25/")
+    when 0:  Launcher.open("- Buffers.tree/")
+    else  Launcher.open("- Buffers.tree #{Keys.prefix}/")
+    end
+  end
+
+  def self.rename
+    options = {:prompt => "Rename buffer to: "}
+    options[:initial_input] = $el.buffer_name if Keys.prefix_u?
+    $el.rename_buffer Keys.input(options)
+  end
+
+  def self.name buffer
+    $el.buffer_name(buffer)
+  end
+
+  def self.kill name
+    self.delete name
+  end
+
+  def self.delete name
+    $el.kill_buffer name
+  end
+
+  def self.to name
+    View.to_buffer name
+  end
+
+  def self.txt name
+    $el.with(:save_window_excursion) do
+      $el.switch_to_buffer name
+      View.txt
+    end
+  end
+
+end

data/lib/clipboard.rb

@@ -0,0 +1,333 @@
+require 'keys'
+require 'file_tree'
+
+# Provides copy and paste functionality
+class Clipboard
+
+  # Stores things user copies
+  @@hash = {}
+  @@hash_by_first_letter = {}
+
+  def self.menu
+    "
+    - .log/
+    "
+  end
+
+  def self.log
+    result = ""
+    @@hash_by_first_letter.keys.sort.each do |k|
+      result << "| #{@@hash_by_first_letter[k]}\n"
+    end
+    result.empty? ? "- Nothing was copied yet!" : result
+  end
+
+  def self.copy loc=nil, txt=nil
+    # Use string if user types it quickly
+    if ! loc
+      View.flash "Enter variable name:", :times=>1
+      loc = Keys.input(:chars=>1, :prompt=>"Enter one char (variable name to store this as): ") || "0"
+    end
+
+    unless txt
+      left, right = View.range
+      Effects.blink :left=>left, :right=>right
+      txt = $el.buffer_substring($el.region_beginning, $el.region_end)
+    end
+    self.set(loc, txt, Keys.prefix)
+  end
+
+  def self.cut loc=nil
+    loc = loc.to_s
+    prefix = Keys.prefix :clear=>true   # If numeric prefix, reset region
+
+    if prefix == 0
+      l, r = View.paragraph :bounds=>true
+      View.cursor = l
+      View.mark = r
+    elsif prefix.is_a?(Fixnum)
+      Line.to_left
+      View.mark = Line.left 1+prefix
+    end
+
+    self.copy loc
+    $el.delete_region($el.region_beginning, $el.region_end)
+
+    Location.as_spot('killed')
+  end
+
+  def self.paste loc=nil
+    # Use string if user types it quickly
+    loc ||= Keys.input(:chars=>1, :prompt => "Enter one char: ") || 0
+
+    $el.set_mark_command nil
+
+    loc = loc.to_s
+    txt = @@hash[loc] || @@hash_by_first_letter[loc]   # If nothing, try to grab by first letter
+
+    # If nothing, try to grab from what's been searched
+    txt ||= Search.searches.find{|o| o =~ /^#{loc}/i}
+
+    return View.message("Nothing to search for matching '#{loc}'.", :beep=>1) if txt.nil?
+
+    ($el.elvar.current_prefix_arg || 1).times do   # Get from corresponding register
+      View << txt
+    end
+  end
+
+  def self.get key='0', options={}
+    val = @@hash[key.to_s]
+    if options[:add_linebreak]
+      val = "#{val}\n" unless val[/\n$/]
+    end
+    val
+  end
+
+  def self.[] key
+    self.get key.to_s
+  end
+
+  def self.[]= key, to
+    self.set key.to_s, to
+  end
+
+  def self.display
+    @@hash.each do |k, v|
+      insert [k, v].to_s
+    end
+  end
+
+  def self.hash
+    @@hash
+  end
+
+  def self.hash_by_first_letter
+    @@hash_by_first_letter
+  end
+
+  def self.list
+    $el.switch_to_buffer "*clipboard*"
+    $el.erase_buffer
+    Notes.mode
+
+    Clipboard.hash.sort.each do |a, b|
+      $el.insert "| #{a}\n#{b}\n\n"
+    end
+    $el.beginning_of_buffer
+  end
+
+  def self.set loc, str, append=nil
+    loc = loc.to_s
+    # Save in corresponding register (or append if prefix)
+    if append
+      @@hash[loc] += str
+    else
+      # Store as path
+      @@hash["/"] = $el.expand_file_name( $el.buffer_file_name ? $el.buffer_file_name : $el.elvar.default_directory )
+      if $el.buffer_file_name
+        # Store as tree snippet
+        @@hash["="] = FileTree.snippet :txt=>str
+        @@hash["."] = "#{$el.file_name_nondirectory($el.buffer_file_name)}"
+        @@hash["\\"] = "#{$el.elvar.default_directory}\n  #{$el.file_name_nondirectory($el.buffer_file_name)}"
+      end
+      @@hash[loc] = str
+      $el.x_select_text str if loc == "0"  # If 0, store in OS clipboard
+    end
+  end
+
+  def self.do_as_snake_case
+    Keys.prefix_times.times do
+      word = Line.symbol(:delete => true)
+      $el.insert TextUtil.snake_case(word)
+      Move.forward
+    end
+  end
+
+  def self.do_as_camel_case
+    Keys.prefix_times.times do
+      word = Line.symbol(:delete => true)
+      $el.insert TextUtil.camel_case(word)
+      Move.forward
+    end
+  end
+
+  def self.do_as_upper_case
+    Keys.prefix_times.times do
+      word = Line.symbol(:delete => true)
+      $el.insert word.upcase
+      Move.forward
+    end
+  end
+
+  def self.do_as_lower_case
+    Keys.prefix_times.times do
+      word = Line.symbol(:delete => true)
+      $el.insert word.downcase
+      Move.forward
+    end
+  end
+
+  def self.copy_paragraph options={}
+    prefix = Keys.prefix
+
+    if prefix == :u or options[:rest]   # If U prefix, get rest of paragraph
+      left, right = View.paragraph(:bounds => true, :start_here => true)
+    else
+      if prefix   # If numeric prefix
+        self.as_line
+        return
+      end
+      # If no prefix, get whole paragraph
+      left, right = View.paragraph(:bounds => true)
+    end
+
+    if options[:just_return]
+      return [View.txt(left, right), left, right]
+    end
+    $el.goto_char left
+    $el.set_mark right
+    Effects.blink(:left => left, :right => right)
+    Clipboard.copy("0")
+  end
+
+  def self.diff_1_and_2
+    # Compare clipboard 1 with 2
+    # Unquote if several spaces and |
+    View.to_buffer "1", :clear => true
+    one = Clipboard["1"]
+    one.gsub!(/^ +\|/, '') if one =~ /\A   +\|/
+    $el.insert Clipboard["1"]
+
+    View.to_buffer "2", :clear => true
+    one = Clipboard["2"]
+    one.gsub!(/^ +\|/, '') if one =~ /\A   +\|/
+    $el.insert Clipboard["2"]
+
+    $el.ediff_buffers "1", "2"
+  end
+
+  def self.as_thing
+
+    orig = Location.new
+
+    # If at end of space, grab as tree
+    if Line.indent.length == View.column
+      left = Line.left
+      return
+    end
+
+    # If on blank spaces, copy them
+    if $el.buffer_substring($el.point-1, $el.point+1) =~ /[ \n] /
+      $el.skip_chars_forward " "
+      right = $el.point
+      $el.skip_chars_backward " "
+      left = $el.point
+    else
+      $el.skip_chars_forward " "
+      left, right = $el.bounds_of_thing_at_point(:sexp).to_a
+    end
+
+    if Keys.prefix_u?
+      left += 1
+      right -= 1
+    end
+    Effects.blink(:left=>left, :right=>right)
+
+    txt = View.txt(left, right)
+    Clipboard.set "0", txt
+    View.to right
+    #     View.mark left   # What did this do?
+    Clipboard.save_by_first_letter txt
+
+    orig.go
+
+  end
+
+  def self.as_object
+    set("0", $el.thing_at_point(:symbol))
+    left, right = $el.bounds_of_thing_at_point(:symbol).to_a
+    Effects.blink(:left=>left, :right=>right)
+  end
+
+  def self.copy_everything
+    Effects.blink :what=>:all
+    Clipboard.set("0", $el.buffer_string)
+    $el.set_mark($el.point_max)
+  end
+
+  def self.as_line many=nil
+    prefix = Keys.prefix :clear=>true
+
+    return FileTree.copy_path if prefix == :u
+
+    many ||= prefix || 1
+    Move.to_axis
+    left = Line.left
+    right = Line.left(many+1)
+    line = View.txt(left, right)
+    Clipboard.set("0", line)
+    Effects.blink :left=>left, :right=>right
+    $el.set_mark(right)
+    Clipboard.save_by_first_letter line   # Store for retrieval with enter_yank
+  end
+
+  def self.enter_replacement
+    # If on whitespace, move to off of it
+    $el.skip_chars_forward " "
+
+    orig = $el.point
+    Move.to_other_bracket
+    View.delete orig, $el.point
+    View.insert Clipboard['0']
+  end
+
+  def self.as_clipboard
+    prefix = Keys.prefix :clear=>true
+    if prefix == 0
+      l, r = View.paragraph :bounds=>true
+      Effects.blink :left=>l, :right=>r
+      cursor = View.cursor
+      View.cursor = l
+      Location.as_spot('clipboard')
+      Clipboard["0"] = View.txt(l, r)
+      View.cursor = cursor
+      return
+    end
+
+    if prefix == :-
+      l, r = View.range
+      Effects.blink :left=>l, :right=>r
+      Clipboard["0"] = View.selection.gsub(/^ *\|.?/, '')
+      return
+    end
+
+    Location.as_spot('clipboard')
+
+    # If numeric prefix, get next n lines and put in clipboard
+    if prefix.is_a?(Fixnum)
+      l, r = Line.left, Line.left(prefix + 1)
+      Effects.blink :left=>l, :right=>r
+      Clipboard["0"] = View.txt(l, r)
+
+      View.set_mark(r)
+      return
+    end
+
+    Clipboard.copy("0")
+    Clipboard.save_by_first_letter View.selection   # Store for retrieval with enter_yank
+  end
+
+  def self.save_by_first_letter txt
+    key = txt[/[a-z]/i]
+    return unless key
+    @@hash_by_first_letter[key.downcase] = txt
+  end
+
+  def self.enter_yank
+    ch = Keys.input :chars=>1
+    value = @@hash_by_first_letter[ch]
+    return unless value
+    View.insert value
+  end
+
+end