vimamsa 0.1.9 → 0.1.11

data/lib/vimamsa/buffer.rb

@@ -6,7 +6,7 @@ require "openssl"
 require "ripl/multi_line"
 
 $paste_lines = false
-$buffer_history = [0]
+$buffer_history = []
 
 $update_highlight = false
 
@@ -14,27 +14,29 @@ $ifuncon = false
 
 class Buffer < String
 
-  #attr_reader (:pos, :cpos, :lpos)
-
-  attr_reader :pos, :lpos, :cpos, :deltas, :edit_history, :fname, :call_func, :pathname, :basename, :dirname, :update_highlight, :marks, :is_highlighted, :syntax_detect_failed, :id, :lang, :images
+  attr_reader :pos, :lpos, :cpos, :deltas, :edit_history, :fname, :call_func, :pathname, :basename, :dirname, :update_highlight, :marks, :is_highlighted, :syntax_detect_failed, :id, :lang, :images, :last_save
   attr_writer :call_func, :update_highlight
   attr_accessor :gui_update_highlight, :update_hl_startpos, :update_hl_endpos, :hl_queue, :syntax_parser, :highlights, :gui_reset_highlight, :is_parsing_syntax, :line_ends, :bt, :line_action_handler, :module, :active_kbd_mode, :title, :subtitle
 
   @@num_buffers = 0
 
-  def initialize(str = "\n", fname = nil)
+  def initialize(str = "\n", fname = nil, prefix = "buf")
     debug "Buffer.rb: def initialize"
     super(str)
 
     @images = []
+    @audiofiles = []
     @lang = nil
     @id = @@num_buffers
     @@num_buffers += 1
+    @version = 0
     gui_create_buffer(@id, self)
     debug "NEW BUFFER fn=#{fname} ID:#{@id}"
 
     @module = nil
 
+    @last_save = @last_asked_from_user = @file_last_cheked = Time.now
+
     @crypt = nil
     @update_highlight = true
     @syntax_detect_failed = false
@@ -51,19 +53,18 @@ class Buffer < String
     @line_action_handler = nil
 
     @dirname = nil
-    @title = "*buf-#{@id}*"
+    @title = "*#{prefix}-#{@id}*"
     @subtitle = ""
 
     if @fname
       @title = File.basename(@fname)
       @dirname = File.dirname(@fname)
       userhome = File.expand_path("~")
