darkrc/vim/plugin/shame.vim

725 lines
19 KiB
VimL
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

" ┌────────────────────────────┐
" │ Everything in one big file │
" └────────────────────────────┘
"
" This should eventually be split into smaller individual files.
" Sessions
set sessionoptions=blank,buffers,curdir,folds,help,options,tabpages
" some conditional configs
if has('mouse')
set mouse=a
endif
if &t_Co > 2 || has("gui_running")
syntax on
set hlsearch "Highlight search results
endif
if has("cryptv")
if v:version >= 800
set cm=blowfish2
elseif v:version >= 703
set cm=blowfish
end
end
set colorcolumn=+1
hi ColorColumn ctermbg=magenta ctermfg=white guibg=magenta guifg=white
" set linespace=0
set scrolloff=6
set history=50 " keep 50 lines of command line history
set nonumber
" set relativenumber
set langmenu=en_UK
let $LANG = 'en_GB.UTF-8'
source $VIMRUNTIME/delmenu.vim
source $VIMRUNTIME/menu.vim
set guioptions-=r
set guioptions-=R
set guioptions-=l
set guioptions-=L
try
set undodir=$HOME/.vimundo
set undofile
catch
echom "Undofile doesn't work :("
endtry
filetype plugin on
filetype indent on
set ruler
"set backspace=eol,start,indent
set backspace=start,indent,eol
set path+=** " Enable fuzzy search " STAAAAAARS
set wildmenu "Menu for tab completion
set enc=utf8
" Search Stuff
set ignorecase
set smartcase
noh
set incsearch
set lazyredraw
set magic "Who doesn't want to be a vim-wizard?
set showmatch
" Backup and file stuff
set nobackup
set nowb
" set noswapfile
set swapfile
set gdefault
set nowrap
set breakat=\ .,{
au BufEnter,BufRead * set linebreak
set display+=lastline
if v:version>=800
set breakindent
set breakindentopt=sbr
au WinNew * set breakindentopt=sbr
set showbreak=↳\
else
set showbreak=↳\
end
set listchars=eol,tab:\│\ ,trail,nbsp:…,space
set list
" Allows setting vim options in other files
set modeline
set cmdheight=1
set timeoutlen=1200
" Allow indentation to work in XML files (and possibly others)
filetype plugin indent on
" Clipboard and Copy/Paste things
if has('unnamedplus') " Allow copying to and from OS clipboard
set clipboard=unnamedplus
else
if has("unix")
autocmd VimLeave * call system("xsel -ib", getreg('*'))
end
set clipboard=unnamed
end
if has("unix")
autocmd VimLeave * call system(
\ 'echo -n '.shellescape(getreg('+')).' | xclip -selection clipboard'
\ )
end
" === GENERIC ABBREVIATIONS ===
abbrev eshrug ¯\_()_
" === GENERAL UTILITIES ===
" Runs a sequence of commands asynchronously
function! Async(array, ...)
if len(a:array) > 0
if has("nvim")
call jobstart(a:array[0], {"on_exit": function("Async", [a:array[1:-1]])})
else
call job_start(a:array[0], {"out_io": "null", "in_io": "null", "err_io": "null", "exit_cb": function("Async", [a:array[1:-1]])})
end
end
endfun
function! RangeChooser()
let temp = tempname()
if has("gui_running")
exec 'silent !xterm -e ranger --choosefiles=' . shellescape(temp).' '.expand("%:p:h")
else
exec 'silent !ranger --choosefiles=' . shellescape(temp).' '.expand("%:p:h")
endif
if !filereadable(temp)
redraw!
return
endif
let names = readfile(temp)
if empty(names)
redraw!
return
endif
1,$argd
for name in names
exec 'argadd ' . fnameescape(name)
endfor
rewind
redraw!
endfunction
command! -bar RangerChooser call RangeChooser()
function! MatchingLines(pattern)
let list = []
let pattern = a:pattern
exec "g/".pattern."/ call add(list, expand('%').'('.line('.').') : '.matchstr(getline('.'), '".pattern."'))"
return list
endfunc
function! s:mld_helper(list, pattern)
" Helper function for MatchingLinesDict
call add(a:list, {'filename': expand("%"), 'lnum': line("."), 'col': match(getline("."), a:pattern)+1, 'text': matchstr(getline("."), a:pattern)})
endfunc
function! MatchingLinesDict(pattern)
let list = []
silent! exec "g/".a:pattern."/ call s:mld_helper(list, a:pattern)"
return list
endfunc
com! -nargs=1 List call setloclist(0, MatchingLinesDict(<f-args>))
\ | lopen
function! LocationAddLineCol(filename, lnum, text, col)
call setloclist(0, [{'filename': a:filename, 'lnum': a:lnum, 'desc': a:text, 'col': a:col}], 'a')
endfunction
function! QuickfixAddLineCol(filename, lnum, text, col)
call setqflist([{'filename': a:filename, 'lnum': a:lnum, 'desc': a:text, 'col': a:col}], 'a')
endfunction
function! LocationAddLine(filename, lnum, text)
call setloclist(0, [{'filename': a:filename, 'lnum': a:lnum, 'desc': a:text}], 'a')
endfunction
function! QuickfixAddLine(filename, lnum, text)
call setqflist([{'filename': a:filename, 'lnum': a:lnum, 'desc': a:text}], 'a')
endfunction
" Original implementation: https://stackoverflow.com/a/6271254/4984564
function! VisualSelection()
if mode()=="v"
let [line_start, column_start] = getpos("v")[1:2]
let [line_end, column_end] = getpos(".")[1:2]
else
let [line_start, column_start] = getpos("'<")[1:2]
let [line_end, column_end] = getpos("'>")[1:2]
end
if (line2byte(line_start)+column_start) > (line2byte(line_end)+column_end)
let [line_start, column_start, line_end, column_end] =
\ [line_end, column_end, line_start, column_start]
end
let lines = getline(line_start, line_end)
if len(lines) == 0
return ''
endif
let lines[-1] = lines[-1][: column_end - 1]
let lines[0] = lines[0][column_start - 1:]
return join(lines, "\n")
endfunction
function! StringReverse(str)
return join(reverse(split(str, ".\\zs")), "")
endfunc
function! ShiftMarker(m,n)
let [bufn,line,column,offset]=getpos("'".a:m)
call setpos("'".a:m,[bufn,line,column+(a:n),offset])
endfunc
function! ShiftSelection(n)
let [bufn_a,line_a,column_a,offset_a]=getpos("'>")
let [bufn_b,line_b,column_b,offset_b]=getpos("'<")
call setpos("'>",[bufn_a,line_a,column_a+(a:n),offset_a])
call setpos("'<",[bufn_b,line_b,column_b+(a:n),offset_b])
endfunc
" Auto-close quickfix list when leaving it
function! s:autobd()
au! WinLeave <buffer> bd!
endfun
" === GENERAL COMMANDS ===
" General Purpose
command! Modifiable setl modifiable!
command! -range=% Count echo(<line2>-<line1>+1)
command! Closeall bufdo bdelete
command! Context bufdo bdelete | e .
command! Kontext Context
command! -range=% Numbers <line1>,<line2>
\ s/^/\=printf("%0".float2nr(ceil(log10(<line2>+1)))."i", line("."))."\t"/
\ | noh
command! L lopen | set number | set norelativenumber
command! LAddLine call LocationAddLine(expand("%"), line("."), getline("."))
command! QAddLine call QuickfixAddLine(expand("%"), line("."), getline("."))
command! LAddCursor call LocationAddLineCol(expand("%"), line("."), getline("."), col("."))
command! QAddCursor call QuickfixAddLineCol(expand("%"), line("."), getline("."), col("."))
command! Fixmes call setloclist(0, MatchingLinesDict("\\c\\<fixme.*"))
command! Todos call setloclist(0, MatchingLinesDict("\\c\\<todo.*"))
command! -nargs=1 LFind call setloclist(0, MatchingLinesDict(<args>))
command! -nargs=1 QFind call setqflist(MatchingLinesDict(<args>))
function! s:hex(...)
if !(a:000 == [""])
let l:args = map(copy(a:000), {i,val -> "".val})
else
let l:args = []
end
if &filetype != "xxd"
silent exec '%!xxd '.join(l:args, " ")
set filetype=xxd
nnoremap <buffer> i i<ins>
echo "A witch turned your file into a hexadecimal toad!"
else
nunmap <buffer> i
silent exec '%!xxd -r '.join(l:args, " ")
filetype detect
echo "The witch turned your file back into binary data"
end
endfunction
command! -nargs=* Hex call <sid>hex(<q-args>)
command! -range=% LuaCompile <line1>,<line2>w !luac -l -p -
" === FILE STUFF ===
function! s:unsaved()
if &mod
let l:filetype = &filetype
diffthis
below new
set modifiable
r #
1,1del
diffthis
au BufUnload <buffer> diffoff!
let &filetype = l:filetype
set nomodifiable
set buftype=nofile
set bufhidden=delete
silent exec "file =".expand("#:t")."@".strftime("%H:%M")
exec "normal \<C-w>k"
set foldlevel=999
else
echom "No changes to show :)"
end
endfun
command! Unsaved call <sid>unsaved()
function! s:snapshot()
let l:filetype = &filetype
let l:clipboard = @"
let l:pos = getpos(".")
silent 0,$yank "
below new
set modifiable
silent put "
1,1del
let &filetype = l:filetype
set nomodifiable
set buftype=nofile
set bufhidden=hide
call setpos(".", l:pos)
silent exec "file ¬".expand("#:t")."@".strftime("%H:%M")
exec "normal \<C-w>k"
set foldlevel=999
let @" = l:clipboard
endfun
command! Snapshot call <sid>snapshot()
command! Todo call matchadd('Todo', '^[ -]*\[ \?\].*$') |
\ call matchadd('Comment', '^[ -]*\[x\].*$') |
\ call matchadd('Comment', '^[ -]*\[-\].*$') |
\ call matchadd('Error', '^[ -]*\[!\].*$')
command! -nargs=? Tempfile exec 'new '.tempname() | set filetype=<args> | au BufDelete <buffer> call delete(expand('%'))
" ┌──────────────────────────┐
" ├─┬──────────────────────┐ │
" ├─┤ GENERAL KEY MAPPINGS ├─┤
" │ └──────────────────────┴─┤
" └──────────────────────────┘
nnoremap <leader><space> :NeoTreeFloat<CR>
nnoremap <leader><tab> :NeoTreeFocus<CR>
onoremap al :<C-U>normal! 0vg$h<CR>
onoremap il :<C-U>normal! ^vg_<CR>
vnoremap <leader>p ""s<C-R>+<esc>
map S :shell<CR>
nnoremap gn :tab split<CR>
nnoremap val 0vg$h
nnoremap vil ^vg_
" --- ! as in ranger ---
nnoremap ! :!
" --- Telescope ---
nnoremap <leader>! :Telescope diagnostics<CR>
nnoremap <leader>? :Telescope keymaps<CR>
nnoremap <leader>f :Telescope find_files<CR>
nnoremap <leader>b :Telescope buffers<CR>
nnoremap <leader>ls :Telescope lsp_document_symbols<CR>
nnoremap <leader>lS :Telescope lsp_workspace_symbols<CR>
nnoremap <leader>ll :Telescope lsp_
nnoremap <leader>C :Telescope colorscheme<CR>
" --- F5 ---
nnoremap <F5> :nnoremap <buffer> <F5> :<lt>CR><left><left><left><left>
nnoremap <leader><F5> :nnoremap <F5> :<lt>CR><left><left><left><left>
let mapleader = "\\"
" --- Moving Between Buffers ---
nnoremap <leader>n :next<CR>:args<CR>
nnoremap <leader>p :previous<CR>:args<CR>
let g:jmp_dist = 8
exec 'noremap gj '.g:jmp_dist.'j'
exec 'noremap gk '.g:jmp_dist.'k'
nnoremap <C-k> ddkP
nnoremap <C-j> ddp
vnoremap <C-k> :m '<-2<CR>gv
vnoremap <C-j> :m '>+1<CR>gv
nnoremap <C-h> b
nnoremap <C-l> e
" --- Marks ---
nnoremap <leader>m :marks abcdefghijklmnopqrstuvwxyz<CR>
nnoremap <leader>M :marks ABCDEFGHIJKLMNOPQRSTUVWXYZ<CR>
" --- modes ---
nnoremap <ins> <ins><ins>
" --- /dev/null ---
noremap <leader>d "_d
noremap <leader>d "_d
noremap <del> "_x
noremap <S-del> 0"_x$
" --- Numbers ---
nnoremap <leader>- <C-x>
nnoremap <leader>= <C-a>
" --- Text ---
nnoremap U ~h
" --- CLIPBOARD ---
nnoremap Y y$
" --- MOONSCRIPT ---
let g:mooncompile = "!moonc ".expand("<sfile>:p:h")."/lua"
command! Mooncompile silent exec g:mooncompile
" --- OTHER ---
" Don't exit visual mode when "shifting"
vnoremap < <gv
vnoremap > >gv
nnoremap <S-l> :L<cr>
noremap <space> :
nnoremap <C-space> @:
inoremap <C-space> 
noremap Q @q
nnoremap <S-space> gQ
" This part is just supposed to make saving as inconvenient as possible
" because I have a tendency to just save stuff pretty much as soon as I start
" typing because I'm bored and possibly a bit paranoid.
function! s:saveprompt()
if &swapfile
echo "You have swap files enabled, stop in-between-saving all the time!"
end
if input("Type 'save' to save: ") ==? "save"
write
echo "File saved, but was it really necessary?"
else
echo "Calm the fuck down man!"
end
endfun
noremap <C-s> :call <sid>saveprompt()<CR>
nnoremap <C-n> :bnext<CR>
nnoremap <C-p> :bprevious<CR>
nnoremap <leader>j :lnext \| normal zt<cr>
nnoremap <leader>k :lNext \| normal zt<cr>
nnoremap <leader><leader>j :cnext \| normal zt<cr>
nnoremap <leader><leader>k :cNext \| normal zt<cr>
nnoremap <C-i> Bi <esc>i
nnoremap <C-a> Ea <esc>a
" This one does nothing, but I'm adding it to remember not to remap the tab key
nnoremap <tab> <C-S-I>
nnoremap <S-tab> <C-S-O>
nnoremap <C-e> ge
nnoremap <C-E> gE
com! SetWD :cd %:p:h
com! SetLWD :lcd %:p:h
com! Trailing let _s=@/ | %s/\v(\\@<!\s)+$//ge | let @/=_s
nnoremap <C-d> :copy .<CR>
vnoremap <C-d> :copy '><CR>
nnoremap dcx 0d$
nnoremap <expr> R ":%s/\\<\\(".expand("<cword>")."\\)\\>/"
vnoremap <expr> R ":<C-u>%s/".VisualSelection()."/"
" Put in new line with indentation
nnoremap ]p :let [content, type]=
\[getreg(v:register), getregtype(v:register)] \|
\call setreg(v:register, content, "V")<CR>]p
\:call setreg(v:register, content, type)<CR>
nnoremap [p :let [content, type]=
\[getreg(v:register), getregtype(v:register)] \|
\call setreg(v:register, content, "V")<CR>[p
\:call setreg(v:register, content, type)<CR>
" Empty Lines
nnoremap <leader><CR> o0
nnoremap <leader><leader><CR> O0
" === GENERAL ABBREVIATIONS ===
cabbr rcpath fnamemodify($MYVIMRC, ":p:h")
cabbr <expr> %% expand('%:p:h')
digraph <3 9829
digraph ue 252
digraph UE 220
digraph ae 228
digraph AE 196
digraph oe 246
digraph OE 214
digraph ss 223
" === GENERAL AUTOCOMMANDS ===
command! HLProgress syntax match Comment /\_.*\ze\n.*\%#/
" vnoremap <leader>g :<C-u>call <SID>GrepOperator(visualmode())<CR>
" nnoremap <leader>g :set operatorfunc=<SID>GrepOperator<CR>g@
" function! s:GrepOperator(type)
" let reg1 = @@
" if a:type==# 'v'
" execute "normal! `<v`>y"
" elseif a:type==# 'char'
" execute "normal! `[y`]"
" else
" return
" end
" echom "vimgrep! /\\M".escape(@@, "\\")."/ *"
" silent! execute "vimgrep /\\M".escape(@@, "\\")."/j *"
" let @@ = reg1
" copen
" set nowrap
" endfunction
" Window Height stuff
command! EqualH call Equal()
command! -nargs=1 WinHeight call SetWinMinHeight(<f-args>)
function! Equal()
set winminheight=0
set winheight=1
set equalalways!
set equalalways!
endfunc
function! SetWinMinHeight(num)
execute "set winminheight=".0
if a:num>=0
execute "set winheight=".(a:num+1)
execute "set winminheight=".a:num
endif
execute "set winheight=".9999
endfunc
" call SetWinMinHeight(2)
function! AddWinMinHeight(num)
let a:new = &winminheight + a:num
call SetWinMinHeight(a:new)
set winminheight?
endfunc
" Window Width Stuff
command! EqualW silent! call EqualW()
command! -nargs=1 WinWidth call SetWinMinWidth(<f-args>)
function! EqualW()
set winminwidth=0
set winwidth=1
set equalalways!
set equalalways!
endfunc
function! SetWinMinWidth(num)
execute "set winminwidth=".0
if a:num>=0
execute "set winwidth=".(a:num+1)
execute "set winminwidth=".a:num
endif
execute "set winwidth=".9999
endfunc
function! AddWinMinWidth(num)
let a:new = &winminwidth + a:num
call SetWinMinWidth(a:new)
set winminwidth?
endfunc
" === GENERIC AUTOCOMMANDS ===
if has("autocmd")
" Enable file type detection.
" Use the default filetype settings, so that mail gets 'tw' set to 72,
" 'cindent' is on in C files, etc.
" Also load indent files, to automatically do language-dependent indenting.
filetype plugin indent on
" When editing a file, always jump to the last known cursor position.
" Don't do it when the position is invalid or when inside an event handler
" (happens when dropping a file on gvim).
autocmd BufReadPost *
\ if line("'\"") >= 1 && line("'\"") <= line("$") |
\ exe "normal! g`\"" |
\ endif
endif
" === FILETYPE SPECIFIC STUFF ===
" --- VIMSCRIPT STUFF ---
au BufNewFile,BufRead *.vim,*vimrc :call <sid>init_vim_file()
function! s:init_vim_file()
setl number
nnoremap <buffer> <F5> :w<CR>:so %<CR>
nnoremap <buffer> <leader>if ofunction! <C-o>m'()<enter>endfunction<C-o>`'<C-o>l
command! -buffer Functions lex MatchingLines("^\\s*fun\\(ction\\)\\?\\>!.*$")
command! -buffer Commands lex MatchingLines("^\\s*com\\(mand\\)\\?\\>!.*$")
command! -buffer Autocommands lex MatchingLines("^\\s*au\\(tocmd\\)\\?\\>!\\@!.*$")
endfunction
" --- C / C++ Stuff ---
" Insert Stuff
au BufNewFile,BufRead *.c,*.cpp,*.h,*.hpp :nnoremap <buffer> <leader>ii O#include <><esc>i
au BufNewFile,BufRead *.c,*.cpp,*.h,*.hpp :nnoremap <buffer> <buffer> <leader>ip oprintf("<C-o>m'\n");<esc>`'a
au BufNewFile,BufRead *.c,*.cpp,*.h,*.hpp :nnoremap <buffer> <leader>im oint main(int argc, char *args[]) {<CR>}<esc>O
" Other Stuff
au BufNewFile,BufRead *.c,*.cpp,*.h,*.hpp :nnoremap <buffer> ; m'$a;<C-c>`'
" --- Ruby Stuff ---
au BufNewFile,BufRead *.rb :call <sid>init_ruby_file()
function! s:init_ruby_file()
set makeprg=ruby\ -wc\ %
setl number
command! -buffer Methods call setloclist(0, MatchingLinesDict("^\\s*def\\>\\s\\+\\zs.*$"))
command! -buffer Classes call setloclist(0, MatchingLinesDict("^\\s*class\\>\\s\\+\\zs.*$"))
command! -buffer Modules call setloclist(0, MatchingLinesDict("^\\s*module\\>\\s\\+\\zs.*$"))
command! -buffer Members call setloclist(0, MatchingLinesDict("@\\<\\i*\\>"))
command! -buffer Requires call setloclist(0, MatchingLinesDict("^\\s*require\\(_relative\\)\\?\\>\\s\\+\\zs.*$"))
nnoremap <buffer> <leader>ic oclass <C-o>m'<enter>end<esc>`'a
nnoremap <buffer> <leader>id odef <C-o>m'()<enter>end<esc>`'a
nnoremap <buffer> <leader>~ :call <SID>RubyComment(0)<CR>
nnoremap <buffer> <leader># :call <SID>RubyComment(1)<CR>
vnoremap <buffer> <leader>~ :call <SID>RubyComment(0)<CR>
vnoremap <buffer> <leader># :call <SID>RubyComment(1)<CR>
endfunction
function! s:RubyComment(a)
if a:a==0
" silent! exec '.s/\m^\s*\zs#*//'
silent! exec '.s/\v^(\s|#)*//'
normal ==
elseif a:a==1
" silent! exec '.s/\v^(\s*#)@!/#/'
silent! exec '.s/\v^(\s|#)*/# /'
normal ==
end
endfunction
" --- Lua Stuff ---
" Matches all types of Lua string!
" \v(["'])\zs.{-}\ze\\@1<!\2|\[(\=*)\[\zs.{-}\ze\]\3\]
au FileType lua :call <sid>init_lua_file()
function! s:init_lua_file()
setl number
command! -buffer Requires call setloclist(0, MatchingLinesDict("\\vrequire\\s*\\(?(([\"'])\\zs.{-}\\ze\\\\@1<!\\2|\\[(\\=*)\\[\\zs.{-}\\ze\\]\\3\\])\\)?"))
command! -buffer Functions call setloclist(0, MatchingLinesDict("^\\v(\\s*\\zs(local\\s*)?function\\s*[a-zA-Z0-9.:_]*\\(.*\\)(\\s*--.*|\\ze.*)|.*function\\(.*\\)(\\s*--.*|\\ze.*))$"))
iabbrev <buffer> let do local
endfunction!
" --- HTML Stuff ---
au BufNewFile,BufRead *.html,*.htm,*.etlua,*.erb :call <sid>init_html_file()
function! s:init_html_file()
setl number
command! -buffer -nargs=1 Tag normal
\ i<<args>><<C-o>m'/<args>><ESC>`'
nnoremap <buffer> <leader>T ""ciw<<C-o>""p><C-o>m'</<C-o>""p><C-o>`'<C-o>l
nnoremap <buffer> <leader>T ""diw<C-o>"_cc<<C-o>""p><C-o>o</<C-o>""p><C-o>O
function! s:insert_tag(tag, newline)
if !a:newline
let l:text = "<".a:tag."></".a:tag.">"
else
end
put =l:text
endfunction
inoremap <buffer> <C-CR> <C-o>""diw<C-o>"_cc<<C-o>""p><C-o>o</<C-o>""p><C-o>O
endfunction
" --- Moonscript Stuff ---
augroup MOON
au!
au BufWritePost *.moon call <SID>automoon()
augroup END
com! ToggleAutoMoon echo <SID>toggleautomoon()
com! ToggleAutoMoonLocal echo <SID>toggleautomoonlocal()
function! s:automoon()
if exists('g:automoon') || exists('b:automoon')
silent !moonc %
redraw
end
endfun
function! s:toggleautomoon()
if exists('g:automoon')
unlet g:automoon
return 'Automoon: off'
else
let g:automoon=1
return 'Automoon: on'
end
endfun
function! s:toggleautomoonlocal()
if exists('b:automoon')
unlet b:automoon
return 'Local Automoon: off'
else
let b:automoon=1
return 'Local Automoon: on'
end
endfun
" --- Markdown Stuff ---
augroup markdown
autocmd!
autocmd FileType markdown call <SID>init_markdown_file()
augroup END
function! s:init_markdown_file()
set textwidth=80
endfunction
" --- LaTeX Stuff ---
command! Latex2PDF call Async([ 'lualatex -draftmode '.expand('%'), 'biber '.expand('%:r'), 'lualatex '.expand('%') ])