ver 2009.10.14

data/config/theme/starlight.json

@@ -0,0 +1,67 @@
+{
+  "name": "Starlight",
+  "settings": [
+    {
+      "settings": {
+        "background": "#223859F2",
+        "caret": "#D0C179",
+        "foreground": "#C0B6A8",
+        "invisibles": "#BFBFBF",
+        "lineHighlight": "#0000001F",
+        "selection": "#50729C"
+      }
+    },
+    {
+      "name": "Comment",
+      "scope": "comment",
+      "settings": {
+        "fontStyle": "",
+        "foreground": "#AEAEAE"
+      }
+    },
+    {
+      "name": "String",
+      "scope": "string",
+      "settings": {
+        "fontStyle": "",
+        "foreground": "#B9A185"
+      }
+    },
+    {
+      "name": "Number",
+      "scope": "constant.numeric",
+      "settings": {
+        "foreground": "#B9A185"
+      }
+    },
+    {
+      "name": "Keyword",
+      "scope": "keyword",
+      "settings": {
+        "fontStyle": "",
+        "foreground": "#A38474"
+      }
+    },
+    {
+      "name": "Entity",
+      "settings": {
+        "foreground": "#B8ADA0"
+      }
+    },
+    {
+      "name": "Variable",
+      "scope": "variable",
+      "settings": {
+        "foreground": "#A19A83"
+      }
+    },
+    {
+      "name": "Invalid",
+      "scope": "invalid",
+      "settings": {
+        "foreground": "#F3D651"
+      }
+    }
+  ],
+  "uuid": "750AEFCD-88F3-4E2C-9560-1CF215A393C9"
+}

data/config/tutorial

@@ -0,0 +1,74 @@
+=====================================================================
+=  Welcome to the VER Tutor - Version 2009.09  =
+================================================
+
+VER is a very powerful editor that has many commands, too many to
+explain in a tutor such as this.  This tutor is designed to describe
+enough of the commands that you will be able to easily use VER as
+an all-purpose editor.
+
+The approximate time required to complete the tutor is 25-30 minutes,
+depending upon how much time is spent with experimentation.
+
+ATTENTION:
+The commands in the lessons will modify the text.  Make a copy of this
+file to practise on (if you started "vertutor" this is already a copy).
+
+It is important to remember that this tutor is set up to teach by
+use.  That means that you need to execute the commands to learn them
+properly.  If you only read the text, you will forget the commands!
+
+Now, make sure that your Shift-Lock key is NOT depressed and press
+the   j   key enough times to move the cursor so that Lesson 1.1
+completely fills the screen.
+
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Lesson 1.1:  MOVING THE CURSOR
+
+
+To move the cursor, press the h,j,k,l keys as indicated.
+
+		^
+		k		Hint:  The h key is at the left and moves left.
+	< h		l >	The l key is at the right and moves right.
+		j		The j key looks like a down arrow.
+		v
+
+1. Move the cursor around the screen until you are comfortable.
+
+2. Hold down the down key (j) until it repeats.
+   Now you know how to move to the next lesson.
+
+3. Using the down key, move to Lesson 1.2.
+
+NOTE:	If you are ever unsure about something you typed, press <ESC> to place
+	you in Normal mode. Then retype the command you wanted.
+
+NOTE:	The cursor keys should also work. But using hjkl you will be able to
+	move around much faster, once you get used to it. Really!
+
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Lesson 1.2: EXITING VIM
+
+
+!! NOTE: Before executing any of the steps below, read this entire lesson!!
+
+1. Press the <ESC> key (to make sure you are in Normal mode).
+
+2. Type:	:q! <ENTER>.
+   This exits the editor, DISCARDING any changes you have made.
+
+3. When you see the shell prompt, type the command that got you into this
+   tutor. That would be: vimtutor <ENTER>
+
+4. If you have these steps memorized and are confident, execute steps
+   1 through 3 to exit and re-enter the editor.
+
+NOTE:	:q! <ENTER>  discards any changes you made.  In a few lessons you
+	will learn how to save the changes to a file.
+
+  5. Move the cursor down to Lesson 1.3.
+
+
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+	Lesson 1.3: TEXT EDITING - DELETION

