From: Ned Konz <ned@...>
Date: 2001-10-27T17:17:35+09:00
Subject: [ruby-talk:23609] Re: ANN: RuEdit - introspective Ruby editor

On Wednesday 24 October 2001 06:12 pm, Benoit Cerrina wrote:
> > One thing I'm thinking about is something that would allow a keystroke to
> > open up myri (not sure whether it's still called that ... the GUI someone
> > wrote to sit on top of the interactive reference) to the right entry for
> > the function or class my cursor's on.
>
> Don't know how myri works but I'd say its probably easier to do it without
> ruby.
> I believe doing something with another scripting language than vim's own
> is really usefull only when the something either:
>     needs data structures
>     is computationaly intensive
> none of this apply there.
> Benoit

Well, here's my first usage of Ruby inside of Vim. It implements a state 
machine that pulls out some but not all lines from one buffer into another, 
then reformats them so that adjacent blocks have single blank lines between 
them.

It was really annoying (and slow) to do in Vim because you have to explicitly 
switch between the buffers for every line.

I did use the Vim reformatting command, though, because it's faster and 
simpler for this task.

" Ruby function embedded in a Vim macro
function! OtlMakeText()
ruby <<EOF
  origBuffer = $curbuf
  lastLeader = nil
  lastWasBlank = true
  lastIndent = 0
  VIM::command("new")   # make a new window and switch to it
  newLine = 0

  (1 .. origBuffer.length).each { |n|
    line = origBuffer[n]
    indent = 0
    line.sub!(/^\t*/) { |tabs| indent = tabs.length; "" }
    if line =~ /^[|* 0-9-]/
      leader = line[0,1]
      line.sub!(/^\| /, "")
      if ((lastLeader \
          && leader != " " \
          && leader != lastLeader) \
            || indent != lastIndent)
        $curbuf.append(newLine, "")
        newLine = newLine+1
        lastWasBlank = true
      end
    else
      leader = nil
      line = ""
    end

    isBlank = (line == "")
    unless isBlank && lastWasBlank
      $curbuf.append(newLine, line)
      newLine = newLine+1
    end

    lastWasBlank = isBlank
    lastLeader = leader
    lastIndent = indent
  }

  VIM::command("set tw=80")     # set textwidth
  VIM::command("normal 1GgqG")  # re-format buffer
  VIM::command("wincmd p")      # return to last window
EOF
endfunction

-- 
Ned Konz
currently: Stanwood, WA
email:     ned@bike-nomad.com
homepage:  http://bike-nomad.com