sup

commit 10ae670b57ee17903820333860b4f11be7a544a6
parent 59cb2add14f75a2b4977d7c59738ba0baeb2b517
Author: wmorgan <wmorgan@5c8cc53c-5e98-4d25-b20a-d8db53a31250>
Date:   Sun,  3 Dec 2006 08:59:49 +0000

jump to left with '['


git-svn-id: svn://rubyforge.org/var/svn/sup/trunk@60 5c8cc53c-5e98-4d25-b20a-d8db53a31250

Diffstat:

1 file changed, 7 insertions(+), 0 deletions(-)
diff --git a/lib/sup/modes/scroll-mode.rb b/lib/sup/modes/scroll-mode.rb
@@ -14,6 +14,7 @@ class ScrollMode < Mode
     k.add :page_up, "Up one page", :page_up, 'p', :backspace
     k.add :jump_to_home, "Jump to top", :home, '^', '1'
     k.add :jump_to_end, "Jump to bottom", :end, '$', '0'
+    k.add :jump_to_left, "Jump to the left", '['
   end
 
   def initialize opts={}
@@ -48,6 +49,11 @@ class ScrollMode < Mode
     buffer.mark_dirty
   end
 
+  def jump_to_left
+    buffer.mark_dirty unless @leftcol == 0
+    @leftcol = 0
+  end
+
   ## set top line to l
   def jump_to_line l
     l = l.clamp 0, lines - 1
@@ -64,6 +70,7 @@ class ScrollMode < Mode
   def jump_to_home; jump_to_line 0; end
   def jump_to_end; jump_to_line lines - buffer.content_height; end
 
+
   def ensure_mode_validity
     @topline = @topline.clamp 0, lines - 1
     @topline = 0 if @topline < 0 # empty