vimamsa 0.1.6 → 0.1.9

data/lib/vimamsa/gui_sourceview.rb

@@ -1,24 +1,57 @@
 
+
+# class VSourceView < Gtk::TextView
 class VSourceView < GtkSource::View
-  def initialize(title = nil)
+  attr_accessor :bufo 
+  # :highlight_matching_brackets
+  
+  # def set_highlight_current_line(vbool)
+  # end
+  
+  # def set_show_line_numbers(vbool)
+  # end
+  
+  # def highlight_matching_brackets=(vbool)
+  # end
+  
+
+  def initialize(title = nil,bufo=nil)
     # super(:toplevel)
+    @highlight_matching_brackets = true
     super()
-    puts "vsource init"
+    @bufo = bufo #object of Buffer class buffer.rb
+    debug "vsource init"
     @last_keyval = nil
     @last_event = [nil, nil]
+    self.drag_dest_add_image_targets
+    self.drag_dest_add_uri_targets
 
     signal_connect "button-press-event" do |_widget, event|
       if event.button == Gdk::BUTTON_PRIMARY
-        # puts "Gdk::BUTTON_PRIMARY"
+        # debug "Gdk::BUTTON_PRIMARY"
         false
       elsif event.button == Gdk::BUTTON_SECONDARY
-        # puts "Gdk::BUTTON_SECONDARY"
+        # debug "Gdk::BUTTON_SECONDARY"
         true
       else
         true
       end
     end
 
+    signal_connect("drag-data-received") do |widget, event, x, y, data, info, time|
+      puts "drag-data-received"
+      puts
+      if data.uris.size >= 1
+        imgpath = CGI.unescape(data.uris[0])
+        m = imgpath.match(/^file:\/\/(.*)/)
+        if m
+          fp = m[1]
+          handle_drag_and_drop(fp)
+        end
+      end
+      true
+    end
+
     signal_connect("key_press_event") do |widget, event|
       handle_key_event(event, :key_press_event)
       true
@@ -44,14 +77,14 @@ class VSourceView < GtkSource::View
   def handle_key_event(event, sig)
     if $update_cursor
       curpos = buffer.cursor_position
-      puts "MOVE CURSOR: #{curpos}"
+      debug "MOVE CURSOR: #{curpos}"
       buf.set_pos(curpos)
       $update_cursor = false
     end
-    puts $view.visible_rect.inspect
+    debug $view.visible_rect.inspect
 
-    puts "key event"
-    puts event
+    debug "key event"
+    debug event
 
     key_name = event.string
     if event.state.control_mask?
@@ -98,9 +131,9 @@ class VSourceView < GtkSource::View
     key_str_parts << key_name
     key_str = key_str_parts.join("-")
     keynfo = { :key_str => key_str, :key_name => key_name, :keyval => event.keyval }
-    puts keynfo.inspect
+    debug keynfo.inspect
     # $kbd.match_key_conf(key_str, nil, :key_press)
-    # puts "key_str=#{key_str} key_"
+    # debug "key_str=#{key_str} key_"
 
     if key_str != "" # or prefixed_key_str != ""
       if sig == :key_release_event and event.keyval == @last_keyval
@@ -132,7 +165,7 @@ class VSourceView < GtkSource::View
     y = iterxy.y
 
     # buffer_to_window_coords(Gtk::TextWindowType::TEXT, iterxy.x, iterxy.y).inspect
-    # puts buffer_to_window_coords(Gtk::TextWindowType::TEXT, x, y).inspect
+    # debug buffer_to_window_coords(Gtk::TextWindowType::TEXT, x, y).inspect
     (x, y) = buffer_to_window_coords(Gtk::TextWindowType::TEXT, x, y)
     # Ripl.start :binding => binding
 
@@ -141,7 +174,7 @@ class VSourceView < GtkSource::View
 
   def handle_deltas()
     any_change = false
-    while d = buf.deltas.shift
+    while d = @bufo.deltas.shift
       any_change = true
       pos = d[0]
       op = d[1]
@@ -157,7 +190,7 @@ class VSourceView < GtkSource::View
       end
     end
     if any_change
-      gui_set_cursor_pos($buffer.id, $buffer.pos) #TODO: only when necessary
+      gui_set_cursor_pos(@bufo.id, @bufo.pos) #TODO: only when necessary
     end
 
     # sanity_check #TODO
@@ -166,15 +199,15 @@ class VSourceView < GtkSource::View
   def sanity_check()
     a = buffer.text
     b = buf.to_s
-    # puts "===================="
-    # puts a.lines[0..10].join()
-    # puts "===================="
-    # puts b.lines[0..10].join()
-    # puts "===================="
+    # debug "===================="
+    # debug a.lines[0..10].join()
+    # debug "===================="
+    # debug b.lines[0..10].join()
+    # debug "===================="
     if a == b
