7
|
1 " Vim script to work like "less"
|
|
2 " Maintainer: Bram Moolenaar <Bram@vim.org>
|
|
3 " Last Change: 2004 Feb 19
|
|
4
|
|
5 " Avoid loading this file twice, allow the user to define his own script.
|
|
6 if exists("loaded_less")
|
|
7 finish
|
|
8 endif
|
|
9 let loaded_less = 1
|
|
10
|
|
11 " If not reading from stdin, skip files that can't be read.
|
|
12 " Exit if there is no file at all.
|
|
13 if argc() > 0
|
|
14 let s:i = 0
|
|
15 while 1
|
|
16 if filereadable(argv(s:i))
|
|
17 if s:i != 0
|
|
18 sleep 3
|
|
19 endif
|
|
20 break
|
|
21 endif
|
|
22 if isdirectory(argv(s:i))
|
|
23 echomsg "Skipping directory " . argv(s:i)
|
|
24 elseif getftime(argv(s:i)) < 0
|
|
25 echomsg "Skipping non-existing file " . argv(s:i)
|
|
26 else
|
|
27 echomsg "Skipping unreadable file " . argv(s:i)
|
|
28 endif
|
|
29 echo "\n"
|
|
30 let s:i = s:i + 1
|
|
31 if s:i == argc()
|
|
32 quit
|
|
33 endif
|
|
34 next
|
|
35 endwhile
|
|
36 endif
|
|
37
|
|
38 set nocp
|
|
39 syntax on
|
|
40 set so=0
|
|
41 set hlsearch
|
|
42 set incsearch
|
|
43 nohlsearch
|
|
44 " Don't remember file names and positions
|
|
45 set viminfo=
|
|
46 set nows
|
|
47 " Inhibit screen updates while searching
|
|
48 let s:lz = &lz
|
|
49 set lz
|
|
50
|
|
51 " Used after each command: put cursor at end and display position
|
|
52 if &wrap
|
|
53 noremap <SID>L L0:redraw<CR>:file<CR>
|
|
54 au VimEnter * normal! L0
|
|
55 else
|
|
56 noremap <SID>L Lg0:redraw<CR>:file<CR>
|
|
57 au VimEnter * normal! Lg0
|
|
58 endif
|
|
59
|
|
60 " When reading from stdin don't consider the file modified.
|
|
61 au VimEnter * set nomod
|
|
62
|
|
63 " Can't modify the text
|
|
64 set noma
|
|
65
|
|
66 " Give help
|
|
67 noremap h :call <SID>Help()<CR>
|
|
68 map H h
|
|
69 fun! s:Help()
|
|
70 echo "<Space> One page forward b One page backward"
|
|
71 echo "d Half a page forward u Half a page backward"
|
|
72 echo "<Enter> One line forward k One line backward"
|
|
73 echo "G End of file g Start of file"
|
|
74 echo "N% percentage in file"
|
|
75 echo "\n"
|
|
76 echo "/pattern Search for pattern ?pattern Search backward for pattern"
|
|
77 echo "n next pattern match N Previous pattern match"
|
|
78 echo "\n"
|
|
79 echo ":n<Enter> Next file :p<Enter> Previous file"
|
|
80 echo "\n"
|
|
81 echo "q Quit v Edit file"
|
|
82 let i = input("Hit Enter to continue")
|
|
83 endfun
|
|
84
|
|
85 " Scroll one page forward
|
|
86 noremap <script> <Space> :call <SID>NextPage()<CR><SID>L
|
|
87 map <C-V> <Space>
|
|
88 map f <Space>
|
|
89 map <C-F> <Space>
|
|
90 map z <Space>
|
|
91 map <Esc><Space> <Space>
|
|
92 fun! s:NextPage()
|
|
93 if line(".") == line("$")
|
|
94 if argidx() + 1 >= argc()
|
|
95 quit
|
|
96 endif
|
|
97 next
|
|
98 1
|
|
99 else
|
|
100 exe "normal! \<C-F>"
|
|
101 endif
|
|
102 endfun
|
|
103
|
|
104 " Re-read file and page forward "tail -f"
|
|
105 map F :e<CR>G<SID>L:sleep 1<CR>F
|
|
106
|
|
107 " Scroll half a page forward
|
|
108 noremap <script> d <C-D><SID>L
|
|
109 map <C-D> d
|
|
110
|
|
111 " Scroll one line forward
|
|
112 noremap <script> <CR> <C-E><SID>L
|
|
113 map <C-N> <CR>
|
|
114 map e <CR>
|
|
115 map <C-E> <CR>
|
|
116 map j <CR>
|
|
117 map <C-J> <CR>
|
|
118
|
|
119 " Scroll one page backward
|
|
120 noremap <script> b <C-B><SID>L
|
|
121 map <C-B> b
|
|
122 map w b
|
|
123 map <Esc>v b
|
|
124
|
|
125 " Scroll half a page backward
|
|
126 noremap <script> u <C-U><SID>L
|
|
127 noremap <script> <C-U> <C-U><SID>L
|
|
128
|
|
129 " Scroll one line backward
|
|
130 noremap <script> k <C-Y><SID>L
|
|
131 map y k
|
|
132 map <C-Y> k
|
|
133 map <C-P> k
|
|
134 map <C-K> k
|
|
135
|
|
136 " Redraw
|
|
137 noremap <script> r <C-L><SID>L
|
|
138 noremap <script> <C-R> <C-L><SID>L
|
|
139 noremap <script> R <C-L><SID>L
|
|
140
|
|
141 " Start of file
|
|
142 noremap <script> g gg<SID>L
|
|
143 map < g
|
|
144 map <Esc>< g
|
|
145
|
|
146 " End of file
|
|
147 noremap <script> G G<SID>L
|
|
148 map > G
|
|
149 map <Esc>> G
|
|
150
|
|
151 " Go to percentage
|
|
152 noremap <script> % %<SID>L
|
|
153 map p %
|
|
154
|
|
155 " Search
|
|
156 noremap <script> / H$:call <SID>Forward()<CR>/
|
|
157 if &wrap
|
|
158 noremap <script> ? H0:call <SID>Backward()<CR>?
|
|
159 else
|
|
160 noremap <script> ? Hg0:call <SID>Backward()<CR>?
|
|
161 endif
|
|
162
|
|
163 fun! s:Forward()
|
|
164 " Searching forward
|
|
165 noremap <script> n H$nzt<SID>L
|
|
166 if &wrap
|
|
167 noremap <script> N H0Nzt<SID>L
|
|
168 else
|
|
169 noremap <script> N Hg0Nzt<SID>L
|
|
170 endif
|
|
171 cnoremap <script> <CR> <CR>:cunmap <lt>CR><CR>zt<SID>L
|
|
172 endfun
|
|
173
|
|
174 fun! s:Backward()
|
|
175 " Searching backward
|
|
176 if &wrap
|
|
177 noremap <script> n H0nzt<SID>L
|
|
178 else
|
|
179 noremap <script> n Hg0nzt<SID>L
|
|
180 endif
|
|
181 noremap <script> N H$Nzt<SID>L
|
|
182 cnoremap <script> <CR> <CR>:cunmap <lt>CR><CR>zt<SID>L
|
|
183 endfun
|
|
184
|
|
185 call s:Forward()
|
|
186
|
|
187 " Quitting
|
|
188 noremap q :q<CR>
|
|
189
|
|
190 " Switch to editing (switch off less mode)
|
|
191 map v :silent call <SID>End()<CR>
|
|
192 fun! s:End()
|
|
193 set ma
|
|
194 if exists(s:lz)
|
|
195 let &lz = s:lz
|
|
196 endif
|
|
197 unmap h
|
|
198 unmap H
|
|
199 unmap <Space>
|
|
200 unmap <C-V>
|
|
201 unmap f
|
|
202 unmap <C-F>
|
|
203 unmap z
|
|
204 unmap <Esc><Space>
|
|
205 unmap F
|
|
206 unmap d
|
|
207 unmap <C-D>
|
|
208 unmap <CR>
|
|
209 unmap <C-N>
|
|
210 unmap e
|
|
211 unmap <C-E>
|
|
212 unmap j
|
|
213 unmap <C-J>
|
|
214 unmap b
|
|
215 unmap <C-B>
|
|
216 unmap w
|
|
217 unmap <Esc>v
|
|
218 unmap u
|
|
219 unmap <C-U>
|
|
220 unmap k
|
|
221 unmap y
|
|
222 unmap <C-Y>
|
|
223 unmap <C-P>
|
|
224 unmap <C-K>
|
|
225 unmap r
|
|
226 unmap <C-R>
|
|
227 unmap R
|
|
228 unmap g
|
|
229 unmap <
|
|
230 unmap <Esc><
|
|
231 unmap G
|
|
232 unmap >
|
|
233 unmap <Esc>>
|
|
234 unmap %
|
|
235 unmap p
|
|
236 unmap n
|
|
237 unmap N
|
|
238 unmap q
|
|
239 unmap v
|
|
240 unmap /
|
|
241 unmap ?
|
|
242 endfun
|
|
243
|
|
244 " vim: sw=2
|