tomkersten-vixploder 0.1.1 → 0.1.2

data/lib/dotfiles/vim/after/ftplugin/ruby_snippets.vim

@@ -0,0 +1,32 @@
+if !exists('loaded_snippet') || &cp
+    finish
+endif
+
+let st = g:snip_start_tag
+let et = g:snip_end_tag
+let cd = g:snip_elem_delim
+
+exec "Snippet do do<CR>".st.et."<CR>end<CR>".st.et
+exec "Snippet class class ".st."className".et."<CR>".st.et."<CR>end<CR>".st.et
+exec "Snippet begin begin<CR>".st.et."<CR>rescue ".st."Exception".et." => ".st."e".et."<CR>".st.et."<CR>end<CR>".st.et
+exec "Snippet each_with_index0 each_with_index do |".st."element".et.", ".st."index".et."|<CR>".st."element".et.".".st.et."<CR>end<CR>".st.et
+exec "Snippet collect collect { |".st."element".et."| ".st."element".et.".".st.et." }<CR>".st.et
+exec "Snippet forin for ".st."element".et." in ".st."collection".et."<CR>".st."element".et.".".st.et."<CR>end<CR>".st.et
+exec "Snippet doo do |".st."object".et."|<CR>".st.et."<CR>end<CR>".st.et
+exec "Snippet : :".st."key".et." => \"".st."value".et."\"".st.et."<CR>".st.et
+exec "Snippet def def ".st."methodName".et."<CR>".st.et."<CR>end<CR>".st.et
+exec "Snippet case case ".st."object".et."<CR>when ".st."condition".et."<CR>".st.et."<CR>end<CR>".st.et
+exec "Snippet collecto collect do |".st."element".et."|<CR>".st."element".et.".".st.et."<CR>end<CR>".st.et
+exec "Snippet each each { |".st."element".et."| ".st."element".et.".".st.et." }<CR>".st.et
+exec "Snippet each_with_index each_with_index { |".st."element".et.", ".st."idx".et."| ".st."element".et.".".st.et." }<CR>".st.et
+exec "Snippet if if ".st."condition".et."<CR>".st.et."<CR>end<CR>".st.et
+exec "Snippet eacho each do |".st."element".et."|<CR>".st."element".et.".".st.et."<CR>end<CR>".st.et
+exec "Snippet unless unless ".st."condition".et."<CR>".st.et."<CR>end<CR>".st.et
+exec "Snippet ife if ".st."condition".et."<CR>".st.et."<CR>else<CR>".st.et."<CR>end<CR>".st.et
+exec "Snippet when when ".st."condition".et."<CR>".st.et
+exec "Snippet selecto select do |".st."element".et."|<CR>".st."element".et.".".st.et."<CR>end<CR>".st.et
+exec "Snippet injecto inject(".st."object".et.") do |".st."injection".et.", ".st."element".et."| <CR>".st.et."<CR>end<CR>".st.et
+exec "Snippet reject { |".st."element".et."| ".st."element".et.".".st.et." }<CR>".st.et
+exec "Snippet rejecto reject do |".st."element".et."| <CR>".st."element".et.".".st.et."<CR>end<CR>".st.et
+exec "Snippet inject inject(".st."object".et.") { |".st."injection".et.", ".st."element".et."| ".st.et." }<CR>".st.et
+exec "Snippet select select { |".st."element".et."| ".st."element".et.".".st.et." }<CR>".st.et

data/lib/dotfiles/vim/after/ftplugin/sh_snippets.vim

@@ -0,0 +1,12 @@
+if !exists('loaded_snippet') || &cp
+    finish
+endif
+
+let st = g:snip_start_tag
+let et = g:snip_end_tag
+let cd = g:snip_elem_delim
+
+"Snippet !env #!/usr/bin/env ${1:${TM_SCOPE/(?:source|.*)\\.(\\w+).*/$1/}}
+exec "Snippet if if [[ ".st."condition".et." ]]; then<CR>".st.et."<CR>fi".st.et
+exec "Snippet elif elif [[ ".st."condition".et." ]]; then<CR>".st.et
+exec "Snippet for for (( ".st."i".et." = ".st.et."; ".st."i".et." ".st.et."; ".st."i".et.st.et." )); do<CR>".st.et."<CR>done".st.et

data/lib/dotfiles/vim/after/ftplugin/slate_snippets.vim