data/config/welcome

@@ -0,0 +1,115 @@
+====================================================
+=  Welcome to VER, the Vim & Emacs in Ruby editor  =
+====================================================
+
+This project can be found at: http://github.com/manveru/ver
+
+Notes:
+  * M usually stands for the alt key on your keyboard.
+
+Various help commands (all not implemented yet):
+  [M-h h] : Open help browser
+  [M-h k] : Query help for key
+  [M-h g] : Grep help
+  [M-h t] : Open tutorial
+
+Quick intro:
+
+VER is a modal editor, drawing from both Emacs and Vim for inspiration, as they are both excellent projects but have very different downsides.
+I tried to address these downsides:
+
+  * Use of a real programming language (Ruby) for implementation, configuration and scripting (no ancient elisp or crazy vimscript)
+  * Easy to use keymappings to emulate other editors while maintaining the strength of a live environment.
+  * I don't intend this editor to be everything for everybody, it's just useful for myself for now.
+  * Make editing powerful without years of learning and remembering arcane shortcuts, and don't require users of the editor to sacrifice their wrists.
+  * Allow project-based browsing and grepping right from the start.
+  * Easily identify the mode you are in by looking at the color of the status line and cursor.
+
+Currently working:
+
+  * [C-x] : Eval a line of ruby
+  * [C-e] : Eval current line and output result below
+  * Buffers
+    * [C-s] : Save buffer contents to file
+  * Opening new buffers
+    * [M-o] : Fuzzy file browser (only use for projects)
+    * [C-o] : Normal file browser (fast for anything, but less magic)
+    * [C-g] : Grep browser, grep all files and jump to matches
+  * Switching buffers
+    * [M-1] to [M-9] : Quick switching buffers
+    * [M-b]          : Switching buffers by partial name
+  * [C-q] : Exit current mode or close VER
+  * [C-w] : Close current buffer (requires confirmation if buffer was modified)
+  * Selection, Copy, Paste
+    * Starting selection
+      * [v]   : charwise
+      * [V]   : linewise
+      * [C-v] : blockwise
+      * Once selection is active, you can switch between these selection modes
+        with the same keys.
+        So, if you started charwise selection but would like to select
+        blockwise instead, just hit [C-v]
+    * Copy to clipboard
+      * [y] : copy current selection
+      * [Y] : copy the full lines touched by current selection
+    * Paste from clipboard
+      * [p] : paste after current cursor position
+      * [P] : paste before current cursor position
+    * Indent
+      * [>] : Indent selection
+      * [<] : Unindent selection
+    * Filter
+      * [!] : Filter selection through external program
+      * [M-e] : Eval selection and output result below
+  * Syntax highlighting
+    - No keys associated, the syntax is detected by filename extension for now.
+    - Trailing newlines are highlighted by default.
+  * Searching
+    * [/] : Start searching by regular expression
+    * [n] : Jump to next search result
+    * [N] : Jump to previous search result
+  * Indentation
+    * [>] : Indent line
+    * [<] : Unindent line
+  * Movement
+    * Basic
+      * [j] : Line down
+      * [k] : Line up
+      * [h] : Char left
+      * [l] : Char right
+    * Jumps
+      * [w] : Word right
+      * [W] : Chunk right
+      * [b] : Word left
+      * [B] : Chunk left
+      * [0] : Beginning of line
+      * [$] : End of line
+      * [G] : Last line
+      * [g g] : First line
+      * [C-f] or [npage] : One page down
+      * [C-b] or [ppage] : One page up
+      * [0 g], [50 g], [100 g], ... : Jump to given line
+  * Completion
+    * [tab]     : Last used completion, if first time it defaults to word completion
+    * [C-x C-w] : Word completion
+    * [C-x C-l] : Full line completion
+    * [C-x C-f] : Filename completion
+    * [C-x C-s] : spelling completion (needs aspell)
+
+
+How to run VER:
+
+First, make sure that you have the bin/ directory in your PATH.
+On startup you can choose which keymap to use, VER currently ships with two: vi and diakonos. The vi mapping is the default.
+
+  ver -k diakonos
+  ver -k vi
+
+
+Todo:
+
+  - [M-s] : Save file under different name
+  - [M-x] : Live ruby console (figure out some nice way)
+  - FFI bindings for X11 so we can communicate with it and have a proper clipboard (xclip is weak)
+  - Proper handling of [esc], halfdelay works if it's called later, but makes other control characters send signals.
+  - Handling tabs

