gVIM的全屏插件、透明插件以及始终最前插件三合一

" {{{ Win平台下窗口全屏组件 gvimfullscreen.dll " Alt + Enter 全屏切换 " Shift + t 降低窗口透明度 " Shift + y 加大窗口透明度 " Shift + r 切换Vim是否总在最前面显示 if has('gui_running') && has('gui_win32') && has('libcall') let g:MyVimLib = 'gvimfullscreen.dll' function! ToggleFullScreen() "let s:IsFullScreen = libcallnr("gvimfullscreen.dll", 'ToggleFullScreen', 0) "let s:IsFullScreen = libcallnr("gvimfullscreen.dll", 'ToggleFullScreen', 27 + 29*256 + 30*256*256) call libcall(g:MyVimLib, 'ToggleFullScreen', 27 + 29*256 + 30*256*256) endfunction let g:VimAlpha = 245 function! SetAlpha(alpha) let g:VimAlpha = g:VimAlpha + a:alpha if g:VimAlpha < 180 let g:VimAlpha = 180 endif if g:VimAlpha > 255 let g:VimAlpha = 255 endif call libcall(g:MyVimLib, 'SetAlpha', g:VimAlpha) endfunction let g:VimTopMost = 0 function! SwitchVimTopMostMode() if g:VimTopMost == 0 let g:VimTopMost = 1 else let g:VimTopMost = 0 endif call libcall(g:MyVimLib, 'EnableTopMost', g:VimTopMost) endfunction "映射 Alt+Enter 切换全屏vim map <a-enter> <esc>:call ToggleFullScreen()<cr> "切换Vim是否在最前面显示 nmap <s-r> <esc>:call SwitchVimTopMostMode()<cr> "增加Vim窗体的不透明度 nmap <s-t> <esc>:call SetAlpha(10)<cr> "增加Vim窗体的透明度 nmap <s-y> <esc>:call SetAlpha(-10)<cr> "Vim启动的时候自动调用InitVim 以去除Vim的白色边框 autocmd GUIEnter * call libcallnr(g:MyVimLib, 'InitVim', 0) " 默认设置透明 autocmd GUIEnter * call libcallnr(g:MyVimLib, 'SetAlpha', g:VimAlpha) endif " }}}