@@ -0,0 +1,19 @@
+if !exists('loaded_snippet') || &cp
+    finish
+endif
+
+let st = g:snip_start_tag
+let et = g:snip_end_tag
+let cd = g:snip_elem_delim
+
+exec "Snippet do do: [| :".st."each".et."| ".st.et."]<CR>".st.et
+exec "Snippet proto define: #".st."NewName".et." &parents: {".st."parents".et."} &slots: {".st."slotSpecs".et."}.<CR>".st.et
+exec "Snippet ifte ".st."condition".et." ifTrue: [".st.et.":then] ifFalse: [".st.et.":else]<CR>".st.et
+exec "Snippet collect collect: [| :".st."each".et."| ".st.et."]<CR>".st.et
+exec "Snippet if ".st."condition".et." ifTrue: [".st.et.":then]".st.et
+exec "Snippet until [".st."condition".et."] whileFalse: [".st.et.":body]".st.et
+exec "Snippet reject reject: [| :".st."each".et."| ".st.et."]<CR>".st.et
+exec "Snippet dowith doWithIndex: [| :".st."each".et." :".st."index".et." | ".st.et."]<CR>".st.et
+exec "Snippet select select: [| :".st."each".et."| ".st.et."]".st.et
+exec "Snippet while [".st."condition".et."] whileTrue: [".st.et.":body]".st.et
+exec "Snippet inject inject: ".st."object".et." [| :".st."injection".et.", :".st."each".et."| ".st.et."]".st.et

data/lib/dotfiles/vim/after/ftplugin/smarty_snippets.vim

@@ -0,0 +1,35 @@
+if !exists('loaded_snippet') || &cp
+    finish
+endif
+
+let st = g:snip_start_tag
+let et = g:snip_end_tag
+let cd = g:snip_elem_delim
+
+exec "Snippet {cycle {cycle values=\"#SELSTART#".st."foo".et.",".st."bar".et."#SELEND#\" name=\"default\" print=true advance=true delimiter=\",\" assign=varname }<CR>".st.et
+exec "Snippet |regex_replace |regex_replace:\"".st."regex".et."\":\"".st.et."\"".st.et
+exec "Snippet {counter {counter name=\"#INSERTION#\" start=1 skip=1 direction=\"up\" print=true<CR>assign=\"foo\" }<CR><CR>{counter}<CR>".st.et
+exec "Snippet {eval {eval var=\"#SELSTART#{template_format}#SELEND#\" assign=varname} <CR>".st.et
+"Snippet |date_format |date_format:"${1:strftime() formatting}" <CR><{}>
+exec "Snippet |truncate |truncate:".st.et.":".st.et.":".st."false".et.""
+exec "Snippet {if {if ".st."varname".et.st.et."<CR>\"".st."foo".et."\"}<CR><CR>{* $varname can also be a php call *}<CR><CR>".st.et."<CR><CR>{/if}<CR>".st.et
+"Snippet |string_format |string_format:"${1:sprintf formatting}" <CR><{}>
+exec "Snippet {assign {assign var=".st.et." value=\"".st.et."\"}".st.et
+exec "Snippet {foreach {foreach from=".st."varname".et." item=i [key=k name=\"\"] }<CR><CR>".st.et."<CR><CR>{/foreach}<CR><CR>".st.et
+exec "Snippet {capture {capture name=#INSERTION#}<CR><CR>#SELECT#<CR><CR>{/capture}<CR>".st.et
+exec "Snippet |wordwrap |wordwrap:".st.et.":\"".st.et."\":".st.et
+exec "Snippet |spacify |spacify:\"".st.et."\"".st.et." "
+exec "Snippet |default |default:\"".st.et."\"".st.et
+exec "Snippet {debug {debug output=\"#SELSTART#".st.et."#SELEND#\" }".st.et
+exec "Snippet |replace |replace:\"".st."needle".et."\":\"".st.et."\"".st.et
+exec "Snippet {include {include file=\"".st.et."\" [assign=varname foo=\"bar\"] }".st.et
+exec "Snippet |escape |escape:\"".st.et."\"".st.et
+exec "Snippet {strip {strip}<CR>".st.et."<CR>{/strip}".st.et
+exec "Snippet {math {math equation=\"".st.et."\" assign=".st.et." ".st.et."}".st.et
+exec "Snippet {config_load {config_load file=\"#INSERTION#\" [section=\"\" scope=\"local|parent|global\"] }".st.et
+exec "Snippet |cat  |cat:\"".st.et."\"".st.et
+exec "Snippet {insert {insert name=\"insert_".st.et."\" [assign=varname script=\"foo.php\" foo=\"bar\"] }".st.et
+exec "Snippet {fetch {fetch file=\"#SELSTART#http:// or file#SELEND#\" assign=varname}".st.et
+exec "Snippet {literal {literal}<CR><CR>".st.et."<CR><CR>{/literal}".st.et
+exec "Snippet {include_php {include_php file=\"".st.et."\" [once=true]}".st.et
+exec "Snippet |strip |strip:[\"".st.et."\"]".st.et

