git.cworth.org Git - sup/blob - lib/sup/modes/line-cursor-mode.rb

   1 module Redwood
   2
   3 class LineCursorMode < ScrollMode
   4   register_keymap do |k|
   5     ## overwrite scrollmode binding on arrow keys for cursor movement
   6     ## but j and k still scroll!
   7     k.add :cursor_down, "Move cursor down one line", :down, 'j'
   8     k.add :cursor_up, "Move cursor up one line", :up, 'k'
   9     k.add :select, "Select this item", :enter
  10   end
  11
  12   attr_reader :curpos
  13
  14   def initialize cursor_top=0, opts={}
  15     @cursor_top = cursor_top
  16     @curpos = cursor_top
  17     super opts
  18   end
  19
  20   def draw
  21     super
  22     set_status
  23   end
  24
  25 protected
  26
  27   def draw_line ln, opts={}
  28     if ln == @curpos
  29       super ln, :highlight => true, :debug => opts[:debug]
  30     else
  31       super
  32     end
  33   end
  34
  35   def ensure_mode_validity
  36     super
  37     raise @curpos.inspect unless @curpos.is_a?(Integer)
  38     c = @curpos.clamp topline, botline - 1
  39     c = @cursor_top if c < @cursor_top
  40     buffer.mark_dirty unless c == @curpos
  41     @curpos = c
  42   end
  43
  44   def set_cursor_pos p
  45     return if @curpos == p
  46     @curpos = p.clamp @cursor_top, lines
  47     buffer.mark_dirty
  48   end
  49
  50   def line_down # overwrite scrollmode
  51     super
  52     set_cursor_pos topline if @curpos < topline
  53   end
  54
  55   def line_up # overwrite scrollmode
  56     super
  57     set_cursor_pos botline - 1 if @curpos > botline - 1
  58   end
  59
  60   def cursor_down
  61     return false unless @curpos < lines - 1
  62     if @curpos >= botline - 1
  63       page_down
  64       set_cursor_pos [topline + 1, botline].min
  65     else
  66       @curpos += 1
  67       unless buffer.dirty?
  68         draw_line @curpos - 1
  69         draw_line @curpos
  70         set_status
  71         buffer.commit
  72       end
  73     end
  74     true
  75   end
  76
  77   def cursor_up
  78     return false unless @curpos > @cursor_top
  79     if @curpos == topline
  80       page_up
  81       set_cursor_pos [botline - 2, topline].max
  82 #      raise "cursor position now #@curpos, topline #{topline} botline #{botline}"
  83     else
  84       @curpos -= 1
  85       unless buffer.dirty?
  86         draw_line @curpos + 1
  87         draw_line @curpos
  88         set_status
  89         buffer.commit
  90       end
  91     end
  92     true
  93   end
  94
  95   def page_up # overwrite
  96     if topline <= @cursor_top
  97       set_cursor_pos @cursor_top
  98     else
  99       relpos = @curpos - topline
 100       super
 101       set_cursor_pos topline + relpos
 102     end
 103   end
 104
 105   def page_down
 106     if topline >= lines - buffer.content_height
 107       set_cursor_pos(lines - 1)
 108     else
 109       relpos = @curpos - topline
 110       super
 111       set_cursor_pos [topline + relpos, lines - 1].min
 112     end
 113   end
 114
 115   def jump_to_home
 116     super
 117     set_cursor_pos @cursor_top
 118   end
 119
 120   def jump_to_end
 121     super if topline < (lines - buffer.content_height)
 122     set_cursor_pos(lines - 1)
 123   end
 124
 125 private
 126
 127   def set_status
 128     @status = "line #{@curpos + 1} of #{lines}"
 129   end
 130
 131 end
 132
 133 end