Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
From 8dc95dddaadcaeeee8b65541d91f17ddf2dc1c02 Mon Sep 17 00:00:00 2001
From: thinca <thinca@gmail.com>
Date: Mon, 9 Nov 2009 23:24:27 +0900
Subject: [PATCH 1/2] vim: fakeclip: Support tmux
---
vim/dot.vim/autoload/fakeclip.vim | 73 +++++++++++++++++++++++++++----------
1 files changed, 54 insertions(+), 19 deletions(-)
diff --git a/vim/dot.vim/autoload/fakeclip.vim b/vim/dot.vim/autoload/fakeclip.vim
index 95b6176..228f559 100644
--- a/vim/dot.vim/autoload/fakeclip.vim
+++ b/vim/dot.vim/autoload/fakeclip.vim
@@ -32,7 +32,13 @@ else
endif
-let s:SCREEN_AVAILABLE_P = executable('screen')
+if executable('screen') && $WINDOW != ''
+ let s:SCREEN_TYPE = 'gnuscreen'
+elseif executable('tmux') && $TMUX != ''
+ let s:SCREEN_TYPE = 'tmux'
+else
+ let s:SCREEN_TYPE = 'unavailable'
+endif
@@ -140,19 +146,31 @@ endfunction
function! s:read_screen() "{{{2
- if s:SCREEN_AVAILABLE_P
- let _ = tempname()
- call system('screen -X writebuf ' . shellescape(_))
- let content = join(readfile(_, 'b'), "\n")
- call delete(_)
- return content
- else
- echoerr 'GNU screen is not available'
- return ''
- endif
+ return s:read_screen_{s:SCREEN_TYPE}()
endfunction
+function! s:read_screen_gnuscreen()
+ let _ = tempname()
+ call system('screen -X writebuf ' . shellescape(_))
+ let content = join(readfile(_, 'b'), "\n")
+ call delete(_)
+ return content
+endfunction
+
+
+function! s:read_screen_tmux()
+ return system('tmux show-buffer')
+endfunction
+
+
+function! s:read_screen_unavailable()
+ echoerr 'screen is not available'
+ return ''
+endfunction
+
+
+
function! s:write_clipboard(text) "{{{2
@@ -183,14 +201,31 @@ endfunction
function! s:write_screen(text) "{{{2
- if s:SCREEN_AVAILABLE_P
- let _ = tempname()
- call writefile([a:text], _, 'b')
- call system('screen -X readbuf ' . shellescape(_))
- call delete(_)
- else
- echoerr 'GNU screen is not available'
- endif
+ call s:write_screen_{s:SCREEN_TYPE}(a:text)
+ return
+endfunction
+
+
+function! s:write_screen_gnuscreen(text)
+ let _ = tempname()
+ call writefile([a:text], _, 'b')
+ call system('screen -X readbuf ' . shellescape(_))
+ call delete(_)
+ return
+endfunction
+
+
+function! s:write_screen_tmux(text)
+ let _ = tempname()
+ call writefile([a:text], _, 'b')
+ call system('tmux load-buffer ' . shellescape(_))
+ call delete(_)
+ return
+endfunction
+
+
+function! s:write_screen_unavailable(text)
+ echoerr 'screen is not available'
return
endfunction
--
1.6.5.2
From 4e94ec3df948a3ba39c871edd870b411cc64a8d4 Mon Sep 17 00:00:00 2001
From: thinca <thinca@gmail.com>
Date: Mon, 9 Nov 2009 23:27:55 +0900
Subject: [PATCH 2/2] vim: fakeclip: Fix a bug when paste the screen buffer
The writebuf command of screen not make a file if buffer is empty.
---
vim/dot.vim/autoload/fakeclip.vim | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/vim/dot.vim/autoload/fakeclip.vim b/vim/dot.vim/autoload/fakeclip.vim
index 228f559..6c171ca 100644
--- a/vim/dot.vim/autoload/fakeclip.vim
+++ b/vim/dot.vim/autoload/fakeclip.vim
@@ -153,7 +153,7 @@ endfunction
function! s:read_screen_gnuscreen()
let _ = tempname()
call system('screen -X writebuf ' . shellescape(_))
- let content = join(readfile(_, 'b'), "\n")
+ let content = filereadable(_) ? join(readfile(_, 'b'), "\n") : ''
call delete(_)
return content
endfunction
--
1.6.5.2
" fakeclip - pseude clipboard register for non-GUI version of Vim
" Version: 0.2.4
" Copyright (C) 2008-2009 kana <http://whileimautomaton.net/>
" License: MIT license {{{
" 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.
" }}}
" Platform detection "{{{1
if has('macunix') || system('uname') =~? '^darwin'
let s:PLATFORM = 'mac'
elseif has('win32unix')
let s:PLATFORM = 'cygwin'
else
let s:PLATFORM = 'unknown'
endif
if executable('screen') && $WINDOW != ''
let s:SCREEN_TYPE = 'gnuscreen'
elseif executable('tmux') && $TMUX != ''
let s:SCREEN_TYPE = 'tmux'
else
let s:SCREEN_TYPE = 'unavailable'
endif
" Interface "{{{1
function! fakeclip#clipboard_yank(motion_type) "{{{2
return fakeclip#yank('clipboard', a:motion_type)
endfunction
function! fakeclip#content(system_type) "{{{2
return s:read_{a:system_type}()
endfunction
function! fakeclip#put(system_type, motion_type, put_type) "{{{2
let r_ = s:save_register('"')
let @@ = fakeclip#content(a:system_type)
if a:motion_type == ''
execute 'normal!' s:count().a:put_type
call s:restore_register('"', r_)
else
call s:select_last_motion(a:motion_type)
execute 'normal!' s:count().a:put_type
endif
endfunction
function! fakeclip#screen_yank(motion_type) "{{{2
return fakeclip#yank('screen', a:motion_type)
endfunction
function! fakeclip#yank(system_type, motion_type) "{{{2
let r0 = s:save_register('0')
call s:select_last_motion(a:motion_type)
normal! y
call s:write_{a:system_type}(@@)
call s:restore_register('0', r0)
endfunction
function! fakeclip#yank_Y(system_type) "{{{2
let diff = s:count() - 1
normal! V
if 0 < diff
execute 'normal!' diff.'j'
endif
execute 'normal' (a:system_type ==# 'clipboard'
\ ? "\<Plug>(fakeclip-Y)"
\ : "\<Plug>(fakeclip-screen-Y)")
endfunction
" Core "{{{1
function! s:read_clipboard() "{{{2
return s:read_clipboard_{s:PLATFORM}()
endfunction
function! s:read_clipboard_mac()
return system('pbpaste')
endfunction
function! s:read_clipboard_cygwin()
let content = ''
for line in readfile('/dev/clipboard', 'b')
let content = content . "\x0A" . substitute(line, "\x0D", '', 'g')
endfor
return content[1:]
endfunction
function! s:read_clipboard_unknown()
echoerr 'Getting the clipboard content is not supported on this platform:'
\ s:PLATFORM
return ''
endfunction
function! s:read_screen() "{{{2
return s:read_screen_{s:SCREEN_TYPE}()
endfunction
function! s:read_screen_gnuscreen()
let _ = tempname()
call system('screen -X writebuf ' . shellescape(_))
let content = filereadable(_) ? join(readfile(_, 'b'), "\n") : ''
call delete(_)
return content
endfunction
function! s:read_screen_tmux()
return system('tmux show-buffer')
endfunction
function! s:read_screen_unavailable()
echoerr 'screen is not available'
return ''
endfunction
function! s:write_clipboard(text) "{{{2
call s:write_clipboard_{s:PLATFORM}(a:text)
return
endfunction
function! s:write_clipboard_mac(text)
call system('pbcopy', a:text)
return
endfunction
function! s:write_clipboard_cygwin(text)
call writefile(split(a:text, "\x0A", 1), '/dev/clipboard', 'b')
return
endfunction
function! s:write_clipboard_unknown(text)
echoerr 'Yanking into the clipboard is not supported on this platform:'
\ s:PLATFORM
return
endfunction
function! s:write_screen(text) "{{{2
call s:write_screen_{s:SCREEN_TYPE}(a:text)
return
endfunction
function! s:write_screen_gnuscreen(text)
let _ = tempname()
call writefile([a:text], _, 'b')
call system('screen -X readbuf ' . shellescape(_))
call delete(_)
return
endfunction
function! s:write_screen_tmux(text)
let _ = tempname()
call writefile([a:text], _, 'b')
call system('tmux load-buffer ' . shellescape(_))
call delete(_)
return
endfunction
function! s:write_screen_unavailable(text)
echoerr 'screen is not available'
return
endfunction
" Misc. "{{{1
function! s:count() "{{{2
return (v:count == v:count1) ? v:count : ''
endfunction
function! s:restore_register(regname, reginfo) "{{{2
call setreg(a:regname, a:reginfo[0], a:reginfo[1])
return
endfunction
function! s:save_register(regname) "{{{2
return [getreg(a:regname), getregtype(a:regname)]
endfunction
function! s:select_last_motion(motion_type) "{{{2
let orig_selection = &selection
let &selection = 'inclusive'
if a:motion_type == 'char'
normal! `[v`]
elseif a:motion_type == 'line'
normal! '[V']
elseif a:motion_type == 'block'
execute "normal! `[\<C-v>`]"
else " invoked from visual mode
normal! gv
endif
let &selection = orig_selection
endfunction
" __END__ "{{{1
" vim: foldmethod=marker
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.