data/lib/dotfiles/vim/after/ftplugin/symfony_snippets.vim

@@ -0,0 +1,21 @@
+if !exists('loaded_snippet') || &cp
+    finish
+endif
+
+let st = g:snip_start_tag
+let et = g:snip_end_tag
+let cd = g:snip_elem_delim
+
+exec "Snippet image_tag image_tag('".st."imageName".et."'".st.et.")".st.et
+exec "Snippet get public function get".st.et." ()<CR>{<CR>return $this->".st.et.";<CR>}<CR><CR>".st.et
+exec "Snippet link_to link_to('".st."linkName".et."', '".st."moduleName".et."/".st."actionName".et.st.et."')".st.et
+exec "Snippet sexecute public function execute<Action>()<CR>{<CR>".st.et."<CR>}<CR>".st.et
+exec "Snippet set public function set".st.et." ($".st.et.")<CR>{<CR>$this->".st.et." = ".st.et.";<CR>}<CR><CR>".st.et
+exec "Snippet execute /**<CR>* ".st."className".et."<CR>*<CR>*/<CR>public function execute<Action>()<CR>{<CR>".st.et."<CR>}<CR>".st.et
+exec "Snippet tforeach <?php foreach ($".st."variable".et." as $".st."key".et.st.et."): ?><CR>".st.et."<CR><?php endforeach ?><CR>".st.et
+exec "Snippet getparam $this->getRequestParameter('".st."id".et."')".st.et
+exec "Snippet div <div".st.et."><CR>".st.et."<CR></div>".st.et
+exec "Snippet tif <?php if (".st."condition".et."): ?><CR>".st.et."<CR><?php endif ?><CR>".st.et
+exec "Snippet setget public function set".st."var".et." (".st."arg".et.")<CR>{<CR>$this->".st."arg".et." = ".st."arg".et.";<CR>}<CR><CR>public function get".st."var".et." ()<CR>{<CR>return $this->".st."var".et.";<CR>}<CR><CR>".st.et
+exec "Snippet echo <?php echo ".st.et." ?>".st.et
+exec "Snippet tfor <?php for($".st."i".et." = ".st.et."; $".st."i".et." <= ".st.et."; $".st."i".et."++): ?><CR>".st.et."<CR><?php endfor ?><CR>".st.et

data/lib/dotfiles/vim/after/ftplugin/tcl_snippets.vim

@@ -0,0 +1,14 @@
+if !exists('loaded_snippet') || &cp
+    finish
+endif
+
+let st = g:snip_start_tag
+let et = g:snip_end_tag
+let cd = g:snip_elem_delim
+
+exec "Snippet switch switch ".st.et." -- $".st."var".et." {<CR>".st."match".et." {<CR>".st.et."<CR>}<CR>default<CR>{".st.et."}<CR>}<CR>".st.et
+exec "Snippet foreach foreach ".st."var".et." $".st."list".et." {<CR>".st.et."<CR>}<CR>".st.et
+exec "Snippet proc proc ".st."name".et." {".st."args".et."} <CR>{<CR>".st.et."<CR>}<CR>".st.et
+exec "Snippet if if {".st."condition".et."} {<CR>".st.et."<CR>}<CR>".st.et
+exec "Snippet for for {".st."i".et." {".st.et."} {".st.et."} {<CR>".st.et."<CR>}<CR>".st.et
+exec "Snippet while while {".st."condition".et."} {<CR>".st.et."<CR>}<CR>".st.et

data/lib/dotfiles/vim/after/ftplugin/template_toolkit_snippets.vim

