Migrating from Evil to Vim

Hi.
Excuse me for my poor English and lack of knowledge about computers. I am a lawyer. Therefore I have to make a lot of batch text processing: pleadings, counselling in e-petions, outline of laws, etc.

People who sold me the Common Lisp packages for law practice told me that the Steel Bank Common Lisp is very fast for text processing, therefore I should run the scripts they sold me in this particular brand of Common Lisp. They gave me the following explanation about how it works. In my .emacs configuration file there is a small elisp program that install Evil and Steel Bank Common Lisp scripting. At the end of this article there is a simplified version of my .emacs configuration file and two examples of Steel Bank Common Lisp to test them.

What I would like from the members of this discussion list is the Vim equivalent of my .emacs configuration file, so I can run my scripts and define new keybindings in Common Lisp. By the way, I use the C-c p keybinding to change the name of the Common Lisp program that I want to run. For instance, if I want to run the reverse.lisp program, I type 'reverse.' somewhere on my document:

reverse.

Then I press Esc to enter <N>ormal state, place the cursor on the first letter of the file name, and press vf.Ctrl-c p and finally d to remove the name of the program and exit <V>isual state.

The name of the file is removed from the text, and the program I want to use is installed in the C-c e keybinding. Now, I write a list and put the cursor inside the list and press C-c e to execute the program:

(badly sing cats)Reversed list:
(CATS SING BADLY)

By the way, I use Common Lisp functions in regexps too. That is the reason for not using arguments in my functions. An example will make things clear. Let us assume that I have a function without argument to convert pinyin to Chines ideograms. Let us put this function inside an org-mode SRC block.

#+BEGIN_SRC emacs-lisp
(defun fn()
(cond ((equal (match-string 1) "zhong") "中")
((equal (match-string 1) "hua") "华")
(t "nada")))
; :s/\(\<[a-z]+\>\)/\,(fn)/gc
#+END_SRC

After pressing C-c C-c inside the block, I can start converting pinyin to Chinese characters. Of course, in the example, there is only two characters; since I need hundreds of them, I put the fn function in a file and only the code to load it goes into the SRC block. I tried this in Vim, but it refused to accept the function inside the replacement expression. I mean, it did not accept \,(fn) in the replacement expression. The reason, I suppose is that I did not configure Vim to accept Common Lisp scripts.

That is all. Thank you for helping me. Since Evil is an emulation of Vim, I suppose that Vim is vastly superior to Evil. Therefore, I am looking forward for receiving the Vim configuration that accept SBCL scripting.


;; .emacs for scripting in sbcl

(setq inhibit-splash-screen t)
(add-to-list 'default-frame-alist '(height . 24))
(add-to-list 'default-frame-alist '(width . 80))
(set-default-font "Monaco 20")

(add-to-list 'load-path "~/.emacs.d/slime/")
(setq inferior-lisp-program "/usr/local/bin/sbcl")
(add-to-list 'load-path "~/.emacs.d/evil")
(add-to-list 'load-path "~/.emacs.d/evil/lib")
(setq evil-want-C-i-jump nil)
(require 'evil)
(evil-mode 1)

;; sbcl-scripting
(setq theprogram "app.lisp")

(defun processRegion(m p)
(call-process-region m p
"/usr/local/bin/sbcl"
nil ; do not delete region
t ; send output to buffer
nil ; no redisplay during output
"--script" theprogram))

(defun toLisp-text-object()
(interactive)
(save-excursion
(beginning-of-line)
(push-mark)
(end-of-line)
(processRegion (mark) (point))))

(defun change-program(m p)
(interactive "r")
(setq theprogram
(format "%slisp" (buffer-substring m p))))

(global-set-key (kbd "C-c p") 'change-program)
(global-set-key (kbd "C-c e") 'toLisp-text-object)


Put the Common Lisp programs in separate files:

;; reverse.lisp
(format t "Reversed list: ~%~a~%"
(reverse (read)))

(quit)

;; app.lisp
(defun apn(s)
(cond ((null s) "not a list")
((consp (car s)) (append (car s) (cdr s)))
(t (append '(cats) s)) ))

(format t "~%~a~%" (apn (read)))


--
--
You received this message from the "vim_use" maillist.
Do not top-post! Type your reply below the text you are replying to.
For more information, visit http://www.vim.org/maillist.php

---
You received this message because you are subscribed to the Google Groups "vim_use" group.
To unsubscribe from this group and stop receiving emails from it, send an email to vim_use+unsubscribe@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.