5h=Eatchar('\s') iab

6h=Eatchar('\s') iab

10h=Eatchar('\s') iab

11=Eatchar('\s') iab

=Eatchar('\s') iab

=Eatchar('\s') iab 0

=Eatchar('\s') iab

4h=Eatchar('\s') iab

=Eatchar('\s') iab csstag 0

k=Eatchar('\s') iab jstag 0

02k9l=Eatchar('\s') cmap cmap :YRShow set hidden nnoremap j gj nnoremap k gk nmap gj nmap gk "set mouse=a "if &term == "screen" " set ttymouse=xterm2 "endif command! -nargs=0 RecentFiles call s:MRU_Open_Window() let MRU_Max_Entries = 90 nmap :RecentFiles "nmap :FuzzyFinderMruFile nmap ; :copen nmap :bnext "nmap q :close nmap q :bd nmap w :bd nmap mm 4- nmap MM 4+ set winminheight=0 if v:version >= 700 function! TabLine() let res = '' let curtab = tabpagenr() let i = 1 for i in range(1, tabpagenr('$')) let res .= ((i == curtab) ? '%#TabLineSel#' : '%#TabLine#') let res .= ' ' . i . ' ' " . tabpagewinnr(i, '$') . ':' let res .= substitute(bufname(tabpagebuflist(i)[0]), '.\+\/', '', 'g') let res .= (1 == gettabwinvar(i, 1, '&modified') ? '[+]' : '') let res .= ' ' let i += 1 exe | endfor let res .= '%#TabLineFill#' return res endfunction set tabline=%!TabLine() hi TabLine cterm=none,underline hi TabLineFill cterm=none,underline hi TabLineSel cterm=none,reverse nmap

