vimamsa 0.1.0 → 0.1.5

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 97b4b0a7b81410ecd6f7160ba4c8fa9e5d2bb125bccaeb501d3f3bb4d098d0ab
-  data.tar.gz: 60ad13b4c18d779fc6ace8748932fa6d385d9f4956d138bc50ab14d3851907a3
+  metadata.gz: 4f68b029a6b5f374740c9afa2cb7c4ac628db4c4b9295b7e64db8294dac89659
+  data.tar.gz: c7c72c69ec7cd513e976caff3b0b1f2e619d890d8d84e616fcd747e4ab1193be
 SHA512:
-  metadata.gz: c983fab629336a92be306b261835a72b1bccf98214e5be01f28dc4bc25b9c0c2e4a619e0bc256ca439680c1b12e5d510c12e52fe7b7cb9b34bdcc89ad7030670
-  data.tar.gz: 97b140540ca2951ffdef4627bcf907dc3408392ca1cdd123868f4d4cc03ead689973527a485240bd0232414ffbb26eadaacf9401c742633b62ddb7f5543898c9
+  metadata.gz: 892b4011a44310ad05becbf108fce73d4cdda3a25d6241435b03519ad0dd264daa856502956f02f47386bce251aef3e0296cc682fc35b01fefa375fbffd5ee4a
+  data.tar.gz: 25c97fde0e225c7cb273bc0fa97d0db4d74376ea2ddca2baea8823dbb1e01d31334fabbaa8e319cc37d40eca23d37b3d64f2cbbbdcbbce88f7d30435cfb44a6f

data/README.md

@@ -1,35 +1,129 @@
 # Vimamsa
 
-Welcome to your new gem! In this directory, you'll find the files you need to be able to package up your Ruby library into a gem. Put your Ruby code in the file `lib/vimamsa`. To experiment with that code, run `bin/console` for an interactive prompt.
+Vi/Vim -inspired experimental GUI-oriented text editor written with Ruby and GTK. 
 
-TODO: Delete this and the text above, and describe your gem
+
+## Requirements
+ - Ruby 2.0+
+ - GTK 3
 
 ## Installation
 
-Add this line to your application's Gemfile:
 
