Add Reline.dialog_proc(name_sym)

Author: aycabta

lib/reline.rb

@@ -161,6 +161,12 @@ def add_dialog_proc(name_sym, p, context = nil)
       @dialog_proc_list << [name_sym, p, context]
     end
 
+    def dialog_proc(name_sym)
+      dialog = @dialog_proc_list.find { |d| d[0] == name_sym }
+      dialog.nil? ? nil : dialog[1]
+      #@dialog_proc_list[name_sym]
+    end
+
     def input=(val)
       raise TypeError unless val.respond_to?(:getc) or val.nil?
       if val.respond_to?(:getc)
@@ -516,6 +522,7 @@ def self.insert_text(*args, &block)
   def_single_delegators :core, :last_incremental_search
   def_single_delegators :core, :last_incremental_search=
   def_single_delegators :core, :add_dialog_proc
+  def_single_delegators :core, :dialog_proc
   def_single_delegators :core, :autocompletion, :autocompletion=
 
   def_single_delegators :core, :readmultiline

test/reline/test_reline.rb

@@ -313,16 +313,21 @@ def test_emacs_editing_mode
   def test_add_dialog_proc
     p = proc {}
     Reline.add_dialog_proc(:test_proc, p)
+    assert_equal(p, Reline.dialog_proc(:test_proc))
 
     l = lambda {}
     Reline.add_dialog_proc(:test_lambda, l)
+    assert_equal(l, Reline.dialog_proc(:test_lambda))
+
+    assert_equal(nil, Reline.dialog_proc(:test_nothing))
 
     assert_raise(ArgumentError) { Reline.add_dialog_proc(:error, 42) }
     assert_raise(ArgumentError) { Reline.add_dialog_proc(:error, 'hoge') }
     assert_raise(ArgumentError) { Reline.add_dialog_proc('error', proc {} ) }
 
     dummy = DummyCallbackObject.new
     Reline.add_dialog_proc(:dummy, dummy)
+    assert_equal(dummy, Reline.dialog_proc(:dummy))
   end
 
   def test_readmultiline