-      puts "Buffers match"
+      debug "Buffers match"
     else
-      puts "ERROR: Buffer's don't match."
+      debug "ERROR: Buffer's don't match."
     end
   end
 
@@ -210,7 +243,7 @@ class VSourceView < GtkSource::View
   end
 
   def cursor_visible_idle_func
-    puts "cursor_visible_idle_func"
+    debug "cursor_visible_idle_func"
     # From https://picheta.me/articles/2013/08/gtk-plus--a-method-to-guarantee-scrolling.html
     # vr = visible_rect
 
@@ -247,8 +280,8 @@ class VSourceView < GtkSource::View
 
     intr = iterxy.intersect(vr)
     if intr.nil?
-      puts iterxy.inspect
-      puts vr.inspect
+      debug iterxy.inspect
+      debug vr.inspect
       # Ripl.start :binding => binding
 
       # exit!
@@ -269,26 +302,20 @@ class VSourceView < GtkSource::View
 
   def draw_cursor
     if is_command_mode
-      itr = buffer.get_iter_at(:offset => buf.pos)
-      itr2 = buffer.get_iter_at(:offset => buf.pos + 1)
+      itr = buffer.get_iter_at(:offset => @bufo.pos)
+      itr2 = buffer.get_iter_at(:offset => @bufo.pos + 1)
       $view.buffer.select_range(itr, itr2)
-    elsif buf.visual_mode?
-      puts "VISUAL MODE"
-      (_start, _end) = buf.get_visual_mode_range2
-      puts "#{_start}, #{_end}"
+    elsif @bufo.visual_mode?
+      debug "VISUAL MODE"
+      (_start, _end) = @bufo.get_visual_mode_range2
+      debug "#{_start}, #{_end}"
       itr = buffer.get_iter_at(:offset => _start)
       itr2 = buffer.get_iter_at(:offset => _end + 1)
       $view.buffer.select_range(itr, itr2)
     else # Insert mode
-      itr = buffer.get_iter_at(:offset => buf.pos)
+      itr = buffer.get_iter_at(:offset => @bufo.pos)
       $view.buffer.select_range(itr, itr)
-      puts "INSERT MODE"
+      debug "INSERT MODE"
     end
   end
-
-  # def quit
-  # destroy
-  # true
-  # end
 end
-

data/lib/vimamsa/hyper_plain_text.rb

@@ -1,10 +1,5 @@
-
-
-def hpt_open_link()
-end
-
 def hpt_check_cur_word(w)
-  puts "check_cur_word(w)"
+  debug "check_cur_word(w)"
   m = w.match(/⟦(.*)⟧/)
   if m
     fpfx = m[1]
@@ -12,8 +7,10 @@ def hpt_check_cur_word(w)
       dn = File.dirname($buffer.fname)
 
       fcands = []
-      fcands << "#{dn}/#{fpfx}"
-      fcands << "#{dn}/#{fpfx}.txt"
+      if fpfx[0] != "/"
+        fcands << "#{dn}/#{fpfx}"
+        fcands << "#{dn}/#{fpfx}.txt"
+      end
       fcands << File.expand_path("#{fpfx}")
       fcands << File.expand_path("#{fpfx}.txt")
 
@@ -38,24 +35,46 @@ def hpt_check_cur_word(w)
   return nil
 end
 
-def hpt_scan_images()
-  return if !buf.fname
-  return if !buf.fname.match(/.*txt$/)
-  imgpos = scan_indexes(buf, /⟦img:.+?⟧/)
-  imgtags = buf.scan(/(⟦img:(.+?)⟧)/)
-  # i = 0
+def translate_path(fn, bf)
+  if File.exist?(fn)
+    outfn = fn
+  elsif fn[0] == "$"
+    outfn = ppath(fn[1..-1]) # Path to source location
+  elsif fn[0] == "~"
+    outfn = File.expand_path(fn)
+  elsif !bf.fname.nil?
+    pd = File.dirname(bf.fname)
+    outfn = "#{pd}/#{fn}"
+  else
+    outfn = File.expand_path(fn)
+  end
+  return outfn
+end
+
+# Scan images inserted with ⟦img:filepath⟧ syntax
+def hpt_scan_images(bf = nil)
+  bf = buf() if bf.nil?
+  return if bf.nil?
+  return if !bf.fname
+  return if !bf.fname.match(/.*txt$/)
+  imgpos = scan_indexes(bf, /⟦img:.+?⟧/)
+  imgtags = bf.scan(/(⟦img:(.+?)⟧)/)
   c = 0
   imgpos.each.with_index { |x, i|
     a = imgpos[i]
     t = imgtags[i]
     insert_pos = a + t[0].size + c
-    imgfn = File.expand_path(t[1])
-    # Ripl.start :binding => binding
+    fn = t[1]
+    imgfn = translate_path(fn, bf)
     next if !File.exist?(imgfn)
-    if buf[insert_pos..(insert_pos + 2)] != "\n \n"
-      buf.insert_txt_at("\n \n", insert_pos)
+    # Show as image in gui, handle as empty space in txt file
+
+    if bf[insert_pos..(insert_pos + 2)] != "\n \n"
+      bf.insert_txt_at("\n \n", insert_pos)
+      bf.view.handle_deltas
       c += 3
     end
-    buf.add_image(imgfn, insert_pos + 1)
+    bf.add_image(imgfn, insert_pos + 1)
   }