data/help/index.verh

@@ -0,0 +1,14 @@
+* VER Help system
+
+** Control keymappings
+
+To exit:            C-q
+To open a file:     C-o
+To close a file:    C-w
+To save a buffer:   C-s
+To select a buffer: C-b
+To go to insert mode: i
+
+** Insert mode keymappings
+
+To go to control mode: C-c

data/lib/ver.rb

@@ -0,0 +1,156 @@
+# Well begun is half done.
+#             -- Aristotle
+
+# TODO: remove before release
+$LOAD_PATH.unshift File.expand_path('../', __FILE__)
+
+# stdlib
+require 'tk'
+require 'benchmark'
+require 'digest/sha1'
+require 'fileutils'
+require 'json'
+require 'pathname'
+require 'pp'
+require 'securerandom'
+require 'set'
+require 'tmpdir'
+
+class Pathname
+  alias / join
+
+  def cp(dest)
+    FileUtils.copy_file(expand_path.to_s, dest.to_s, preserve = true)
+  end
+
+  def =~(regexp)
+    to_s =~ regexp
+  end
+end
+
+module VER
+  autoload :BufferListView,      'ver/view/buffer_list_view'
+  autoload :Entry,               'ver/entry'
+  autoload :FuzzyFileFinderView, 'ver/view/fuzzy_file_finder_view'
+  autoload :Keymap,              'ver/keymap'
+  autoload :Layout,              'ver/layout'
+  autoload :ListView,            'ver/view/list_view'
+  autoload :Methods,             'ver/methods'
+  autoload :Mode,                'ver/mode'
+  autoload :Status,              'ver/status'
+  autoload :SyntaxListView,      'ver/view/syntax_list_view'
+  autoload :Syntax,              'ver/syntax'
+  autoload :Text,                'ver/text'
+  autoload :Textpow,             'ver/textpow'
+  autoload :Theme,               'ver/theme'
+  autoload :ThemeListView,       'ver/view/theme_list_view'
+  autoload :View,                'ver/view'
+
+  home_conf_dir = Pathname('~/.config/ver').expand_path
+  core_conf_dir = Pathname(File.expand_path('../../config/', __FILE__))
+
+  # poor man's option system
+  # p Tk::Tile.themes # a list of available themes
+  #   Linux themes: "classic", "default", "clam", "alt"
+  OPTIONS = {
+    font:          TkFont.new(family: 'Terminus', size: 9),
+    tk_theme:      'clam',
+    theme:         'Blackboard',
+    keymap:        'vim',
+    global_quit:   'Control-q',
+    home_conf_dir: home_conf_dir,
+    core_conf_dir: core_conf_dir,
+    loadpath:      [home_conf_dir, core_conf_dir],
+  }
+
+  class << self
+    attr_reader :root, :layout, :status, :paths, :options
+  end
+
+  module_function
+
+  def loadpath
+    options[:loadpath]
+  end
+
+  def run(given_options = {})
+    @options = OPTIONS.merge(given_options)
+
+    setup
+    first_startup unless options[:home_conf_dir].directory?
+    load 'rc'
+    open_argv || open_welcome
+    emergency_bindings
+
+  rescue => exception
+    puts "#{exception.class}: #{exception}", *exception.backtrace
+    Tk.exit
+  else
+    Tk.mainloop
+  end
+
+  def setup
+    Thread.abort_on_exception = true
+
+    Tk::Tile.set_theme options[:tk_theme]
+
+    @paths = Set.new
+    @root = TkRoot.new
+    @layout = Layout.new(@root)
+    @layout.strategy = Layout::VerticalTiling
+  end
+
+  def first_startup
+    home, core = options.values_at(:home_conf_dir, :core_conf_dir)
+    home.mkpath
+
+    (core/'rc.rb').cp(home/'rc.rb')
+    (core/'scratch').cp(home/'scratch')
+    (core/'tutorial').cp(home/'tutorial')
+    (core/'welcome').cp(home/'welcome')
+  end
+
+  def load(name)
+    loadpath.each do |path|
+      file = File.join(path, name)
+
+      begin
+        require(file)
+        return
+      rescue LoadError
+      end
+    end
+  end
+
+  def find_in_loadpath(basename)
+    loadpath.each do |dirname|
+      file = dirname/basename
+      return file if file.file?
+    end
+
+    nil
+  end
+
+  def open_argv
+    ARGV.each{|arg|
+      layout.create_view do |view|
+        view.open_path(arg)
+      end
+    }.any?
+  end
+
+  def open_welcome
+    layout.create_view do |view|
+      welcome = find_in_loadpath('welcome')
+      view.open_path(welcome)
+    end
+  end
+
+  def emergency_bindings
+    Tk.bind :all, options[:global_quit], proc{ exit }
+  end
+
+  def opened_file(text)
+    @paths << text.filename
+  end
+end

