jump to left with '['

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

diff --git a/lib/sup/modes/scroll-mode.rb b/lib/sup/modes/scroll-mode.rb
index 32693a04983732899c0fdebd022e62b209441abb..ed8c7e7801bb7bc252f92ec5928e0eec131fc921 100644 (file)
--- 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