-      @subtitle = @dirname.gsub(/^#{userhome}/, "~")
+      # @subtitle = @dirname.gsub(/^#{userhome}/, "~")
+      @subtitle = @fname.gsub(/^#{userhome}/, "~")
     end
 
     t1 = Time.now
-    gui_set_current_buffer(@id)
-    gui_set_window_title(@title, @subtitle)
 
     set_content(str)
     debug "init time:#{Time.now - t1}"
@@ -72,6 +73,10 @@ class Buffer < String
     self << "\n" if self[-1] != "\n"
     @current_word = nil
     @active_kbd_mode = nil
+    if conf(:enable_lsp)
+      init_lsp
+    end
+    return self
   end
 
   def list_str()
@@ -99,6 +104,36 @@ class Buffer < String
     end
   end
 
+  def lsp_get_def()
+    if !@lsp.nil?
+      fpuri = URI.join("file:///", @fname).to_s
+      @lsp.get_definition(fpuri, @lpos, @cpos)
+    end
+  end
+
+  def lsp_jump_to_def()
+    if !@lsp.nil?
+      fpuri = URI.join("file:///", @fname).to_s
+      r = @lsp.get_definition(fpuri, @lpos, @cpos)
+      if !r.nil?
+        jump_to_file(r[0], r[1])
+      end
+    end
+  end
+
+  def init_lsp()
+    if conf(:enable_lsp) and !@lang.nil?
+      @lsp = LangSrv.get(@lang.to_sym)
+      if @lang == "php"
+        # Ripl.start :binding => binding
+      end
+    end
+
+    if !@lsp.nil?
+      @lsp.open_file(@fname, self.to_s)
+    end
+  end
+
   def detect_file_language
     @lang = nil
     @lang = "c" if @fname.match(/\.(c|h|cpp)$/)
@@ -106,6 +141,7 @@ class Buffer < String
     @lang = "ruby" if @fname.match(/\.(rb)$/)
     @lang = "hyperplaintext" if @fname.match(/\.(txt)$/)
     @lang = "php" if @fname.match(/\.(php)$/)
+    @lsp = nil
 
     lm = GtkSource::LanguageManager.new
 
@@ -119,10 +155,12 @@ class Buffer < String
       debug "Guessed LANG: #{lang.id}"
       @lang = lang.id
     end
+    puts @lang.inspect
 
     if @lang
       gui_set_file_lang(@id, @lang)
     end
+    return @lang
   end
 
   def view()
@@ -130,6 +168,61 @@ class Buffer < String
     return vma.gui.buffers[@id]
   end
 
+  # Replace char at pos with audio widget for
+  def add_audio(afpath, pos)
+    return if !is_legal_pos(pos)
+    afpath = File.expand_path(afpath)
+    return if !File.exist?(afpath)
+
+    vbuf = view.buffer
+    itr = vbuf.get_iter_at(:offset => pos)
+    itr2 = vbuf.get_iter_at(:offset => pos + 1)
+    vbuf.delete(itr, itr2)
+    anchor = vbuf.create_child_anchor(itr)
+
+    mf = Gtk::MediaFile.new(afpath)
+    mc = Gtk::MediaControls.new(mf)
+    # mc = Gtk::MediaControls.new(Gtk::MediaFile.new)
+    # Thread.new{mf.play;sleep 0.01; mf.pause}
+    @audiofiles << mc
+
+    view.add_child_at_anchor(mc, anchor)
+    mc.set_size_request(500, 20)
+    mc.set_margin_start(view.gutter_width + 10)
+
+    provider = Gtk::CssProvider.new
+    mc.add_css_class("medctr")
+
+    provider.load(data: ".medctr {   background-color:#353535; }")
+    mc.style_context.add_provider(provider)
+
+    pp mf.set_prepared(true)
+    # pp mf.pause
+    pp mf.duration
+    pp mf.has_audio?
+
+    # >> Gtk::MediaControls.signals
+    # => ["direction-changed", "destroy", "show", "hide", "map", "unmap", "realize", "unrealize", "state-flags-changed", "mnemonic-activate", "move-focus", "keynav-failed", "query-tooltip", "notify"]
+
+    # If this is done too early, the gutter is not yet drawn which
+    # will result in wrong position
+    if @audiofiles.size == 1
+      Thread.new {
+        GLib::Idle.add(proc { self.reset_audio_widget_positions })
+      }
+    end
+    $audiof = mf
+  end
+
+  def reset_audio_widget_positions
+    debug "reset_audio_widget_positions", 2
+    for mc in @audiofiles
+      mc.set_size_request(500, 20)
+      mc.set_margin_start(view.gutter_width + 10)
+    end
+    return false
+  end
+
   def add_image(imgpath, pos)
     return if !is_legal_pos(pos)
 
@@ -141,16 +234,17 @@ class Buffer < String
 
     da = ResizableImage.new(imgpath, view)
     view.add_child_at_anchor(da, anchor)
-    da.signal_connect "draw" do |widget, cr|
+
+    da.set_draw_func do |widget, cr|
       da.do_draw(widget, cr)
     end
 
     da.scale_image
 
-    vma.gui.handle_image_resize
+    # vma.gui.handle_image_resize #TODO:gtk4
     @images << { :path => imgpath, :obj => da }
 
-    gui_set_current_buffer(@id)
+    gui_set_current_buffer(@id) #TODO: needed?
   end
 
   def is_legal_pos(pos, op = :read)
@@ -307,6 +401,7 @@ class Buffer < String
     gui_set_buffer_contents(@id, self.to_s)
     @images = [] #TODO: if reload
     hpt_scan_images(self)
+    hpt_scan_audio(self)
 
     # add_hl_update(@update_hl_startpos, @update_hl_endpos)
   end
@@ -320,6 +415,7 @@ class Buffer < String
     @dirname = File.dirname(@fname)
     userhome = File.expand_path("~")
     @subtitle = @dirname.gsub(/^#{userhome}/, "~")
+    vma.buffers.last_dir = @dirname
 
     detect_file_language
   end
@@ -401,9 +497,23 @@ class Buffer < String
   def run_delta(delta, auto_update_cpos = false)
     # auto_update_cpos: In some cases position of cursor should be updated automatically based on change to buffer (delta). In other cases this is handled by the action that creates the delta.
 
+    # delta[0]: char position
+    # delta[1]: INSERT or DELETE
+    # delta[2]: number of chars affected
+    # delta[3]: text to add in case of insert
+
+    @version += 1
     if $experimental
       @bt.handle_delta(Delta.new(delta[0], delta[1], delta[2], delta[3]))
     end
+
+    if !@lsp.nil?
+      dc = delta.clone
+      dc[3] = "" if dc[3].nil?
+      dc[4] = get_line_and_col_pos(delta[0])
+      dc[5] = get_line_and_col_pos(delta[0] + delta[2])
+      @lsp.handle_delta(dc, @fname, @version)
+    end
     pos = delta[0]
     if @edit_pos_history.any? and (@edit_pos_history.last - pos).abs <= 2
       @edit_pos_history.pop
@@ -440,7 +550,7 @@ class Buffer < String
       @update_hl_endpos = pos + delta[2]
       add_hl_update(@update_hl_startpos, @update_hl_endpos)
     end
-    debug "DELTA=#{delta.inspect}"
+    debug("DELTA=#{delta.inspect}", 2)
     # sanity_check_line_ends #TODO: enable with debug mode
     #highlight_c()
 
@@ -574,8 +684,7 @@ class Buffer < String
 
   def comment_linerange(r)
     com_str = get_com_str()
-    #lines = $buffer[r].split(/(\n)/).each_slice(2).map { |x| x[0] }
-    lines = $buffer[r].lines
+    lines = self[r].lines
     mod = ""
     lines.each { |line|
       m = line.match(/^(\s*)(\S.*)/)
@@ -637,14 +746,14 @@ class Buffer < String
       elsif op == :uncomment
         uncomment_linerange(first..last)
       end
-      $buffer.end_visual_mode
+      self.end_visual_mode
     end
   end
 
   def uncomment_linerange(r)
     com_str = get_com_str()
-    #r=$buffer.line_range($buffer.lpos, 2)
-    lines = $buffer[r].split(/(\n)/).each_slice(2).map { |x| x[0] }
+    #r=self.line_range(self.lpos, 2)
+    lines = self[r].split(/(\n)/).each_slice(2).map { |x| x[0] }
     mod = lines.collect { |x| x.sub(/^(\s*)(#{com_str}\s?)/, '\1') + "\n" }.join()
     replace_range(r, mod)
   end
@@ -804,6 +913,8 @@ class Buffer < String
     end
     gui_set_cursor_pos(@id, @pos)
     calculate_line_and_column_pos
+
+    check_if_modified_outside
   end
 
   # Get the line number of character position
@@ -871,12 +982,12 @@ class Buffer < String
     set_pos(pos)
   end
 
-  def delete(op)
+  def delete(op, x = nil)
     $paste_lines = false
     # Delete selection
     if op == SELECTION && visual_mode?
       (startpos, endpos) = get_visual_mode_range2
-      delete_range(startpos, endpos)
+      delete_range(startpos, endpos, x)
       @pos = [@pos, @selection_start].min
       end_visual_mode
       #return
@@ -904,21 +1015,39 @@ class Buffer < String
     #need_redraw!
   end
 
-  def delete_range(startpos, endpos)
-    #s = self.slice!(startpos..endpos)
-    set_clipboard(self[startpos..endpos])
+  def delete_range(startpos, endpos, x = nil)
+    s = self[startpos..endpos]
+    if startpos == endpos or s == ""
+      return
+    end
+    if x == :append
+      debug "APPEND"
+      s += "\n" + get_clipboard()
+    end
+    set_clipboard(s)
     add_delta([startpos, DELETE, (endpos - startpos + 1)], true)
     #recalc_line_ends
     calculate_line_and_column_pos
   end
 
+  # Ranges to use in delete or copy operations
   def get_range(range_id)
     range = nil
     if range_id == :to_word_end
+      # TODO: better way to make the search than + 150 from current position
       wmarks = get_word_end_marks(@pos, @pos + 150)
       if wmarks.any?
         range = @pos..wmarks[0]
       end
+    elsif range_id == :to_next_word # start of
+      wmarks = get_word_start_marks(@pos, @pos + 150)
+      if !wmarks[0].nil?
+        range = @pos..(wmarks[0] - 1)
+        debug range, 2
+      else
+        range = get_range(:to_word_end)
+      end
+      # Ripl.start :binding => binding
     elsif range_id == :to_line_end
       debug "TO LINE END"
       range = @pos..(@line_ends[@lpos] - 1)
@@ -1150,7 +1279,8 @@ class Buffer < String
       wtype = :url
     elsif is_existing_file(path)
       message("PATH:'#{word}'")
-      if vma.can_open_extension?(path)
+      # if vma.can_open_extension?(path)
+      if file_is_text_file(path)
         wtype = :textfile
       else
         wtype = :file
@@ -1356,7 +1486,7 @@ class Buffer < String
     d2 = [@pos, INSERT, 1, char]
     add_delta(d1, true)
     add_delta(d2, true)
-    debug "DELTAS:#{$buffer.deltas.inspect} "
+    debug "DELTAS:#{self.deltas.inspect} "
   end
 
   def insert_txt_at(c, pos)
@@ -1366,6 +1496,12 @@ class Buffer < String
     calculate_line_and_column_pos
   end
 
+  def append(c)
+    pos = self.size - 1
+    add_delta([pos, INSERT, c.size, c], true)
+    calculate_line_and_column_pos
+  end
+
   def execute_current_line_in_terminal(autoclose = false)
     s = get_current_line
     exec_in_terminal(s, autoclose)
@@ -1449,7 +1585,6 @@ class Buffer < String
     for d in deltas
       add_delta(d, true, true)
     end
-    # $buffer.update_content(IO.read('test.txt'))
   end
 
   def need_redraw!
@@ -1471,22 +1606,27 @@ class Buffer < String
     set_pos(l.end + 1)
   end
 
-  def paste(at = AFTER, register = nil)
-    # Paste after current char. Except if at end of line, paste before end of line.
-    text = ""
-    if register.nil?
-      text = paste_system_clipboard
+  # Start asynchronous read of system clipboard
+  def paste_start(at, register)
+    @clipboard_paste_running = true
+    clipboard = vma.gui.window.display.clipboard
+    clipboard.read_text_async do |_clipboard, result|
+      text = clipboard.read_text_finish(result)
+      paste_finish(text, at, register)
     end
+  end
 
-    if text == ""
-      return if !$clipboard.any?
-      if register == nil
-        text = $clipboard[-1]
-      else
-        text = $register[register]
-      end
-    end
+  def paste_finish(text, at, register)
+    # if text == ""
+    # return if !$clipboard.any?
+    # if register == nil
+    # text = $clipboard[-1]
+    # else
+    # text = $register[register]
+    # end
+    # end
     debug "PASTE: #{text}"
+    $clipboard << text
 
     return if text == ""
 
@@ -1503,9 +1643,21 @@ class Buffer < String
       set_pos(pos + text.size)
     end
     set_pos(@pos)
-    #TODO: AFTER does not work
-    #insert_txt($clipboard[-1],AFTER)
-    #recalc_line_ends #TODO: bug when run twice?
+    @clipboard_paste_running = false
+  end
+
+  def paste(at = AFTER, register = nil)
+    # Macro's don't work with asynchronous call using GTK
+    # TODO: implement as synchronous?
+    # Use internal clipboard
+    if vma.macro.running_macro
+      text = get_clipboard()
+      paste_finish(text, at, register)
+    else
+      # Get clipboard using GUI
+      paste_start(at, register)
+    end
+    return true
   end
 
   def delete_line()
@@ -1624,6 +1776,10 @@ class Buffer < String
     set_clipboard(self.fname)
   end
 
+  def put_file_ref_to_clipboard
+    set_clipboard(self.fname + ":#{@lpos}")
+  end
+
   def delete_active_selection() #TODO: remove this function
     return if !@visual_mode #TODO: this should not happen
 
@@ -1642,6 +1798,10 @@ class Buffer < String
 
   def get_visual_mode_range2()
     r = get_visual_mode_range
+    if r.begin > r.end
+      debug "r.begin > r.end"
+      Ripl.start :binding => binding
+    end
     return [r.begin, r.end]
   end
 
@@ -1660,9 +1820,9 @@ class Buffer < String
     _end = @pos
 
     _start, _end = _end, _start if _start > _end
-    _end = _end + 1 if _start < _end
-
-    return _start..(_end - 1)
+    # _end = _end + 1 if _start < _end #TODO:verify if correct
+    # return _start..(_end - 1)
+    return _start..(_end)
   end
 
   def selection_start()
@@ -1685,7 +1845,7 @@ class Buffer < String
     # If current file has fname, save to that fname
     # Else search for previously open files and save to the directory of
     # the last viewed file that has a filename
-    # $buffers[$buffer_history.reverse[1]].fname
+    # selffers[$buffer_history.reverse[1]].fname
 
     if @fname
       savepath = File.dirname(@fname)
@@ -1696,7 +1856,36 @@ class Buffer < String
     # calls back to file_saveas
   end
 
-  def save_as_callback(fpath)
+  def save_as_check_callback(vals)
+    if vals["yes_btn"] == "submit"
+      save_as_callback(@unconfirmed_path, true)
+    end
+  end
+
+  def save_as_callback(fpath, confirmed = false)
+    # The check if file exists is handled by Gtk::FileChooserDialog in GTK4
+    # Keeping this code from GTK3 in case want to do this manually at some point
+    # if !confirmed
+    # @unconfirmed_path = fpath
+    # if File.exists?(fpath) and File.file?(fpath)
+    # params = {}
+    # params["title"] = "The file already exists, overwrite? \r #{fpath}"
+    # params["inputs"] = {}
+    # params["inputs"]["yes_btn"] = { :label => "Yes", :type => :button, :default_focus => true }
+    # callback = proc { |x| save_as_check_callback(x) }
+    # params[:callback] = callback
+    # PopupFormGenerator.new(params).run
+    # return
+    # elsif File.exists?(fpath) #and File.directory?(fpath)
+    # params = {}
+    # params["title"] = "Can't write to the destination.\r #{fpath}"
+    # params["inputs"] = {}
+    # params["inputs"]["ok_btn"] = { :label => "Ok", :type => :button, :default_focus => true }
+    # PopupFormGenerator.new(params).run
+    # return
+    # end
+    # end
+
     set_filename(fpath)
     save()
     gui_set_window_title(@title, @subtitle) #TODO: if not active buffer?
@@ -1730,11 +1919,47 @@ class Buffer < String
         message("File #{fpath} not writeable")
         #TODO: show message box
       end
+      @last_save = Time.now
+      puts "file saved on #{@last_save}"
       sleep 3
     }
   end
 
+  def check_if_modified_outside_callback(x)
+    debug "check_if_modified_outside_callback"
+    if x["yes_btn"] == "submit"
+      revert()
+    end
+  end
+
+  def check_if_modified_outside
+    # Don't check if less than 8 seconds since last checked
+    return false if @fname.nil?
+    return false if Time.now - 8 < @file_last_cheked
+    @file_last_cheked = Time.now
+    return false if !File.exist?(@fname)
+
+    file_stat = File.stat(@fname)
+    modification_time = file_stat.mtime
+
+    if modification_time > @last_save and @last_asked_from_user < modification_time
+      @last_asked_from_user = Time.now
+      debug "File modified outside this program."
+      params = {}
+      params["title"] = "The file has been modified outside this program. Reload from disk? \r #{@fname}"
+      params["inputs"] = {}
+      params["inputs"]["yes_btn"] = { :label => "Yes", :type => :button, :default_focus => true }
+      callback = proc { |x| check_if_modified_outside_callback(x) }
+      params[:callback] = callback
+      PopupFormGenerator.new(params).run
+      return true
+    end
+
+    return false
+  end
+
   def save()
+    check_if_modified_outside
     if !@fname
       save_as()
       return
@@ -1747,7 +1972,7 @@ class Buffer < String
   def indent()
     file = Tempfile.new("out")
     infile = Tempfile.new("in")
-    file.write($buffer.to_s)
+    file.write(self.to_s)
     file.flush
     bufc = "FOO"
 
@@ -1755,30 +1980,37 @@ class Buffer < String
 
     message("Auto format #{@fname}")
 
-    if ["chdr", "c", "cpp"].include?(get_file_type())
+    ftype = get_file_type()
+    if ["chdr", "c", "cpp", "cpphdr"].include?(ftype)
 
       #C/C++/Java/JavaScript/Objective-C/Protobuf code
       system("clang-format -style='{BasedOnStyle: LLVM, ColumnLimit: 100,  SortIncludes: false}' #{file.path} > #{infile.path}")
       bufc = IO.read(infile.path)
-    elsif get_file_type() == "Javascript"
+    elsif ftype == "Javascript"
       cmd = "clang-format #{file.path} > #{infile.path}'"
       debug cmd
       system(cmd)
       bufc = IO.read(infile.path)
-    elsif get_file_type() == "ruby"
+    elsif ftype == "ruby"
       cmd = "rufo #{file.path}"
       debug cmd
       system(cmd)
       bufc = IO.read(file.path)
     else
+      message("No auto-format handler for file of type: #{ftype}")
       return
     end
-    $buffer.update_content(bufc)
+    self.update_content(bufc)
     center_on_current_line #TODO: needed?
     file.close; file.unlink
     infile.close; infile.unlink
   end
 
+  def close()
+    idx = vma.buffers.get_buffer_by_id(@id)
+    vma.buffers.close_buffer(idx)
+  end
+
   def backup()
     fname = @fname
     return if !@fname
@@ -1799,7 +2031,7 @@ end
 #TODO
 def write_to_file(savepath, s)
   if is_path_writable(savepath)
-    IO.write(savepath, $buffer.to_s)
+    IO.write(savepath, self.to_s)
   else
     message("PATH NOT WRITABLE: #{savepath}")
   end
@@ -1814,8 +2046,8 @@ def is_path_writable(fpath)
 end
 
 def backup_all_buffers()
-  for buf in $buffers
-    buf.backup
+  for b in bufs
+    b.backup
   end
   message("Backup all buffers")
 end