fix compose mode spawning from within thread-view-mode

[sup] / lib / sup / textfield.rb

diff --git a/lib/sup/textfield.rb b/lib/sup/textfield.rb
index 198de127e6e5565d34571c6296adeff95b859887..c155ea0f84d4bbf503b13047a2801e24e21f81a3 100644 (file)
--- a/lib/sup/textfield.rb
+++ b/lib/sup/textfield.rb
@@ -1,27 +1,45 @@
-require 'curses'
-
 module Redwood
 
+## a fully-functional text field supporting completions, expansions,
+## history--everything!
+## 
+## writing this fucking sucked. if you thought ncurses was some 1970s
+## before-people-knew-how-to-program bullshit, wait till you see
+## ncurses forms.
+##
+## completion comments: completion is done emacs-style, and mostly
+## depends on outside support, as we merely signal the existence of a
+## new set of completions to show (#new_completions?)  or that the
+## current list of completions should be rolled if they're too large
+## to fill the screen (#roll_completions?).
+##
+## in sup, completion support is implemented through BufferManager#ask
+## and CompletionMode.
 class TextField
-  attr_reader :value
-
   def initialize window, y, x, width
     @w, @x, @y = window, x, y
     @width = width
     @i = nil
     @history = []
+
+    @completion_block = nil
+    reset_completion_state
   end
 
-  def activate question, default=nil
+  bool_reader :new_completions, :roll_completions
+  attr_reader :completions
+
+  def value; @value || get_cursed_value end
+
+  def activate question, default=nil, &block
     @question = question
-    @value = nil
+    @completion_block = block
     @field = Ncurses::Form.new_field 1, @width - question.length,
                                      @y, @x + question.length, 0, 0
     @form = Ncurses::Form.new_form [@field]
-
-    @history[@i = @history.size] = default || ""
+    @value = default
     Ncurses::Form.post_form @form
-    @field.set_field_buffer 0, @history[@i]
+    set_cursed_value default if default
   end
 
   def position_cursor
@@ -29,28 +47,53 @@ class TextField
     @w.mvaddstr @y, 0, @question
     Ncurses.curs_set 1
     Ncurses::Form.form_driver @form, Ncurses::Form::REQ_END_FIELD
-    Ncurses::Form.form_driver @form, Ncurses::Form::REQ_NEXT_CHAR if @history[@i] =~ / $/ # fucking RETARDED!!!!
+    Ncurses::Form.form_driver @form, Ncurses::Form::REQ_NEXT_CHAR if @value && @value =~ / $/ # fucking RETARDED!!!!
   end
 
   def deactivate
+    reset_completion_state
     @form.unpost_form
     @form.free_form
     @field.free_field
+    @field = nil
     Ncurses.curs_set 0
   end
 
   def handle_input c
-    if c == 10 # Ncurses::KEY_ENTER
-      Ncurses::Form.form_driver @form, Ncurses::Form::REQ_VALIDATION
-      @value = @history[@i] = @field.field_buffer(0).gsub(/^\s+|\s+$/, "").gsub(/\s+/, " ")
+    ## short-circuit exit paths
+    case c
+    when Ncurses::KEY_ENTER # submit!
+      @value = get_cursed_value
+      @history.push @value
       return false
-    elsif c == Ncurses::KEY_CANCEL
-      @history.delete_at @i
-      @i = @history.empty? ? nil : (@i - 1) % @history.size 
+    when Ncurses::KEY_CANCEL # cancel
       @value = nil
       return false
+    when Ncurses::KEY_TAB # completion
+      return true unless @completion_block
+      if @completions.empty?
+        v = get_cursed_value
+        c = @completion_block.call v
+        if c.size > 0
+          @value = c.map { |full, short| full }.shared_prefix(true)
+          set_cursed_value @value
+          position_cursor
+        end
+        if c.size > 1
+          @completions = c
+          @new_completions = true
+          @roll_completions = false
+        end
+      else
+        @new_completions = false
+        @roll_completions = true
+      end
+      return true
     end
 
+    reset_completion_state
+    @value = nil
+
     d =
       case c
       when Ncurses::KEY_LEFT
@@ -59,26 +102,59 @@ class TextField
         Ncurses::Form::REQ_NEXT_CHAR
       when Ncurses::KEY_BACKSPACE
         Ncurses::Form::REQ_DEL_PREV
-      when ?\001
+      when 1 #ctrl-a
         Ncurses::Form::REQ_BEG_FIELD
-      when ?\005
+      when 5 #ctrl-e
         Ncurses::Form::REQ_END_FIELD
+      when 11 # ctrl-k
+        Ncurses::Form::REQ_CLR_EOF
       when Ncurses::KEY_UP
-        @history[@i] = @field.field_buffer(0)
+        @i ||= @history.size
+        @history[@i] = get_cursed_value
         @i = (@i - 1) % @history.size
-        @field.set_field_buffer 0, @history[@i]
+        @value = @history[@i]
+        set_cursed_value @value
       when Ncurses::KEY_DOWN
-        @history[@i] = @field.field_buffer(0)
+        @i ||= @history.size
+        @history[@i] = get_cursed_value
         @i = (@i + 1) % @history.size
-        @field.set_field_buffer 0, @history[@i]
+        @value = @history[@i]
+        set_cursed_value @value
       else
         c
       end
 
     Ncurses::Form.form_driver @form, d
-    Ncurses.refresh
-
     true
   end
+
+private
+
+  def reset_completion_state
+    @completions = []
+    @new_completions = @roll_completions = @clear_completions = false
+  end
+
+  ## ncurses inanity wrapper
+  ##
+  ## DO NOT READ THIS CODE. YOU WILL GO MAD.
+  def get_cursed_value
+    return nil unless @field
+
+    x = Ncurses.curx
+    Ncurses::Form.form_driver @form, Ncurses::Form::REQ_VALIDATION
+    v = @field.field_buffer(0).gsub(/^\s+|\s+$/, "")
+
+    ## cursor <= end of text
+    if x - @question.length - v.length <= 0
+      v
+    else # trailing spaces
+      v + (" " * (x - @question.length - v.length))
+    end
+  end
+
+  def set_cursed_value v
+    @field.set_field_buffer 0, v
+  end
 end
 end