data/lib/ver/entry.rb

@@ -0,0 +1,97 @@
+module VER
+  # A custom widget for easier integration
+  #
+  # The style related things are needed for Tk versions around 8.5.7, which is what everybody is using currently.
+  # It doesn't GC styles of widgets that are no longer used, so if we simply keep using new style names, we would eventually run out of memory.
+  # A small leak, but better we cover this now than tracking it down later.
+  # Tk should get some user states, called like 'user1', 'user2', 'user3', that would allow some flexibility, but still won't be able to represent every mode.
+  class Entry < Tk::Tile::Entry
+    STYLE_NAME_REGISTER = []
+    STYLE_NAME_POOL = []
+
+    def self.obtain_style_name
+      unless style_name = STYLE_NAME_POOL.shift
+        begin
+          id = SecureRandom.hex
+          style_name = "#{id}.#{self}.TEntry"
+        end while STYLE_NAME_REGISTER.include?(style_name)
+        STYLE_NAME_REGISTER << style_name
+      end
+
+      style_name
+    end
+
+    def self.return_style_name(style_name)
+      STYLE_NAME_POOL << style_name
+    end
+
+    def style
+      style = cget(:style)
+      style.flatten.first if style
+    end
+
+    def quit
+      Tk.exit
+    end
+
+    def value=(string)
+      super
+      Tk.event_generate(self, '<Modified>')
+    end
+
+    def delete(*args)
+      super
+      Tk.event_generate(self, '<Modified>')
+    end
+
+    def insert(*args)
+      super
+      Tk.event_generate(self, '<Modified>')
+    end
+
+    def message(string)
+      self.value = string
+    end
+
+    def error(string)
+      self.value = string
+    end
+
+    def insert_string(string)
+      insert cursor, string
+    end
+
+    def delete_char_left
+      delete(cursor - 1)
+    end
+
+    def delete_char_right
+      delete(cursor)
+    end
+
+    def go_char_left
+      self.cursor = cursor - 1
+    end
+
+    def go_char_right
+      self.cursor = cursor + 1
+    end
+
+    def go_word_left
+      if index = value.rindex(/.\b\s/, cursor - 1)
+        self.cursor = index
+      else
+        self.cursor = 0
+      end
+    end
+
+    def go_word_right
+      if match = value.match(/\s\b/, cursor)
+        offset_from, offset_to = match.offset(0)
+        self.cursor = offset_to
+      else
+        self.cursor = :end
+      end
+    end
+  end
+end