-```ruby
-gem 'vimamsa'
+On Ubuntu:
+```
+sudo apt install ruby-dev
+sudo gem install vimamsa
 ```
 
-And then execute:
+Run:
+```
+vimamsa
+```
 
-    $ bundle
+Packages for optional features:
+```
+sudo apt install ack-grep clang-format
+```
 
-Or install it yourself as:
+For customization, edit dot_vimamsarc.rb and copy to ~/.vimamsarc
 
-    $ gem install vimamsa
+## Key bindings
 
-## Usage
+Key bindings are very much like in VIm. For details, see file lib/vimamsa/key_bindings.rb and lib/vimamsa/default_bindings.rb
 
-TODO: Write usage instructions here
+Keys that work somewhat similarly as in Vim:
 
-## Development
+In Command mode: 
+```
+j k l h w b p P G f F ; 0 $ v i o  J * / a A I u ctrl-r x 
+zz dd dw gg <linenum>G r<char>
+```
+
+In Visual mode:
+```
+d y gU gu 
+```
 
-After checking out the repo, run `bin/setup` to install dependencies. You can also run `bin/console` for an interactive prompt that will allow you to experiment.
+Keys that work differently to Vim are documented in the tables below
+
+Syntax:  
+ctrl! means press and immediate release of ctrl key. Triggered by key up event.  
+ctrl-x means press and hold ctrl key, press x  
+
+<table>
+<colgroup>
+<col style="text-align:center;"/>
+<col style="text-align:left;"/>
+</colgroup>
+
+<thead> <tr> <th style="text-align:center;" colspan="4">Command mode keys</th> </tr> </thead>
+
+<tbody>
+<tr><th>Key</th><th>Action</th></tr>
+<tr><td style="text-align:center;">ctrl!</td>     <td style="text-align:left;">switch between command and insert modes</td> </tr>
+<tr> <td style="text-align:center;">z</td> <td style="text-align:left;"> enter into BROWSE mode</td></tr>
+<tr>     <td style="text-align:center;">shift!</td>     <td style="text-align:left;">save file</td> </tr>
+<tr>     <td style="text-align:center;">s</td>     <td style="text-align:left;">Easy jump (Similar to Vim EasyMotion https://github.com/easymotion/vim-easymotion ) </td> </tr>
+<tr> <td style="text-align:center;">tab</td> <td style="text-align:left;">switch betwen current and previous buffer/file</td></tr>
+<tr> <td style="text-align:center;">enter</td> <td style="text-align:left;"> (when cursor on link) open url in browser </td></tr>
+<tr> <td style="text-align:center;">enter</td> <td style="text-align:left;">(when cursor on /path/to/file.txt:linenum ) open file in editor, jump to linenum </td></tr>
+<tr> <td style="text-align:center;">,a</td> <td style="text-align:left;">Search for string using ack
+</td></tr>
+<tr> <td style="text-align:center;">,b</td> <td style="text-align:left;"> Switch buffer (jump to other open file)</td></tr>
+<tr> <td style="text-align:center;">,g</td> <td style="text-align:left;">search for input string inside current buffer</td></tr>
+<tr> <td style="text-align:center;">,f</td> <td style="text-align:left;">Fuzzy filename search</td></tr>
+<tr> <td style="text-align:center;">space c</td> <td style="text-align:left;">insert character "c"</td></tr>
+</tbody>
+</table>
+
+<table>
+<colgroup>
+<col style="text-align:center;"/>
+<col style="text-align:left;"/>
+</colgroup>
+
+<thead> <tr> <th style="text-align:center;" colspan="4">Insert mode keys (similar to bash or emacs)</th> </tr> </thead>
+
+<tbody>
+<tr> <td style="text-align:center;">ctrl! OR esc</td> <td style="text-align:left;">Switch to command mode</td></tr>
+<tr> <td style="text-align:center;">ctrl-n</td> <td style="text-align:left;">Move to next line</td></tr>
+<tr> <td style="text-align:center;">ctrl-p</td> <td style="text-align:left;">Move to previous line</td></tr>
+<tr> <td style="text-align:center;">ctrl-a</td> <td style="text-align:left;">Move beginning of line</td></tr>
+<tr> <td style="text-align:center;">ctrl-e</td> <td style="text-align:left;">Move to end of line</td></tr>
+<tr> <td style="text-align:center;">ctrl-b</td> <td style="text-align:left;">Move backward one char</td></tr>
+<tr> <td style="text-align:center;">ctrl-f</td> <td style="text-align:left;">Move forward one char</td></tr>
+<tr> <td style="text-align:center;">alt-f</td> <td style="text-align:left;">Move forward one word</td></tr>
+<tr> <td style="text-align:center;">alt-b</td> <td style="text-align:left;">Move backward one word</td></tr>
+</tbody>
+</table>
+
+
+<table>
+<colgroup>
+<col style="text-align:center;"/>
+<col style="text-align:left;"/>
+</colgroup>
+
+<thead> <tr> <th style="text-align:center;" colspan="4">Browse mode keys</th> </tr> </thead>
+
+<tbody>
+<tr> <td style="text-align:center;">h</td> <td style="text-align:left;">jump to previous buffer in history</td></tr>
+<tr> <td style="text-align:center;">l</td> <td style="text-align:left;">jump to next buffer in history</td></tr>
+<tr> <td style="text-align:center;">q</td> <td style="text-align:left;">jump to previous edited position</td></tr>
+<tr> <td style="text-align:center;">w</td> <td style="text-align:left;">jump to next edited position</td></tr>
+<tr> <td style="text-align:center;">j OR esc</td> <td style="text-align:left;">switch from browse to command mode</td></tr>
+</tbody>
+</table>
+
+Bindings can be customized in ~/.vimamsarc  
+For example, to bind ctrl-n to action "create new file":  
+```
+bindkey 'C ctrl-n',  'create_new_file()'
+```
 
-To install this gem onto your local machine, run `bundle exec rake install`. To release a new version, update the version number in `version.rb`, and then run `bundle exec rake release`, which will create a git tag for the version, push git commits and tags, and push the `.gem` file to [rubygems.org](https://rubygems.org).
+## Current limitations
+ - UTF8 only
+ - Line endings with "\n"
 
-## Contributing
 
-Bug reports and pull requests are welcome on GitHub at https://github.com/[USERNAME]/vimamsa.

data/exe/vimamsa

@@ -0,0 +1,40 @@
+#!/usr/bin/ruby
+require "ripl/multi_line"
+require "tempfile"
+# Ripl.config[:multi_line_prompt] = ' > '
+require "pathname"
+
+ENV["GTK_THEME"] = "Adwaita:dark"
+
+selfpath = __FILE__
+selfpath = File.readlink(selfpath) if File.lstat(selfpath).symlink?
+scriptdir = File.expand_path(File.dirname(selfpath) + "/..")
+
+
+# If process is already running, open the parameter file in the running process and exit.
+listen_dir = File.expand_path("~/.vimamsa/listen")
+if File.exist?(listen_dir) and !ARGV[0].nil?
+  tmpf = Tempfile.new("vmarun", listen_dir)
+  fp = tmpf.path
+  tmpf.write(ARGV[0])
+  tmpf.close
+  tstart = Time.new
+  timeout = false
+  while File.exist?(fp)
+    sleep 0.001
+    if Time.new - tstart > 0.5
+      timeout = true
+      break
+    end
+  end
+  exit(0) if !timeout
+end
+
+$LOAD_PATH.unshift(File.expand_path("lib"))
+$LOAD_PATH.unshift(File.expand_path("ext"))
+
+require "vimamsa"
+# Ilib:ext
+# r rbvma -e "puts VMA.new.run"
+$vmag = VMAg.new()
+$vmag.run

data/ext/vmaext/vmaext.c

@@ -3,11 +3,8 @@
 #include "ruby/ruby.h"
 
 #include <stdio.h>
-#include <string.h>
 #include <stdlib.h>
 
-#warning "C Preprocessor got here!"
-
 typedef struct node {
 int i;
 void * next;

data/lang/hyperplaintext.lang

@@ -0,0 +1,129 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!--
+
+ This file is part of GtkSourceView
+
+ Authors: Marco Barisione, Emanuele Aina
+ Copyright (C) 2005-2007 Marco Barisione <barisione@gmail.com>
+ Copyright (C) 2005-2007 Emanuele Aina
+
+ GtkSourceView is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Lesser General Public
+ License as published by the Free Software Foundation; either
+ version 2.1 of the License, or (at your option) any later version.
+
+ GtkSourceView is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ Lesser General Public License for more details.
+
+ You should have received a copy of the GNU Lesser General Public License
+ along with this library; if not, see <http://www.gnu.org/licenses/>.
+
+-->
+<language id="hyperplaintext" name="HyperPlainText" version="2.0" _section="Source">
+  <metadata>
+    <property name="mimetypes">text/x-c;text/x-csrc;image/x-xpixmap</property>
+    <property name="globs">*.txt</property>
+  </metadata>
+
+  <styles>
+    <style id="comment"           name="Comment"               map-to="def:comment"/>
+    <style id="title"           name="title"               map-to="def:title"/>
+    <style id="hyperlink"           name="hyperlink"               map-to="def:hyperlink"/>
+    <style id="heading1"           name="heading1"               map-to="def:heading1"/>
+    <style id="heading2"           name="heading1"               map-to="def:heading2"/>
+    <style id="heading3"           name="heading1"               map-to="def:heading3"/>
+    <style id="heading4"           name="heading1"               map-to="def:heading4"/>
+    <style id="string"            name="String"                map-to="def:string"/>
+    <style id="floating-point"    name="Floating point number" map-to="def:floating-point"/>
+  </styles>
+
+  <definitions>
+
+    <!--regexs-->
+    <define-regex id="preproc-start">^\s*#\s*</define-regex>
+    <define-regex id="escaped-character" extended="true">
+      \\(                   # leading backslash
+      [\\\"\'nrbtfav\?] |   # escaped character
+      [0-7]{1,3} |          # one, two, or three octal digits
+      x[0-9A-Fa-f]+         # 'x' followed by hex digits
+      )
+    </define-regex>
+
+    <!--contexts NOT used on the main context-->
+    <!-- TODO: what about scanf ? -->
+    <!-- man 3 printf -->
+    <context id="printf" style-ref="printf" extend-parent="false">
+      <match extended="true">
+        \%\%|\%
+        (?:[1-9][0-9]*\$)?      # argument
+        [#0\-\ \+\'I]*          # flags
+        (?:[1-9][0-9]*|\*)?     # width
+        (?:\.\-?(?:[0-9]+|\*))? # precision
+        (?:hh|ll|[hlLqjzt])?    # length modifier
+        [diouxXeEfFgGaAcsCSpnm] # conversion specifier
+      </match>
+    </context>
+
+
+    <context id="heading1" style-ref="heading1">
+      <match>(^◼[^◼].*)*</match>
+     </context>
+     
+     <context id="heading2" style-ref="heading2">
+      <match>(^◼◼[^◼].*)*</match>
+     </context>
+    
+     <context id="heading3" style-ref="heading3">
+      <match>(^◼◼◼[^◼].*)*</match>
+     </context>
+
+    <context id="heading4" style-ref="heading4">
+      <match>(^◼◼◼◼[^◼].*)*</match>
+     </context>
+     
+     <context id="title" style-ref="title">
+      <match>(^❙.*❙)</match>
+     </context>
+    
+      <context id="hyperlink" style-ref="hyperlink">
+      <match>(⟦.*⟧)</match>
+     </context>
+
+
+    <!-- http://www.lysator.liu.se/c/ANSI-C-grammar-l.html -->
+    <context id="float" style-ref="floating-point">
+      <match extended="true">
+        (?&lt;![\w\.])
+        ((\.[0-9]+ | [0-9]+\.[0-9]*) ([Ee][+-]?[0-9]*)? |
+         ([0-9]+[Ee][+-]?[0-9]*))
+        [fFlL]?
+        (?![\w\.])
+      </match>
+    </context>
+
+    <context id="decimal" style-ref="decimal">
+      <match extended="true">
+        (?&lt;![\w\.])
+        (0|[1-9][0-9]*)[uUlL]*
+        (?![\w\.])
+      </match>
+    </context>
+
+
+    <!--Main context-->
+    <context id="hyperplaintext" class="no-spell-check">
+      <include>
+        <context ref="title"/>
+        <context ref="hyperlink"/>
+        <context ref="heading1"/>
+        <context ref="heading2"/>
+        <context ref="heading3"/>
+        <context ref="heading4"/>
+        <context ref="float"/>
+      </include>
+    </context>
+
+  </definitions>
+</language>

data/lib/vimamsa.rb

@@ -1,10 +1,12 @@
 require "vimamsa/version"
 require "vmaext"
 
+require "vimamsa/rbvma"
+
 module Vimamsa
   # Your code goes here...
   def self.test
     puts "Vimamsa test"
-    puts srn_dst("foobar","baz")
+    puts srn_dst("foobar", "baz")
   end
 end

data/lib/vimamsa/ack.rb

@@ -0,0 +1,35 @@
+# Interface for ack! https://beyondgrep.com/
+
+def gui_ack()
+  nfo = "<html><h2>Search contents of all files using ack</h2>
+  <div style='width:300px'>
+  <p>Hint: add empty file named .vma_project to dirs you want to search.</p>\n<p>If .vma_project exists in parent dir of current file, searches within that dir</p></div></html>"
+  
+  nfo = "<span size='x-large'>Search contents of all files using ack</span>
+  
+  <span>Hint: add empty file named .vma_project to directories you want to search in. 
+ If .vma_project exists in parent directory of current file, searches within that directory.
+  </span>"
+ 
+  
+  callback = proc{|x| ack_buffer(x)}
+  gui_one_input_action(nfo, "Search:", "search", callback)
+end
+
+def invoke_ack_search()
+  start_minibuffer_cmd("", "", :ack_buffer)
+end
+
+def ack_buffer(instr, b = nil)
+  instr = instr.gsub("'", ".") # TODO
+  bufstr = ""
+  for path in $vma.get_content_search_paths
+    bufstr += run_cmd("ack -Q --type-add=gd=.gd -k --nohtml --nojs --nojson '#{instr}' #{path}")
+  end
+  if bufstr.size > 5
+    create_new_file(nil, bufstr)
+  else
+    message("No results for input:#{instr}")
+  end
+end
+

data/lib/vimamsa/actions.rb

@@ -0,0 +1,125 @@
+class Action
+  attr_accessor :id, :method_name, :method
+
+  def initialize(id, method_name, method, scope = [])
+    @method_name = method_name
+    @id = id
+    @method = method
+    $actions[id] = self
+  end
+end
+
+$actions = {}
+
+# def reg_act(id, callfunc, name = "", scope = [])
+  # if callfunc.class == Proc
+    # a = Action.new(id, name, callfunc, scope)
+  # else
+    # a = Action.new(id, name, method(callfunc), scope)
+  # end
+# end
+
+def reg_act(id, callfunc, name = "", scope = [])
+  if callfunc.class == Proc
+    a = Action.new(id, name, callfunc, scope)
+  else
+    begin
+      m = method(callfunc)
+    rescue NameError
+      m = method("missing_callfunc")
+    end
+    a = Action.new(id, name, m, scope)
+  end
+end
+
+def missing_callfunc
+  puts "missing_callfunc"
+end
+
+
+def call(id)
+  a = $actions[id]
+  if a
+    #        Ripl.start :binding => binding
+    a.method.call()
+  end
+end
+
+def search_actions()
+  l = []
+  $select_keys = ["h", "l", "f", "d", "s", "a", "g", "z"]
+  qt_select_update_window(l, $select_keys.collect { |x| x.upcase },
+                          "search_actions_select_callback",
+                          "search_actions_update_callback")
+end
+
+$item_list = []
+
+def search_actions_update_callback(search_str = "")
+  #    item_list = $actions.collect {|x| x[1].id.to_s}
+  return [] if search_str == ""
+  # item_list = $action_list.collect { |x|
+    # actname = x[:action].to_s
+    # if x[:action].class == Symbol
+      # mn = $actions[x[:action]].method_name
+      # actname = mn if mn.size > 0
+    # end
+    # r = { :str => actname, :key => x[:key], :action => x[:action] }
+  # }
+
+  # => {:str=>"insert_new_line", :key=>"I return", :action=>:insert_new_line}
+
+  item_list2 = []
+  for act_id in $actions.keys
+    act = $actions[act_id]
+    item = {}
+    item[:key] = ""
+    item[:action] = act_id
+    item[:str] = act_id.to_s
+    if $actions[act_id].method_name != ""
+      item[:str] = $actions[act_id].method_name
+    end
+    item_list2 << item
+  end
+  # Ripl.start :binding => binding
+  item_list = item_list2
+
+  a = filter_items(item_list, 0, search_str)
+  puts a.inspect
+
+  r = a.collect { |x| [x[0][0], 0, x] }
+  puts r.inspect
+  $item_list = r
+  # Ripl.start :binding => binding
+
+  r = a.collect { |x| ["[#{x[0][:key]}] #{x[0][:str]}", 0, x] }
+  return r
+end
+
+def search_actions_select_callback(search_str, idx)
+  item = $item_list[idx][2]
+  acc = item[0][:action]
+
+  puts "Selected:" + acc.to_s
+  qt_select_window_close(0)
+
+  if acc.class == String
+    eval(acc)
+  elsif acc.class == Symbol
+    puts "Symbol"
+    call(acc)
+  end
+end
+
+def filter_items(item_list, item_key, search_str)
+  #    Ripl.start :binding => binding
+  item_hash = {}
+  scores = Parallel.map(item_list, in_threads: 8) do |item|
+    [item, srn_dst(search_str, item[:str])]
+  end
+  scores.sort_by! { |x| -x[1] }
+  puts scores.inspect
+  scores = scores[0..30]
+
+  return scores
+end