@@ -0,0 +1,13 @@
+if !exists('loaded_snippet') || &cp
+    finish
+endif
+
+let st = g:snip_start_tag
+let et = g:snip_end_tag
+let cd = g:snip_elem_delim
+
+exec "Snippet wrap [% WRAPPER ".st."template".et." %]<CR>".st.et."<CR>[% END %]<CR>".st.et
+exec "Snippet if [% IF ".st."condition".et." %]<CR>".st.et."<CR>[% ELSE %]<CR>".st.et."<CR>[% END %]<CR>".st.et
+exec "Snippet unl [% UNLESS ".st."condition".et." %]<CR>".st.et."<CR>[% END %]<CR>".st.et
+exec "Snippet inc [% INCLUDE ".st."template".et." %]<CR>".st.et
+exec "Snippet for  [% FOR ".st."var".et." IN ".st."set".et." %]<CR>".st.et."<CR>[% END %]".st.et

data/lib/dotfiles/vim/after/ftplugin/tex_snippets.vim

@@ -0,0 +1,13 @@
+if !exists('loaded_snippet') || &cp
+    finish
+endif
+
+let st = g:snip_start_tag
+let et = g:snip_end_tag
+let cd = g:snip_elem_delim
+
+exec "Snippet sub \\subsection{".st."name".et."}\\label{sub:".st."name:substitute(@z,'.','\\l&','g')".et."}<CR>".st.et
+exec "Snippet $$ \\[<CR>".st.et."<CR>\\]<CR>".st.et
+exec "Snippet ssub \\subsubsection{".st."name".et."}\\label{ssub:".st."name:substitute(@z,'.','\\l&','g')".et."}<CR>".st.et
+exec "Snippet itd \\item[".st."desc".et."] ".st.et
+exec "Snippet sec \\section{".st."name".et."}\\label{sec:".st."name:substitute(@z,'.','\\l&','g')".et."<CR>".st.et

data/lib/dotfiles/vim/after/ftplugin/xhtml_snippets.vim