:tabn nmap :tabn nmap :tabp nmap o :tabonly nmap c :tabnew nmap n :tabnew nmap e :tabe:Explore nmap 1 :tabn 1 nmap 2 :tabn 2 nmap 3 :tabn 3 nmap 4 :tabn 4 nmap 5 :tabn 5 nmap 6 :tabn 6 nmap 7 :tabn 7 nmap 8 :tabn 8 nmap 9 :tabn 9 nmap 0 :tabs endif function! Explo () :tabnew :Explore endfunction command! T :call Explo() let g:netrw_list_hide='^\.[^.].,^\./' let g:explHideFiles='^\.' let g:explDetailedHelp=0 let g:explDateFormat=' %Y-%m-%d %H:%M:%S' au BufNewFile,BufEnter,BufRead *.cgi setf perl au BufNewFile,BufEnter,BufRead *.fcgi setf perl au BufNewFile,BufEnter,BufRead *.t setf perl if &filetype ==# '' au BufNewFile,BufRead sql* setf sql endif au BufNewFile,BufEnter,BufRead *.tt setf html au BufNewFile,BufEnter,BufRead *.tt2 setf html au BufNewFile,BufEnter,BufRead * set tabstop=4 au BufNewFile,BufEnter,BufRead *.sql set tabstop=2 au BufNewFile,BufEnter,BufRead *.yml set tabstop=2 au BufNewFile,BufEnter,BufRead *.yaml set tabstop=2 function ToCharacterReference( target ) let ret = a:target let ret = substitute( ret, "\&", "\\&", "g" ) let ret = substitute( ret, "<", "\\<", "g" ) let ret = substitute( ret, ">", "\\>", "g" ) let ret = substitute( ret, "\\\"", "\\"", "g" ) let ret = substitute( ret, "\\\'", "\\'", "g" ) let ret = substitute( ret, " ", "\\ ", "g" ) return ret endfunction vnoremap H y:execute "normal gvs" . ToCharacterReference( @" ) " yankring.vim - Yank / Delete Ring for Vim " --------------------------------------------------------------- " Version: 2.2 " Authors: David Fishburn " Last Modified: Wed Oct 12 2005 11:54:41 AM " Script: http://www.vim.org/scripts/script.php?script_id=1234 " Based On: Mocked up version by Yegappan Lakshmanan " http://groups.yahoo.com/group/vim/post?act=reply&messageNum=34406 " License: GPL (Gnu Public License) " GetLatestVimScripts: 1234 1 :AutoInstall: yankring.vim if exists('loaded_yankring') || &cp finish endif if v:version < 602 echomsg 'yankring: You need at least Vim 6.2' finish endif let loaded_yankring = 22 " Allow the user to override the # of yanks/deletes recorded if !exists('g:yankring_max_history') let g:yankring_max_history = 100 elseif g:yankring_max_history < 0 let g:yankring_max_history = 100 endif " Allow the user to specify if the plugin is enabled or not if !exists('g:yankring_enabled') let g:yankring_enabled = 1 endif " Specify a separation character for the key maps if !exists('g:yankring_separator') let g:yankring_separator = ',' endif " Specify max display length for each element for YRShow if !exists('g:yankring_max_display') let g:yankring_max_display = 0 endif " Specify whether the results of the ring should be displayed " in a separate buffer window instead of the use of echo if !exists('g:yankring_window_use_separate') let g:yankring_window_use_separate = 1 endif " Specifies whether the window is closed after an action " is performed if !exists('g:yankring_window_auto_close') let g:yankring_window_auto_close = 1 endif " When displaying the buffer, how many lines should it be if !exists('g:yankring_window_height') let g:yankring_window_height = 8 endif " When displaying the buffer, how many lines should it be if !exists('g:yankring_window_width') let g:yankring_window_width = 30 endif " When displaying the buffer, where it should be placed if !exists('g:yankring_window_use_horiz') let g:yankring_window_use_horiz = 1 endif " When displaying the buffer, where it should be placed if !exists('g:yankring_window_use_bottom') let g:yankring_window_use_bottom = 1 endif " When displaying the buffer, where it should be placed if !exists('g:yankring_window_use_right') let g:yankring_window_use_right = 1 endif " If the user presses , toggle the width of the window if !exists('g:yankring_window_increment') let g:yankring_window_increment = 50 endif " Controls whether the . operator will repeat yank operations " The default is based on cpoptions: |cpo-y| " y A yank command can be redone with ".". if !exists('g:yankring_dot_repeat_yank') let g:yankring_dot_repeat_yank = (&cpoptions=~'y'?1:0) endif " Only adds unique items to the yankring. " If the item already exists, that element is set as the " top of the yankring. if !exists('g:yankring_ignore_duplicate') let g:yankring_ignore_duplicate = 1 endif " Vim automatically manages the numbered registers: " 0 - last yanked text " 1-9 - last deleted items " If this option is turned on, the yankring will manage the " values in them. if !exists('g:yankring_manage_numbered_reg') let g:yankring_manage_numbered_reg = 0 endif " Allow the user to specify what characters to use for the mappings. if !exists('g:yankring_n_keys') let g:yankring_n_keys = 'yy,dd,yw,dw,ye,de,yE,dE,yiw,diw,yaw,daw,y$,d$,Y,D,yG,dG,ygg,dgg' endif " Whether we sould map the . operator if !exists('g:yankring_map_dot') let g:yankring_map_dot = 1 endif " Whether we sould map the "g" paste operators if !exists('g:yankring_paste_using_g') let g:yankring_paste_using_g = 1 endif if !exists('g:yankring_v_key') let g:yankring_v_key = 'y' endif if !exists('g:yankring_del_v_key') let g:yankring_del_v_key = 'd' endif if !exists('g:yankring_paste_n_bkey') let g:yankring_paste_n_bkey = 'P' endif if !exists('g:yankring_paste_n_akey') let g:yankring_paste_n_akey = 'p' endif if !exists('g:yankring_paste_v_bkey') let g:yankring_paste_v_bkey = 'P' endif if !exists('g:yankring_paste_v_akey') let g:yankring_paste_v_akey = 'p' endif if !exists('g:yankring_replace_n_pkey') let g:yankring_replace_n_pkey = '' endif if !exists('g:yankring_replace_n_nkey') let g:yankring_replace_n_nkey = '' endif " Script variables for the yankring buffer let s:yr_buffer_name = '__YankRing__' let s:yr_buffer_last_winnr = -1 let s:yr_buffer_last = -1 let s:yr_buffer_id = -1 " Vim window size is changed by the yankring plugin or not let s:yankring_winsize_chgd = 0 " Enables or disables the yankring function! s:YRToggle(...) " Default the current state to toggle let new_state = ((g:yankring_enabled == 1) ? 0 : 1) " Allow the user to specify if enabled if a:0 > 0 let new_state = ((a:1 == 1) ? 1 : 0) endif " YRToggle accepts an integer value to specify the state if new_state == g:yankring_enabled return elseif new_state == 1 call YRMapsCreate() else call YRMapsDelete() endif endfunction " Enables or disables the yankring function! s:YRDisplayElem(disp_nbr, script_var) if g:yankring_max_display == 0 if g:yankring_window_use_separate == 1 let max_display = 500 else let max_display = g:yankring_window_width + \ g:yankring_window_increment - \ 12 endif else let max_display = g:yankring_max_display endif if exists('s:yr_elem_'.a:script_var) let length = strlen(s:yr_elem_{a:script_var}) " Fancy trick to align them all regardless of how many " digits the element # is return a:disp_nbr. \ strtrans( \ strpart(" ",0,(6-strlen(a:disp_nbr))). \ ( \ (length>max_display)? \ (strpart(s:yr_elem_{a:script_var},0,max_display). \ '...'): \ (s:yr_elem_{a:script_var}) \ ) \ ) endif return "" endfunction " Enables or disables the yankring function! s:YRShow(...) " If no parameter was provided assume the user wants to " toggle the display. let toggle = 1 if a:0 > 0 let toggle = matchstr(a:1, '\d\+') endif if toggle == 1 if bufwinnr(s:yr_buffer_id) > -1 exec bufwinnr(s:yr_buffer_id) . "wincmd w" hide return endif endif " List is shown in order of replacement " assuming using previous yanks let output = "--- YankRing ---\n" let output = output . "Elem Content\n" let iter = 1 let elem = s:YRMRUGet('s:yr_elem_order', iter) while iter <= s:yr_count let output = output . s:YRDisplayElem(iter, elem) . "\n" let iter = iter + 1 let elem = s:YRMRUGet('s:yr_elem_order', iter) endwhile if g:yankring_window_use_separate == 1 call s:YRWindowOpen(output) else echo output endif endfunction " Paste a certain item from the yankring " If no parameter is provided, this function becomes interactive. It will " display the list (using YRShow) and allow the user to choose an element. function! s:YRGetElem(...) if s:yr_count == 0 call s:YRWarningMsg('YR: yankring is empty') return -1 endif let default_buffer = ((&clipboard=='unnamed')?'*':'"') let direction = 'p' if a:0 > 1 " If the user indicated to paste above or below " let direction = ((a:2 ==# 'P') ? 'P' : 'p') if a:2 =~ '$p\|gp\|P\|gP$' let direction = a:2 endif endif " Check to see if a specific value has been provided let elem = 0 if a:0 > 0 " Ensure we get only the numeric value (trim it) let elem = matchstr(a:1, '\d\+') else " If no parameter was supplied display the yankring " and prompt the user to enter the value they want pasted. call s:YRShow(0) if g:yankring_window_use_separate == 1 " The window buffer is used instead of command line return endif let elem = input("Enter # to paste:") " Ensure we get only the numeric value (trim it) let elem = matchstr(elem, '\d\+') if elem == '' " They most likely pressed enter without entering a value return endif endif if elem < 1 || elem > s:yr_count call s:YRWarningMsg("YR: Invalid choice:".elem) return -1 endif if !exists('s:yr_elem_'.elem) call s:YRWarningMsg("YR: Elem:".elem." does not exist") return -1 endif let default_buffer = ((&clipboard=='unnamed')?'*':'"') " let save_reg = getreg(default_buffer) " let save_reg_type = getregtype(default_buffer) call setreg(default_buffer \ , s:YRGetValElemNbr(elem, 'v') \ , s:YRGetValElemNbr(elem, 't') \ ) exec "normal! ".direction " call setreg(default_buffer, save_reg, save_reg_type) " Set the previous action as a paste in case the user " press . to repeat call s:YRSetPrevOP('p', '', default_buffer) endfunction " Starting the the top of the ring it will paste x items from it function! s:YRGetMultiple(reverse_order, ...) if s:yr_count == 0 call s:YRWarningMsg('YR: yankring is empty') return endif " If the user provided a range, exit after that many " have been displayed let iter = 0 let elem = 0 if a:0 > 0 " If no yank command has been supplied, assume it is " a full line yank let iter = matchstr(a:1, '\d\+') endif if a:0 > 1 " If no yank command has been supplied, assume it is " a full line yank let elem = matchstr(a:2, '\d\+') endif if iter < 1 " The default to only 1 item if no arguement is specified let iter = 1 endif if iter > s:yr_count " Default to all items if they specified a very high value let iter = s:yr_count endif if elem < 1 || elem > s:yr_count " The default to only 1 item if no arguement is specified let elem = 1 endif " Base the increment on the sort order of the results let increment = ((a:reverse_order==0)?(1):(-1)) if a:reverse_order != 0 " If there are 5 elements in the ring " User wants the top 3 in reverse order " We need to set the starting element to 3, because 3,4,5 " Starting at the current element 5, we need to: " 1 + (3 * -1 * 1) " 1 + (-3) " -2 " So start 2 elements below the current position let elem = s:YRGetNextElem(elem, ((iter*-1*increment)-1) ) endif while iter > 0 " Paste the first item, and move on to the next. " digits the element # is call s:YRGetElem(elem) let elem = s:YRGetNextElem(elem, increment) let iter = iter - 1 endwhile endfunction " Given a regular expression, check each element within " the yankring, display only the matching items and prompt " the user for which item to paste function! s:YRSearch(...) if s:yr_count == 0 call s:YRWarningMsg('YR: yankring is empty') return endif let search_exp = "" " If the user provided a range, exit after that many " have been displayed if a:0 == 0 let search_exp = a:1 else let search_exp = input('Enter [optional] regex:') endif if search_exp == "" " Show the entire yankring call s:YRShow(0) return endif let iter = 1 " List is shown in order of replacement " assuming using previous yanks let output = "--- YankRing ---\n" let output = output . "Elem Content\n" let elem = s:YRMRUGet('s:yr_elem_order', iter) let valid_choices = ',' while iter <= s:yr_count let v:errmsg = '' if exists('s:yr_elem_'.elem) if match(s:yr_elem_{elem}, search_exp) > -1 let output = output . s:YRDisplayElem(iter, elem) . "\n" let valid_choices = valid_choices . iter . ',' endif if v:errmsg != '' " If an error is report due to the regular expression " abort the checks return -1 endif endif let iter = iter + 1 let elem = s:YRMRUGet('s:yr_elem_order', iter) endwhile if g:yankring_window_use_separate == 1 call s:YRWindowOpen(output) else if valid_choices != ',' let elem = input("Enter # to paste:") " Ensure we get only the numeric value (trim it) let elem = matchstr(elem, '\d\+') if elem == '' " They most likely pressed enter without entering a value return endif if valid_choices =~ ','.elem.',' exec 'YRGetElem ' . elem else " User did not choose one of the elements that were found " Remove leading , call s:YRWarningMsg( "YR: Only valid choices are:" . \ strpart(valid_choices, 1) \ ) return -1 endif else call s:YRWarningMsg( "YR: The pattern [" . \ search_exp . \ "] does not match any items in the yankring" \ ) endif endif endfunction " Clears the yankring by simply setting the # of items in it to 0. " There is no need physically unlet each variable. function! s:YRClear() let s:yr_next_idx = 1 let s:yr_last_paste_idx = 0 let s:yr_count = 0 let s:yr_paste_dir = 'p' " For the . op support let s:yr_prev_op_code = '' let s:yr_prev_count = '' let s:yr_prev_reg = '' let s:yr_prev_reg_unnamed = '' let s:yr_prev_reg_small = '' let s:yr_prev_reg_insert = '' let s:yr_prev_reg_expres = '' let s:yr_prev_vis_lstart = 0 let s:yr_prev_vis_lend = 0 let s:yr_prev_vis_cstart = 0 let s:yr_prev_vis_cend = 0 " This is used to determine if the visual selection should be " reset prior to issuing the YRReplace let s:yr_prev_vis_mode = 0 " This is the MRU list of items in the yankring let s:yr_elem_order = "" endfunction " Determine which register the user wants to use " For example the 'a' register: "ayy function! s:YRRegister() let user_register = v:register if &clipboard == 'unnamed' && user_register == '"' let user_register = '*' endif return user_register endfunction " Allows you to push a new item on the yankring. Useful if something " is in the clipboard and you want to add it to the yankring. " Or if you yank something that is not mapped. function! s:YRPush(...) let user_register = s:YRRegister() if a:0 > 0 " If no yank command has been supplied, assume it is " a full line yank let user_register = ((a:1 == '') ? user_register : a:1) endif " If we are pushing something on to the yankring, add it to " the default buffer as well so the next item pasted will " be the item pushed let default_buffer = ((&clipboard=='unnamed')?'*':'"') call setreg(default_buffer, getreg(user_register), \ getregtype(user_register)) call s:YRSetPrevOP('', '', '') call s:YRRecord(user_register) endfunction " Allows you to pop off any element from the yankring. " If no parameters are provided the first element is removed. " If a vcount is provided, that many elements are removed " from the top. function! s:YRPop(...) if s:yr_count == 0 call s:YRWarningMsg('YR: yankring is empty') return endif let v_count = 1 if a:0 > 1 let v_count = a:2 endif " If the user provided a parameter, remove that element " from the yankring. " If no parameter was provided assume the first element. let elem = 1 if a:0 > 0 " Get the element # from the parameter let elem = matchstr(a:1, '\d\+') endif " If the user entered a count, then remove that many " elements from the ring. while v_count > 0 call s:YRMRUDel('s:yr_elem_order', elem) let v_count = v_count - 1 endwhile " If the yankring window is open, refresh it call s:YRWindowUpdate() endfunction " Adds this value to the yankring. function! s:YRRecord(value) " Add item to list " This will also account for duplicates. call s:YRMRUAdd( 's:yr_elem_order' \ , getreg(a:value) \ , getregtype(a:value) \ ) " If the yankring window is open, refresh it call s:YRWindowUpdate() " Manage the numbered registers if g:yankring_manage_numbered_reg == 1 call s:YRSetNumberedReg() endif endfunction " Record the operation for the dot operator function! s:YRSetPrevOP(op_code, count, reg) let s:yr_prev_op_code = a:op_code let s:yr_prev_count = a:count let s:yr_prev_reg = a:reg let s:yr_prev_reg_unnamed = getreg('"') let s:yr_prev_reg_small = getreg('-') let s:yr_prev_reg_insert = getreg('.') let s:yr_prev_vis_lstart = line("'<") let s:yr_prev_vis_lend = line("'>") let s:yr_prev_vis_cstart = col("'<") let s:yr_prev_vis_cend = col("'>") let s:yr_prev_chg_lstart = line("'[") let s:yr_prev_chg_lend = line("']") let s:yr_prev_chg_cstart = col("'[") let s:yr_prev_chg_cend = col("']") let s:yr_prev_reg_expres = histget('=', -1) " If storing the last change position (using '[, ']) " is not good enough, then another option is to: " Use :redir on the :changes command " and grab the last item. Store this value " and compare it is YRDoRepeat. " endfunction " Adds this value to the yankring. function! s:YRDoRepeat() let dorepeat = 0 " Check the previously recorded value of the registers " if they are the same, we need to reissue the previous " yankring command. " If any are different, the user performed a command " command that did not involve the yankring, therefore " we should just issue the standard "normal! ." to repeat it. if s:yr_prev_reg_unnamed == getreg('"') && \ s:yr_prev_reg_small == getreg('-') && \ s:yr_prev_reg_insert == getreg('.') && \ s:yr_prev_reg_expres == histget('=', -1) && \ s:yr_prev_vis_lstart == line("'<") && \ s:yr_prev_vis_lend == line("'>") && \ s:yr_prev_vis_cstart == col("'<") && \ s:yr_prev_vis_cend == col("'>") && \ s:yr_prev_chg_lstart == line("'[") && \ s:yr_prev_chg_lend == line("']") && \ s:yr_prev_chg_cstart == col("'[") && \ s:yr_prev_chg_cend == col("']") let dorepeat = 1 endif " If we are going to repeat check to see if the " previous command was a yank operation. If so determine " if yank operations are allowed to be repeated. if dorepeat == 1 && s:yr_prev_op_code =~ '^y' " This value be default is set based on cpoptions. if g:yankring_dot_repeat_yank == 0 let dorepeat = 0 endif endif return dorepeat endfunction " Manages the Vim's numbered registers function! s:YRSetNumberedReg() let i = 1 while i <= 10 if i > s:yr_count break endif call setreg( (i-1) \ , s:YRGetValElemNbr(i,'v') \ , s:YRGetValElemNbr(i,'t') \ ) let i = i + 1 endwhile endfunction " This internal function will add and subtract values from a starting " point and return the correct element number. It takes into account " the circular nature of the yankring. function! s:YRGetNextElem(start, iter) let needed_elem = a:start + a:iter " The yankring is a ring, so if an element is " requested beyond the number of elements, we " must wrap around the ring. if needed_elem > s:yr_count let needed_elem = needed_elem % s:yr_count endif if needed_elem == 0 " Can happen at the end or beginning of the ring if a:iter == -1 " Wrap to the bottom of the ring let needed_elem = s:yr_count else " Wrap to the top of the ring let needed_elem = 1 endif elseif needed_elem < 1 " As we step backwards through the ring we could ask for a negative " value, this will wrap it around to the end let needed_elem = s:yr_count endif return needed_elem endfunction " Lets Vim natively perform the operation and then stores what " was yanked (or deleted) into the yankring. " Supports this for example - 5"ayy function! s:YRYankCount(...) range let user_register = s:YRRegister() let v_count = v:count " Default yank command to the entire line let op_code = 'yy' if a:0 > 0 " If no yank command has been supplied, assume it is " a full line yank let op_code = ((a:1 == '') ? op_code : a:1) endif if op_code == '.' if s:YRDoRepeat() == 1 if s:yr_prev_op_code != '' let op_code = s:yr_prev_op_code let v_count = s:yr_prev_count let user_register = s:yr_prev_reg endif else exec "normal! ." return endif endif " Supports this for example - 5"ayy " A delete operation will still place the items in the " default registers as well as the named register exec "normal! ". \ ((v_count > 0)?(v_count):''). \ (user_register=='"'?'':'"'.user_register). \ op_code if user_register == '_' " Black hole register, ignore return endif call s:YRSetPrevOP(op_code, v_count, user_register) call s:YRRecord(user_register) endfunction " Handles ranges. There are visual ranges and command line ranges. " Visual ranges are easy, since we passthrough and let Vim deal " with those directly. " Command line ranges means we must yank the entire line, and not " just a portion of it. function! s:YRYankRange(do_delete_selection, ...) range let user_register = s:YRRegister() let default_buffer = ((&clipboard=='unnamed')?'*':'"') " Default command mode to normal mode 'n' let cmd_mode = 'n' if a:0 > 0 " Change to visual mode, if command executed via " a visual map let cmd_mode = ((a:1 == 'v') ? 'v' : 'n') endif if cmd_mode == 'v' " We are yanking either an entire line, or a range exec "normal! gv". \ (user_register==default_buffer?'':'"'.user_register). \ 'y' if a:do_delete_selection == 1 exec "normal! gv". \ (user_register==default_buffer?'':'"'.user_register). \ 'd' endif else " In normal mode, always yank the complete line, since this " command is for a range. YRYankCount is used for parts " of a single line if a:do_delete_selection == 1 exec a:firstline . ',' . a:lastline . 'delete '.user_register else exec a:firstline . ',' . a:lastline . 'yank ' . user_register endif endif if user_register == '_' " Black hole register, ignore return endif call s:YRSetPrevOP('', '', user_register) call s:YRRecord(user_register) endfunction " Paste from either the yankring or from a specified register " Optionally a count can be provided, so paste the same value 10 times function! s:YRPaste(replace_last_paste_selection, nextvalue, direction, ...) " Disabling the yankring removes the default maps. " But there are some maps the user can create on their own, and " these would most likely call this function. So place an extra " check and display a message. if g:yankring_enabled == 0 call s:YRWarningMsg( \ 'YR: The yankring is currently disabled, use YRToggle.' \ ) return endif let user_register = s:YRRegister() let default_buffer = ((&clipboard == 'unnamed')?'*':'"') let v_count = v:count " Default command mode to normal mode 'n' let cmd_mode = 'n' if a:0 > 0 " Change to visual mode, if command executed via " a visual map let cmd_mode = ((a:1 == 'v') ? 'v' : 'n') endif " User has decided to bypass the yankring and specify a specific " register if user_register != default_buffer if a:replace_last_paste_selection == 1 echomsg 'YR: A register cannot be specified in replace mode' return else " Check for the expression register, in this special case " we must copy it's content into the default buffer and paste if user_register == '=' let user_register = '' call setreg(default_buffer, histget('=', -1) ) else let user_register = '"'.user_register endif exec "normal! ". \ ((cmd_mode=='n') ? "" : "gv"). \ ((v_count > 0)?(v_count):''). \ user_register. \ a:direction " In this case, we have bypassed the yankring " If the user hits next or previous we want the " next item pasted to be the top of the yankring. let s:yr_last_paste_idx = 0 endif let s:yr_paste_dir = a:direction let s:yr_prev_vis_mode = ((cmd_mode=='n') ? 0 : 1) return endif " Try to second guess the user to make these mappings less intrusive. " If the user hits paste, compare the contents of the paste register " to the current entry in the yankring. If they are different, lets " assume the user wants the contents of the paste register. " So if they pressed [yt ] (yank to space) and hit paste, the yankring " would not have the word in it, so assume they want the word pasted. if a:replace_last_paste_selection != 1 if s:yr_count > 0 if getreg(default_buffer) != s:YRGetValElemNbr(1,'v') " The user has performed a yank / delete operation " outside of the yankring maps. First, add this " value to the yankring. call s:YRRecord(default_buffer) " Now, use the most recently yanked text, rather than the " value from the yankring. exec "normal! ". \ ((cmd_mode=='n') ? "" : "gv"). \ ((v_count > 0)?(v_count):''). \ a:direction let s:yr_paste_dir = a:direction let s:yr_prev_vis_mode = ((cmd_mode=='n') ? 0 : 1) " In this case, we have bypassed the yankring " If the user hits next or previous we want the " next item pasted to be the top of the yankring. let s:yr_last_paste_idx = 0 return endif else exec "normal! ". \ ((cmd_mode=='n') ? "" : "gv"). \ ((v_count > 0)?(v_count):''). \ a:direction let s:yr_paste_dir = a:direction let s:yr_prev_vis_mode = ((cmd_mode=='n') ? 0 : 1) return endif endif if s:yr_count == 0 echomsg 'YR: yankring is empty' " Nothing to paste return endif if a:replace_last_paste_selection == 1 " Replacing the previous put let start = line("'[") let end = line("']") if start != line('.') echomsg 'YR: You must paste text first, before you can replace' return endif if start == 0 || end == 0 return endif " If a count was provided (ie 5), multiply the " nextvalue accordingly and position the next paste index let which_elem = a:nextvalue * ((v_count > 0)?(v_count):1) * -1 let s:yr_last_paste_idx = s:YRGetNextElem( \ s:yr_last_paste_idx, which_elem \ ) let save_reg = getreg(default_buffer) let save_reg_type = getregtype(default_buffer) call setreg( default_buffer \ , s:YRGetValElemNbr(s:yr_last_paste_idx,'v') \ , s:YRGetValElemNbr(s:yr_last_paste_idx,'t') \ ) " First undo the previous paste exec "normal! u" " Check if the visual selection should be reselected " Next paste the correct item from the ring " This is done as separate statements since it appeared that if " there was nothing to undo, the paste never happened. exec "normal! ". \ ((s:yr_prev_vis_mode==0) ? "" : "gv"). \ s:yr_paste_dir call setreg(default_buffer, save_reg, save_reg_type) call s:YRSetPrevOP('', '', '') else " User hit p or P " Supports this for example - 5"ayy " And restores the current register let save_reg = getreg(default_buffer) let save_reg_type = getregtype(default_buffer) let s:yr_last_paste_idx = 1 call setreg(default_buffer \ , s:YRGetValElemNbr(1,'v') \ , s:YRGetValElemNbr(1,'t') \ ) exec "normal! ". \ ((cmd_mode=='n') ? "" : "gv"). \ ( \ ((v_count > 0)?(v_count):''). \ a:direction \ ) call setreg(default_buffer, save_reg, save_reg_type) call s:YRSetPrevOP( \ a:direction \ , v_count \ , default_buffer) let s:yr_paste_dir = a:direction let s:yr_prev_vis_mode = ((cmd_mode=='n') ? 0 : 1) endif endfunction " Create the default maps function! YRMapsCreate() " Iterate through a comma separated list of mappings and create " calls to the YRYankCount function if g:yankring_n_keys != '' let index = 0 while index > -1 " Retrieve the keystrokes for the mappings let sep_end = match(g:yankring_n_keys, g:yankring_separator, index) if sep_end > 0 let cmd = strpart(g:yankring_n_keys, index, (sep_end - index)) else let cmd = strpart(g:yankring_n_keys, index) endif " Creating the mapping and pass the key strokes into the " YRYankCount function so it knows how to replay the same " command if strlen(cmd) > 0 exec 'nnoremap '.cmd." :YRYankCount '".cmd."'" endif " Move onto the next entry in the comma separated list let index = index + strlen(cmd) + strlen(g:yankring_separator) if index >= strlen(g:yankring_n_keys) break endif endwhile endif if g:yankring_map_dot == 1 exec "nnoremap . :YRYankCount '.'" endif if g:yankring_v_key != '' exec 'vnoremap '.g:yankring_v_key." :YRYankRange 'v'" endif if g:yankring_del_v_key != '' exec 'vnoremap '.g:yankring_del_v_key." :YRDeleteRange 'v'" endif if g:yankring_paste_n_bkey != '' exec 'nnoremap '.g:yankring_paste_n_bkey." :YRPaste 'P'" if g:yankring_paste_using_g == 1 exec 'nnoremap g'.g:yankring_paste_n_bkey." :YRPaste 'gP'" endif endif if g:yankring_paste_n_akey != '' exec 'nnoremap '.g:yankring_paste_n_akey." :YRPaste 'p'" if g:yankring_paste_using_g == 1 exec 'nnoremap g'.g:yankring_paste_n_akey." :YRPaste 'gp'" endif endif if g:yankring_paste_v_bkey != '' exec 'vnoremap '.g:yankring_paste_v_bkey." :YRPaste 'P', 'v'" endif if g:yankring_paste_v_akey != '' exec 'vnoremap '.g:yankring_paste_v_akey." :YRPaste 'p', 'v'" endif if g:yankring_replace_n_pkey != '' exec 'nnoremap '.g:yankring_replace_n_pkey." :YRReplace '-1', 'P'" endif if g:yankring_replace_n_nkey != '' exec 'nnoremap '.g:yankring_replace_n_nkey." :YRReplace '1', 'p'" endif let g:yankring_enabled = 1 endfunction " Create the default maps function! YRMapsDelete() " Iterate through a comma separated list of mappings and create " calls to the YRYankCount function if g:yankring_n_keys != '' let index = 0 while index > -1 " Retrieve the keystrokes for the mappings let sep_end = match(g:yankring_n_keys, g:yankring_separator, index) if sep_end > 0 let cmd = strpart(g:yankring_n_keys, index, (sep_end - index)) else let cmd = strpart(g:yankring_n_keys, index) endif " Creating the mapping and pass the key strokes into the " YRYankCount function so it knows how to replay the same " command if strlen(cmd) > 0 exec 'nunmap '.cmd endif " Move onto the next entry in the comma separated list let index = index + strlen(cmd) + strlen(g:yankring_separator) if index >= strlen(g:yankring_n_keys) break endif endwhile endif if g:yankring_map_dot == 1 exec "nunmap ." endif if g:yankring_v_key != '' exec 'vunmap '.g:yankring_v_key endif if g:yankring_del_v_key != '' exec 'vunmap '.g:yankring_del_v_key endif if g:yankring_paste_n_bkey != '' exec 'nunmap '.g:yankring_paste_n_bkey endif if g:yankring_paste_n_akey != '' exec 'nunmap '.g:yankring_paste_n_akey endif if g:yankring_paste_v_bkey != '' exec 'vunmap '.g:yankring_paste_v_bkey endif if g:yankring_paste_v_akey != '' exec 'vunmap '.g:yankring_paste_v_akey endif if g:yankring_replace_n_pkey != '' exec 'nunmap '.g:yankring_replace_n_pkey endif if g:yankring_replace_n_nkey != '' exec 'nunmap '.g:yankring_replace_n_nkey endif let g:yankring_enabled = 0 endfunction function! s:YRGetValElemNbr( position, type ) let needed_elem = a:position if needed_elem > s:yr_count " The yankring is a ring, so if an element is " requested beyond the number of elements, we " must wrap around the ring. let needed_elem = needed_elem % s:yr_count endif if needed_elem < 1 " The yankring is a ring, so if an element is " requested beyond the number of elements, we " must wrap around the ring. let needed_elem = s:yr_count + needed_elem + 1 endif " The MRU stores the *order* of the items in the " yankring, not the value. These are stored within " script variables. " " echo s:YRGetValElemNbr(3, 'v') " - Displays the 3rd element in the yankring " " echo s:YRGetValElemNbr(3, 't') " - Displays the register type of the 3rd element in the yankring let elem = s:YRMRUGet( 's:yr_elem_order', needed_elem ) if elem >= 0 if a:type == 't' if exists('s:yr_elem_type_'.elem) return s:yr_elem_type_{elem} endif else if exists('s:yr_elem_'.elem) return s:yr_elem_{elem} endif endif else return -1 endif return "" endfunction function! s:YRMRUInit( mru_list ) " Create the list if required if !exists('{a:mru_list}') let {a:mru_list} = '' return 1 endif return 0 endfunction function! s:YRMRUReset( mru_list ) " Verify the list exists if !exists('{a:mru_list}') return -1 else let {a:mru_list} = '' endif return 1 endfunction function! s:YRMRUSize( mru_list ) " The MRU list has elements of this format: " \d+#\d+#\d+# " " This function returns how many items are in the MRU if !exists('{a:mru_list}') return '-3' endif let curr_cnt = strlen( \ substitute({a:mru_list}, '[^#]', '', 'g') \ ) return curr_cnt endfunction function! s:YRMRUHas( mru_list, find_str ) " The MRU list has elements of this format: " \d+#\d+#\d+# " " This function will find a string and return the element # if !exists('{a:mru_list}') return '-3' endif let find_idx = match({a:mru_list}, '$^\|#$\zs'.a:find_str.'#') " Decho 'Get-'.a:find_str.' find_idx:'.find_idx if find_idx == -1 return -1 endif let end_idx = match({a:mru_list}, '#', find_idx+1) let curr_cnt = strlen( \ substitute( \ strpart({a:mru_list}, 0, end_idx+1), \ '[^#]', '', 'g') \ ) return curr_cnt endfunction function! s:YRMRUGet( mru_list, position ) " The MRU list has elements of this format: " \d+#\d+#\d+# " " This function will return the value of the item at a:position " if !exists('{a:mru_list}') return '-3' endif " Find the value of one element let regex = '\zs\d\+\ze#' if a:position > 1 " Remove all the elements prior to this element let regex = '$\d\+#$\{'.(a:position-1).'}'.regex endif let value = matchstr({a:mru_list}, regex) if value == "" " No element at the specified position return '-2' endif return value endfunction function! s:YRMRUGetX( mru_list, find_str, move_to_top ) " The MRU list has elements of this format: " \d+#\d+#\d+# " " This function will find a string and return: " :tbl_name:tbl_alias:tbl_cols: " \d+ " " It will also remove that element from the list " Use the Add function to put it back on the TOP of the list if !exists('{a:mru_list}') return '-3' endif let find_idx = match({a:mru_list}, a:find_str) " Decho 'Get-'.a:find_str.' find_idx:'.find_idx if find_idx == -1 return '-2' endif let end_idx = match({a:mru_list}, '#', find_idx+1) " Decho 'Get-end_idx-'.end_idx if end_idx != -1 let element = substitute( strpart({a:mru_list}, 0, end_idx+1), \ '.*$:.*:.*:.*:$#$', '\1', '' ) let text_before = strpart({a:mru_list}, 0, (end_idx-strlen(element))) let text_after = strpart({a:mru_list}, end_idx+1) " Decho 'G-before-'.strpart({a:mru_list}, 0, (end_idx-strlen(element))) " Decho 'G-middle-'.element " Decho 'G-after-'.strpart({a:mru_list}, end_idx+1) if a:move_to_top == 1 let {a:mru_list} = element . '#' . text_before . text_after else let {a:mru_list} = text_before . text_after endif " Decho "Get-new-#".{a:mru_list} return element endif " String not found return '-2' endfunction function! s:YRMRUAdd( mru_list, element, element_type ) " Only add new items if they do not already exist in the MRU. " If the item is found, move it to the start of the MRU. let elem = "" let found = 0 let index = match({a:mru_list}, '\d\+#') while index > -1 let elem = matchstr({a:mru_list}, '\d\+\ze#', index) " Safety check if exists('s:yr_elem_'.elem) " If the item already exists in the MRU " - Remove it " - And it will be added back to the front, since " we always paste from the top of the yankring if s:yr_elem_{elem} == a:element let found = 1 " Determine the index position of the next element let next_piece_idx = index + strlen(elem) + 1 " Remove this element from the MRU let {a:mru_list} = strpart({a:mru_list}, 0, index) . \ strpart({a:mru_list}, next_piece_idx) break endif endif let size = strlen(elem)+1 let index = match({a:mru_list}, '\d\+#', (index+size) ) endwhile if found == 0 let s:yr_elem_{s:yr_next_idx} = a:element let s:yr_elem_type_{s:yr_next_idx} = a:element_type let elem = s:yr_next_idx let s:yr_next_idx = s:yr_next_idx + 1 endif if strlen(elem) != 0 " Add the new filename to the beginning of the MRU list let {a:mru_list} = elem.'#'.{a:mru_list} " Decho "A-new-#".{a:mru_list} else call s:YRErrorMsg('YRMRUAdd: No element #,'. \ ' found:'.found. \ ' elem:'.elem. \' s:yr_next_idx:'.s:yr_next_idx \ ) return "" endif " Allow (retain) only g:yankring_max_history in the MRU list. " Remove/discard the remaining entries. As we are adding a one entry to " the list, the list should have only g:yankring_max_history - 1 in it. let curr_cnt = s:YRMRUSize(a:mru_list) " Decho 'A-items-'.curr_cnt if curr_cnt > g:yankring_max_history " If the yankring is full, set the s:yr_next_idx " to the last item in the MRU list let s:yr_next_idx = matchstr({a:mru_list}, '.*\zs\d\+\ze#$') if s:yr_next_idx == "" call s:YRErrorMsg('YRMRUAdd: Last element not found: '. \ a:mru_list.':'. \ {a:mru_list} \ ) endif " Decho "A-old_list-#".{a:mru_list}."\n" " Strip off the last element from the list let {a:mru_list} = substitute({a:mru_list}, \ '$.*#$\d\+#$', '\1', '' ) " Decho "A-new_list-#".{a:mru_list}."\n" endif let s:yr_count = s:YRMRUSize(a:mru_list) return 1 endfunction function! s:YRMRUDel( mru_list, elem_nbr ) " This regex determines how many elements to keep " at the front of the yankring let begin_regex = "" if a:elem_nbr > 1 let begin_regex = '$\%(\d\+#$\{'.(a:elem_nbr-1).'}\)' let sub_parms = '\1\2' else let sub_parms = '\1' endif " This regex gets 1 element, and the remaining elements " at the end of the yankring let end_regex = "" let end_regex = '\d\+#$.*$' " Strip off the nth element from the list let {a:mru_list} = substitute({a:mru_list}, \ begin_regex . end_regex, sub_parms, '' ) let s:yr_count = s:YRMRUSize(a:mru_list) return 1 endfunction " YRWindowUpdate " Checks if the yankring window is already open. " If it is, it will refresh it. function! s:YRWindowUpdate() let orig_win_bufnr = bufwinnr('%') " Switch to the yankring buffer " only if it is already visible if bufwinnr(s:yr_buffer_id) != -1 call s:YRShow(0) " Switch back to the original buffer exec orig_win_bufnr . "wincmd w" endif endfunction " YRWindowStatus " Displays a brief command list and option settings. " It also will toggle the Help text. function! s:YRWindowStatus(show_help) let orig_win_bufnr = bufwinnr('%') let yr_win_bufnr = bufwinnr(s:yr_buffer_id) if yr_win_bufnr == -1 " Do not update the window status since the " yankring is not currently displayed. return "" endif " Switch to the yankring buffer if orig_win_bufnr != yr_win_bufnr " If the buffer is visible, switch to it exec yr_win_bufnr . "wincmd w" endif let msg = 'AutoClose='.g:yankring_window_auto_close. \ ';Cmds:,[g]p,[p]P,d,r,a,u,q,;Help=?' " Toggle help by checking the first line of the buffer if a:show_help == 1 && getline(1) !~ 'selection' let msg = \ '" : [p]aste selection'."\n". \ '" double-click : [p]aste selection'."\n". \ '" [g]p : [g][p]aste selection'."\n". \ '" [g]P : [g][P]aste selection'."\n". \ '" r : [p]aste selection in reverse order'."\n". \ '" u : update display'."\n". \ '" a : toggle autoclose setting'."\n". \ '" q : Close the yankring window'."\n". \ '" ? : Remove help text'."\n". \ '" : toggles the width of the window'."\n". \ '" Visual mode is supported for above commands'."\n". \ msg endif let saveMod = &modifiable " Go to the top of the buffer and remove any previous status " Use the blackhole register so it does not affect the yankring setlocal modifiable exec 0 silent! exec 'norm! "_d/^---'."\n" call histdel("search", -1) silent! 0put =msg let &modifiable = saveMod if orig_win_bufnr != s:yr_buffer_id exec orig_win_bufnr . "wincmd w" endif endfunction " YRWindowOpen " Display the Most Recently Used file list in a temporary window. function! s:YRWindowOpen(results) " Setup the cpoptions properly for the maps to work let old_cpoptions = &cpoptions set cpoptions&vim setlocal cpoptions-=a,A " Save the current buffer number. The yankring will switch back to " this buffer when an action is taken. let s:yr_buffer_last = bufnr('%') let s:yr_buffer_last_winnr = winnr() if bufwinnr(s:yr_buffer_id) == -1 if g:yankring_window_use_horiz == 1 if g:yankring_window_use_bottom == 1 let location = 'botright' else let location = 'topleft' endif let win_size = g:yankring_window_height else " Open a horizontally split window. Increase the window size, if " needed, to accomodate the new window if g:yankring_window_width && \ &columns < (80 + g:yankring_window_width) " one extra column is needed to include the vertical split let &columns = &columns + g:yankring_window_width + 1 let s:yankring_winsize_chgd = 1 else let s:yankring_winsize_chgd = 0 endif if g:yankring_window_use_right == 1 " Open the window at the rightmost place let location = 'botright vertical' else " Open the window at the leftmost place let location = 'topleft vertical' endif let win_size = g:yankring_window_width endif " Special consideration was involved with these sequence " of commands. " First, split the current buffer. " Second, edit a new file. " Third record the buffer number. " If a different sequence is followed when the yankring " buffer is closed, Vim's alternate buffer is the yanking " instead of the original buffer before the yankring " was shown. silent exec location. ' ' . win_size . 'split ' " Using :e and hide prevents the alternate buffer " from being changed. exec ":e " . escape(s:yr_buffer_name, ' ') " Save buffer id let s:yr_buffer_id = bufnr('%') else " If the buffer is visible, switch to it exec bufwinnr(s:yr_buffer_name) . "wincmd w" endif " Mark the buffer as scratch setlocal buftype=nofile setlocal bufhidden=hide setlocal noswapfile setlocal nowrap setlocal nonumber setlocal nobuflisted setlocal modifiable " Clear all existing maps for this buffer " We should do this for all maps, but I am not sure how to do " this for this buffer/window only without affecting all the " other buffers. mapclear " Create a mapping to act upon the yankring nnoremap <2-LeftMouse> :call YRWindowActionN('p','n') nnoremap :call YRWindowActionN('p','n') vnoremap :call YRWindowAction('p','v') nnoremap p :call YRWindowActionN('p','n') vnoremap p :call YRWindowAction('p','v') nnoremap P :call YRWindowActionN('P','n') vnoremap P :call YRWindowAction('P','v') nnoremap gp :call YRWindowActionN('gp','n') vnoremap gp :call YRWindowAction('gp','v') nnoremap gP :call YRWindowActionN('gP','n') vnoremap gP :call YRWindowAction('gP','v') nnoremap d :call YRWindowActionN('d','n') vnoremap d :call YRWindowAction('d','v') vnoremap r :call YRWindowAction('r','v') nnoremap a :call YRWindowAction('a','n') nnoremap ? :call YRWindowAction('?','n') nnoremap u :call YRShow(0) nnoremap q :call YRWindowAction('q','n') nnoremap \|:silent exec 'vertical resize '. \ ( \ g:yankring_window_use_horiz!=1 && winwidth('.') > g:yankring_window_width \ ?(g:yankring_window_width) \ :(winwidth('.') + g:yankring_window_increment) \ ) " Erase it's contents to the blackhole %delete _ " Display the status line / help call s:YRWindowStatus(0) " Display the contents of the yankring silent! put =a:results " Move the cursor to the first line with an element exec 0 call search('^\d','W') setlocal nomodifiable " " Restore the previous cpoptions settings let &cpoptions = old_cpoptions endfunction function! s:YRWindowActionN(op, cmd_mode) let v_count = v:count " If no count was specified it will have a value of 0 " so set it to at least 1 let v_count = ((v_count > 0)?(v_count):1) if v_count > 1 if !exists("b:yankring_show_range_error") let b:yankring_show_range_error = v_count else let b:yankring_show_range_error = b:yankring_show_range_error - 1 endif if b:yankring_show_range_error == 1 call s:YRWarningMsg("YR:Use visual mode if you need to specify a count") unlet b:yankring_show_range_error endif return endif " while v_count > 0 call s:YRWindowAction(a:op, a:cmd_mode) let v_count = v_count - 1 " endwhile if g:yankring_window_auto_close == 1 && v_count == 0 exec 'bdelete '.bufnr(s:yr_buffer_name) return "" endif return "" endfunction function! s:YRWindowAction(op, cmd_mode) range let default_buffer = ((&clipboard=='unnamed')?'*':'"') let opcode = a:op let saveA = getreg('a') let saveA_t = getregtype('a') let saveD = getreg(default_buffer) let saveD_t = getregtype(default_buffer) let lines = "" let v_count = v:count let cmd_mode = a:cmd_mode let firstline = a:firstline let lastline = a:lastline if cmd_mode == 'n' let v_count = 1 " if v_count > 1 " call s:YRWarningMsg('Use visual mode to apply a count') " return " endif " If a count was provided (5p), we want to repeat the paste " 5 times, but this also alters the a:firstline and a:lastline " ranges, which while in normal mode we do not want let lastline = firstline endif " If no count was specified it will have a value of 0 " so set it to at least 1 let v_count = ((v_count > 0)?(v_count):1) if '[dr]' =~ opcode " Reverse the order of the lines to act on let begin = lastline while begin >= firstline let lines = lines."\n".getline(begin) let begin = begin - 1 endwhile else " Process the selected items in order exec firstline.','.lastline.'yank a' let lines = "\n".@a endif call setreg('a', saveA, saveA_t) call setreg(default_buffer, saveD, saveD_t) if opcode ==# 'q' " Close the yankring window if s:yankring_winsize_chgd == 1 " Adjust the Vim window width back to the width " it was before we showed the yankring window let &columns= &columns - (g:yankring_window_width) endif hide return elseif opcode ==# 'u' call s:YRShow(0) return elseif opcode ==# 'a' let l:curr_line = line(".") " Toggle the auto close setting let g:yankring_window_auto_close = \ (g:yankring_window_auto_close == 1?0:1) " Display the status line / help call s:YRWindowStatus(0) call cursor(l:curr_line,0) return elseif opcode ==# '?' " Display the status line / help call s:YRWindowStatus(1) return endif " Switch back to the original buffer exec s:yr_buffer_last_winnr . "wincmd w" " Intentional case insensitive comparision if opcode =~? 'p' let cmd = 'YRGetElem ' let parms = ", '".opcode."' " elseif opcode ==? 'r' let opcode = 'p' let cmd = 'YRGetElem ' let parms = ", 'p' " elseif opcode ==# 'd' let cmd = 'YRPop ' let parms = "" endif " Only execute this code if we are operating on elements " within the yankring if '[auq?]' !~# opcode while v_count > 0 let iter = 0 let index = 0 let index = match(lines, "\n".'\d\+', index) while index > -1 " Retrieve the keystrokes for the mappings let index = match(lines, "\n".'\d\+', index) let elem = matchstr(lines, "\n".'\zs\d\+', index) if elem > 0 && elem <= s:yr_count if iter > 0 && opcode =~# 'p' " Move to the end of the last pasted item " only if pasting after (not above) '] endif exec cmd . elem . parms let iter = iter + 1 endif " Search for the next element beginning with a newline character " Add +2, 1 to go by the number, 1 for the newline character let index = index + strlen(elem) + 2 if index >= strlen(lines) break endif let index = match(lines, "\n".'\d\+', index) endwhile let v_count = v_count - 1 endwhile if opcode ==# 'd' call s:YRShow(0) return "" endif if g:yankring_window_auto_close == 1 && cmd_mode == 'v' exec 'bdelete '.bufnr(s:yr_buffer_name) return "" endif endif return "" endfunction function! s:YRWarningMsg(msg) echohl WarningMsg echomsg a:msg echohl None endfunction function! s:YRErrorMsg(msg) echohl ErrorMsg echomsg a:msg echohl None endfunction function! s:YRWinLeave() " Track which window we are last in. We will use this information " to determine where we need to paste any contents, or which " buffer to return to. if s:yr_buffer_id < 0 " The yankring window has never been activated return endif if winbufnr(winnr()) == s:yr_buffer_id " Ignore leaving the yankring window return endif if bufwinnr(s:yr_buffer_id) != -1 " YankRing window is visible, so save off the previous buffer ids let s:yr_buffer_last_winnr = winnr() let s:yr_buffer_last = winbufnr(s:yr_buffer_last_winnr) " else " let s:yr_buffer_last_winnr = -1 " let s:yr_buffer_last = -1 endif endfunction " Deleting autocommands first is a good idea especially if we want to reload " the script without restarting vim. augroup YankRing autocmd! autocmd WinLeave * :call YRWinLeave() augroup END " Public commands command! YRClear call s:YRClear() command! -range -bang -nargs=? YRDeleteRange ,call s:YRYankRange(1, ) command! -nargs=* YRGetElem call s:YRGetElem() command! -bang -nargs=? YRGetMultiple call s:YRGetMultiple(0, ) command! -count -register -nargs=* YRPaste call s:YRPaste(0,1,) command! -nargs=? YRPop ,call s:YRPop() command! -register -nargs=? YRPush call s:YRPush() command! -count -register -nargs=* YRReplace call s:YRPaste(1,) command! -nargs=? YRSearch call s:YRSearch() " command! -nargs=1 YRSetTop call s:YRSetTop() command! -nargs=? YRShow call s:YRShow() command! -nargs=? YRToggle call s:YRToggle() command! -count -register -nargs=* YRYankCount call s:YRYankCount() command! -range -bang -nargs=? YRYankRange ,call s:YRYankRange(0, ) " Initialize YankRing call s:YRClear() if g:yankring_enabled == 1 " Create YankRing Maps call YRMapsCreate() endif if exists('*YRRunAfterMaps') " This will allow you to override the default maps if necessary call YRRunAfterMaps() endif " File: mru.vim " Author: Yegappan Lakshmanan (yegappan AT yahoo DOT com) " Version: 3.1 " Last Modified: February 17, 2008 " " Overview " -------- " The Most Recently Used (MRU) plugin provides an easy access to a list of " recently opened/edited files in Vim. This plugin automatically stores the " file names as you open/edit them in Vim. " " This plugin will work on all the platforms where Vim is supported. This " plugin will work in both console and GUI Vim. This version of the MRU " plugin needs Vim 7.0 and above. If you are using an earlier version of " Vim, then you should use an older version of the MRU plugin. " " The recently used filenames are stored in a file specified by the Vim " MRU_File variable. " " Installation " ------------ " 1. Copy the mru.vim file to one of the following directories: " " $HOME/.vim/plugin - Unix like systems " $HOME/vimfiles/plugin - MS-Windows " $VIM:vimfiles:plugin - Macintosh " $VIM/vimfiles/plugin - All " " Refer to the following Vim help topics for more information about Vim " plugins: " " :help add-plugin " :help add-global-plugin " :help runtimepath " " 2. Set the MRU_File Vim variable in the .vimrc file to the location of a " file to store the most recently edited file names. This step is needed " only if you want to change the default MRU filename. " 3. Restart Vim. " 4. You can use the ":MRU" command to list and edit the recently used files. " In GUI Vim, you can use the 'File->Recent Files' menu to access the " recently used files. " " To uninstall this plugin, remove this file (mru.vim) from the " $HOME/.vim/plugin or $HOME/vimfiles/plugin or the $VIM/vimfile/plugin " directory. " " Usage " ----- " You can use the ":MRU" command to list all the most recently edited file " names. The file names will be listed in a temporary Vim window. If the MRU " window is already opened, then the MRU list displayed in the window will be " refreshed. " " If you are using GUI Vim, then the names of the recently edited files are " added to the "File->Recent Files" menu. You can select the name of a file " from this sub-menu to edit the file. " " You can use the normal Vim commands to move around in the MRU window. You " cannot make changes in the MRU window. " " You can select a file name to edit by pressing the key or by double " clicking the left mouse button on a file name. The selected file will be " opened. If the file is already opened in a window, the cursor will be moved " to that window. Otherwise, the file is opened in the previous window. If the " previous window has a modified buffer or is the preview window or is used by " some other plugin, then the file is opened in a new window. " " You can press the 'o' key to open the file name under the cursor in the " MRU window in a new window. " " To open a file from the MRU window in a new tab, press the 't' key. If the " file is already opened in a window in the current or in another tab, then " the cursor is moved to that tab. Otherwise, a new tab is opened. " " You can press the 'u' key in the MRU window to update the file list. This is " useful if you keep the MRU window open always. " " You can close the MRU window by pressing the 'q' key or using one of the Vim " window commands. " " To display only files matching a pattern from the MRU list in the MRU " window, you can specify a pattern to the ":MRU" command. For example, to " display only file names containing "vim" in them, you can use the following " command ":MRU vim". When you specify a partial file name and only one " matching filename is found, then the ":MRU" command will edit that file. " " The ":MRU" command supports command-line completion of file names from " the MRU list. You can enter a partial file name and then press " or to complete or list all the matching file names. " " Whenever the MRU list changes, the MRU file is updated with the latest MRU " list. When you have multiple instances of Vim running at the same time, the " latest MRU list will show up in all the instances of Vim. " " Configuration " ------------- " By changing the following variables you can configure the behavior of this " plugin. Set the following variables in your .vimrc file using the 'let' " command. " " The list of recently edit file names is stored in the file specified by the " MRU_File variable. The default setting for this variable is " $HOME/.vim_mru_files for Unix systems and $VIM/_vim_mru_files for non-Unix " systems. You can change this variable to point to a file by adding the " following line to the .vimrc file: " " let MRU_File = 'd:\myhome\_vim_mru_files' " " By default, the plugin will remember the names of the last 10 used files. " As you edit more files, old file names will be removed from the MRU list. " You can set the 'MRU_Max_Entries' variable to remember more file names. For " example, to remember 20 most recently used file names, you can use " " let MRU_Max_Entries = 20 " " By default, all the edited file names will be added to the MRU list. If you " want to exclude file names matching a list of patterns, you can set the " MRU_Exclude_Files variable to a list of Vim regular expressions. By default, " this variable is set to an empty string. For example, to not include files " in the temporary (/tmp, /var/tmp and d:\temp) directories, you can set the " MRU_Exclude_Files variable to " " let MRU_Exclude_Files = '^/tmp/.*\|^/var/tmp/.*' " For Unix " let MRU_Exclude_Files = '^c:\\temp\\.*' " For MS-Windows " " The specified pattern should be a Vim regular expression pattern. " " The default height of the MRU window is 8. You can set the MRU_Window_Height " variable to change the window height. " " let MRU_Window_Height = 15 " " By default, when the :MRU command is invoked, the MRU list will be displayed " in a new window. Instead, if you want the MRU plugin to reuse the current " window, then you can set the 'MRU_Use_Current_Window' variable to one. " " let MRU_Use_Current_Window = 1 " " The MRU plugin will reuse the current window. When a file name is selected, " the file is also opened in the current window. " " When you select a file from the MRU window, the MRU window will be " automatically closed and the selected file will be opened in the previous " window. You can set the 'MRU_Auto_Close' variable to zero to keep the MRU " window open. " " let MRU_Auto_Close = 0 " " If you don't use the "File->Recent Files" menu and want to disable it, " then you can set the 'MRU_Add_Menu' variable to zero. By default, the " menu is enabled. " " let MRU_Add_Menu = 0 " " ****************** Do not modify after this line ************************ if exists('loaded_mru') finish endif let loaded_mru=1 if v:version < 700 finish endif " Line continuation used here let s:cpo_save = &cpo set cpo&vim " Maximum number of entries allowed in the MRU list if !exists('MRU_Max_Entries') let MRU_Max_Entries = 10 endif " Files to exclude from the MRU list if !exists('MRU_Exclude_Files') let MRU_Exclude_Files = '' endif " Height of the MRU window " Default height is 8 if !exists('MRU_Window_Height') let MRU_Window_Height = 8 endif if !exists('MRU_Use_Current_Window') let MRU_Use_Current_Window = 0 endif if !exists('MRU_Auto_Close') let MRU_Auto_Close = 1 endif if !exists('MRU_File') if has('unix') let MRU_File = $HOME . "/.vim_mru_files" else let MRU_File = $VIM . "/_vim_mru_files" endif endif " Option for enabling or disabling the MRU menu if !exists('MRU_Add_Menu') let MRU_Add_Menu = 1 endif " MRU_LoadList " Load the latest MRU file list from the MRU file function! s:MRU_LoadList() " Read the list from the MRU file. if filereadable(g:MRU_File) let s:MRU_files = readfile(g:MRU_File) if s:MRU_files[0] =~# '^" Most recently edited files in Vim' " Generated by the previous version of the MRU plugin. Ignore the " list let s:MRU_files = [] elseif s:MRU_files[0] =~# '^#' " Remove the comment line call remove(s:MRU_files, 0) endif else let s:MRU_files = [] endif " Refresh the MRU menu call s:MRU_Refresh_Menu() endfunction " MRU_SaveList " Save the MRU list to the file function! s:MRU_SaveList() let l = [] call add(l, '# Most recently edited files in Vim (version 3.0)') call extend(l, s:MRU_files) call writefile(l, g:MRU_File) endfunction " MRU_AddFile " Add a file to the MRU file list function! s:MRU_AddFile(acmd_bufnr) " Get the full path to the filename let fname = fnamemodify(bufname(a:acmd_bufnr + 0), ':p') if fname == '' return endif " Skip temporary buffer with buftype set if &buftype != '' return endif if g:MRU_Exclude_Files != '' " Do not add files matching the pattern specified in the " MRU_Exclude_Files to the MRU list if fname =~? g:MRU_Exclude_Files return endif endif " If the filename is already present in the MRU list, then move " it to the beginning of the list let idx = index(s:MRU_files, fname) if idx == -1 if !filereadable(fname) " File is not readable and is not in the MRU list return endif endif " Load the latest MRU file list call s:MRU_LoadList() " Remove the new file name from the existing MRU list (if already present) call filter(s:MRU_files, 'v:val !=# fname') " Add the new file list to the beginning of the updated old file list call insert(s:MRU_files, fname, 0) " Return the trimmed list if len(s:MRU_files) > g:MRU_Max_Entries call remove(s:MRU_files, g:MRU_Max_Entries, -1) endif " Save the updated MRU list call s:MRU_SaveList() " Refresh the MRU menu call s:MRU_Refresh_Menu() " If the MRU window is open, update the displayed MRU list let bname = '__MRU_Files__' let winnum = bufwinnr(bname) if winnum != -1 let cur_winnr = winnr() call s:MRU_Open_Window() if winnr() != cur_winnr exe cur_winnr . 'wincmd w' endif endif endfunction " MRU_Edit_File " Edit the specified file function! s:MRU_Edit_File(filename) let fname = escape(a:filename, ' %#"') " If the file is already open in one of the windows, jump to it let winnum = bufwinnr('^' . fname . '$') if winnum != -1 if winnum != winnr() exe winnum . 'wincmd w' endif else if &modified || &buftype != '' || &previewwindow " Current buffer has unsaved changes or is a special buffer or is " the preview window. So open the file in a new window exe 'split ' . fname else exe 'edit ' . fname endif endif endfunction " MRU_Window_Edit_File " Open a file selected from the MRU window " win_opt == useopen, open file in previous window " win_opt == newwin, open file in new window " win_opt == newtab, open file in new tab function! s:MRU_Window_Edit_File(win_opt) let fname = getline('.') if fname == '' return endif let fname = escape(fname, ' %#"') if a:win_opt == 'newwin' " Edit the file in a new window exe 'leftabove new ' . fname if g:MRU_Auto_Close == 1 && g:MRU_Use_Current_Window == 0 " Go back to the MRU window and close it let cur_winnr = winnr() wincmd p silent! close if winnr() != cur_winnr exe cur_winnr . 'wincmd w' endif endif elseif a:win_opt == 'newtab' if g:MRU_Auto_Close == 1 && g:MRU_Use_Current_Window == 0 " Automatically close the window if the file window is " not used to display the MRU list. silent! close endif " If the selected file is already open in the current tab or in " another tab, jump to it. Otherwise open it in a new tab if bufwinnr('^' . fname . '$') == -1 let tabnum = -1 let i = 1 let bnum = bufnr('^' . fname . '$') while i <= tabpagenr('$') if index(tabpagebuflist(i), bnum) != -1 let tabnum = i break endif let i += 1 endwhile if tabnum != -1 " Goto the tab containing the file exe 'tabnext ' . i else " Open a new tab as the last tab page exe '999tabnew ' . fname endif endif " Jump to the window containing the file let winnum = bufwinnr('^' . fname . '$') if winnum != winnr() exe winnum . 'wincmd w' endif else " If the selected file is already open in one of the windows, " jump to it let winnum = bufwinnr('^' . fname . '$') if winnum != -1 if g:MRU_Auto_Close == 1 && g:MRU_Use_Current_Window == 0 " Automatically close the window if the file window is " not used to display the MRU list. silent! close endif " As the window numbers will change after closing a window, " get the window number again and jump to it, if the cursor " is not already in that window let winnum = bufwinnr('^' . fname . '$') if winnum != winnr() exe winnum . 'wincmd w' endif else if g:MRU_Auto_Close == 1 && g:MRU_Use_Current_Window == 0 " Automatically close the window if the file window is " not used to display the MRU list. silent! close " Jump to the window from which the MRU window was opened if exists('s:MRU_last_buffer') let last_winnr = bufwinnr(s:MRU_last_buffer) if last_winnr != -1 && last_winnr != winnr() exe last_winnr . 'wincmd w' endif endif else if g:MRU_Use_Current_Window == 0 " Goto the previous window " If MRU_Use_Current_Window is set to one, then the " current window is used to open the file wincmd p endif endif " Edit the file if &modified || &buftype != '' || &previewwindow " Current buffer has unsaved changes or is a special buffer or " is the preview window. So open the file in a new window exe 'split ' . fname else exe 'edit ' . fname endif endif endif endfunction " MRU_Warn_Msg " Display a warning message function! s:MRU_Warn_Msg(msg) echohl WarningMsg echo a:msg echohl None endfunction " MRU_Open_Window " Display the Most Recently Used file list in a temporary window. function! s:MRU_Open_Window(...) " Load the latest MRU file list call s:MRU_LoadList() " Empty MRU list if empty(s:MRU_files) call s:MRU_Warn_Msg('MRU file list is empty') return endif " Save the current buffer number. This is used later to open a file when a " entry is selected from the MRU window. The window number is not saved, " as the window number will change when new windows are opened. let s:MRU_last_buffer = bufnr('%') let bname = '__MRU_Files__' " If the window is already open, jump to it let winnum = bufwinnr(bname) if winnum != -1 if winnr() != winnum " If not already in the window, jump to it exe winnum . 'wincmd w' endif setlocal modifiable " Delete the contents of the buffer to the black-hole register silent! %delete _ else if g:MRU_Use_Current_Window " Reuse the current window " " If the __MRU_Files__ buffer exists, then reuse it. Otherwise open " a new buffer let bufnum = bufnr(bname) if bufnum == -1 let cmd = 'edit ' . bname else let cmd = 'buffer ' . bufnum endif exe cmd if bufnr('%') != bufnr(bname) " Failed to edit the MRU buffer return endif else " Open a new window at the bottom " If the __MRU_Files__ buffer exists, then reuse it. Otherwise open " a new buffer let bufnum = bufnr(bname) if bufnum == -1 let wcmd = bname else let wcmd = '+buffer' . bufnum endif exe 'silent! botright ' . g:MRU_Window_Height . 'split ' . wcmd endif endif " Mark the buffer as scratch setlocal buftype=nofile setlocal bufhidden=delete setlocal noswapfile setlocal nowrap setlocal nobuflisted " Use fixed height for the MRU window if v:version >= 602 setlocal winfixheight endif " Setup the cpoptions properly for the maps to work let old_cpoptions = &cpoptions set cpoptions&vim " Create a mapping to jump to the file nnoremap \ :call MRU_Window_Edit_File('useopen'):only nnoremap o \ :call MRU_Window_Edit_File('newwin') nnoremap t \ :call MRU_Window_Edit_File('newtab') nnoremap u :MRU nnoremap <2-LeftMouse> \ :call MRU_Window_Edit_File('useopen') nnoremap q :close " Restore the previous cpoptions settings let &cpoptions = old_cpoptions " Display the MRU list if a:0 == 0 " No search pattern specified. Display the complete list silent! 0put =s:MRU_files else " Display only the entries matching the specified pattern silent! 0put =filter(copy(s:MRU_files), 'v:val =~? a:1') endif " Move the cursor to the beginning of the file exe 1 setlocal nomodifiable endfunction " MRU_Complete " Command-line completion function used by :MRU command function! s:MRU_Complete(ArgLead, CmdLine, CursorPos) if a:ArgLead == '' " Return the list of MRU files return s:MRU_files else return filter(copy(s:MRU_files), 'v:val =~? a:ArgLead') endif endfunction " MRU_Cmd " Function to handle the MRU command function! s:MRU_Cmd(pat) if a:pat == '' " No arguments specified. Open the MRU window call s:MRU_Open_Window() return endif " Load the latest MRU file call s:MRU_LoadList() " Empty MRU list if empty(s:MRU_files) call s:MRU_Warn_Msg('MRU file list is empty') return endif " First use the specified string as a literal string and search for " filenames containing the string. If only one filename is found, " then edit it. let m = filter(copy(s:MRU_files), 'stridx(v:val, a:pat) != -1') if len(m) == 1 call s:MRU_Edit_File(m[0]) return endif " Use the specified string as a regular expression pattern and search " for filenames matching the pattern let m = filter(copy(s:MRU_files), 'v:val =~? a:pat') if len(m) == 0 " No filenames matching the specified pattern are found call s:MRU_Warn_Msg("MRU file list doesn't contain " . \ "files containing " . a:pat) return endif if len(m) == 1 call s:MRU_Edit_File(m[0]) return endif call s:MRU_Open_Window(a:pat) endfunction function! s:MRU_add_files_to_menu(prefix, file_list) for fname in a:file_list " Escape special characters in the filename let esc_fname = escape(fnamemodify(fname, ':t'), ". \\|\t%#") " Truncate the directory name if it is long let dir_name = fnamemodify(fname, ':h') let len = strlen(dir_name) " Shorten long file names by adding only few characters from " the beginning and end. if len > 30 let dir_name = strpart(dir_name, 0, 10) . \ '...' . \ strpart(dir_name, len - 20) endif let esc_dir_name = escape(dir_name, ". \\|\t") exe 'anoremenu &File.Recent\ Files.' . a:prefix . esc_fname . \ '\ (' . esc_dir_name . ')' . \ " :call MRU_Edit_File('" . fname . "')" endfor endfunction " MRU_Refresh_Menu() " Refresh the MRU menu function! s:MRU_Refresh_Menu() if !has('menu') || !g:MRU_Add_Menu " No support for menus return endif " Setup the cpoptions properly for the maps to work let old_cpoptions = &cpoptions set cpoptions&vim " Remove the MRU menu " To retain the teared-off MRU menu, we need to add a dummy entry silent! unmenu &File.Recent\ Files " The menu priority of the File menu is 10. If the MRU plugin runs " first before menu.vim, the File menu order may not be correct. " So specify the priority of the File menu here. 10noremenu &File.Recent\ Files.Dummy silent! unmenu! &File.Recent\ Files anoremenu &File.Recent\ Files.Refresh\ list \ :call MRU_LoadList() anoremenu File.Recent\ Files.-SEP1- : " Add the filenames in the MRU list to the menu let entry_cnt = len(s:MRU_files) if entry_cnt > 10 for start_idx in range(0, entry_cnt, 10) let last_idx = start_idx + 9 if last_idx >= entry_cnt let last_idx = entry_cnt - 1 endif let prefix = 'Files\ (' . (start_idx + 1) . '\.\.\.' . \ (last_idx + 1) . ').' call s:MRU_add_files_to_menu(prefix, \ s:MRU_files[start_idx : last_idx]) endfor else call s:MRU_add_files_to_menu('', s:MRU_files) endif " Remove the dummy menu entry unmenu &File.Recent\ Files.Dummy " Restore the previous cpoptions settings let &cpoptions = old_cpoptions endfunction " Load the MRU list on plugin startup call s:MRU_LoadList() " Autocommands to detect the most recently used files autocmd BufRead * call s:MRU_AddFile(expand('')) autocmd BufNewFile * call s:MRU_AddFile(expand('')) autocmd BufWritePost * call s:MRU_AddFile(expand('')) " Command to open the MRU window command! -nargs=? -complete=customlist,s:MRU_Complete MRU \ call s:MRU_Cmd() " restore 'cpo' let &cpo = s:cpo_save unlet s:cpo_save " ack.vim " " Author: Yuichi Tateno " Version: 1.0 for Vim 7.1, ack 1.76 " Last Change: 2008 3/8 " Licence: MIT Licence " " Description: " How to Use " :Ack hello " :Ack --perl use " :Ack -H hello hello.txt " if exists("g:loaded_ack") finish endif let g:loaded_ack = 1 if !exists('g:AckCmd') let g:AckCmd = 'ack' " Debian's package ack name is ack-grep. endif if !exists('g:AckAllFiles') let g:AckAllFiles = 1 " 0 is false. endif if !exists('g:AckOpenWinCmd') let g:AckOpenWinCmd = 'cwin' end function! s:Ack(...) let args = [g:AckCmd, '--nocolor', '--nogroup'] if g:AckAllFiles && len(a:000) == 1 call add(args, '--all') end let args += a:000 cgetexpr system(join(args, ' ')) silent exec g:AckOpenWinCmd endfunction command! -nargs=* -complete=file Ack :call s:Ack()