+  vma.gui.delex.run
 end

data/lib/vimamsa/key_actions.rb

@@ -28,13 +28,16 @@ def is_visual_mode()
   return 0
 end
 
+reg_act(:enable_debug, proc { $debug = true }, "Enable debug")
+reg_act(:disable_debug, proc { $debug = false }, "Disable debug")
+
 reg_act(:easy_jump, proc { EasyJump.start }, "Easy jump")
 reg_act(:savedebug, "savedebug", "Save debug info", { :group => :debug })
 reg_act(:open_file_dialog, "open_file_dialog", "Open file", { :group => :file })
 reg_act(:create_new_file, "create_new_file", "Create new file", { :group => :file })
-reg_act(:backup_all_buffers, proc{backup_all_buffers}, "Backup all buffers", { :group => :file })
-reg_act(:e_move_forward_char, "e_move_forward_char", "", { :group => :move })
-reg_act(:e_move_backward_char, "e_move_backward_char", "", { :group => :move })
+reg_act(:backup_all_buffers, proc { backup_all_buffers }, "Backup all buffers", { :group => :file })
+reg_act(:e_move_forward_char, "e_move_forward_char", "", { :group => [:move, :basic] })
+reg_act(:e_move_backward_char, "e_move_backward_char", "", { :group => [:move, :basic] })
 reg_act(:history_switch_backwards, "history_switch_backwards", "", { :group => :file })
 reg_act(:history_switch_forwards, "history_switch_forwards", "", { :group => :file })
 reg_act(:center_on_current_line, "center_on_current_line", "", { :group => :view })