@@ -0,0 +1,48 @@
+if !exists('loaded_snippet') || &cp
+    finish
+endif
+
+let st = g:snip_start_tag
+let et = g:snip_end_tag
+let cd = g:snip_elem_delim
+
+exec "Snippet doctype <!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"<CR>\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\"><CR>".st.et
+exec "Snippet aref <a href=\"".st.et."\" id=\"".st.et."\" title=\"".st.et."\">".st.et."</a>".st.et
+exec "Snippet head  <head><CR>".st.et."<CR></head>".st.et
+exec "Snippet script <script type=\"text/javascript\" language=\"<javascript>\" charset=\"".st.et."\"><CR>// <![CDATA[<CR>".st.et."<CR>// ]]><CR></script>".st.et
+exec "Snippet html <html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"".st."en".et."\"<CR>lang=\"".st."en".et."\"><CR>".st.et."<CR></html>"
+exec "Snippet h3 <h3>".st.et."</h3>".st.et
+exec "Snippet h4 <h4>".st.et."</h4>".st.et
+exec "Snippet h5 <h5>".st.et."</h5>".st.et
+exec "Snippet h6 <h6>".st.et."</h6>".st.et
+exec "Snippet fieldset <fieldset><CR>".st.et."<CR></fieldset>".st.et
+exec "Snippet noscript <noscript><CR>".st.et."<CR></noscript>".st.et
+exec "Snippet ul <ul ".st.et."><CR>".st.et."<CR></ul>".st.et
+exec "Snippet xml <?xml version=\"1.0\" encoding=\"iso-8859-1\"?><CR><CR>".st.et
+exec "Snippet body <body id=\"".st.et."\" ".st.et."><CR>".st.et."<CR></body>".st.et
+exec "Snippet legend <legend align=\"".st.et."\" accesskey=\"".st.et."\"><CR>".st.et."<CR></legend>".st.et
+exec "Snippet title <title>".st."PageTitle".et."</title>".st.et
+exec "Snippet scriptsrc <script src=\"".st.et."\" type=\"text/javascript\" language=\"<javascript>\" charset=\"".st.et."\"></script>".st.et
+exec "Snippet img <img src=\"".st.et."\" alt=\"".st.et."\" class=\"".st.et."\" />".st.et
+exec "Snippet option <option label=\"".st."label".et."\" value=\"".st."value".et."\" ".st.et."></option> ".st.et
+exec "Snippet optgroup <optgroup label=\"".st."Label".et."\"><CR>".st.et."<CR></optgroup>".st.et
+exec "Snippet meta <meta name=\"".st."name".et."\" content=\"".st."content".et."\" />".st.et
+exec "Snippet td <td ".st.et.">".st.et."</td>".st.et
+exec "Snippet dt <dt>".st.et."<CR></dt><CR><dd>".st.et."</dd>".st.et
+exec "Snippet tfoot <tfoot><CR>".st.et."<CR></tfoot>".st.et
+exec "Snippet div <!-- begin div.".st."id".et." --><CR><div id=\"".st."id".et."\"><CR>".st.et."<CR></div><CR><!-- end div.".st."id".et." --><CR>".st.et
+exec "Snippet ol <ol ".st.et."><CR>".st.et."<CR></ol>".st.et
+exec "Snippet txtarea <textarea id=\"".st."ID".et."\" name=\"".st."Name".et."\" rows=\"".st.et."\" cols=\"".st.et."\" tabindex=\"".st.et."\" ".st.et.">".st.et."</textarea>".st.et
+exec "Snippet mailto <a href=\"mailto:".st.et."?subject=".st.et."\">".st.et."</a>".st.et
+exec "Snippet table <table summary=\"".st."Summary".et."\" class=\"".st."className".et."\" width=\"".st.et."\" cellspacing=\"".st.et."\" cellpadding=\"".st.et."\" border=\"".st.et."\"><CR>".st.et."<CR></table>".st.et
+exec "Snippet hint <span class=\"hint\">".st.et."</span>".st.et
+exec "Snippet link <link rel=\"".st."stylesheet".et."\" href=\"".st.et."\" type=\"text/css\" media=\"".st."screen".et."\" title=\"".st.et."\" charset=\"".st.et."\" />".st.et
+exec "Snippet form <form action=\"".st."urlToGoTo".et."\" method=\"".st."get".et."\" id=\"".st."formID".et."\" name=\"".st."formName".et."\"><CR>".st.et."<CR></form>".st.et
+exec "Snippet tr <tr ".st.et."><CR>".st.et."<CR></tr>".st.et
+exec "Snippet label <label for=\"".st."inputItem".et."\">".st.et."</label>".st.et
+exec "Snippet image <img src=\"".st.et."\" alt=\"".st.et."\" width=\"".st.et."\" height=\"".st.et."\" ".st.et."/>".st.et
+exec "Snippet input <input name=\"".st.et."\" id=\"".st.et."\" type=\"radio\" value=\"".st."defaultValue".et."\" tabindex=\"".st.et."\" ".st.et." />".st.et
+exec "Snippet select <select id=\"".st."ID".et."\" name=\"".st."Name".et."\" size=\"".st.et."\" tabindex=\"".st.et."\" ".st.et."><CR>".st.et."<CR></select><CR>".st.et
+exec "Snippet style <style type=\"text/css\" media=\"".st."screen".et."\"><CR>/* <![CDATA[ */<CR>".st.et."<CR>/* ]]> */<CR></style><CR>".st.et
+exec "Snippet divheader <!-- Begin HeaderDiv:: --><CR><div id=\"HeaderDiv\"><CR><!--logo in background --><CR><h1>".st."CompanyName".et."</h1><CR></div><CR><!-- End HeaderDiv:: --><CR>".st.et
+exec "Snippet base <base href=\"".st.et."\" ".st.et."/>".st.et

data/lib/dotfiles/vim/autoload/fakeclip.vim

@@ -0,0 +1,253 @@
+" fakeclip - pseude clipboard register for non-GUI version of Vim
+" Version: 0.2.1
+" Copyright (C) 2008 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
+
+
+call system('which screen')  " FIXME: Non *nix platform
+let s:SCREEN_AVAILABLE_P = v:shell_error == 0
+
+
+
+
+
+
+
+
+" 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
+  if s:SCREEN_AVAILABLE_P
+    let _ = tempname()
+    call system('screen -X writebuf ' . fnameescape(_))
+    let content = join(readfile(_, 'b'), "\n")
+    call delete(_)
+    return content
+  else
+    echoerr 'GNU screen is not available'
+    return ''
+  endif
+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
+  if s:SCREEN_AVAILABLE_P
+    let _ = tempname()
+    call writefile([a:text], _, 'b')
+    call system('screen -X readbuf ' . fnameescape(_))
+    call delete(_)
+  else
+    echoerr 'GNU screen is not available'
+  endif
+  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