(in-package :editor)

; To compile this in a stand-alone Lisp w/out loading the environment, use
; lw -build =(print '(compile-file "vimmode")')
; (The =() is zsh-specific though).  You could also say
; echo '(compile-file "vimmode")' > /tmp/build ; lw -build /tmp/build

(eval-when (:compile-toplevel :load-toplevel :execute)
  (defmacro compile-load (file)
    `(eval-when (:compile-toplevel :load-toplevel :execute)
       (compile-file-if-needed ,file :load t))))

(compile-load "vars")
(compile-load "classes")
(compile-load "vim-vars")
(compile-load "def-stuff")
(compile-load "macros")
(compile-load "functions")
(compile-load "commands")
(compile-load "bindings")

#+nil
(defvar *lmc-buffer-string*)
#+nil
(defcommand "Vim Test" (p) "" ""
  (with-point ((begin (current-point))
               (end (current-point)))
    (line-start begin)
    (line-end end)
    (setf *lmc-buffer-string*
          (points-to-buffer-string begin end))
    (format t "~&current line ~S~%"
            (points-to-string begin end))))
#+nil
(defcommand "Vim Test" (p) "" ""
  (setf (next-character (current-point)) #\x))
#+nil
(defcommand "Vim Test" (p) "" ""
  (format t "char is ~S~%"
          (gesture-to-simple-char (prompt-for-character* "Character: " t))))
#+nil
(defcommand "Vim Test" (p) "" ""
  (vim-replace-character p))
#+nil
(bind-key "Vim Test" #(#\C-\, #\C-\.))

#+nil
(defun h1 ()
  (format t "~&h1~%"))
#+nil
(flet ((h2 () (format t "~&h2~%")))
  (add-global-hook vim-before-top-level-command-hooks #'h2))