@@ -48,10 +51,11 @@ reg_act(:put_file_path_to_clipboard, proc { buf.put_file_path_to_clipboard }, "P
 # reg_act(:encrypt_file, proc{buf.set_encrypted},"Set current file to encrypt on save")
 reg_act(:encrypt_file, proc { encrypt_cur_buffer }, "Set current file to encrypt on save")
 reg_act(:set_unencrypted, proc { buf.set_unencrypted }, "Set current file to save unencrypted")
+reg_act(:set_executable, proc { buf.set_executable }, "Set current file permissions to executable")
 reg_act(:close_all_buffers, proc { bufs.close_all_buffers() }, "Close all buffers")
 reg_act(:close_current_buffer, proc { bufs.close_current_buffer(true) }, "Close current buffer")
 reg_act(:comment_selection, proc { buf.comment_selection }, "")
-reg_act(:delete_char_forward, proc { buf.delete(CURRENT_CHAR_FORWARD) }, "Delete char forward")
+reg_act(:delete_char_forward, proc { buf.delete(CURRENT_CHAR_FORWARD) }, "Delete char forward", { :group => [:edit, :basic] })
 reg_act(:load_theme, proc { load_theme }, "Load theme")
 reg_act(:gui_file_finder, proc { vma.FileFinder.start_gui }, "Fuzzy file finder")
 reg_act(:gui_file_history_finder, proc { vma.FileHistory.start_gui }, "Fuzzy file history finder")
@@ -77,19 +81,20 @@ reg_act(:diff_buffer, "diff_buffer", "")
 reg_act(:invoke_grep_search, proc { gui_grep }, "Grep current buffer")
 reg_act(:ack_search, proc { gui_ack }, "") #invoke_ack_search
 reg_act :update_file_index, proc { update_file_index }, "Update file index"
-reg_act :delete_to_word_end, proc { buf.delete2(:to_word_end) }, "Delete to file end"
-reg_act :delete_to_line_start, proc { buf.delete2(:to_line_start) }, "Delete to line start"
+reg_act :delete_to_word_end, proc { buf.delete2(:to_word_end) }, "Delete to file end", { :group => [:edit, :basic] }
+reg_act :delete_to_line_start, proc { buf.delete2(:to_line_start) }, "Delete to line start", { :group => [:edit, :basic] }
 reg_act :start_browse_mode, proc { $kbd.set_mode(:browse); $kbd.set_default_mode(:browse) }, "Start browse mode"
 reg_act :exit_browse_mode, proc {
   bufs.add_current_buf_to_history(); $kbd.set_mode(:command); $kbd.set_default_mode(:command)
 }, "Exit browse mode"
 
-reg_act :page_down, proc { page_down }
-reg_act :page_up, proc { page_up }
+reg_act :page_down, proc { page_down }, "Page down", :group => [:move, :basic]
+reg_act :page_up, proc { page_up }, "Page up", :group => [:move, :basic]
 reg_act :jump_to_start_of_buffer, proc { buf.jump(START_OF_BUFFER) }, "Jump to start of buffer"
 reg_act :jump_to_end_of_buffer, proc { buf.jump(END_OF_BUFFER) }, "Jump to end of buffer"
 reg_act(:auto_indent_buffer, proc { buf.indent }, "Auto format buffer")
 reg_act(:execute_current_line_in_terminal, proc { buf.execute_current_line_in_terminal }, "Execute current line in terminal")
+reg_act(:execute_current_line_in_terminal_autoclose, proc { buf.execute_current_line_in_terminal(true) }, "Execute current line in terminal. Close after execution.")
 reg_act(:show_images, proc { hpt_scan_images() }, "Show images inserted with ⟦img:file.png⟧ syntax")
 reg_act(:delete_current_file, proc { bufs.delete_current_buffer() }, "Delete current file")
 
@@ -112,8 +117,28 @@ act_list = {
                   :desc => "Undo edit", :group => :edit },
 
   :find_in_buffer => { :proc => proc { invoke_search },
-                  :desc => "Find", :group => :edit },
+                       :desc => "Find", :group => :edit },
+
+  :selection_upcase => { :proc => proc { buf.transform_selection(:upcase) },
+                         :desc => "Transform text: upcase", :group => :edit },
+
+  :selection_downcase => { :proc => proc { buf.transform_selection(:downcase) },
+                           :desc => "Transform text: downcase", :group => :edit },
+
+  :selection_capitalize => { :proc => proc { buf.transform_selection(:capitalize) },
+                             :desc => "Transform text: capitalize", :group => :edit },
+
+  :selection_swapcase => { :proc => proc { buf.transform_selection(:swapcase) },
+                           :desc => "Transform text: swapcase", :group => :edit },
 
+  :selection_reverse => { :proc => proc { buf.transform_selection(:reverse) },
+                          :desc => "Transform text: reverse", :group => :edit },
+
+  :forward_line => { :proc => proc { buf.move(FORWARD_LINE) },
+                     :desc => "Move one line forward", :group => [:move, :basic] },
+
+  :backward_line => { :proc => proc { buf.move(BACKWARD_LINE) },
+                      :desc => "Move one line backward", :group => [:move, :basic] },
 
   # { :proc => proc {  },
   # :desc => "", :group => : },
@@ -121,6 +146,9 @@ act_list = {
   :search_actions => { :proc => proc { search_actions },
                        :desc => "Search actions", :group => :search },
 
+  :content_search => { :proc => proc { FileContentSearch.start_gui },
+                       :desc => "Search content of files", :group => :search },
+
   :quit => { :proc => proc { _quit },
              :desc => "Quit", :group => :app },
 
@@ -143,14 +171,13 @@ act_list_todo = {
                   :desc => "Close current file", :group => :file },
   #"C , b" => '$kbd.set_mode("S");gui_select_buffer',
 
-
   # MOVING
   #    'VC h' => 'buf.move(BACKWARD_CHAR)',
   :m_forward_char => { :proc => proc { buf.move(FORWARD_CHAR) },
                        :desc => "Move cursor one char forward",
                        :group => :move },
-  "VC j" => "buf.move(FORWARD_LINE)",
-  "VC k" => "buf.move(BACKWARD_LINE)",
+  # "VC j" => "buf.move(FORWARD_LINE)",
+  # "VC k" => "buf.move(BACKWARD_LINE)",
 
   "VC pagedown" => "page_down",
   "VC pageup" => "page_up",
@@ -256,7 +283,7 @@ act_list_todo = {
   # Visual mode only:
   "V esc" => "buf.end_visual_mode",
   "V ctrl!" => "buf.end_visual_mode",
-  "V y" => "buf.copy_active_selection",
+  "V y" => "buf.copy_active_selection(:foo)",
   "V g U" => "buf.transform_selection(:upcase)",
   "V g u" => "buf.transform_selection(:downcase)",
   "V g c" => "buf.transform_selection(:capitalize)",