uh more cleanup of dot vim
This commit is contained in:
LinlyBoi
@@ -1,21 +0,0 @@
|
|||||||
The MIT License (MIT)
|
|
||||||
|
|
||||||
Copyright (c) 2103 Benjamin Mills
|
|
||||||
|
|
||||||
Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
||||||
of this software and associated documentation files (the "Software"), to deal
|
|
||||||
in the Software without restriction, including without limitation the rights
|
|
||||||
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
||||||
copies of the Software, and to permit persons to whom the Software is
|
|
||||||
furnished to do so, subject to the following conditions:
|
|
||||||
|
|
||||||
The above copyright notice and this permission notice shall be included in
|
|
||||||
all copies or substantial portions of the Software.
|
|
||||||
|
|
||||||
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
||||||
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
||||||
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
||||||
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
||||||
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
||||||
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
|
||||||
THE SOFTWARE.
|
|
||||||
@@ -1,38 +0,0 @@
|
|||||||
# vimux
|
|
||||||
|
|
||||||
Easily interact with tmux from vim.
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
What inspired me to write vimux was [tslime.vim](https://github.com/kikijump/tslime.vim), a plugin that lets you send input to tmux. While tslime.vim works well, I felt it wasn't optimized for my primary use case which was having a smaller tmux pane that I would use to run tests or play with a REPL.
|
|
||||||
|
|
||||||
My goal with vimux is to make interacting with tmux from vim effortless. By default when you call `VimuxRunCommand` vimux will create a 20% tall horizontal pane under your current tmux pane and execute a command in it without losing focus of vim. Once that pane exists whenever you call `VimuxRunCommand` again the command will be executed in that pane. As I was using vimux myself I wanted to rerun commands over and over. An example of this was running the current file through rspec. Rather than typing that over and over I wrote `VimuxRunLastCommand` that will execute the last command you called with `VimuxRunCommand`.
|
|
||||||
|
|
||||||
Other auxiliary functions and the ones I talked about above can be found bellow with a full description and example key binds for your vimrc.
|
|
||||||
|
|
||||||
## Installation
|
|
||||||
|
|
||||||
With **[vim-bundle](https://github.com/benmills/vim-bundle)**: `vim-bundle install benmills/vimux`
|
|
||||||
With **[Vundle](https://github.com/gmarik/Vundle.vim)**: 'Plugin benmills/vimux' in your .vimrc
|
|
||||||
|
|
||||||
Otherwise download the latest [tarball](https://github.com/benmills/vimux/tarball/master), extract it and move `plugin/vimux.vim` inside `~/.vim/plugin`. If you're using [pathogen](https://github.com/tpope/vim-pathogen), then move the entire folder extracted from the tarball into `~/.vim/bundle`.
|
|
||||||
|
|
||||||
_Notes:_
|
|
||||||
|
|
||||||
* Vimux assumes a tmux version >= 1.5. Some older versions might work but it is recommeded to use at least version 1.5.
|
|
||||||
|
|
||||||
## Platform-specific Plugins
|
|
||||||
|
|
||||||
* [vim-vroom](https://github.com/skalnik/vim-vroom) runner for rspec, cucumber and test/unit; vimux support via `g:vroom_use_vimux`
|
|
||||||
* [vimux-ruby-test](https://github.com/pgr0ss/vimux-ruby-test) a set of commands to easily run ruby tests
|
|
||||||
* [vimux-cucumber](https://github.com/cloud8421/vimux-cucumber) run Cucumber Features through Vimux
|
|
||||||
* [vim-turbux](https://github.com/jgdavey/vim-turbux) Turbo Ruby testing with tmux
|
|
||||||
* [vimux-pyutils](https://github.com/julienr/vimux-pyutils) A set of functions for vimux that allow to run code blocks in ipython
|
|
||||||
* [vimux-nose-test](https://github.com/pitluga/vimux-nose-test) Run nose tests in vimux
|
|
||||||
* [vimux-golang](https://github.com/benmills/vimux-golang) Run go tests in vimux
|
|
||||||
* [vimux-zeus](https://github.com/jingweno/vimux-zeus) Run zeus commands in vimux
|
|
||||||
* [vimix](https://github.com/spiegela/vimix) Run Elixir mix commands in vimux
|
|
||||||
|
|
||||||
## Usage
|
|
||||||
|
|
||||||
The full documentation is available [online](https://raw.github.com/benmills/vimux/master/doc/vimux.txt) and accessible inside vim `:help vimux`
|
|
||||||
@@ -1,355 +0,0 @@
|
|||||||
*vimux.txt* easily interact with tmux
|
|
||||||
|
|
||||||
Vimux
|
|
||||||
effortless vim and tmux interaction
|
|
||||||
|
|
||||||
==============================================================================
|
|
||||||
CONTENTS *vimux-contents*
|
|
||||||
|
|
||||||
1. About............................ |VimuxAbout|
|
|
||||||
2. Usage ........................... |VimuxUsage|
|
|
||||||
2.1 .............................. |VimuxPromptCommand|
|
|
||||||
2.2 .............................. |VimuxRunLastCommand|
|
|
||||||
2.3 .............................. |VimuxInspectRunner|
|
|
||||||
2.4 .............................. |VimuxCloseRunner|
|
|
||||||
2.5 .............................. |VimuxInterruptRunner|
|
|
||||||
2.6 .............................. |VimuxClearRunnerHistory|
|
|
||||||
2.7 .............................. |VimuxZoomRunner|
|
|
||||||
2.8 .............................. |VimuxRunCommandInDir|
|
|
||||||
3. Misc ............................ |VimuxMisc|
|
|
||||||
3.1 Example Keybinding............ |VimuxExampleKeybinding|
|
|
||||||
3.2 Tslime Replacement............ |VimuxTslimeReplacement|
|
|
||||||
4. Configuration ................... |VimuxConfiguration|
|
|
||||||
|
|
||||||
|
|
||||||
==============================================================================
|
|
||||||
ABOUT (1) *VimuxAbout*
|
|
||||||
|
|
||||||
Vimux -- Easily interact with tmux from vim.
|
|
||||||
|
|
||||||
What inspired me to write vimux was tslime.vim [1], a plugin that lets you
|
|
||||||
send input to tmux. While tslime.vim works well, I felt it wasn't optimized
|
|
||||||
for my primary use case which was having a smaller tmux pane that I would use
|
|
||||||
to run tests or play with a REPL.
|
|
||||||
|
|
||||||
My goal with vimux is to make interacting with tmux from vim effortless. By
|
|
||||||
default when you call `VimuxRunCommand` vimux will create a 20% tall
|
|
||||||
horizontal pane under your current tmux pane and execute a command in it
|
|
||||||
without losing focus of vim. Once that pane exists whenever you call
|
|
||||||
`VimuxRunCommand` again the command will be executed in that pane. As I was
|
|
||||||
using vimux myself I wanted to rerun commands over and over. An example of
|
|
||||||
this was running the current file through rspec. Rather than typing that over
|
|
||||||
and over I wrote `VimuxRunLastCommand` that will execute the last command
|
|
||||||
you called with `VimuxRunCommand`.
|
|
||||||
|
|
||||||
Other auxiliary functions and the ones I talked about above can be found
|
|
||||||
bellow with a full description and example key binds for your vimrc.
|
|
||||||
|
|
||||||
[1] https://github.com/kikijump/tslime.vim
|
|
||||||
|
|
||||||
|
|
||||||
==============================================================================
|
|
||||||
USAGE (2) *VimuxUsage*
|
|
||||||
|
|
||||||
The function VimuxRunCommand(command) is the core of Vimux. It will
|
|
||||||
create a split pane in the current window and run the passed command in it.
|
|
||||||
>
|
|
||||||
:call VimuxRunCommand("ls")
|
|
||||||
<
|
|
||||||
This will run the command in a split pane without losing focus of vim. If the
|
|
||||||
command takes a long time to return you can continue to use vim while the
|
|
||||||
process finishes and will see the output in the pane when it's finished.
|
|
||||||
|
|
||||||
Furthermore there are several handy commands all starting with 'Vimux':
|
|
||||||
- |VimuxRunCommand|
|
|
||||||
- |VimuxSendText|
|
|
||||||
- |VimuxSendKeys|
|
|
||||||
- |VimuxOpenPane|
|
|
||||||
- |VimuxRunLastCommand|
|
|
||||||
- |VimuxCloseRunner|
|
|
||||||
- |VimuxInspectRunner|
|
|
||||||
- |VimuxInterruptRunner|
|
|
||||||
- |VimuxPromptCommand|
|
|
||||||
- |VimuxClearRunnerHistory|
|
|
||||||
- |VimuxZoomRunner|
|
|
||||||
- |VimuxRunCommandInDir|
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
*VimuxRunCommand*
|
|
||||||
VimuxRunCommand~
|
|
||||||
|
|
||||||
Run a system command in a small horizontal split bellow
|
|
||||||
the current pane vim is in. You can optionally pass a second argument to stop
|
|
||||||
vimux from automatically sending a return after the command.
|
|
||||||
>
|
|
||||||
" Run the current file with rspec
|
|
||||||
map <Leader>rb :call VimuxRunCommand("clear; rspec " . bufname("%"))<CR>
|
|
||||||
" Run command without sending a return
|
|
||||||
map <Leader>rq :call VimuxRunCommand("clear; rspec " . bufname("%"), 0)<CR>
|
|
||||||
<
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
*VimuxSendText*
|
|
||||||
VimuxSendText~
|
|
||||||
|
|
||||||
Send raw text to the runer pane. This command will not open a new pane if one
|
|
||||||
does not already exist. You will need to use VimuxOpenPane to do this. This
|
|
||||||
command can be used to interact with REPLs or other interactive terminal
|
|
||||||
programs that are not shells.
|
|
||||||
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
*VimuxSendKeys*
|
|
||||||
VimuxSendKeys~
|
|
||||||
|
|
||||||
Send keys to the runner pane. This command will not open a new pane if one
|
|
||||||
does not already exist. You will need to use VimuxOpenPane to do this. You can
|
|
||||||
use this command to send keys such as "Enter" or "C-c" to the runner pane.
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
*VimuxOpenPane*
|
|
||||||
VimuxOpenPane~
|
|
||||||
|
|
||||||
This will either open a new pane or use the nearest pane and set it as the
|
|
||||||
vimux runner pane for the other vimux commands. You can control if this command
|
|
||||||
uses the nearest pane or always creates a new one with g:VimuxUseNearest
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
*VimuxPromptCommand*
|
|
||||||
VimuxPromptCommand~
|
|
||||||
|
|
||||||
Prompt for a command and run it in a small horizontal split bellow the current
|
|
||||||
pane. A parameter can be supplied to predefine a command or a part of the
|
|
||||||
command which can be edited in the prompt.
|
|
||||||
>
|
|
||||||
" Prompt for a command to run map
|
|
||||||
map <Leader>vp :VimuxPromptCommand<CR>
|
|
||||||
map <Leader>vm :VimuxPromptCommand("make ")<CR>
|
|
||||||
<
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
*VimuxRunLastCommand*
|
|
||||||
VimuxRunLastCommand~
|
|
||||||
|
|
||||||
Run the last command executed by `VimuxRunCommand`
|
|
||||||
>
|
|
||||||
" Run last command executed by VimuxRunCommand
|
|
||||||
map <Leader>vl :VimuxRunLastCommand<CR>
|
|
||||||
<
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
*VimuxInspectRunner*
|
|
||||||
VimuxInspectRunner~
|
|
||||||
|
|
||||||
Move into the tmux runner pane created by `VimuxRunCommand` and enter copy
|
|
||||||
pmode (scroll mode).
|
|
||||||
>
|
|
||||||
" Inspect runner pane map
|
|
||||||
map <Leader>vi :VimuxInspectRunner<CR>
|
|
||||||
<
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
*VimuxCloseRunner*
|
|
||||||
VimuxCloseRunner~
|
|
||||||
|
|
||||||
Close the tmux runner created by `VimuxRunCommand`
|
|
||||||
>
|
|
||||||
" Close vim tmux runner opened by VimuxRunCommand
|
|
||||||
map <Leader>vq :VimuxCloseRunner<CR>
|
|
||||||
<
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
*VimuxInterruptRunner*
|
|
||||||
VimuxInterruptRunner~
|
|
||||||
|
|
||||||
Interrupt any command that is running inside the
|
|
||||||
runner pane.
|
|
||||||
>
|
|
||||||
" Interrupt any command running in the runner pane map
|
|
||||||
map <Leader>vs :VimuxInterruptRunner<CR>
|
|
||||||
<
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
*VimuxClearRunnerHistory*
|
|
||||||
VimuxClearRunnerHistory~
|
|
||||||
|
|
||||||
Clear the tmux history of the runner pane for when
|
|
||||||
you enter tmux scroll mode inside the runner pane.
|
|
||||||
>
|
|
||||||
" Clear the tmux history of the runner pane
|
|
||||||
map <Leader>vc :VimuxClearRunnerHistory<CR>
|
|
||||||
<
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
*VimuxZoomRunner*
|
|
||||||
VimuxZoomRunner~
|
|
||||||
|
|
||||||
Zoom the runner pane. Once its zoomed, you will need
|
|
||||||
to use tmux "<bind-key> z" to restore the runner pane.
|
|
||||||
Zoom requires tmux version >= 1.8
|
|
||||||
>
|
|
||||||
|
|
||||||
" Zoom the tmux runner page
|
|
||||||
map <Leader>vz :VimuxZoomRunner<CR>
|
|
||||||
<
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
*VimuxRunCommandInDir*
|
|
||||||
VimuxRunCommandInDir~
|
|
||||||
|
|
||||||
Runs the specified command inside the directory of
|
|
||||||
the currently opened file. Takes two arguments. command and inFile
|
|
||||||
|
|
||||||
command: The command to run
|
|
||||||
inFile: If 1 the filename will be appended to the command
|
|
||||||
>
|
|
||||||
|
|
||||||
" Compile currently opened latex file to pdf
|
|
||||||
autocmd Filetype tex nnoremap <buffer> <Leader>rr :update<Bar>:call VimuxRunCommandInDir('latexmk -pdf', 1)<CR>
|
|
||||||
" Push the repository of the currently opened file
|
|
||||||
nnoremap <leader>gp :call VimuxRunCommandInDir("git push", 0)<CR>
|
|
||||||
<
|
|
||||||
|
|
||||||
==============================================================================
|
|
||||||
MISC (3) *VimuxMisc*
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
*VimuxExampleKeybinding*
|
|
||||||
Full Keybind Example~
|
|
||||||
|
|
||||||
>
|
|
||||||
" Run the current file with rspec
|
|
||||||
map <Leader>rb :call VimuxRunCommand("clear; rspec " . bufname("%"))<CR>
|
|
||||||
|
|
||||||
" Prompt for a command to run
|
|
||||||
map <Leader>vp :VimuxPromptCommand<CR>
|
|
||||||
|
|
||||||
" Run last command executed by VimuxRunCommand
|
|
||||||
map <Leader>vl :VimuxRunLastCommand<CR>
|
|
||||||
|
|
||||||
" Inspect runner pane
|
|
||||||
map <Leader>vi :VimuxInspectRunner<CR>
|
|
||||||
|
|
||||||
" Close vim tmux runner opened by VimuxRunCommand
|
|
||||||
map <Leader>vq :VimuxCloseRunner<CR>
|
|
||||||
|
|
||||||
" Interrupt any command running in the runner pane
|
|
||||||
map <Leader>vx :VimuxInterruptRunner<CR>
|
|
||||||
|
|
||||||
" Zoom the runner pane (use <bind-key> z to restore runner pane)
|
|
||||||
map <Leader>vz :call VimuxZoomRunner()<CR>
|
|
||||||
>
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
*VimuxTslimeReplacement*
|
|
||||||
Vimux as tslime replacement~
|
|
||||||
|
|
||||||
Here is how to use vimux to send code to a REPL. This is similar to tslime.
|
|
||||||
First, add some helpful mappings.
|
|
||||||
|
|
||||||
>
|
|
||||||
function! VimuxSlime()
|
|
||||||
call VimuxSendText(@v)
|
|
||||||
call VimuxSendKeys("Enter")
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
" If text is selected, save it in the v buffer and send that buffer it to tmux
|
|
||||||
vmap <LocalLeader>vs "vy :call VimuxSlime()<CR>
|
|
||||||
|
|
||||||
" Select current paragraph and send it to tmux
|
|
||||||
nmap <LocalLeader>vs vip<LocalLeader>vs<CR>
|
|
||||||
<
|
|
||||||
|
|
||||||
Now, open a clojure file. Let's say your leader is backslash (\). Type \vp,
|
|
||||||
and then type lein repl at the prompt. This opens a tmux split running a REPL.
|
|
||||||
Then, select text or put the cursor on a function and type \vs. This will send
|
|
||||||
it to the REPL and evaluate it. The reason we pass `0` to `VimuxRunCommand`
|
|
||||||
is to stop the normal return that is sent to the runner pane and use our own
|
|
||||||
new line so the clojure REPL will evaluate the selected text without adding an
|
|
||||||
extra return. Thanks to @trptcolin for discovering this issue.
|
|
||||||
|
|
||||||
|
|
||||||
==============================================================================
|
|
||||||
CONFIGURATION (4) *VimuxConfiguration*
|
|
||||||
|
|
||||||
You can configure Vimux like this:
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
*VimuxConfiguration_height*
|
|
||||||
2.1 g:VimuxHeight~
|
|
||||||
|
|
||||||
The percent of the screen the split pane Vimux will spawn should take up.
|
|
||||||
|
|
||||||
let g:VimuxHeight = "40"
|
|
||||||
|
|
||||||
Default: "20"
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
*VimuxConfiguration_orientation*
|
|
||||||
2.2 g:VimuxOrientation~
|
|
||||||
|
|
||||||
The default orientation of the split tmux pane. This tells tmux to make the
|
|
||||||
pane either vertically or horizontally, which is backward from how Vim handles
|
|
||||||
creating splits.
|
|
||||||
|
|
||||||
let g:VimuxOrientation = "h"
|
|
||||||
|
|
||||||
Options:
|
|
||||||
"v": vertical
|
|
||||||
"h": horizontal
|
|
||||||
|
|
||||||
Default: "v"
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
*VimuxConfiguration_use_nearest*
|
|
||||||
2.3 g:VimuxUseNearest
|
|
||||||
|
|
||||||
Use exising pane or window (not used by vim) if found instead of running
|
|
||||||
split-window.
|
|
||||||
|
|
||||||
let VimuxUseNearest = 1
|
|
||||||
|
|
||||||
Default: 1
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
*VimuxConfiguration_reset_sequence*
|
|
||||||
2.4 g:VimuxResetSequence~
|
|
||||||
|
|
||||||
The keys sent to the runner pane before running a command. By default it sends
|
|
||||||
`q` to make sure the pane is not in scroll-mode and `C-u` to clear the line.
|
|
||||||
|
|
||||||
let VimuxResetSequence = ""
|
|
||||||
|
|
||||||
Default: "q C-u"
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
*VimuxPromptString*
|
|
||||||
2.5 g:VimuxPromptString~
|
|
||||||
|
|
||||||
The string presented in the vim command line when Vimux is invoked. Be sure
|
|
||||||
to put a space at the end of the string to allow for distinction between
|
|
||||||
the prompt and your input.
|
|
||||||
|
|
||||||
let g:VimuxPromptString = ""
|
|
||||||
|
|
||||||
Default: "Command? "
|
|
||||||
|
|
||||||
------------------------------------------------------------------------------
|
|
||||||
*VimuxRunnerType*
|
|
||||||
2.6 g:VimuxRunnerType~
|
|
||||||
|
|
||||||
The type of view object Vimux should use for the runner. For reference, a
|
|
||||||
tmux session is a group of windows, and a window is a layout of panes.
|
|
||||||
|
|
||||||
let g:VimuxRunnerType = "window"
|
|
||||||
|
|
||||||
Options:
|
|
||||||
"pane": for panes
|
|
||||||
"window": for windows
|
|
||||||
|
|
||||||
Default: "pane"
|
|
||||||
|
|
||||||
==============================================================================
|
|
||||||
vim:tw=78:ts=2:sw=2:expandtab:ft=help:norl:
|
|
||||||
@@ -1 +0,0 @@
|
|||||||
doc/tags
|
|
||||||
@@ -1,198 +0,0 @@
|
|||||||
if exists("g:loaded_vimux") || &cp
|
|
||||||
finish
|
|
||||||
endif
|
|
||||||
let g:loaded_vimux = 1
|
|
||||||
|
|
||||||
command -nargs=* VimuxRunCommand :call VimuxRunCommand(<args>)
|
|
||||||
command VimuxRunLastCommand :call VimuxRunLastCommand()
|
|
||||||
command VimuxCloseRunner :call VimuxCloseRunner()
|
|
||||||
command VimuxZoomRunner :call VimuxZoomRunner()
|
|
||||||
command VimuxInspectRunner :call VimuxInspectRunner()
|
|
||||||
command VimuxScrollUpInspect :call VimuxScrollUpInspect()
|
|
||||||
command VimuxScrollDownInspect :call VimuxScrollDownInspect()
|
|
||||||
command VimuxInterruptRunner :call VimuxInterruptRunner()
|
|
||||||
command -nargs=? VimuxPromptCommand :call VimuxPromptCommand(<args>)
|
|
||||||
command VimuxClearRunnerHistory :call VimuxClearRunnerHistory()
|
|
||||||
command VimuxTogglePane :call VimuxTogglePane()
|
|
||||||
|
|
||||||
function! VimuxRunCommandInDir(command, useFile)
|
|
||||||
let l:file = ""
|
|
||||||
if a:useFile ==# 1
|
|
||||||
let l:file = shellescape(expand('%:t'), 1)
|
|
||||||
endif
|
|
||||||
call VimuxRunCommand("cd ".shellescape(expand('%:p:h'), 1)." && ".a:command." ".l:file." && cd - > /dev/null")
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! VimuxRunLastCommand()
|
|
||||||
if exists("g:VimuxRunnerIndex")
|
|
||||||
call VimuxRunCommand(g:VimuxLastCommand)
|
|
||||||
else
|
|
||||||
echo "No last vimux command."
|
|
||||||
endif
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! VimuxRunCommand(command, ...)
|
|
||||||
if !exists("g:VimuxRunnerIndex") || _VimuxHasRunner(g:VimuxRunnerIndex) == -1
|
|
||||||
call VimuxOpenRunner()
|
|
||||||
endif
|
|
||||||
|
|
||||||
let l:autoreturn = 1
|
|
||||||
if exists("a:1")
|
|
||||||
let l:autoreturn = a:1
|
|
||||||
endif
|
|
||||||
|
|
||||||
let resetSequence = _VimuxOption("g:VimuxResetSequence", "q C-u")
|
|
||||||
let g:VimuxLastCommand = a:command
|
|
||||||
|
|
||||||
call VimuxSendKeys(resetSequence)
|
|
||||||
call VimuxSendText(a:command)
|
|
||||||
|
|
||||||
if l:autoreturn == 1
|
|
||||||
call VimuxSendKeys("Enter")
|
|
||||||
endif
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! VimuxSendText(text)
|
|
||||||
call VimuxSendKeys('"'.escape(a:text, '"$').'"')
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! VimuxSendKeys(keys)
|
|
||||||
if exists("g:VimuxRunnerIndex")
|
|
||||||
call system("tmux send-keys -t ".g:VimuxRunnerIndex." ".a:keys)
|
|
||||||
else
|
|
||||||
echo "No vimux runner pane/window. Create one with VimuxOpenRunner"
|
|
||||||
endif
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! VimuxOpenRunner()
|
|
||||||
let nearestIndex = _VimuxNearestIndex()
|
|
||||||
|
|
||||||
if _VimuxOption("g:VimuxUseNearest", 1) == 1 && nearestIndex != -1
|
|
||||||
let g:VimuxRunnerIndex = nearestIndex
|
|
||||||
else
|
|
||||||
if _VimuxRunnerType() == "pane"
|
|
||||||
let height = _VimuxOption("g:VimuxHeight", 20)
|
|
||||||
let orientation = _VimuxOption("g:VimuxOrientation", "v")
|
|
||||||
call system("tmux split-window -p ".height." -".orientation)
|
|
||||||
elseif _VimuxRunnerType() == "window"
|
|
||||||
call system("tmux new-window")
|
|
||||||
endif
|
|
||||||
|
|
||||||
let g:VimuxRunnerIndex = _VimuxTmuxIndex()
|
|
||||||
call system("tmux last-"._VimuxRunnerType())
|
|
||||||
endif
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! VimuxCloseRunner()
|
|
||||||
if exists("g:VimuxRunnerIndex")
|
|
||||||
call system("tmux kill-"._VimuxRunnerType()." -t ".g:VimuxRunnerIndex)
|
|
||||||
unlet g:VimuxRunnerIndex
|
|
||||||
endif
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! VimuxTogglePane()
|
|
||||||
if exists("g:VimuxRunnerIndex")
|
|
||||||
if _VimuxRunnerType() == "window"
|
|
||||||
call system("tmux join-pane -d -s ".g:VimuxRunnerIndex." -p "._VimuxOption("g:VimuxHeight", 20))
|
|
||||||
let g:VimuxRunnerType = "pane"
|
|
||||||
elseif _VimuxRunnerType() == "pane"
|
|
||||||
let g:VimuxRunnerIndex=substitute(system("tmux break-pane -d -t ".g:VimuxRunnerIndex." -P -F '#{window_index}'"), "\n", "", "")
|
|
||||||
let g:VimuxRunnerType = "window"
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! VimuxZoomRunner()
|
|
||||||
if exists("g:VimuxRunnerIndex")
|
|
||||||
if _VimuxRunnerType() == "pane"
|
|
||||||
call system("tmux resize-pane -Z -t ".g:VimuxRunnerIndex)
|
|
||||||
elseif _VimuxRunnerType() == "window"
|
|
||||||
call system("tmux select-window -t ".g:VimuxRunnerIndex)
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! VimuxInspectRunner()
|
|
||||||
call system("tmux select-"._VimuxRunnerType()." -t ".g:VimuxRunnerIndex)
|
|
||||||
call system("tmux copy-mode")
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! VimuxScrollUpInspect()
|
|
||||||
call VimuxInspectRunner()
|
|
||||||
call system("tmux last-"._VimuxRunnerType())
|
|
||||||
call VimuxSendKeys("C-u")
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! VimuxScrollDownInspect()
|
|
||||||
call VimuxInspectRunner()
|
|
||||||
call system("tmux last-"._VimuxRunnerType())
|
|
||||||
call VimuxSendKeys("C-d")
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! VimuxInterruptRunner()
|
|
||||||
call VimuxSendKeys("^c")
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! VimuxClearRunnerHistory()
|
|
||||||
if exists("g:VimuxRunnerIndex")
|
|
||||||
call system("tmux clear-history -t ".g:VimuxRunnerIndex)
|
|
||||||
endif
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! VimuxPromptCommand(...)
|
|
||||||
let command = a:0 == 1 ? a:1 : ""
|
|
||||||
let l:command = input(_VimuxOption("g:VimuxPromptString", "Command? "), command)
|
|
||||||
call VimuxRunCommand(l:command)
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! _VimuxTmuxSession()
|
|
||||||
return _VimuxTmuxProperty("#S")
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! _VimuxTmuxIndex()
|
|
||||||
if _VimuxRunnerType() == "pane"
|
|
||||||
return _VimuxTmuxPaneIndex()
|
|
||||||
else
|
|
||||||
return _VimuxTmuxWindowIndex()
|
|
||||||
end
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! _VimuxTmuxPaneIndex()
|
|
||||||
return _VimuxTmuxProperty("#I.#P")
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! _VimuxTmuxWindowIndex()
|
|
||||||
return _VimuxTmuxProperty("#I")
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! _VimuxNearestIndex()
|
|
||||||
let views = split(system("tmux list-"._VimuxRunnerType()."s"), "\n")
|
|
||||||
|
|
||||||
for view in views
|
|
||||||
if match(view, "(active)") == -1
|
|
||||||
return split(view, ":")[0]
|
|
||||||
endif
|
|
||||||
endfor
|
|
||||||
|
|
||||||
return -1
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! _VimuxRunnerType()
|
|
||||||
return _VimuxOption("g:VimuxRunnerType", "pane")
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! _VimuxOption(option, default)
|
|
||||||
if exists(a:option)
|
|
||||||
return eval(a:option)
|
|
||||||
else
|
|
||||||
return a:default
|
|
||||||
endif
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! _VimuxTmuxProperty(property)
|
|
||||||
return substitute(system("tmux display -p '".a:property."'"), '\n$', '', '')
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! _VimuxHasRunner(index)
|
|
||||||
return match(system("tmux list-"._VimuxRunnerType()."s -a"), a:index.":")
|
|
||||||
endfunction
|
|
||||||
@@ -1,53 +0,0 @@
|
|||||||
"
|
|
||||||
" limp/vim/limp.vim
|
|
||||||
"
|
|
||||||
" URL:
|
|
||||||
" http://mikael.jansson.be/hacking
|
|
||||||
"
|
|
||||||
" Description:
|
|
||||||
" Setup the Limp environment
|
|
||||||
"
|
|
||||||
" Version:
|
|
||||||
" 0.2
|
|
||||||
"
|
|
||||||
" Date:
|
|
||||||
" 2008-04-28
|
|
||||||
"
|
|
||||||
" Authors:
|
|
||||||
" Mikael Jansson <mail@mikael.jansson.be>
|
|
||||||
"
|
|
||||||
" Changelog:
|
|
||||||
" * 2008-04-28 by Mikael Jansson <mail@mikael.jansson.be>
|
|
||||||
" Only change colorscheme and nocompatible when not previously set.
|
|
||||||
"
|
|
||||||
" * 2008-04-25 by Mikael Jansson <mail@mikael.jansson.be>
|
|
||||||
" Catch-all key <F12> for Lisp boot, connect & display
|
|
||||||
"
|
|
||||||
" * 2008-04-20 by Mikael Jansson <mail@mikael.jansson.be>
|
|
||||||
" Initial version.
|
|
||||||
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
|
|
||||||
if exists("b:did_ftplugin")
|
|
||||||
finish
|
|
||||||
endif
|
|
||||||
let b:did_ftplugin = 1
|
|
||||||
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
" external dependencies
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
silent! runtime plugin/matchit.vim
|
|
||||||
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
" the Limp library
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
|
|
||||||
runtime ftplugin/lisp/limp/cursor.vim
|
|
||||||
runtime ftplugin/lisp/limp/highlight.vim
|
|
||||||
runtime ftplugin/lisp/limp/sexp.vim
|
|
||||||
runtime ftplugin/lisp/limp/bridge.vim
|
|
||||||
runtime ftplugin/lisp/limp/autoclose.vim
|
|
||||||
runtime ftplugin/lisp/limp/keys.vim
|
|
||||||
runtime ftplugin/lisp/limp/mode.vim
|
|
||||||
|
|
||||||
|
|
||||||
@@ -1,208 +0,0 @@
|
|||||||
"
|
|
||||||
" limp/vim/autoclose.vim
|
|
||||||
"
|
|
||||||
" URL:
|
|
||||||
" http://mikael.jansson.be/hacking
|
|
||||||
"
|
|
||||||
" Description:
|
|
||||||
" AutoClose, closes what's opened.
|
|
||||||
"
|
|
||||||
" This plugin closes opened parenthesis, braces, brackets, quotes as you
|
|
||||||
" type them. As of 1.1, if you type the open brace twice ({{), the closing
|
|
||||||
" brace will be pushed down to a new line.
|
|
||||||
"
|
|
||||||
" You can enable or disable this plugin by typing \a (or <Leader>a if
|
|
||||||
" you've redefined your leader character) in normal mode. You'll also
|
|
||||||
" probably want to know you can type <C-V> (<C-Q> if mswin is set) and the next
|
|
||||||
" character you type doesn't have mappings applied. This is useful when you
|
|
||||||
" want to insert only an opening paren or something.
|
|
||||||
"
|
|
||||||
" Version:
|
|
||||||
" 0.2
|
|
||||||
"
|
|
||||||
" Date:
|
|
||||||
" September 20, 2007
|
|
||||||
"
|
|
||||||
" Authors:
|
|
||||||
" Karl Guertin <grayrest@gr.ayre.st>
|
|
||||||
" Mikael Jansson <mail@mikael.jansson.be>
|
|
||||||
"
|
|
||||||
" Changelog:
|
|
||||||
" 2008-04-20 by Mikael Jansson <mail@mikael.jansson.be>
|
|
||||||
" * Factored out start/stop functions.
|
|
||||||
" * Removed the default mappings to toggle autoclose
|
|
||||||
"
|
|
||||||
" 2007-09-20 by Karl Guertin <grayrest@gr.ayre.st>
|
|
||||||
" 1.1.2 -- Fixed a mapping typo and caught a double brace problem
|
|
||||||
" 1.1.1 -- Missed a bug in 1.1, September 19, 2007
|
|
||||||
" 1.1 -- When not inserting at the end, previous version would eat chars
|
|
||||||
" at end of line, added double open->newline, September 19, 2007
|
|
||||||
" 1.0.1 -- Cruft from other parts of the mapping, knew I shouldn't have
|
|
||||||
" released the first as 1.0, April 3, 2007
|
|
||||||
|
|
||||||
" Setup -----------------------------------------------------{{{1
|
|
||||||
|
|
||||||
let s:omni_active = 0
|
|
||||||
let s:cotstate = &completeopt
|
|
||||||
|
|
||||||
if !exists('g:autoclose_on')
|
|
||||||
let g:autoclose_on = 0
|
|
||||||
endif
|
|
||||||
|
|
||||||
" assume everything has been defined already if one of the functions are
|
|
||||||
" defined.
|
|
||||||
if exists("*AutoClose_start")
|
|
||||||
finish
|
|
||||||
endif
|
|
||||||
|
|
||||||
if !exists("*AutoClose_stop")
|
|
||||||
fun! AutoClose_stop()
|
|
||||||
if g:autoclose_on
|
|
||||||
iunmap "
|
|
||||||
iunmap (
|
|
||||||
iunmap )
|
|
||||||
iunmap [
|
|
||||||
iunmap ]
|
|
||||||
iunmap {
|
|
||||||
iunmap }
|
|
||||||
iunmap <BS>
|
|
||||||
iunmap <C-h>
|
|
||||||
iunmap <Esc>
|
|
||||||
""iunmap <C-[>
|
|
||||||
let g:autoclose_on = 0
|
|
||||||
endif
|
|
||||||
endfun
|
|
||||||
endif
|
|
||||||
|
|
||||||
if !exists("*AutoClose_start")
|
|
||||||
fun! AutoClose_start()
|
|
||||||
if !g:autoclose_on
|
|
||||||
inoremap <silent> " <C-R>=<SID>QuoteDelim('"')<CR>
|
|
||||||
inoremap <silent> ( (<C-R>=<SID>CloseStackPush(')')<CR>
|
|
||||||
inoremap <silent> ) <C-R>=<SID>CloseStackPop(')')<CR>
|
|
||||||
inoremap <silent> [ [<C-R>=<SID>CloseStackPush(']')<CR>
|
|
||||||
inoremap <silent> ] <C-R>=<SID>CloseStackPop(']')<CR>
|
|
||||||
inoremap <silent> { <C-R>=<SID>OpenSpecial('{','}')<CR>
|
|
||||||
inoremap <silent> } <C-R>=<SID>CloseStackPop('}')<CR>
|
|
||||||
inoremap <silent> <BS> <C-R>=<SID>OpenCloseBackspace()<CR>
|
|
||||||
inoremap <silent> <C-h> <C-R>=<SID>OpenCloseBackspace()<CR>
|
|
||||||
inoremap <silent> <Esc> <C-R>=<SID>CloseStackPop('')<CR><Esc>
|
|
||||||
inoremap <silent> <C-[> <C-R>=<SID>CloseStackPop('')<CR><C-[>
|
|
||||||
let g:autoclose_on = 1
|
|
||||||
endif
|
|
||||||
endfunction
|
|
||||||
endif
|
|
||||||
let s:closeStack = []
|
|
||||||
|
|
||||||
" AutoClose Utilities -----------------------------------------{{{1
|
|
||||||
if !exists("*<SID>OpenSpecial")
|
|
||||||
function <SID>OpenSpecial(ochar,cchar) " ---{{{2
|
|
||||||
let line = getline('.')
|
|
||||||
let col = col('.') - 2
|
|
||||||
"echom string(col).':'.line[:(col)].'|'.line[(col+1):]
|
|
||||||
if a:ochar == line[(col)] && a:cchar == line[(col+1)] "&& strlen(line) - (col) == 2
|
|
||||||
"echom string(s:closeStack)
|
|
||||||
while len(s:closeStack) > 0
|
|
||||||
call remove(s:closeStack, 0)
|
|
||||||
endwhile
|
|
||||||
return "\<esc>a\<CR>a\<CR>".a:cchar."\<esc>\"_xk$\"_xa"
|
|
||||||
endif
|
|
||||||
return a:ochar.<SID>CloseStackPush(a:cchar)
|
|
||||||
endfunction
|
|
||||||
endif
|
|
||||||
|
|
||||||
if !exists("*<SID>CloseStackPush")
|
|
||||||
function <SID>CloseStackPush(char) " ---{{{2
|
|
||||||
"echom "push"
|
|
||||||
let line = getline('.')
|
|
||||||
let col = col('.')-2
|
|
||||||
if (col) < 0
|
|
||||||
call setline('.',a:char.line)
|
|
||||||
else
|
|
||||||
"echom string(col).':'.line[:(col)].'|'.line[(col+1):]
|
|
||||||
call setline('.',line[:(col)].a:char.line[(col+1):])
|
|
||||||
endif
|
|
||||||
call insert(s:closeStack, a:char)
|
|
||||||
"echom join(s:closeStack,'').' -- '.a:char
|
|
||||||
return ''
|
|
||||||
endfunction
|
|
||||||
endif
|
|
||||||
|
|
||||||
if !exists("*<SID>CloseStackPop")
|
|
||||||
function <SID>CloseStackPop(char) " ---{{{2
|
|
||||||
"echom "pop"
|
|
||||||
if len(s:closeStack) == 0
|
|
||||||
return a:char
|
|
||||||
endif
|
|
||||||
let popped = ''
|
|
||||||
let lastpop = ''
|
|
||||||
"echom join(s:closeStack,'').' || '.lastpop
|
|
||||||
while len(s:closeStack) > 0 && ((lastpop == '' && popped == '') || lastpop != a:char)
|
|
||||||
let lastpop = remove(s:closeStack,0)
|
|
||||||
let popped .= lastpop
|
|
||||||
"echom join(s:closeStack,'').' || '.lastpop.' || '.popped
|
|
||||||
endwhile
|
|
||||||
"echom ' --> '.popped
|
|
||||||
let col = col('.') - 2
|
|
||||||
let line = getline('.')
|
|
||||||
let splits = split(line[:col],popped,1)
|
|
||||||
"echom string(splits)
|
|
||||||
"echom col.' '.line[(col+2):].' '.popped
|
|
||||||
call setline('.',join(splits,popped).line[(col+strlen(popped)+1):])
|
|
||||||
return popped
|
|
||||||
endfunction
|
|
||||||
endif
|
|
||||||
|
|
||||||
if !exists("*<SID>QuoteDelim")
|
|
||||||
function <SID>QuoteDelim(char) " ---{{{2
|
|
||||||
let line = getline('.')
|
|
||||||
let col = col('.')
|
|
||||||
if line[col - 2] == "\\"
|
|
||||||
"Inserting a quoted quotation mark into the string
|
|
||||||
return a:char
|
|
||||||
elseif line[col - 1] == a:char
|
|
||||||
"Escaping out of the string
|
|
||||||
return "\<C-R>=".s:SID()."CloseStackPop(\"\\".a:char."\")\<CR>"
|
|
||||||
else
|
|
||||||
"Starting a string
|
|
||||||
return a:char."\<C-R>=".s:SID()."CloseStackPush(\"\\".a:char."\")\<CR>"
|
|
||||||
endif
|
|
||||||
endfunction
|
|
||||||
endif
|
|
||||||
|
|
||||||
" The strings returned from QuoteDelim aren't in scope for <SID>, so I
|
|
||||||
" have to fake it using this function (from the Vim help, but tweaked)
|
|
||||||
"
|
|
||||||
if !exists("*s:SID")
|
|
||||||
function s:SID()
|
|
||||||
return matchstr(expand('<sfile>'), '<SNR>\d\+_\zeSID$')
|
|
||||||
endfun
|
|
||||||
endif
|
|
||||||
|
|
||||||
if !exists("*<SID>OpenCloseBackspace")
|
|
||||||
function <SID>OpenCloseBackspace() " ---{{{2
|
|
||||||
"if pumvisible()
|
|
||||||
" pclose
|
|
||||||
" call <SID>StopOmni()
|
|
||||||
" return "\<C-E>"
|
|
||||||
"else
|
|
||||||
let curline = getline('.')
|
|
||||||
let curpos = col('.')
|
|
||||||
let curletter = curline[curpos-1]
|
|
||||||
let prevletter = curline[curpos-2]
|
|
||||||
if (prevletter == '"' && curletter == '"') ||
|
|
||||||
\ (prevletter == "'" && curletter == "'") ||
|
|
||||||
\ (prevletter == "(" && curletter == ")") ||
|
|
||||||
\ (prevletter == "{" && curletter == "}") ||
|
|
||||||
\ (prevletter == "[" && curletter == "]")
|
|
||||||
if len(s:closeStack) > 0
|
|
||||||
call remove(s:closeStack,0)
|
|
||||||
endif
|
|
||||||
return "\<Delete>\<BS>"
|
|
||||||
else
|
|
||||||
return "\<BS>"
|
|
||||||
endif
|
|
||||||
"endif
|
|
||||||
endf
|
|
||||||
endif
|
|
||||||
|
|
||||||
@@ -1,510 +0,0 @@
|
|||||||
"
|
|
||||||
" limp/vim/bridge.vim
|
|
||||||
"
|
|
||||||
" URL:
|
|
||||||
" http://mikael.jansson.be/hacking
|
|
||||||
"
|
|
||||||
" Description:
|
|
||||||
" Handle communication between Vim and Lisp, including boot, connect and
|
|
||||||
" display. Relies on 'lisp.sh' from the Limp package.
|
|
||||||
"
|
|
||||||
" Version:
|
|
||||||
" 0.2
|
|
||||||
"
|
|
||||||
" Date:
|
|
||||||
" 2008-04-25
|
|
||||||
"
|
|
||||||
" Authors:
|
|
||||||
" Mikael Jansson <mail@mikael.jansson.be>
|
|
||||||
" Larry Clapp <vim@theclapp.org>
|
|
||||||
|
|
||||||
" Changelog:
|
|
||||||
" 2008-08-26 by Mikael Jansson <mail@mikael.jansson.be>
|
|
||||||
" * Optionally specify core at startup and exit.
|
|
||||||
"
|
|
||||||
" 2008-08-25 by Mikael Jansson <mail@mikael.jansson.be>
|
|
||||||
" * Now boots a new Lisp or connects to an existing via screen.
|
|
||||||
" No longer needs the funnel (although it does need a file to read to/from
|
|
||||||
" screen: it doesn't seem as if 'stuff' can handle very large amounts of
|
|
||||||
" texts)
|
|
||||||
"
|
|
||||||
" 2008-08-18 by Mikael Jansson <mail@mikael.jansson.be>
|
|
||||||
" * Tab-completed prompt that lets you choose the Lisp process to connect to.
|
|
||||||
" Moved the startup to before the loaded check.
|
|
||||||
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
" startup
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
" only do these things once
|
|
||||||
|
|
||||||
let s:Limp_version="0.3.4"
|
|
||||||
|
|
||||||
let s:Limp_location = expand("$LIMPRUNTIME")
|
|
||||||
"if s:Limp_location == "" || s:Limp_location == "$LIMPRUNTIME"
|
|
||||||
if !filereadable(s:Limp_location . "/vim/limp.vim")
|
|
||||||
let s:Limp_location = "/usr/local/limp/" . s:Limp_version
|
|
||||||
endif
|
|
||||||
|
|
||||||
" prefix for the pipe used for communication
|
|
||||||
let s:limp_bridge_channel_base = $HOME . "/.limp_bridge_channel-"
|
|
||||||
let s:limp_bridge_connected=0
|
|
||||||
exe "setlocal complete+=s" . s:Limp_location . "/vim/thesaurus"
|
|
||||||
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
" talk to multiple Lisps using LimpBridge_connect()
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
fun! LimpBridge_complete_lisp(A,L,P)
|
|
||||||
let prefix = s:limp_bridge_channel_base
|
|
||||||
"echom "ls -1 ".prefix."*"
|
|
||||||
let output = system("ls -1 ".prefix."*")
|
|
||||||
if stridx(output, prefix."*") >= 0
|
|
||||||
echom "No Lisps started yet?"
|
|
||||||
return
|
|
||||||
endif
|
|
||||||
let files = split(output, "\n")
|
|
||||||
let names = []
|
|
||||||
for f in files
|
|
||||||
let names += [f[strlen(prefix):]]
|
|
||||||
endfor
|
|
||||||
return names
|
|
||||||
endfun
|
|
||||||
|
|
||||||
" optionally specify the screen id to connect to
|
|
||||||
"
|
|
||||||
" return values:
|
|
||||||
"
|
|
||||||
" -1 if user didn't want to connect
|
|
||||||
" 0 if connection wasn't possible
|
|
||||||
" 1 if the user did connect
|
|
||||||
" 2 if the user was already connected
|
|
||||||
"
|
|
||||||
fun! LimpBridge_connect(...)
|
|
||||||
if s:limp_bridge_connected == 1
|
|
||||||
echom "Already connected to Lisp!"
|
|
||||||
return 2
|
|
||||||
endif
|
|
||||||
if a:0 == 1 && a:1 != ""
|
|
||||||
" format: 7213.limp_listener-foo
|
|
||||||
let pid = a:1[:stridx(a:1, '.')-1]
|
|
||||||
let fullname = a:1[stridx(a:1, '.')+1:]
|
|
||||||
let name = fullname[strlen("limp_listener-"):]
|
|
||||||
|
|
||||||
let s:limp_bridge_channel = s:limp_bridge_channel_base.name.".".pid
|
|
||||||
else
|
|
||||||
let s:limp_bridge_channel = s:limp_bridge_channel_base
|
|
||||||
let name = input("Connect to [boot new]: ", "", "customlist,LimpBridge_complete_lisp")
|
|
||||||
if name == ""
|
|
||||||
return -1
|
|
||||||
endif
|
|
||||||
let s:limp_bridge_channel .= name
|
|
||||||
if 0 == filewritable(s:limp_bridge_channel) "|| s:limp_bridge_channel = s:limp_bridge_channel_base
|
|
||||||
echom "Not a Limp channel."
|
|
||||||
return 0
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
" extract the PID from format: foo.104982
|
|
||||||
" (backward from screen sty naming to ease tab completion)
|
|
||||||
|
|
||||||
" bridge id is the file used for communication between Vim and screen
|
|
||||||
let s:limp_bridge_id = strpart(s:limp_bridge_channel, strlen(s:limp_bridge_channel_base))
|
|
||||||
|
|
||||||
" bridge screenid is the screen in which the Lisp is running
|
|
||||||
let s:limp_bridge_screenid = s:limp_bridge_id[strridx(s:limp_bridge_id, '.')+1:]
|
|
||||||
"let s:limp_bridge_scratch = $HOME . "/.limp_bridge_scratch-" . s:limp_bridge_id
|
|
||||||
let s:limp_bridge_test = $HOME . '/.limp_bridge_test-' . s:limp_bridge_id
|
|
||||||
|
|
||||||
silent exe "new" s:limp_bridge_channel
|
|
||||||
if exists( "#BufEnter#*.lisp#" )
|
|
||||||
doauto BufEnter x.lisp
|
|
||||||
endif
|
|
||||||
setlocal syntax=lisp
|
|
||||||
" XXX: in ViLisp, buftype=nowrite, but w/ limp_bridge_channel, vim
|
|
||||||
" complains about the file being write-only.
|
|
||||||
"setlocal buftype=nowrite
|
|
||||||
setlocal bufhidden=hide
|
|
||||||
setlocal nobuflisted
|
|
||||||
setlocal noswapfile
|
|
||||||
hide
|
|
||||||
|
|
||||||
silent exe "new" s:limp_bridge_test
|
|
||||||
if exists( "#BufEnter#*.lisp#" )
|
|
||||||
doauto BufEnter x.lisp
|
|
||||||
endif
|
|
||||||
setlocal syntax=lisp
|
|
||||||
" setlocal buftype=nofile
|
|
||||||
setlocal bufhidden=hide
|
|
||||||
setlocal nobuflisted
|
|
||||||
" setlocal noswapfile
|
|
||||||
hide
|
|
||||||
|
|
||||||
" hide from the user that we created and deleted (hid, really) a couple of
|
|
||||||
" buffers
|
|
||||||
"normal!
|
|
||||||
redraw
|
|
||||||
|
|
||||||
let s:limp_bridge_connected=1
|
|
||||||
|
|
||||||
echom "Welcome to Limp. May your journey be pleasant."
|
|
||||||
|
|
||||||
return 1
|
|
||||||
endfun
|
|
||||||
|
|
||||||
fun! LimpBridge_connection_status()
|
|
||||||
if s:limp_bridge_connected == 1
|
|
||||||
return "Connected to ".s:limp_bridge_id
|
|
||||||
else
|
|
||||||
return "Disconnected"
|
|
||||||
endif
|
|
||||||
endfun
|
|
||||||
|
|
||||||
fun! LimpBridge_disconnect()
|
|
||||||
let s:limp_bridge_connected = 0
|
|
||||||
let s:limp_bridge_id = "<disconnected>"
|
|
||||||
endfun
|
|
||||||
|
|
||||||
"
|
|
||||||
" optionally, specify the path of the core to save to
|
|
||||||
"
|
|
||||||
fun! LimpBridge_quit_lisp(...)
|
|
||||||
" we were given a file
|
|
||||||
if a:0 == 1 && a:1 != ""
|
|
||||||
let core = a:1
|
|
||||||
call LimpBridge_send_to_lisp("(sb-ext:save-lisp-and-die \"".core."\")\n")
|
|
||||||
echom "Lisp ".s:limp_bridge_id." is gone, core saved to ".core."."
|
|
||||||
else
|
|
||||||
call LimpBridge_send_to_lisp("(sb-ext:quit)\n")
|
|
||||||
echom "Lisp ".s:limp_bridge_id." is gone."
|
|
||||||
endif
|
|
||||||
call LimpBridge_disconnect()
|
|
||||||
endfun
|
|
||||||
|
|
||||||
fun! LimpBridge_shutdown_lisp()
|
|
||||||
if s:limp_bridge_connected == 1
|
|
||||||
let core = input("Name of core to save [none]: ", "", "file")
|
|
||||||
call LimpBridge_quit_lisp(core)
|
|
||||||
else
|
|
||||||
echom "Not connected."
|
|
||||||
endif
|
|
||||||
endfun
|
|
||||||
|
|
||||||
"
|
|
||||||
" when not connected, start new or connect to existing
|
|
||||||
" otherwise, switch to Lisp (screen)
|
|
||||||
fun! LimpBridge_boot_or_connect_or_display()
|
|
||||||
if s:limp_bridge_connected
|
|
||||||
" is it still running?
|
|
||||||
let status = system("screen -ls")
|
|
||||||
if stridx(status, s:limp_bridge_screenid) == -1
|
|
||||||
call LimpBridge_disconnect()
|
|
||||||
return
|
|
||||||
endif
|
|
||||||
let cmd = "screen -x ".s:limp_bridge_screenid
|
|
||||||
if has("gui_running") || b:listener_always_open_window == 1
|
|
||||||
let cmd = "xterm -e " . cmd
|
|
||||||
if b:listener_keep_open == 1
|
|
||||||
let cmd .= " &"
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
silent exe "!".cmd
|
|
||||||
redraw!
|
|
||||||
else
|
|
||||||
" connect to a fresh Lisp
|
|
||||||
let what = LimpBridge_connect()
|
|
||||||
if what <= 0
|
|
||||||
" user didn't want to connect, let's boot!
|
|
||||||
let name = input("Name the Lisp: ")
|
|
||||||
if strlen(name) == 0
|
|
||||||
" give up
|
|
||||||
return
|
|
||||||
endif
|
|
||||||
|
|
||||||
let core = input("Path to core to boot [use system-default]: ", "", "file")
|
|
||||||
let core_opt = ""
|
|
||||||
if filereadable(core)
|
|
||||||
let core_opt = "-c ".core
|
|
||||||
echom "Booting ".core."..."
|
|
||||||
else
|
|
||||||
echom "Booting..."
|
|
||||||
endif
|
|
||||||
let styfile = tempname()
|
|
||||||
let cmd = s:Limp_location . "/bin/lisp.sh ".core_opt."-s ".styfile." -b ".name
|
|
||||||
call system(cmd)
|
|
||||||
while getfsize(styfile) <= len("limp_listener")
|
|
||||||
sleep 200m
|
|
||||||
endwhile
|
|
||||||
" needs to be binary, or readfile() expects a newline...
|
|
||||||
let lines = readfile(styfile, 'b')
|
|
||||||
if len(lines) < 1
|
|
||||||
echom "Error getting screen ID!"
|
|
||||||
return
|
|
||||||
endif
|
|
||||||
|
|
||||||
let sty = lines[0]
|
|
||||||
call delete(styfile)
|
|
||||||
call LimpBridge_connect(sty)
|
|
||||||
call LimpBridge_boot_or_connect_or_display()
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
endfun
|
|
||||||
|
|
||||||
augroup LimpBridge
|
|
||||||
au!
|
|
||||||
autocmd BufLeave .LimpBridge_* setlocal nobuflisted
|
|
||||||
autocmd BufLeave *.lisp let g:limp_bridge_last_lisp = bufname( "%" )
|
|
||||||
augroup END
|
|
||||||
|
|
||||||
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
" plugin <-> function mappings
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
|
|
||||||
nnoremap <silent> <buffer> <Plug>LimpBootConnectDisplay :call LimpBridge_boot_or_connect_or_display()<CR>
|
|
||||||
nnoremap <silent> <buffer> <Plug>LimpDisconnect :call LimpBridge_disconnect()<CR>
|
|
||||||
nnoremap <silent> <buffer> <Plug>LimpShutdownLisp :call LimpBridge_shutdown_lisp()<CR>
|
|
||||||
|
|
||||||
nnoremap <silent> <buffer> <Plug>EvalTop :call LimpBridge_eval_top_form()<CR>
|
|
||||||
nnoremap <silent> <buffer> <Plug>EvalCurrent :call LimpBridge_eval_current_form()<CR>
|
|
||||||
nnoremap <silent> <buffer> <Plug>EvalExpression :call LimpBridge_prompt_eval_expression()<CR>
|
|
||||||
|
|
||||||
vnoremap <silent> <buffer> <Plug>EvalBlock :call LimpBridge_eval_block()<cr>
|
|
||||||
|
|
||||||
nnoremap <silent> <buffer> <Plug>AbortReset :call LimpBridge_send_to_lisp( "ABORT\n" )<CR>
|
|
||||||
nnoremap <silent> <buffer> <Plug>AbortInterrupt :call LimpBridge_send_to_lisp( "" )<CR>
|
|
||||||
|
|
||||||
nnoremap <silent> <buffer> <Plug>TestCurrent :call LimpBridge_stuff_current_form()<CR>
|
|
||||||
nnoremap <silent> <buffer> <Plug>TestTop :call LimpBridge_stuff_top_form()<CR>
|
|
||||||
|
|
||||||
nnoremap <silent> <buffer> <Plug>LoadThisFile :call LimpBridge_send_to_lisp( "(load \"" . expand( "%:p" ) . "\")\n")<CR>
|
|
||||||
nnoremap <silent> <buffer> <Plug>LoadAnyFile :call LimpBridge_send_to_lisp( "(load \"" . expand( "%:p:r" ) . "\")\n")<CR>
|
|
||||||
|
|
||||||
nnoremap <silent> <buffer> <Plug>CompileFile :w! <bar> call LimpBridge_send_to_lisp("(compile-file \"".expand("%:p")."\")\n")<CR>
|
|
||||||
|
|
||||||
" XXX: What's the proprer syntax for calling >1 Plug?
|
|
||||||
""nnoremap <buffer> <Plug>CompileAndLoadFile <Plug>CompileFile <bar> <Plug>LoadAnyFile
|
|
||||||
nnoremap <silent> <buffer> <Plug>CompileAndLoadFile :w! <bar> call LimpBridge_send_to_lisp("(compile-file \"".expand("%:p")."\")\n") <bar> call LimpBridge_send_to_lisp( "(load \"" . expand( "%:p:r" ) . "\")\n")<CR>
|
|
||||||
|
|
||||||
" Goto Test Buffer:
|
|
||||||
" Goto Split: split current buffer and goto test buffer
|
|
||||||
nnoremap <silent> <buffer> <Plug>GotoTestBuffer :call LimpBridge_goto_buffer_or_window(g:limp_bridge_test)<CR>
|
|
||||||
nnoremap <silent> <buffer> <Plug>GotoTestBufferAndSplit :sb <bar> call LimpBridge_goto_buffer_or_window(g:limp_bridge_test)<CR>
|
|
||||||
|
|
||||||
" Goto Last: return to g:limp_bridge_last_lisp, i.e. last buffer
|
|
||||||
nnoremap <silent> <buffer> <Plug>GotoLastLispBuffer :call LimpBridge_goto_buffer_or_window(g:limp_bridge_last_lisp)<CR>
|
|
||||||
|
|
||||||
" HyperSpec:
|
|
||||||
nnoremap <silent> <buffer> <Plug>HyperspecExact :call LimpBridge_hyperspec("exact", 0)<CR>
|
|
||||||
nnoremap <silent> <buffer> <Plug>HyperspecPrefix :call LimpBridge_hyperspec("prefix", 1)<CR>
|
|
||||||
nnoremap <silent> <buffer> <Plug>HyperspecSuffix :call LimpBridge_hyperspec("suffix", 1)<CR>
|
|
||||||
nnoremap <silent> <buffer> <Plug>HyperspecGrep :call LimpBridge_hyperspec("grep", 1)<CR>
|
|
||||||
nnoremap <silent> <buffer> <Plug>HyperspecFirstLetterIndex :call LimpBridge_hyperspec("index", 0)<CR>
|
|
||||||
nnoremap <silent> <buffer> <Plug>HyperspecFullIndex :call LimpBridge_hyperspec("index-page", 0)<CR>
|
|
||||||
|
|
||||||
" Help Describe: ask Lisp about the current symbol
|
|
||||||
nnoremap <silent> <buffer> <Plug>HelpDescribe :call LimpBridge_send_to_lisp("(describe '".expand("<cword>").")")<CR>
|
|
||||||
|
|
||||||
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
" library
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
" assume that all of the file has been loaded & defined once
|
|
||||||
" if one of the functions are defined.
|
|
||||||
if exists("*LimpBridge_goto_buffer_or_window")
|
|
||||||
finish
|
|
||||||
endif
|
|
||||||
|
|
||||||
function! LimpBridge_goto_buffer_or_window( buff )
|
|
||||||
if -1 == bufwinnr( a:buff )
|
|
||||||
exe "hide bu" a:buff
|
|
||||||
else
|
|
||||||
exe bufwinnr( a:buff ) . "wincmd w"
|
|
||||||
endif
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
|
|
||||||
function! LimpBridge_get_pos()
|
|
||||||
" what buffer are we in?
|
|
||||||
let bufnr = bufnr( "%" )
|
|
||||||
|
|
||||||
" get current position
|
|
||||||
let c_cur = virtcol( "." )
|
|
||||||
let l_cur = line( "." )
|
|
||||||
normal! H
|
|
||||||
let l_top = line( "." )
|
|
||||||
|
|
||||||
let pos = bufnr . "|" . l_top . "," . l_cur . "," . c_cur
|
|
||||||
|
|
||||||
" go back
|
|
||||||
exe "normal! " l_cur . "G" . c_cur . "|"
|
|
||||||
|
|
||||||
return( pos )
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
|
|
||||||
function! LimpBridge_goto_pos( pos )
|
|
||||||
let mx = '\(\d\+\)|\(\d\+\),\(\d\+\),\(\d\+\)'
|
|
||||||
let bufnr = substitute( a:pos, mx, '\1', '' )
|
|
||||||
let l_top = substitute( a:pos, mx, '\2', '' )
|
|
||||||
let l_cur = substitute( a:pos, mx, '\3', '' )
|
|
||||||
let c_cur = substitute( a:pos, mx, '\4', '' )
|
|
||||||
|
|
||||||
silent exe "hide bu" bufnr
|
|
||||||
silent exe "normal! " . l_top . "Gzt" . l_cur . "G" . c_cur . "|"
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
|
|
||||||
function! LimpBridge_yank( motion )
|
|
||||||
let value = ''
|
|
||||||
|
|
||||||
let p = LimpBridge_get_pos()
|
|
||||||
silent! exec 'normal!' a:motion
|
|
||||||
let new_p = LimpBridge_get_pos()
|
|
||||||
|
|
||||||
" did we move?
|
|
||||||
if p != new_p
|
|
||||||
" go back
|
|
||||||
silent! exec 'normal!' a:motion
|
|
||||||
|
|
||||||
let old_l = @l
|
|
||||||
exec 'normal! "ly' . a:motion
|
|
||||||
let value = @l
|
|
||||||
let @l = old_l
|
|
||||||
endif
|
|
||||||
|
|
||||||
call LimpBridge_goto_pos( p )
|
|
||||||
|
|
||||||
return( value )
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
|
|
||||||
" copy an expression to a buffer
|
|
||||||
function! LimpBridge_send_sexp_to_buffer( sexp, buffer )
|
|
||||||
let p = LimpBridge_get_pos()
|
|
||||||
|
|
||||||
" go to the given buffer, go to the bottom
|
|
||||||
exe "hide bu" a:buffer
|
|
||||||
silent normal! G
|
|
||||||
|
|
||||||
" tried append() -- doesn't work the way I need it to
|
|
||||||
let old_l = @l
|
|
||||||
let @l = a:sexp
|
|
||||||
silent exe "put l"
|
|
||||||
" normal! "lp
|
|
||||||
let @l = old_l
|
|
||||||
|
|
||||||
call LimpBridge_goto_pos( p )
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
|
|
||||||
" destroys contents of LimpBridge_channel buffer
|
|
||||||
function! LimpBridge_send_to_lisp( sexp )
|
|
||||||
if a:sexp == ''
|
|
||||||
return
|
|
||||||
endif
|
|
||||||
|
|
||||||
if !s:limp_bridge_connected
|
|
||||||
echom "Not connected to Lisp!"
|
|
||||||
return
|
|
||||||
endif
|
|
||||||
|
|
||||||
let p = LimpBridge_get_pos()
|
|
||||||
|
|
||||||
" goto LimpBridge_channel, delete it, put s-exp, write it to lisp
|
|
||||||
try
|
|
||||||
exe "hide bu" s:limp_bridge_channel
|
|
||||||
exe "%d"
|
|
||||||
normal! 1G
|
|
||||||
|
|
||||||
" tried append() -- doesn't work the way I need it to
|
|
||||||
let old_l = @l
|
|
||||||
let @l = a:sexp
|
|
||||||
normal! "lP
|
|
||||||
let @l = old_l
|
|
||||||
|
|
||||||
silent exe 'w!'
|
|
||||||
call system('screen -x '.s:limp_bridge_screenid.' -p 0 -X eval "readbuf" "paste ."')
|
|
||||||
catch /^Vim:E211:/
|
|
||||||
echom "Lisp is gone!"
|
|
||||||
" file not available, Lisp disappeared
|
|
||||||
call LimpBridge_disconnect()
|
|
||||||
endtry
|
|
||||||
|
|
||||||
call LimpBridge_goto_pos( p )
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! LimpBridge_prompt_eval_expression()
|
|
||||||
let whatwhat = input("Eval: ")
|
|
||||||
call LimpBridge_send_to_lisp(whatwhat)
|
|
||||||
endfun
|
|
||||||
|
|
||||||
|
|
||||||
" Actually evals current top level form
|
|
||||||
function! LimpBridge_eval_top_form()
|
|
||||||
" save position
|
|
||||||
let p = LimpBridge_get_pos()
|
|
||||||
|
|
||||||
silent! exec "normal! 99[("
|
|
||||||
call LimpBridge_send_to_lisp( LimpBridge_yank( "%" ) )
|
|
||||||
|
|
||||||
" fix cursor position, in case of error below
|
|
||||||
call LimpBridge_goto_pos( p )
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
|
|
||||||
function! LimpBridge_eval_current_form()
|
|
||||||
" save position
|
|
||||||
let pos = LimpBridge_get_pos()
|
|
||||||
|
|
||||||
" find & yank current s-exp
|
|
||||||
normal! [(
|
|
||||||
let sexp = LimpBridge_yank( "%" )
|
|
||||||
call LimpBridge_send_to_lisp( sexp )
|
|
||||||
call LimpBridge_goto_pos( pos )
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
|
|
||||||
function! LimpBridge_eval_block() range
|
|
||||||
" save position
|
|
||||||
let pos = LimpBridge_get_pos()
|
|
||||||
|
|
||||||
" yank current visual block
|
|
||||||
let old_l = @l
|
|
||||||
'<,'> yank l
|
|
||||||
let sexp = @l
|
|
||||||
let @l = old_l
|
|
||||||
|
|
||||||
call LimpBridge_send_to_lisp( sexp )
|
|
||||||
call LimpBridge_goto_pos( pos )
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
|
|
||||||
function! LimpBridge_stuff_current_form()
|
|
||||||
" save position
|
|
||||||
let pos = LimpBridge_get_pos()
|
|
||||||
|
|
||||||
" find & yank current s-exp
|
|
||||||
normal! [(
|
|
||||||
call LimpBridge_send_sexp_to_buffer( LimpBridge_yank( "%" ), s:limp_bridge_test )
|
|
||||||
|
|
||||||
call LimpBridge_goto_pos( pos )
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! LimpBridge_stuff_top_form()
|
|
||||||
" save position
|
|
||||||
let pos = LimpBridge_get_pos()
|
|
||||||
|
|
||||||
" find & yank top-level s-exp
|
|
||||||
silent! exec "normal! 99[("
|
|
||||||
call LimpBridge_send_sexp_to_buffer( LimpBridge_yank( "%" ), s:limp_bridge_test )
|
|
||||||
|
|
||||||
call LimpBridge_goto_pos( pos )
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
function! LimpBridge_hyperspec(type, make_page)
|
|
||||||
" get current word under cursor
|
|
||||||
let word = expand( "<cword>" )
|
|
||||||
let cmd = "! perl " . s:Limp_location . "/bin/limp-hyperspec.pl"
|
|
||||||
let cmd = cmd . " " . a:type . " " . a:make_page . " '" . word . "'"
|
|
||||||
silent! exe cmd
|
|
||||||
redraw!
|
|
||||||
endfunction
|
|
||||||
|
|
||||||
@@ -1,207 +0,0 @@
|
|||||||
"
|
|
||||||
" limp/vim/cursor.vim
|
|
||||||
"
|
|
||||||
" URL:
|
|
||||||
" http://mikael.jansson.be/hacking
|
|
||||||
"
|
|
||||||
" Description:
|
|
||||||
" Save/restore cursor position in window (mostly obsoleted by Vim7 though)
|
|
||||||
"
|
|
||||||
" Version:
|
|
||||||
" 0.2
|
|
||||||
"
|
|
||||||
" Date:
|
|
||||||
" 2008-04-25
|
|
||||||
"
|
|
||||||
" Authors:
|
|
||||||
" Mikael Jansson <mail@mikael.jansson.be>
|
|
||||||
" Charles E. Campbell, Jr. <drNchipO@ScampbellPfamilyA.Mbiz>-NOSPAM
|
|
||||||
"
|
|
||||||
" Changelog:
|
|
||||||
" 2008-04-18
|
|
||||||
" * Removed all leader mappings
|
|
||||||
"
|
|
||||||
" Usage:
|
|
||||||
" call Cursor_push()
|
|
||||||
" let cursor = Cursor_get()
|
|
||||||
"
|
|
||||||
" call Cursor_pop()
|
|
||||||
" call Cursor_set(cursor)
|
|
||||||
"
|
|
||||||
|
|
||||||
" Load Once: {{{1
|
|
||||||
|
|
||||||
let s:keepcpo = &cpo
|
|
||||||
set cpo&vim
|
|
||||||
|
|
||||||
" -----------------------
|
|
||||||
" Public Interface: {{{1
|
|
||||||
" -----------------------
|
|
||||||
let s:modifier= "sil keepj "
|
|
||||||
|
|
||||||
|
|
||||||
" assume that all of the file has been loaded & defined once
|
|
||||||
" if one of the functions are defined.
|
|
||||||
if exists("*Cursor_get")
|
|
||||||
finish
|
|
||||||
endif
|
|
||||||
|
|
||||||
" Cursor_get: {{{1
|
|
||||||
" Return the current cursor (as an executable command!)
|
|
||||||
"
|
|
||||||
fun! Cursor_get()
|
|
||||||
if line(".") == 1 && getline(1) == ""
|
|
||||||
return ""
|
|
||||||
endif
|
|
||||||
|
|
||||||
" disable various scrolling trickery
|
|
||||||
let so_keep = &so
|
|
||||||
let siso_keep = &siso
|
|
||||||
let ss_keep = &ss
|
|
||||||
set so=0 siso=0 ss=0
|
|
||||||
|
|
||||||
let swline = line(".")
|
|
||||||
let swcol = col(".")
|
|
||||||
let swwline = winline() - 1
|
|
||||||
let swwcol = virtcol(".") - wincol()
|
|
||||||
let cursordata = "call Window_goto_by_buffer_number(".winbufnr(0).")|silent ".swline
|
|
||||||
let cursordata = cursordata."|".s:modifier."norm! 0z\<cr>"
|
|
||||||
if swwline > 0
|
|
||||||
let cursordata = cursordata.":".s:modifier."norm! ".swwline."\<c-y>\<cr>"
|
|
||||||
endif
|
|
||||||
if swwcol > 0
|
|
||||||
let cursordata = cursordata.":".s:modifier."norm! 0".swwcol."zl\<cr>"
|
|
||||||
endif
|
|
||||||
let cursordata = cursordata.":".s:modifier."call cursor(".swline.",".swcol.")\<cr>"
|
|
||||||
|
|
||||||
" restore scrolling flags
|
|
||||||
let &so = so_keep
|
|
||||||
let &siso = siso_keep
|
|
||||||
let &ss = ss_keep
|
|
||||||
|
|
||||||
return cursordata
|
|
||||||
endfun
|
|
||||||
|
|
||||||
" Cursor_set: {{{1
|
|
||||||
" Set the current cursor to an old one
|
|
||||||
"
|
|
||||||
fun! Cursor_set(cursordata)
|
|
||||||
exe "silent ".a:cursordata
|
|
||||||
endfun
|
|
||||||
|
|
||||||
|
|
||||||
" ---------------------------------------------------------------------
|
|
||||||
" Cursor_push {{{1
|
|
||||||
" let cursor = Cursor_push() save window position in b:cursor_position_{b:cursor_position_index}
|
|
||||||
" and return cursor.
|
|
||||||
fun! Cursor_push(...)
|
|
||||||
let cursordata = Cursor_get()
|
|
||||||
|
|
||||||
" save window position in
|
|
||||||
" b:cursor_position_{b:cursor_position_index} (stack)
|
|
||||||
if !exists("b:cursor_position_index")
|
|
||||||
let b:cursor_position_index= 1
|
|
||||||
else
|
|
||||||
let b:cursor_position_index = b:cursor_position_index + 1
|
|
||||||
endif
|
|
||||||
|
|
||||||
let b:cursor_position_{b:cursor_position_index} = cursordata
|
|
||||||
|
|
||||||
return cursordata
|
|
||||||
endfun
|
|
||||||
|
|
||||||
" ---------------------------------------------------------------------
|
|
||||||
" Cursor_pop: {{{1
|
|
||||||
fun! Cursor_pop()
|
|
||||||
if line(".") == 1 && getline(1) == ""
|
|
||||||
return ""
|
|
||||||
endif
|
|
||||||
let so_keep = &so
|
|
||||||
let siso_keep = &siso
|
|
||||||
let ss_keep = &ss
|
|
||||||
set so=0 siso=0 ss=0
|
|
||||||
|
|
||||||
" use saved window position in b:cursor_position_{b:cursor_position_index} if it exists
|
|
||||||
if exists("b:cursor_position_index") && exists("b:cursor_position_{b:cursor_position_index}")
|
|
||||||
try
|
|
||||||
exe "silent! ".b:cursor_position_{b:cursor_position_index}
|
|
||||||
catch /^Vim\%((\a\+)\)\=:E749/
|
|
||||||
" ignore empty buffer error messages
|
|
||||||
endtry
|
|
||||||
" normally drop top-of-stack by one
|
|
||||||
" but while new top-of-stack doesn't exist
|
|
||||||
" drop top-of-stack index by one again
|
|
||||||
if b:cursor_position_index >= 1
|
|
||||||
unlet b:cursor_position_{b:cursor_position_index}
|
|
||||||
let b:cursor_position_index= b:cursor_position_index - 1
|
|
||||||
while b:cursor_position_index >= 1 && !exists("b:cursor_position_{b:cursor_position_index}")
|
|
||||||
let b:cursor_position_index= b:cursor_position_index - 1
|
|
||||||
endwhile
|
|
||||||
if b:cursor_position_index < 1
|
|
||||||
unlet b:cursor_position_index
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
else
|
|
||||||
echohl WarningMsg
|
|
||||||
echomsg "***warning*** need to cursor_save() first!"
|
|
||||||
echohl None
|
|
||||||
endif
|
|
||||||
|
|
||||||
" seems to be something odd: vertical motions after RWP
|
|
||||||
" cause jump to first column. Following fixes that
|
|
||||||
if wincol() > 1
|
|
||||||
silent norm! hl
|
|
||||||
elseif virtcol(".") < virtcol("$")
|
|
||||||
silent norm! lh
|
|
||||||
endif
|
|
||||||
|
|
||||||
let &so = so_keep
|
|
||||||
let &siso = siso_keep
|
|
||||||
let &ss = ss_keep
|
|
||||||
endfun
|
|
||||||
|
|
||||||
" ---------------------------------------------------------------------
|
|
||||||
" Window_goto_by_buffer_number: go to window holding given buffer (by number) {{{1
|
|
||||||
" Prefers current window; if its buffer number doesn't match,
|
|
||||||
" then will try from topleft to bottom right
|
|
||||||
fun! Window_goto_by_buffer_number(bufnum)
|
|
||||||
if winbufnr(0) == a:bufnum
|
|
||||||
return
|
|
||||||
endif
|
|
||||||
winc t
|
|
||||||
let first=1
|
|
||||||
while winbufnr(0) != a:bufnum && (first || winnr() != 1)
|
|
||||||
winc w
|
|
||||||
let first= 0
|
|
||||||
endwhile
|
|
||||||
endfun
|
|
||||||
|
|
||||||
|
|
||||||
" ---------------------------------------------------------------------
|
|
||||||
" ListWinPosn:
|
|
||||||
"fun! ListWinPosn() " Decho
|
|
||||||
" if !exists("b:cursor_position_index") || b:cursor_position_index == 0 " Decho
|
|
||||||
" call Decho("nothing on SWP stack") " Decho
|
|
||||||
" else " Decho
|
|
||||||
" let jwinposn= b:cursor_position_index " Decho
|
|
||||||
" while jwinposn >= 1 " Decho
|
|
||||||
" if exists("b:cursor_position{jwinposn}") " Decho
|
|
||||||
" call Decho("winposn{".jwinposn."}<".b:cursor_position{jwinposn}.">") " Decho
|
|
||||||
" else " Decho
|
|
||||||
" call Decho("winposn{".jwinposn."} -- doesn't exist") " Decho
|
|
||||||
" endif " Decho
|
|
||||||
" let jwinposn= jwinposn - 1 " Decho
|
|
||||||
" endwhile " Decho
|
|
||||||
" endif " Decho
|
|
||||||
"endfun " Decho
|
|
||||||
"com! -nargs=0 LWP call ListWinPosn() " Decho
|
|
||||||
|
|
||||||
|
|
||||||
" ---------------------------------------------------------------------
|
|
||||||
" Restore: {{{1
|
|
||||||
let &cpo = s:keepcpo
|
|
||||||
unlet s:keepcpo
|
|
||||||
|
|
||||||
" ---------------------------------------------------------------------
|
|
||||||
" Modelines: {{{1
|
|
||||||
" vim: ts=4 fdm=marker
|
|
||||||
@@ -1,338 +0,0 @@
|
|||||||
" Vim color file
|
|
||||||
" Maintainer: Henry So, Jr. <henryso@panix.com>
|
|
||||||
|
|
||||||
" These are the colors of the "desert" theme by Hans Fugal with a few small
|
|
||||||
" modifications (namely that I lowered the intensity of the normal white and
|
|
||||||
" made the normal and nontext backgrounds black), modified to work with 88-
|
|
||||||
" and 256-color xterms.
|
|
||||||
"
|
|
||||||
" The original "desert" theme is available as part of the vim distribution or
|
|
||||||
" at http://hans.fugal.net/vim/colors/.
|
|
||||||
"
|
|
||||||
" The real feature of this color scheme, with a wink to the "inkpot" theme, is
|
|
||||||
" the programmatic approximation of the gui colors to the palettes of 88- and
|
|
||||||
" 256- color xterms. The functions that do this (folded away, for
|
|
||||||
" readability) are calibrated to the colors used for Thomas E. Dickey's xterm
|
|
||||||
" (version 200), which is available at http://dickey.his.com/xterm/xterm.html.
|
|
||||||
"
|
|
||||||
" I struggled with trying to parse the rgb.txt file to avoid the necessity of
|
|
||||||
" converting color names to #rrggbb form, but decided it was just not worth
|
|
||||||
" the effort. Maybe someone seeing this may decide otherwise...
|
|
||||||
|
|
||||||
set background=dark
|
|
||||||
if version > 580
|
|
||||||
" no guarantees for version 5.8 and below, but this makes it stop
|
|
||||||
" complaining
|
|
||||||
hi clear
|
|
||||||
if exists("syntax_on")
|
|
||||||
syntax reset
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
let g:colors_name="desert256"
|
|
||||||
|
|
||||||
if has("gui_running") || &t_Co == 88 || &t_Co == 256
|
|
||||||
" functions {{{
|
|
||||||
" returns an approximate grey index for the given grey level
|
|
||||||
fun <SID>grey_number(x)
|
|
||||||
if &t_Co == 88
|
|
||||||
if a:x < 23
|
|
||||||
return 0
|
|
||||||
elseif a:x < 69
|
|
||||||
return 1
|
|
||||||
elseif a:x < 103
|
|
||||||
return 2
|
|
||||||
elseif a:x < 127
|
|
||||||
return 3
|
|
||||||
elseif a:x < 150
|
|
||||||
return 4
|
|
||||||
elseif a:x < 173
|
|
||||||
return 5
|
|
||||||
elseif a:x < 196
|
|
||||||
return 6
|
|
||||||
elseif a:x < 219
|
|
||||||
return 7
|
|
||||||
elseif a:x < 243
|
|
||||||
return 8
|
|
||||||
else
|
|
||||||
return 9
|
|
||||||
endif
|
|
||||||
else
|
|
||||||
if a:x < 14
|
|
||||||
return 0
|
|
||||||
else
|
|
||||||
let l:n = (a:x - 8) / 10
|
|
||||||
let l:m = (a:x - 8) % 10
|
|
||||||
if l:m < 5
|
|
||||||
return l:n
|
|
||||||
else
|
|
||||||
return l:n + 1
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
endfun
|
|
||||||
|
|
||||||
" returns the actual grey level represented by the grey index
|
|
||||||
fun <SID>grey_level(n)
|
|
||||||
if &t_Co == 88
|
|
||||||
if a:n == 0
|
|
||||||
return 0
|
|
||||||
elseif a:n == 1
|
|
||||||
return 46
|
|
||||||
elseif a:n == 2
|
|
||||||
return 92
|
|
||||||
elseif a:n == 3
|
|
||||||
return 115
|
|
||||||
elseif a:n == 4
|
|
||||||
return 139
|
|
||||||
elseif a:n == 5
|
|
||||||
return 162
|
|
||||||
elseif a:n == 6
|
|
||||||
return 185
|
|
||||||
elseif a:n == 7
|
|
||||||
return 208
|
|
||||||
elseif a:n == 8
|
|
||||||
return 231
|
|
||||||
else
|
|
||||||
return 255
|
|
||||||
endif
|
|
||||||
else
|
|
||||||
if a:n == 0
|
|
||||||
return 0
|
|
||||||
else
|
|
||||||
return 8 + (a:n * 10)
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
endfun
|
|
||||||
|
|
||||||
" returns the palette index for the given grey index
|
|
||||||
fun <SID>grey_color(n)
|
|
||||||
if &t_Co == 88
|
|
||||||
if a:n == 0
|
|
||||||
return 16
|
|
||||||
elseif a:n == 9
|
|
||||||
return 79
|
|
||||||
else
|
|
||||||
return 79 + a:n
|
|
||||||
endif
|
|
||||||
else
|
|
||||||
if a:n == 0
|
|
||||||
return 16
|
|
||||||
elseif a:n == 25
|
|
||||||
return 231
|
|
||||||
else
|
|
||||||
return 231 + a:n
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
endfun
|
|
||||||
|
|
||||||
" returns an approximate color index for the given color level
|
|
||||||
fun <SID>rgb_number(x)
|
|
||||||
if &t_Co == 88
|
|
||||||
if a:x < 69
|
|
||||||
return 0
|
|
||||||
elseif a:x < 172
|
|
||||||
return 1
|
|
||||||
elseif a:x < 230
|
|
||||||
return 2
|
|
||||||
else
|
|
||||||
return 3
|
|
||||||
endif
|
|
||||||
else
|
|
||||||
if a:x < 75
|
|
||||||
return 0
|
|
||||||
else
|
|
||||||
let l:n = (a:x - 55) / 40
|
|
||||||
let l:m = (a:x - 55) % 40
|
|
||||||
if l:m < 20
|
|
||||||
return l:n
|
|
||||||
else
|
|
||||||
return l:n + 1
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
endfun
|
|
||||||
|
|
||||||
" returns the actual color level for the given color index
|
|
||||||
fun <SID>rgb_level(n)
|
|
||||||
if &t_Co == 88
|
|
||||||
if a:n == 0
|
|
||||||
return 0
|
|
||||||
elseif a:n == 1
|
|
||||||
return 139
|
|
||||||
elseif a:n == 2
|
|
||||||
return 205
|
|
||||||
else
|
|
||||||
return 255
|
|
||||||
endif
|
|
||||||
else
|
|
||||||
if a:n == 0
|
|
||||||
return 0
|
|
||||||
else
|
|
||||||
return 55 + (a:n * 40)
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
endfun
|
|
||||||
|
|
||||||
" returns the palette index for the given R/G/B color indices
|
|
||||||
fun <SID>rgb_color(x, y, z)
|
|
||||||
if &t_Co == 88
|
|
||||||
return 16 + (a:x * 16) + (a:y * 4) + a:z
|
|
||||||
else
|
|
||||||
return 16 + (a:x * 36) + (a:y * 6) + a:z
|
|
||||||
endif
|
|
||||||
endfun
|
|
||||||
|
|
||||||
" returns the palette index to approximate the given R/G/B color levels
|
|
||||||
fun <SID>color(r, g, b)
|
|
||||||
" get the closest grey
|
|
||||||
let l:gx = <SID>grey_number(a:r)
|
|
||||||
let l:gy = <SID>grey_number(a:g)
|
|
||||||
let l:gz = <SID>grey_number(a:b)
|
|
||||||
|
|
||||||
" get the closest color
|
|
||||||
let l:x = <SID>rgb_number(a:r)
|
|
||||||
let l:y = <SID>rgb_number(a:g)
|
|
||||||
let l:z = <SID>rgb_number(a:b)
|
|
||||||
|
|
||||||
if l:gx == l:gy && l:gy == l:gz
|
|
||||||
" there are two possibilities
|
|
||||||
let l:dgr = <SID>grey_level(l:gx) - a:r
|
|
||||||
let l:dgg = <SID>grey_level(l:gy) - a:g
|
|
||||||
let l:dgb = <SID>grey_level(l:gz) - a:b
|
|
||||||
let l:dgrey = (l:dgr * l:dgr) + (l:dgg * l:dgg) + (l:dgb * l:dgb)
|
|
||||||
let l:dr = <SID>rgb_level(l:gx) - a:r
|
|
||||||
let l:dg = <SID>rgb_level(l:gy) - a:g
|
|
||||||
let l:db = <SID>rgb_level(l:gz) - a:b
|
|
||||||
let l:drgb = (l:dr * l:dr) + (l:dg * l:dg) + (l:db * l:db)
|
|
||||||
if l:dgrey < l:drgb
|
|
||||||
" use the grey
|
|
||||||
return <SID>grey_color(l:gx)
|
|
||||||
else
|
|
||||||
" use the color
|
|
||||||
return <SID>rgb_color(l:x, l:y, l:z)
|
|
||||||
endif
|
|
||||||
else
|
|
||||||
" only one possibility
|
|
||||||
return <SID>rgb_color(l:x, l:y, l:z)
|
|
||||||
endif
|
|
||||||
endfun
|
|
||||||
|
|
||||||
" returns the palette index to approximate the 'rrggbb' hex string
|
|
||||||
fun <SID>rgb(rgb)
|
|
||||||
let l:r = ("0x" . strpart(a:rgb, 0, 2)) + 0
|
|
||||||
let l:g = ("0x" . strpart(a:rgb, 2, 2)) + 0
|
|
||||||
let l:b = ("0x" . strpart(a:rgb, 4, 2)) + 0
|
|
||||||
|
|
||||||
return <SID>color(l:r, l:g, l:b)
|
|
||||||
endfun
|
|
||||||
|
|
||||||
" sets the highlighting for the given group
|
|
||||||
fun <SID>X(group, fg, bg, attr)
|
|
||||||
if a:fg != ""
|
|
||||||
exec "hi " . a:group . " guifg=#" . a:fg . " ctermfg=" . <SID>rgb(a:fg)
|
|
||||||
endif
|
|
||||||
if a:bg != ""
|
|
||||||
exec "hi " . a:group . " guibg=#" . a:bg . " ctermbg=" . <SID>rgb(a:bg)
|
|
||||||
endif
|
|
||||||
if a:attr != ""
|
|
||||||
exec "hi " . a:group . " gui=" . a:attr . " cterm=" . a:attr
|
|
||||||
endif
|
|
||||||
endfun
|
|
||||||
" }}}
|
|
||||||
|
|
||||||
call <SID>X("Normal", "cccccc", "000000", "")
|
|
||||||
|
|
||||||
" highlight groups
|
|
||||||
call <SID>X("Cursor", "708090", "f0e68c", "")
|
|
||||||
"CursorIM
|
|
||||||
"Directory
|
|
||||||
"DiffAdd
|
|
||||||
"DiffChange
|
|
||||||
"DiffDelete
|
|
||||||
"DiffText
|
|
||||||
"ErrorMsg
|
|
||||||
call <SID>X("VertSplit", "c2bfa5", "7f7f7f", "reverse")
|
|
||||||
call <SID>X("Folded", "ffd700", "4d4d4d", "")
|
|
||||||
call <SID>X("FoldColumn", "d2b48c", "4d4d4d", "")
|
|
||||||
call <SID>X("IncSearch", "708090", "f0e68c", "")
|
|
||||||
"LineNr
|
|
||||||
call <SID>X("ModeMsg", "daa520", "", "")
|
|
||||||
call <SID>X("MoreMsg", "2e8b57", "", "")
|
|
||||||
call <SID>X("NonText", "addbe7", "000000", "bold")
|
|
||||||
call <SID>X("Question", "00ff7f", "", "")
|
|
||||||
call <SID>X("Search", "f5deb3", "cd853f", "")
|
|
||||||
call <SID>X("SpecialKey", "9acd32", "", "")
|
|
||||||
call <SID>X("StatusLine", "c2bfa5", "000000", "reverse")
|
|
||||||
call <SID>X("StatusLineNC", "c2bfa5", "7f7f7f", "reverse")
|
|
||||||
call <SID>X("Title", "cd5c5c", "", "")
|
|
||||||
call <SID>X("Visual", "6b8e23", "f0e68c", "reverse")
|
|
||||||
"VisualNOS
|
|
||||||
call <SID>X("WarningMsg", "fa8072", "", "")
|
|
||||||
"WildMenu
|
|
||||||
"Menu
|
|
||||||
"Scrollbar
|
|
||||||
"Tooltip
|
|
||||||
|
|
||||||
" syntax highlighting groups
|
|
||||||
call <SID>X("Comment", "87ceeb", "", "")
|
|
||||||
call <SID>X("Constant", "ffa0a0", "", "")
|
|
||||||
call <SID>X("Identifier", "98fb98", "", "none")
|
|
||||||
call <SID>X("Statement", "f0e68c", "", "bold")
|
|
||||||
call <SID>X("PreProc", "cd5c5c", "", "")
|
|
||||||
call <SID>X("Type", "bdb76b", "", "bold")
|
|
||||||
call <SID>X("Special", "ffdead", "", "")
|
|
||||||
"Underlined
|
|
||||||
call <SID>X("Ignore", "666666", "", "")
|
|
||||||
"Error
|
|
||||||
call <SID>X("Todo", "ff4500", "eeee00", "")
|
|
||||||
|
|
||||||
" delete functions {{{
|
|
||||||
delf <SID>X
|
|
||||||
delf <SID>rgb
|
|
||||||
delf <SID>color
|
|
||||||
delf <SID>rgb_color
|
|
||||||
delf <SID>rgb_level
|
|
||||||
delf <SID>rgb_number
|
|
||||||
delf <SID>grey_color
|
|
||||||
delf <SID>grey_level
|
|
||||||
delf <SID>grey_number
|
|
||||||
" }}}
|
|
||||||
else
|
|
||||||
" color terminal definitions
|
|
||||||
hi SpecialKey ctermfg=darkgreen
|
|
||||||
hi NonText cterm=bold ctermfg=darkblue
|
|
||||||
hi Directory ctermfg=darkcyan
|
|
||||||
hi ErrorMsg cterm=bold ctermfg=7 ctermbg=1
|
|
||||||
hi IncSearch cterm=NONE ctermfg=yellow ctermbg=green
|
|
||||||
hi Search cterm=NONE ctermfg=grey ctermbg=blue
|
|
||||||
hi MoreMsg ctermfg=darkgreen
|
|
||||||
hi ModeMsg cterm=NONE ctermfg=brown
|
|
||||||
hi LineNr ctermfg=3
|
|
||||||
hi Question ctermfg=green
|
|
||||||
hi StatusLine cterm=bold,reverse
|
|
||||||
hi StatusLineNC cterm=reverse
|
|
||||||
hi VertSplit cterm=reverse
|
|
||||||
hi Title ctermfg=5
|
|
||||||
hi Visual cterm=reverse
|
|
||||||
hi VisualNOS cterm=bold,underline
|
|
||||||
hi WarningMsg ctermfg=1
|
|
||||||
hi WildMenu ctermfg=0 ctermbg=3
|
|
||||||
hi Folded ctermfg=darkgrey ctermbg=NONE
|
|
||||||
hi FoldColumn ctermfg=darkgrey ctermbg=NONE
|
|
||||||
hi DiffAdd ctermbg=4
|
|
||||||
hi DiffChange ctermbg=5
|
|
||||||
hi DiffDelete cterm=bold ctermfg=4 ctermbg=6
|
|
||||||
hi DiffText cterm=bold ctermbg=1
|
|
||||||
hi Comment ctermfg=darkcyan
|
|
||||||
hi Constant ctermfg=brown
|
|
||||||
hi Special ctermfg=5
|
|
||||||
hi Identifier ctermfg=6
|
|
||||||
hi Statement ctermfg=3
|
|
||||||
hi PreProc ctermfg=5
|
|
||||||
hi Type ctermfg=2
|
|
||||||
hi Underlined cterm=underline ctermfg=5
|
|
||||||
hi Ignore ctermfg=darkgrey
|
|
||||||
hi Error cterm=bold ctermfg=7 ctermbg=1
|
|
||||||
endif
|
|
||||||
|
|
||||||
" vim: set fdl=0 fdm=marker:
|
|
||||||
@@ -1,236 +0,0 @@
|
|||||||
"
|
|
||||||
" limp/vim/highlight.vim
|
|
||||||
"
|
|
||||||
" URL:
|
|
||||||
" http://mikael.jansson.be/hacking
|
|
||||||
"
|
|
||||||
" Description:
|
|
||||||
" Highlight parens and containing s-exps
|
|
||||||
"
|
|
||||||
" Version:
|
|
||||||
" 0.2
|
|
||||||
"
|
|
||||||
" Date:
|
|
||||||
" 2008-04-25
|
|
||||||
"
|
|
||||||
" Authors:
|
|
||||||
" Mikael Jansson <mail@mikael.jansson.be>
|
|
||||||
" Charles E. Campbell, Jr. <drNchipO@ScampbellPfamilyA.Mbiz>-NOSPAM
|
|
||||||
"
|
|
||||||
" Changelog:
|
|
||||||
" 2008-04-25
|
|
||||||
" * Fixed regressions. Now properly highlights blocks again.
|
|
||||||
"
|
|
||||||
" 2008-04-18
|
|
||||||
" * Removed all mappings
|
|
||||||
" * Removed < 7.00 compatibility
|
|
||||||
" * Renamed to Lim-Highlight
|
|
||||||
" * Changed from Search to Brackets[Block]
|
|
||||||
"
|
|
||||||
" Usage: {{{1
|
|
||||||
" Before loading:
|
|
||||||
" let g:LimpHighlight = 1
|
|
||||||
" or after loading:
|
|
||||||
" call LimpHighlight_start()
|
|
||||||
"
|
|
||||||
" ---------------------------------------------------------------------
|
|
||||||
" Load Once: {{{1
|
|
||||||
|
|
||||||
let s:keepcpo = &cpo
|
|
||||||
set cpo&vim
|
|
||||||
|
|
||||||
" disable matchparen: we do that ourselves.
|
|
||||||
let g:loaded_matchparen = 1
|
|
||||||
|
|
||||||
" assume that all of the file has been loaded & defined once
|
|
||||||
" if one of the functions are defined.
|
|
||||||
if exists("*LimpHighlight_start")
|
|
||||||
finish
|
|
||||||
endif
|
|
||||||
|
|
||||||
fun! LimpHighlight_start()
|
|
||||||
if exists("g:limp_highlight_active")
|
|
||||||
return
|
|
||||||
endif
|
|
||||||
let g:limp_highlight_active = 1
|
|
||||||
|
|
||||||
if !exists("*Cursor_get")
|
|
||||||
" due to loading order, <limp/cursor.vim> may not have loaded yet.
|
|
||||||
" attempt to force a load now. Ditto for matchit!
|
|
||||||
silent! runtime limp/cursor.vim
|
|
||||||
endif
|
|
||||||
silent! runtime plugin/matchit.vim
|
|
||||||
|
|
||||||
" set whichwrap
|
|
||||||
let s:wwkeep = &ww
|
|
||||||
set ww=b,s,<,>,[,]
|
|
||||||
|
|
||||||
augroup LimpHighlight
|
|
||||||
au!
|
|
||||||
au CursorMoved * silent call s:LimpHighlight_handler()
|
|
||||||
augroup END
|
|
||||||
|
|
||||||
set lz
|
|
||||||
call s:LimpHighlight_handler()
|
|
||||||
set nolz
|
|
||||||
|
|
||||||
endfun
|
|
||||||
|
|
||||||
fun! LimpHighlight_stop()
|
|
||||||
"echom "Stopping highlight"
|
|
||||||
set lz
|
|
||||||
if exists("g:limp_highlight_active")
|
|
||||||
unlet g:limp_highlight_active
|
|
||||||
endif
|
|
||||||
match none
|
|
||||||
2match none
|
|
||||||
|
|
||||||
" remove cursorhold event for highlighting matching bracket
|
|
||||||
augroup LimpHighlight
|
|
||||||
au!
|
|
||||||
augroup END
|
|
||||||
|
|
||||||
let &ww = s:wwkeep
|
|
||||||
set nolz
|
|
||||||
endfun
|
|
||||||
|
|
||||||
|
|
||||||
" ---------------------------------------------------------------------
|
|
||||||
" LimpHighlight_handler: this routine actually performs the highlighting of {{{1
|
|
||||||
" the matching bracket.
|
|
||||||
fun! <SID>LimpHighlight_handler()
|
|
||||||
if mode() =~ '['."\<c-v>".'vV]'
|
|
||||||
" don't try to highlight matching/surrounding brackets while in
|
|
||||||
" visual-block mode
|
|
||||||
return
|
|
||||||
endif
|
|
||||||
|
|
||||||
|
|
||||||
" save
|
|
||||||
let magickeep = &magic
|
|
||||||
let regdq = @"
|
|
||||||
let regunnamed = @@
|
|
||||||
let sokeep = &so
|
|
||||||
let sskeep = &ss
|
|
||||||
let sisokeep = &siso
|
|
||||||
let solkeep = &sol
|
|
||||||
let t_vbkeep = &t_vb
|
|
||||||
let vbkeep = &vb
|
|
||||||
silent! let regpaste = @*
|
|
||||||
|
|
||||||
" turn beep/visual flash off
|
|
||||||
set nosol vb t_vb= so=0 siso=0 ss=0 magic
|
|
||||||
|
|
||||||
" remove every other character from the mps option set
|
|
||||||
let mps = substitute(&mps,'\(.\).','\1','g')
|
|
||||||
|
|
||||||
" grab a copy of the character under the cursor into @0
|
|
||||||
silent! norm! yl
|
|
||||||
|
|
||||||
" if the character grabbed in @0 is in the mps option set, then highlight
|
|
||||||
" the matching character
|
|
||||||
if stridx(mps,@0) != -1
|
|
||||||
"------------------------------------------
|
|
||||||
" We are at a bracket character
|
|
||||||
"------------------------------------------
|
|
||||||
let curchr = @0
|
|
||||||
" determine match line, column.
|
|
||||||
" Restrict search to currently visible portion of window.
|
|
||||||
if &mps =~ curchr.':'
|
|
||||||
let stopline = line("w$")
|
|
||||||
let chrmatch = substitute(&mps,'^.*'.curchr.':\(.\).*$','\1','')
|
|
||||||
let [mtchline,mtchcol] = searchpairpos(escape(curchr,'[]'),'',escape(chrmatch,'[]'),'n','synIDattr(synID(line("."), col("."), 0), "name") =~? "string\\|comment"',stopline)
|
|
||||||
else
|
|
||||||
let stopline = line("w0")
|
|
||||||
let chrmatch = substitute(&mps,'^.*\(.\):'.curchr.'.*$','\1','')
|
|
||||||
let [mtchline,mtchcol] = searchpairpos(escape(chrmatch,'[]'),'',escape(curchr,'[]'),'bn','synIDattr(synID(line("."), col("."), 0), "name") =~? "string\\|comment"',stopline)
|
|
||||||
endif
|
|
||||||
|
|
||||||
if mtchline != 0 && mtchcol != 0
|
|
||||||
let mtchline2 = line('.')
|
|
||||||
let mtchcol2 = col('.')
|
|
||||||
let mtchline1 = mtchline
|
|
||||||
let mtchcol1 = mtchcol
|
|
||||||
|
|
||||||
call s:PerformMatch(mtchline1, mtchcol1, mtchline2, mtchcol2)
|
|
||||||
else
|
|
||||||
2match none
|
|
||||||
match none
|
|
||||||
endif
|
|
||||||
|
|
||||||
" if g:HiMtchBrkt_surround exists and is true, then highlight the surrounding brackets
|
|
||||||
"elseif exists("g:HiMtchBrkt_surround") && g:HiMtchBrkt_surround
|
|
||||||
else
|
|
||||||
"------------------------------------------
|
|
||||||
" We are inside brackets!
|
|
||||||
"------------------------------------------
|
|
||||||
let swp = Cursor_get()
|
|
||||||
let openers = '['.escape(substitute(&mps,':.,\=',"","g"),']').']'
|
|
||||||
let closers = '['.escape(substitute(&mps,',\=.:',"","g"),']').']'
|
|
||||||
call searchpair(openers,"",closers,'','synIDattr(synID(line("."), col("."), 0), "name") =~? "string\\|comment"')
|
|
||||||
silent! norm! yl
|
|
||||||
if stridx(mps,@0) != -1
|
|
||||||
let mtchline1 = line('.')
|
|
||||||
let mtchcol1 = virtcol('.')
|
|
||||||
keepj norm! %
|
|
||||||
let mtchline2 = line('.')
|
|
||||||
let mtchcol2 = virtcol('.')
|
|
||||||
call Cursor_set(swp)
|
|
||||||
|
|
||||||
call s:PerformMatch(mtchline1, mtchcol1, mtchline2, mtchcol2)
|
|
||||||
else
|
|
||||||
match none
|
|
||||||
2match none
|
|
||||||
endif
|
|
||||||
endif
|
|
||||||
|
|
||||||
" restore
|
|
||||||
let &magic = magickeep
|
|
||||||
let @" = regdq
|
|
||||||
let @@ = regunnamed
|
|
||||||
let &sol = solkeep
|
|
||||||
let &so = sokeep
|
|
||||||
let &siso = sisokeep
|
|
||||||
let &ss = sskeep
|
|
||||||
let &t_vb = t_vbkeep
|
|
||||||
let &vb = vbkeep
|
|
||||||
silent! let @* = regpaste
|
|
||||||
endfun
|
|
||||||
|
|
||||||
fun! s:PerformMatch(line1, col1, line2, col2)
|
|
||||||
let line1 = a:line1
|
|
||||||
let col1 = a:col1
|
|
||||||
let line2 = a:line2
|
|
||||||
let col2 = a:col2
|
|
||||||
|
|
||||||
if line1 == line2
|
|
||||||
" at a single line => sort points on columns
|
|
||||||
if col1 > col2
|
|
||||||
let tmp = col2
|
|
||||||
let col2 = col1
|
|
||||||
let col1 = tmp
|
|
||||||
let tmp = line2
|
|
||||||
let line2 = line1
|
|
||||||
let line1 = tmp
|
|
||||||
endif
|
|
||||||
exe '2match BracketsBlock /\%'.line1.'l\%>'.col1.'v\%<'.col2.'v/'
|
|
||||||
else
|
|
||||||
" at a single line => sort points on lines
|
|
||||||
if line1 > line2
|
|
||||||
let tmp = line2
|
|
||||||
let line2 = line1
|
|
||||||
let line1 = tmp
|
|
||||||
let tmp = col2
|
|
||||||
let col2 = col1
|
|
||||||
let col1 = tmp
|
|
||||||
endif
|
|
||||||
exe '2match BracketsBlock /\%'.line1.'l\%>'.col1.'v\|\%>'.line1.'l\%<'.line2.'l\|\%'.line2.'l\%<'.col2.'v/'
|
|
||||||
endif
|
|
||||||
|
|
||||||
exe 'match Brackets /\%'.line1.'l\%'.col1.'v\|\%'.line2.'l\%'.col2.'v/'
|
|
||||||
endfun
|
|
||||||
|
|
||||||
let &cpo = s:keepcpo
|
|
||||||
unlet s:keepcpo
|
|
||||||
|
|
||||||
|
|
||||||
@@ -1,96 +0,0 @@
|
|||||||
"
|
|
||||||
" limp/vim/keys.vim
|
|
||||||
"
|
|
||||||
" Description:
|
|
||||||
" Limp key bindings
|
|
||||||
"
|
|
||||||
" Authors:
|
|
||||||
" Mikael Jansson <mail@mikael.jansson.be>
|
|
||||||
"
|
|
||||||
|
|
||||||
nmap <buffer> <F12> <Plug>LimpBootConnectDisplay
|
|
||||||
nmap <buffer> <C-F12> <Plug>LimpDisconnect
|
|
||||||
nmap <buffer> <S-F12> <Plug>LimpShutdownLisp
|
|
||||||
|
|
||||||
" Eval Top: send top-level s-exp to Lisp
|
|
||||||
" Eval Current: send current s-exp to Lisp
|
|
||||||
" Eval Expression: send arbitrary code to Lisp
|
|
||||||
nmap <buffer> <LocalLeader>et <Plug>EvalTop
|
|
||||||
nmap <buffer> <LocalLeader>ec <Plug>EvalCurrent
|
|
||||||
nmap <buffer> <LocalLeader>ex <Plug>EvalExpression
|
|
||||||
|
|
||||||
" Eval Block: visual mode
|
|
||||||
vmap <buffer> <LocalLeader>et <Plug>EvalBlock
|
|
||||||
vmap <buffer> <LocalLeader>ec <Plug>EvalBlock
|
|
||||||
vmap <buffer> <LocalLeader>ex <Plug>EvalBlock
|
|
||||||
|
|
||||||
" SBCL Abort Reset: abort from the debugger
|
|
||||||
nmap <buffer> <LocalLeader>ar <Plug>AbortReset
|
|
||||||
|
|
||||||
" Abort Interrupt: send ^C to interpreter
|
|
||||||
nmap <buffer> <LocalLeader>ai <Plug>AbortInterrupt
|
|
||||||
|
|
||||||
" Test Current: copy current s-exp to test buffer
|
|
||||||
" Test Top: copy top s-exp to test buffer
|
|
||||||
nmap <buffer> <LocalLeader>tc <Plug>TestCurrent
|
|
||||||
nmap <buffer> <LocalLeader>tt <Plug>TestTop
|
|
||||||
|
|
||||||
" Load File: load /this/ file into Lisp
|
|
||||||
" Load Any File: load whichever version of this file (.lisp not given)
|
|
||||||
nmap <buffer> <LocalLeader>lf <Plug>LoadThisFile
|
|
||||||
nmap <buffer> <LocalLeader>la <Plug>LoadAnyFile
|
|
||||||
|
|
||||||
" Compile File: compile the current file
|
|
||||||
" Compile Load File: compile, then load the current file
|
|
||||||
nmap <buffer> <LocalLeader>cf <Plug>CompileFile
|
|
||||||
nmap <buffer> <LocalLeader>cl <Plug>CompileAndLoadFile
|
|
||||||
|
|
||||||
" Goto Test Buffer:
|
|
||||||
" Goto Split: split current buffer and goto test buffer
|
|
||||||
nmap <buffer> <LocalLeader>gt <Plug>GotoTestBuffer
|
|
||||||
nmap <buffer> <LocalLeader>gs <Plug>GotoTestBufferAndSplit
|
|
||||||
|
|
||||||
" Goto Last: return to last Lisp buffer
|
|
||||||
nmap <buffer> <LocalLeader>gl <Plug>GotoLastLispBuffer
|
|
||||||
|
|
||||||
" HyperSpec:
|
|
||||||
nmap <buffer> <LocalLeader>he <Plug>HyperspecExact
|
|
||||||
nmap <buffer> <LocalLeader>hp <Plug>HyperspecPrefix
|
|
||||||
nmap <buffer> <LocalLeader>hs <Plug>HyperspecSuffix
|
|
||||||
nmap <buffer> <LocalLeader>hg <Plug>HyperspecGrep
|
|
||||||
nmap <buffer> <LocalLeader>hi <Plug>HyperspecFirstLetterIndex
|
|
||||||
nmap <buffer> <LocalLeader>hI <Plug>HyperspecFullIndex
|
|
||||||
nmap <buffer> K <Plug>HyperspecExact
|
|
||||||
|
|
||||||
" Help Describe: ask Lisp about the current symbol
|
|
||||||
nmap <buffer> <LocalLeader>hd <Plug>HelpDescribe
|
|
||||||
|
|
||||||
" Mark Top: mark visual block
|
|
||||||
nmap <buffer> <LocalLeader>mt <Plug>MarkTop
|
|
||||||
|
|
||||||
" Format Current: reindent/format
|
|
||||||
" Format Top:
|
|
||||||
nmap <buffer> <LocalLeader>fc <Plug>FormatCurrent
|
|
||||||
nmap <buffer> <LocalLeader>ft <Plug>FormatTop
|
|
||||||
|
|
||||||
" Sexp Wrap: wrap the current form in a list
|
|
||||||
" Sexp Peel: peel a list off the current form
|
|
||||||
nmap <buffer> <LocalLeader>sw <Plug>SexpWrap
|
|
||||||
nmap <buffer> <LocalLeader>sp <Plug>SexpPeel
|
|
||||||
|
|
||||||
" Sexp Previous: navigate to previous s-exp
|
|
||||||
" Sexp Next: navigate to previous s-exp
|
|
||||||
nmap <buffer> ( <Plug>SexpPrevious
|
|
||||||
nmap <buffer> ) <Plug>SexpNext
|
|
||||||
|
|
||||||
" Sexp Move Back: swap this and previous s-exp
|
|
||||||
" Sexp Move Forward: swap this and next s-exp
|
|
||||||
nmap <buffer> { <Plug>SexpMoveBack
|
|
||||||
nmap <buffer> } <Plug>SexpMoveForward
|
|
||||||
|
|
||||||
" Sexp Comment: comment all the way from the top level
|
|
||||||
nmap <buffer> <LocalLeader>sc <Plug>SexpComment
|
|
||||||
|
|
||||||
" Sexp Comment Current: comment current form
|
|
||||||
nmap <buffer> <LocalLeader>sC <Plug>SexpCommentCurrent
|
|
||||||
|
|
||||||
@@ -1,53 +0,0 @@
|
|||||||
"
|
|
||||||
" limp/vim/limp.vim
|
|
||||||
"
|
|
||||||
" URL:
|
|
||||||
" http://mikael.jansson.be/hacking
|
|
||||||
"
|
|
||||||
" Description:
|
|
||||||
" Setup the Limp environment
|
|
||||||
"
|
|
||||||
" Version:
|
|
||||||
" 0.2
|
|
||||||
"
|
|
||||||
" Date:
|
|
||||||
" 2008-04-28
|
|
||||||
"
|
|
||||||
" Authors:
|
|
||||||
" Mikael Jansson <mail@mikael.jansson.be>
|
|
||||||
"
|
|
||||||
" Changelog:
|
|
||||||
" * 2008-04-28 by Mikael Jansson <mail@mikael.jansson.be>
|
|
||||||
" Only change colorscheme and nocompatible when not previously set.
|
|
||||||
"
|
|
||||||
" * 2008-04-25 by Mikael Jansson <mail@mikael.jansson.be>
|
|
||||||
" Catch-all key <F12> for Lisp boot, connect & display
|
|
||||||
"
|
|
||||||
" * 2008-04-20 by Mikael Jansson <mail@mikael.jansson.be>
|
|
||||||
" Initial version.
|
|
||||||
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
|
|
||||||
if exists("b:did_ftplugin")
|
|
||||||
finish
|
|
||||||
endif
|
|
||||||
let b:did_ftplugin = 1
|
|
||||||
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
" external dependencies
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
silent! runtime plugin/matchit.vim
|
|
||||||
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
" the Limp library
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
|
|
||||||
runtime ftplugin/lisp/limp/cursor.vim
|
|
||||||
runtime ftplugin/lisp/limp/highlight.vim
|
|
||||||
runtime ftplugin/lisp/limp/sexp.vim
|
|
||||||
runtime ftplugin/lisp/limp/bridge.vim
|
|
||||||
runtime ftplugin/lisp/limp/autoclose.vim
|
|
||||||
runtime ftplugin/lisp/limp/keys.vim
|
|
||||||
runtime ftplugin/lisp/limp/mode.vim
|
|
||||||
|
|
||||||
|
|
||||||
@@ -1,118 +0,0 @@
|
|||||||
"
|
|
||||||
" limp/vim/mode.vim
|
|
||||||
"
|
|
||||||
" URL:
|
|
||||||
" http://mikael.jansson.be
|
|
||||||
"
|
|
||||||
" Description:
|
|
||||||
" Lisp-mode specific functions
|
|
||||||
"
|
|
||||||
" Authors:
|
|
||||||
" Mikael Jansson <mail@mikael.jansson.be>
|
|
||||||
"
|
|
||||||
"Eval (say-hello 'mikael)
|
|
||||||
command! -buffer -nargs=* Eval silent call LimpBridge_send_to_lisp(<q-args>)
|
|
||||||
|
|
||||||
let b:listener_always_open_window=0
|
|
||||||
let b:listener_keep_open=0
|
|
||||||
|
|
||||||
let g:lisp_mode_active = 0
|
|
||||||
fun! LimpMode_start()
|
|
||||||
if g:lisp_mode_active
|
|
||||||
return
|
|
||||||
endif
|
|
||||||
let g:lisp_mode_active = 1
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
" coloring
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
let g:lisp_rainbow=1
|
|
||||||
|
|
||||||
set t_Co=256
|
|
||||||
if !exists("g:colors_name")
|
|
||||||
colorscheme desert256
|
|
||||||
endif
|
|
||||||
|
|
||||||
hi Brackets ctermbg=53 ctermfg=white
|
|
||||||
hi BracketsBlock ctermbg=235 guibg=lightgray
|
|
||||||
hi StatusLine ctermbg=white ctermfg=160
|
|
||||||
hi StatusLineNC ctermbg=black ctermfg=gray
|
|
||||||
hi Pmenu ctermbg=53 ctermfg=255
|
|
||||||
hi PmenuSel ctermbg=255 ctermfg=53
|
|
||||||
|
|
||||||
"
|
|
||||||
" set all parens to gray
|
|
||||||
"
|
|
||||||
hi hlLevel0 ctermfg=238
|
|
||||||
hi hlLevel1 ctermfg=238
|
|
||||||
hi hlLevel2 ctermfg=238
|
|
||||||
hi hlLevel3 ctermfg=238
|
|
||||||
hi hlLevel4 ctermfg=238
|
|
||||||
hi hlLevel5 ctermfg=238
|
|
||||||
hi hlLevel6 ctermfg=238
|
|
||||||
hi hlLevel7 ctermfg=238
|
|
||||||
hi hlLevel8 ctermfg=238
|
|
||||||
hi hlLevel9 ctermfg=238
|
|
||||||
hi hlLevel10 ctermfg=238
|
|
||||||
hi hlLevel11 ctermfg=238
|
|
||||||
|
|
||||||
call LimpHighlight_start()
|
|
||||||
call AutoClose_start()
|
|
||||||
|
|
||||||
" for whatever reason, nocursorline isn't set after pressing F12... (i.e.,
|
|
||||||
" switching back to the buffer)
|
|
||||||
setlocal nocursorline
|
|
||||||
endfun
|
|
||||||
|
|
||||||
fun! LimpMode_stop()
|
|
||||||
let g:lisp_mode_active = 0
|
|
||||||
call LimpHighlight_stop()
|
|
||||||
call AutoClose_stop()
|
|
||||||
endfun
|
|
||||||
|
|
||||||
augroup LimpMode
|
|
||||||
au!
|
|
||||||
au BufEnter * :if &filetype == "lisp" | call LimpMode_start() | endif
|
|
||||||
au BufLeave * :if &filetype == "lisp" | call LimpMode_stop() | endif
|
|
||||||
augroup END
|
|
||||||
|
|
||||||
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
" init filetype plugin
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
syntax on
|
|
||||||
setlocal nocompatible nocursorline
|
|
||||||
setlocal lisp syntax=lisp
|
|
||||||
setlocal ls=2 bs=2 si et sw=2 ts=2 tw=0
|
|
||||||
setlocal statusline=%<%f\ \(%{LimpBridge_connection_status()}\)\ %h%m%r%=%-14.(%l,%c%V%)\ %P\ of\ %L\ \(%.45{getcwd()}\)
|
|
||||||
setlocal iskeyword=&,*,+,45,/,48-57,:,<,=,>,@,A-Z,a-z,_
|
|
||||||
setlocal cpoptions=-mp
|
|
||||||
setlocal foldmethod=marker foldmarker=(,) foldminlines=1
|
|
||||||
|
|
||||||
|
|
||||||
" This allows gf and :find to work. Fix path to your needs
|
|
||||||
setlocal suffixesadd=.lisp,cl path=/home/mikael/hacking/lisp/**
|
|
||||||
|
|
||||||
" This allows [d [i [D [I work across files if an ASDF buffer is opened
|
|
||||||
" If I used load, it would be there too.
|
|
||||||
setlocal include=(:file\
|
|
||||||
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
" reset to previous values
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
|
|
||||||
let s:save_cpo = &cpo
|
|
||||||
set cpo&vim
|
|
||||||
|
|
||||||
let b:undo_ftplugin = "setlocal syntax< lisp< ls< bs< si< et< sw< "
|
|
||||||
\ . "ts< tw< complete< nocursorline< nocompatible< statusline< iskeyword< "
|
|
||||||
\ . "cpoptions< foldmethod< foldmarker< foldminlines< "
|
|
||||||
\ . "suffixesadd< path< include< "
|
|
||||||
|
|
||||||
let &cpo = s:save_cpo
|
|
||||||
unlet s:save_cpo
|
|
||||||
|
|
||||||
|
|
||||||
"------------- boot!
|
|
||||||
|
|
||||||
call LimpMode_start()
|
|
||||||
|
|
||||||
@@ -1,308 +0,0 @@
|
|||||||
"
|
|
||||||
" limp/vim/sexp.vim
|
|
||||||
"
|
|
||||||
" URL:
|
|
||||||
" http://mikael.jansson.be/hacking
|
|
||||||
"
|
|
||||||
" Description:
|
|
||||||
" Things to help you out with s-exps.
|
|
||||||
"
|
|
||||||
" Version:
|
|
||||||
" 0.2
|
|
||||||
"
|
|
||||||
" Date:
|
|
||||||
" 2008-04-20
|
|
||||||
"
|
|
||||||
" Authors:
|
|
||||||
" Mikael Jansson <mail@mikael.jansson.be>
|
|
||||||
"
|
|
||||||
" Changelog:
|
|
||||||
" 2008-04-20
|
|
||||||
" * Initial version.
|
|
||||||
" * Based on ViLisp.vim by Larry Clapp <vim@theclapp.org>
|
|
||||||
|
|
||||||
" Mark Top: mark visual block
|
|
||||||
nnoremap <buffer> <Plug>MarkTop 99[(V%
|
|
||||||
|
|
||||||
" Format Current: reindent/format
|
|
||||||
" Format Top:
|
|
||||||
nnoremap <buffer> <Plug>FormatCurrent [(=%`'
|
|
||||||
nnoremap <buffer> <Plug>FormatTop 99[(=%`'
|
|
||||||
|
|
||||||
" Sexp Wrap: wrap the current form in a list
|
|
||||||
" Sexp Peel: peel a list off the current form
|
|
||||||
nnoremap <silent> <buffer> <Plug>SexpWrap :call Cursor_push()<CR>[(%a)<ESC>h%i(<ESC>:call Cursor_pop()<CR>
|
|
||||||
nnoremap <silent> <buffer> <Plug>SexpPeel :call Cursor_push()<CR>[(:call Cursor_push()<CR>%x:call Cursor_pop()<CR>x:call Cursor_pop()<CR>
|
|
||||||
|
|
||||||
" Sexp Previous: navigate to previous s-exp
|
|
||||||
" Sexp Next: navigate to previous s-exp
|
|
||||||
nnoremap <silent> <buffer> <Plug>SexpPrevious :call Sexp_Previous()<CR>
|
|
||||||
nnoremap <silent> <buffer> <Plug>SexpNext :call Sexp_Next()<CR>
|
|
||||||
|
|
||||||
" Sexp Move Back: swap this and previous s-exp
|
|
||||||
" Sexp Move Forward: swap this and next s-exp
|
|
||||||
nnoremap <silent> <buffer> <Plug>SexpMoveBack :call Sexp_MoveBack()<CR>
|
|
||||||
nnoremap <silent> <buffer> <Plug>SexpMoveForward :call Sexp_MoveForward()<CR>
|
|
||||||
|
|
||||||
" Sexp Comment: comment all the way from the top level
|
|
||||||
nnoremap <silent> <buffer> <Plug>SexpComment :call Cursor_push()<CR>99[(%a\|#<ESC>hh%i#\|<ESC>:call Cursor_pop()<CR>
|
|
||||||
|
|
||||||
" Sexp Comment Current: comment current form
|
|
||||||
nnoremap <silent> <buffer> <Plug>SexpCommentCurrent :call Cursor_push()<CR>[(%a\|#<ESC>hh%i#\|<ESC>:call Cursor_pop()<CR>
|
|
||||||
|
|
||||||
|
|
||||||
"-------------------------------------------------------------------
|
|
||||||
|
|
||||||
fun! Sexp_Next()
|
|
||||||
let [l, c] = Sexp_get_Next()
|
|
||||||
call cursor(l, c)
|
|
||||||
endfun
|
|
||||||
|
|
||||||
fun! Sexp_Previous()
|
|
||||||
let [l, c] = Sexp_get_Previous()
|
|
||||||
if l == 0 && c == 0
|
|
||||||
return
|
|
||||||
endif
|
|
||||||
call cursor(l, c)
|
|
||||||
return
|
|
||||||
endfun
|
|
||||||
|
|
||||||
" return the position of the next s-exp
|
|
||||||
fun! Sexp_get_Next()
|
|
||||||
return searchpos('(', 'nW')
|
|
||||||
endfun
|
|
||||||
|
|
||||||
" return the position of the previous s-exp
|
|
||||||
fun! Sexp_get_Previous()
|
|
||||||
let p = getpos(".")
|
|
||||||
|
|
||||||
" If outside of *any* s-exps, move to the previous s-exp first.
|
|
||||||
let [l, c] = searchpairpos('(', '', ')', 'bnW')
|
|
||||||
if l == 0 && c == 0
|
|
||||||
call searchpos(')', 'Wb')
|
|
||||||
endif
|
|
||||||
|
|
||||||
" now, move to the start of this s-exp, wherever it may be.
|
|
||||||
let [l, c] = searchpos('(', 'Wnb')
|
|
||||||
|
|
||||||
call setpos(".", p)
|
|
||||||
|
|
||||||
return [l, c]
|
|
||||||
endfun
|
|
||||||
|
|
||||||
"XXX: MoveBack/MoveForward share much code
|
|
||||||
|
|
||||||
fun! Sexp_MoveBack()
|
|
||||||
" Inside an s-exp?
|
|
||||||
let [l, c] = searchpairpos('(', '', ')', 'bcnW')
|
|
||||||
if l == 0 || c == 0
|
|
||||||
" Nope,
|
|
||||||
return
|
|
||||||
endif
|
|
||||||
|
|
||||||
silent! let regs = @*
|
|
||||||
|
|
||||||
" mark the start of this s-exp
|
|
||||||
silent! norm! yl
|
|
||||||
if @0 != "("
|
|
||||||
call Sexp_Previous()
|
|
||||||
endif
|
|
||||||
|
|
||||||
"
|
|
||||||
" Find out if the previous s-exp is the parent of the current
|
|
||||||
"
|
|
||||||
" This by searching to the previous s-exp, doing a % and checking either
|
|
||||||
" of the following conditions:
|
|
||||||
"
|
|
||||||
" * prev_line2 == this_line2 && prev_col2 > this_col2
|
|
||||||
" * prev_line2 > this_line2
|
|
||||||
"
|
|
||||||
" where prev_line2/prev_col2 = the ) of the previous match, and
|
|
||||||
" this_line2/this_col2 = the ) of the current s-exp.
|
|
||||||
"
|
|
||||||
|
|
||||||
" so we can get back.
|
|
||||||
silent! norm! ma
|
|
||||||
let [b, this_line1, this_col1, o] = getpos('.')
|
|
||||||
|
|
||||||
" where does the *current* s-exp end?
|
|
||||||
silent! norm! %
|
|
||||||
let [b, this_line2, this_col2, o] = getpos('.')
|
|
||||||
silent! norm! %
|
|
||||||
|
|
||||||
" where does the previous s-exp end?
|
|
||||||
call Sexp_Previous()
|
|
||||||
silent! norm! mb
|
|
||||||
|
|
||||||
let [b, prev_line1, prev_col1, o] = getpos('.')
|
|
||||||
silent! norm! %
|
|
||||||
let [b, prev_line2, prev_col2, o] = getpos('.')
|
|
||||||
|
|
||||||
if (prev_line2 == this_line2 && prev_col2 > this_col2) || (prev_line2 > this_line2)
|
|
||||||
" For now, just do nothing
|
|
||||||
echom "Error: Trying to transpose s-exp backwards with parent."
|
|
||||||
silent! norm! `a
|
|
||||||
return
|
|
||||||
endif
|
|
||||||
|
|
||||||
" --------------------------------------------------------
|
|
||||||
|
|
||||||
" get the s-exps
|
|
||||||
silent! norm! `a
|
|
||||||
silent! norm! "ayab
|
|
||||||
silent! norm! `b
|
|
||||||
silent! norm! "byab
|
|
||||||
|
|
||||||
" copy and replace current s-exp with whitespace
|
|
||||||
let @c = Fill(" ", len(@b))
|
|
||||||
let @d = Fill(" ", len(@a))
|
|
||||||
|
|
||||||
silent! norm! `a"_dab
|
|
||||||
silent! norm! `a"cP
|
|
||||||
|
|
||||||
silent! norm! `b"_dab
|
|
||||||
silent! norm! `b"dP
|
|
||||||
|
|
||||||
if this_line1 == prev_line1
|
|
||||||
|
|
||||||
let diff = len(@a) - len(@b)
|
|
||||||
if diff > 0
|
|
||||||
let movement = ''.diff.'l'
|
|
||||||
elseif diff < 0
|
|
||||||
let movement = ''.(-diff).'h'
|
|
||||||
else
|
|
||||||
let movement = ''
|
|
||||||
endif
|
|
||||||
|
|
||||||
silent! norm! `b"aPl
|
|
||||||
silent! exe 'norm! '.len(@a).'x'
|
|
||||||
|
|
||||||
silent! exe 'norm! `a'.movement.'"bPl'
|
|
||||||
silent! exe 'norm! '.len(@b).'x'
|
|
||||||
|
|
||||||
silent! norm! `b
|
|
||||||
else
|
|
||||||
" different lines, so a simple paste will do
|
|
||||||
|
|
||||||
silent! norm! `a"bP
|
|
||||||
silent! exe 'norm! l'.len(@a).'x'
|
|
||||||
silent! norm! `b"aP
|
|
||||||
silent! exe 'norm! l'.len(@b).'x'
|
|
||||||
silent! norm! `b
|
|
||||||
endif
|
|
||||||
|
|
||||||
silent! let @* = regs
|
|
||||||
endfun
|
|
||||||
|
|
||||||
fun! Sexp_MoveForward()
|
|
||||||
" Inside an s-exp?
|
|
||||||
let [l, c] = searchpairpos('(', '', ')', 'bcnW')
|
|
||||||
if l == 0 || c == 0
|
|
||||||
" Nope,
|
|
||||||
return
|
|
||||||
endif
|
|
||||||
|
|
||||||
silent! let regs = @*
|
|
||||||
|
|
||||||
" mark the start of this s-exp
|
|
||||||
silent! norm! yl
|
|
||||||
if @0 != "("
|
|
||||||
call Sexp_Previous()
|
|
||||||
endif
|
|
||||||
|
|
||||||
"
|
|
||||||
" Find out if the next s-exp is the parent of the current.
|
|
||||||
"
|
|
||||||
" Search for the next ')', then see where the matching '(' ends.
|
|
||||||
" Check for any of the following conditions.
|
|
||||||
"
|
|
||||||
" * prev_line1 == this_line1 && prev_col1 < this_col1
|
|
||||||
" * prev_line1 < this_line1
|
|
||||||
"
|
|
||||||
" where prev_line1/prev_col1 = the ( of the previous match, and
|
|
||||||
" this_line1/this_col1 = the ( of the current s-exp.
|
|
||||||
"
|
|
||||||
|
|
||||||
" so we can get back.
|
|
||||||
silent! norm! ma
|
|
||||||
let [b, this_line1, this_col1, o] = getpos('.')
|
|
||||||
|
|
||||||
" where does the *current* s-exp end?
|
|
||||||
silent! norm! %
|
|
||||||
let [b, this_line2, this_col2, o] = getpos('.')
|
|
||||||
|
|
||||||
" where does the next s-exp end?
|
|
||||||
call search(')', 'W')
|
|
||||||
|
|
||||||
let [b, prev_line2, prev_col2, o] = getpos('.')
|
|
||||||
silent! norm! %
|
|
||||||
|
|
||||||
silent! norm! mb
|
|
||||||
let [b, prev_line1, prev_col1, o] = getpos('.')
|
|
||||||
|
|
||||||
if (prev_line1 == this_line1 && prev_col1 < this_col1) || (prev_line1 < this_line1)
|
|
||||||
" For now, just do nothing
|
|
||||||
echom "Error: Trying to transpose s-exp forward with parent."
|
|
||||||
silent! norm! `a
|
|
||||||
return
|
|
||||||
endif
|
|
||||||
|
|
||||||
" --------------------------------------------------------
|
|
||||||
|
|
||||||
" get the s-exps
|
|
||||||
silent! norm! `a
|
|
||||||
silent! norm! "ayab
|
|
||||||
silent! norm! `b
|
|
||||||
silent! norm! "byab
|
|
||||||
|
|
||||||
" copy and replace current s-exp with whitespace
|
|
||||||
let @c = Fill(" ", len(@b))
|
|
||||||
let @d = Fill(" ", len(@a))
|
|
||||||
|
|
||||||
silent! norm! `b"_dab
|
|
||||||
silent! norm! `b"dP
|
|
||||||
|
|
||||||
silent! norm! `a"_dab
|
|
||||||
silent! norm! `a"cP
|
|
||||||
|
|
||||||
if this_line1 == prev_line1
|
|
||||||
|
|
||||||
let diff = len(@a) - len(@b)
|
|
||||||
if diff > 0
|
|
||||||
let movement = ''.diff.'h'
|
|
||||||
elseif diff < 0
|
|
||||||
let movement = ''.(-diff).'l'
|
|
||||||
else
|
|
||||||
let movement = ''
|
|
||||||
endif
|
|
||||||
|
|
||||||
silent! norm! `a"bPl
|
|
||||||
silent! exe 'norm! '.len(@b).'x'
|
|
||||||
|
|
||||||
silent! exe 'norm! `b'.movement.'"aPl'
|
|
||||||
silent! exe 'norm! '.len(@a).'x'
|
|
||||||
|
|
||||||
silent! exe 'norm! `b'.movement
|
|
||||||
else
|
|
||||||
" different lines, so a simple paste will do
|
|
||||||
|
|
||||||
silent! norm! `a"bP
|
|
||||||
silent! exe 'norm! l'.len(@a).'x'
|
|
||||||
silent! norm! `b"aP
|
|
||||||
silent! exe 'norm! l'.len(@b).'x'
|
|
||||||
silent! norm! `b
|
|
||||||
endif
|
|
||||||
|
|
||||||
silent! let @* = regs
|
|
||||||
endfun
|
|
||||||
|
|
||||||
fun! Fill(c, n)
|
|
||||||
let s = ""
|
|
||||||
let n = a:n
|
|
||||||
while n > 0
|
|
||||||
let s = s.a:c
|
|
||||||
let n = n-1
|
|
||||||
endwhile
|
|
||||||
return s
|
|
||||||
endfun
|
|
||||||
|
|
||||||
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user