...
 
Commits (2)
*~
*.*fasl
.DS_Store
This diff is collapsed.
......@@ -7,7 +7,7 @@
(defmode "Vim Visual")
(defvar *orig-meta-prefix-gesture-spec* editor::*meta-prefix-gesture-spec*)
(defvar *orig-interrupt-keys* '(#\c-g))
(defvar *orig-interrupt-keys* '("Control-g" "Control-G"))
(defcommand "All Vim" (p)
"Put all buffers in Vim Command mode."
......
......@@ -354,9 +354,7 @@
; *vim-last-action* #'identity
*vim-repeat-multiplier* nil)
)
(setf editor::*meta-prefix-gesture-spec* (sys::make-gesture-spec
(char-code #\C-Escape)
sys:gesture-spec-control-bit))
(setf editor::*meta-prefix-gesture-spec* (sys:coerce-to-gesture-spec "Control-Escape"))
; fixme: can't seem to have the meta-prefix-gesture and the interrupt key be the same key
#+nil
(set-interrupt-keys '(#\escape)))
......
(defsystem "lw-vim-mode"
:author "Larry Clapp <larry@theclapp.org>"
:license "LLGPL"
:description "A Vim mode for the LispWorks Editor."
:serial t
:components
((:file "packages")
(:file "wrap-editor")
(:file "vars")
(:file "classes")
(:file "vim-vars")
(:file "def-stuff")
(:file "macros")
(:file "functions")
(:file "commands")
(:file "bindings")
))
......@@ -2,11 +2,11 @@
(eval-when (:compile-toplevel :load-toplevel :execute)
(defmacro wrap-editor-function (symbol)
(let ((editor-symbol (intern symbol :editor)))
(let ((editor-symbol (intern (string symbol) :editor)))
`(defun ,symbol (&rest rest)
(apply ',editor-symbol rest))))
(defmacro wrap-editor-macro (symbol)
(let ((editor-symbol (intern symbol :editor)))
(let ((editor-symbol (intern (string symbol) :editor)))
`(defmacro ,symbol (&rest rest)
`(,',editor-symbol ,@rest))))
(editor:setup-indent 'wrap-list-with 1)
......