You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdesdk/scripts/kde-devel-vim.vim

427 lines
14 KiB

This file contains invisible Unicode characters!

This file contains invisible Unicode characters that may be processed differently from what appears below. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to reveal hidden characters.

" To use this file, add this line to your ~/.vimrc:, w/o the dquote
" source /usr/share/tdesdk-scripts/kde-devel-vim.vim
"
" For CreateChangeLogEntry() : If you don't want to re-enter your
" Name/Email in each vim session then make sure to have the viminfo
" option enabled in your ~/.vimrc, with the '!' flag, enabling persistent
" storage of global variables. Something along the line of
" set viminfo=%,!,'50,\"100,:100,n~/.viminfo
" should do the trick.
" Don't include these in filename completions
set suffixes+=.lo,.o,.moc,.la,.closure,.loT
" Search for headers here
set path=.,/usr/include,/usr/local/include,
if $TQTDIR != ''
let &path = &path . $TQTDIR . '/include/,'
endif
if $TDEDIR != ''
let &path = &path . $TDEDIR . '/include/,'
let &path = &path . $TDEDIR . '/include/arts/,'
endif
if $TDEDIRS != ''
let &path = &path . substitute( $TDEDIRS, '\(:\|$\)', '/include,', 'g' )
let &path = &path . substitute( $TDEDIRS, '\(:\|$\)', '/include/arts,', 'g' )
endif
set path+=,
" Use makeobj to build
set mp=makeobj
" If TagList is Loaded then get a funny statusline
" Only works if kde-devel-vim.vim is loaded after taglist.
" Droping this script in ~/.vim/plugin works fine
if exists('loaded_taglist')
let Tlist_Process_File_Always=1
set statusline=%<%f:[\ %{Tlist_Get_Tag_Prototype_By_Line()}\ ]\ %h%m%r%=%-14.(%l,%c%V%)\ %P
endif
" Insert tab character in whitespace-only lines, complete otherwise
inoremap <Tab> <C-R>=SmartTab()<CR>
if !exists("DisableSmartParens")
" Insert a space after ( or [ and before ] or ) unless preceded by a matching
" paren/bracket or space or inside a string or comment. Comments are only
" recognized as such if they start on the current line :-(
inoremap ( <C-R>=SmartParens( '(' )<CR>
inoremap [ <C-R>=SmartParens( '[' )<CR>
inoremap ] <C-R>=SmartParens( ']', '[' )<CR>
inoremap ) <C-R>=SmartParens( ')', '(' )<CR>
endif
" Insert an #include statement for the current/last symbol
inoremap <F5> <C-O>:call AddHeader()<CR>
" Insert a forward declaration for the current/last symbol
" FIXME: not implemented yet
" inoremap <S-F5> <C-O>:call AddForward()<CR>
" Switch between header and implementation files on ,h
nmap <silent> ,h :call SwitchHeaderImpl()<CR>
" Comment selected lines on ,c in visual mode
vmap ,c :s,^,//X ,<CR>:noh<CR>
" Uncomment selected lines on ,u in visual mode
vmap ,u :s,^//X ,,<CR>
" Insert an include guard based on the file name on ,i
nmap ,i :call IncludeGuard()<CR>o
" Insert simple debug statements into each method
nmap ,d :call InsertMethodTracer()<CR>
" Expand #i to #include <.h> or #include ".h". The latter is chosen
" if the character typed after #i is a dquote
" If the character is > #include <> is inserted (standard C++ headers w/o .h)
iab #i <C-R>=SmartInclude()<CR>
" Insert a stripped down CVS diff
iab DIFF <Esc>:call RunDiff()<CR>
" mark 'misplaced' tab characters
set listchars=tab:<3A>\ ,trail:<3A>
set list
set incsearch
function! SmartTab()
let col = col('.') - 1
if !col || getline('.')[col-1] !~ '\k'
return "\<Tab>"
else
return "\<C-P>"
endif
endfunction
function! SmartParens( char, ... )
if ! ( &syntax =~ '^\(c\|cpp\|java\)$' )
return a:char
endif
let s = strpart( getline( '.' ), 0, col( '.' ) - 1 )
if s =~ '//'
return a:char
endif
let s = substitute( s, '/\*\([^*]\|\*\@!/\)*\*/', '', 'g' )
let s = substitute( s, "'[^']*'", '', 'g' )
let s = substitute( s, '"\(\\"\|[^"]\)*"', '', 'g' )
if s =~ "\\([\"']\\|/\\*\\)"
return a:char
endif
if a:0 > 0
if strpart( getline( '.' ), col( '.' ) - 3, 2 ) == a:1 . ' '
return "\<BS>" . a:char
endif
if strpart( getline( '.' ), col( '.' ) - 2, 1 ) == ' '
return a:char
endif
return ' ' . a:char
endif
if a:char == '('
if strpart( getline( '.' ), col( '.' ) - 3, 2 ) == 'if' ||
\strpart( getline( '.' ), col( '.' ) - 4, 3 ) == 'for' ||
\strpart( getline( '.' ), col( '.' ) - 6, 5 ) == 'while' ||
\strpart( getline( '.' ), col( '.' ) - 7, 6 ) == 'switch'
return ' ( '
endif
endif
return a:char . ' '
endfunction
function! SwitchHeaderImpl()
let headers = '\.\([hH]\|hpp\|hxx\)$'
let impl = '\.\([cC]\|cpp\|cc\|cxx\)$'
let fn = expand( '%' )
if fn =~ headers
let list = glob( substitute( fn, headers, '.*', '' ) )
elseif fn =~ impl
let list = glob( substitute( fn, impl, '.*', '' ) )
endif
while strlen( list ) > 0
let file = substitute( list, "\n.*", '', '' )
let list = substitute( list, "[^\n]*", '', '' )
let list = substitute( list, "^\n", '', '' )
if ( fn =~ headers && file =~ impl ) || ( fn =~ impl && file =~ headers )
execute( "edit " . file )
return
endif
endwhile
echohl ErrorMsg
echo "File switch failed!"
echohl None
endfunction
function! IncludeGuard()
let guard = toupper( substitute( expand( '%' ), '\([^.]*\)\.h', '\1_h', '' ) )
call append( '^', '#define ' . guard )
+
call append( '^', '#ifndef ' . guard )
call append( '$', '#endif // ' . guard )
+
endfunction
function! SmartInclude()
let next = nr2char( getchar( 0 ) )
if next == '"'
return "#include \".h\"\<Left>\<Left>\<Left>"
endif
if next == '>'
return "#include <>\<Left>"
endif
return "#include <.h>\<Left>\<Left>\<Left>"
endfunction
function! MapIdentHeader( ident )
" Qt stuff
if a:ident =~ 'Q.*Layout'
return '<qtqlayout.h>'
elseif a:ident == 'QListViewItem' ||
\a:ident == 'QCheckListItem' ||
\a:ident == 'QListViewItemIterator'
return '<qlistview.h>'
elseif a:ident == 'QIconViewItem' ||
\a:ident == 'QIconDragItem' ||
\a:ident == 'QIconDrag'
return '<qiconview.h>'
elseif a:ident =~ 'Q.*Drag' ||
\a:ident == 'QDragManager'
return '<qdragobject.h>'
elseif a:ident == 'QMimeSource' ||
\a:ident == 'QMimeSourceFactory' ||
\a:ident == 'QWindowsMime'
return '<qmime.h>'
elseif a:ident == 'QPtrListIterator'
return '<qptrlist.h>'
elseif a:ident =~ 'Q.*Event'
return '<qevent.h>'
elseif a:ident == 'QTime' ||
\a:ident == 'QDate'
return '<qdatetime.h>'
elseif a:ident == 'QTimeEdit' ||
\a:ident == 'QDateTimeEditBase' ||
\a:ident == 'QDateEdit'
return '<qdatetimeedit.h>'
elseif a:ident == 'QByteArray'
return '<qcstring.h>'
elseif a:ident == 'QWidgetListIt'
return '<qwidgetlist.h>'
elseif a:ident == 'QTab'
return '<qtabbar.h>'
elseif a:ident == 'QColorGroup'
return '<qpalette.h>'
elseif a:ident == 'QActionGroup'
return '<qaction.h>'
elseif a:ident =~ 'Q.*Validator'
return '<qvalidator.h>'
elseif a:ident =~ 'QListBox.*'
return '<qlistbox.h>'
elseif a:ident == 'QChar' ||
\a:ident == 'QCharRef' ||
\a:ident == 'QConstString'
return '<qstring.h>'
elseif a:ident =~ 'QCanvas.*'
return '<qcanvas.h>'
elseif a:ident =~ 'QGL.*'
return '<qgl.h>'
elseif a:ident == 'QTableSelection' ||
\a:ident == 'QTableItem' ||
\a:ident == 'QComboTableItem' ||
\a:ident == 'QCheckTableItem'
return '<qtable.h>'
elseif a:ident == 'tqApp'
return '<qapplication.h>'
" KDE stuff
elseif a:ident == 'K\(Double\|Int\)\(NumInput\|SpinBox\)'
return '<knuminput.h>'
elseif a:ident == 'TDEConfigGroup'
return '<tdeconfigbase.h>'
elseif a:ident == 'TDEListViewItem'
return '<tdelistview.h>'
elseif a:ident =~ 'kd\(Debug\|Warning\|Error\|Fatal\|Backtrace\)'
return '<kdebug.h>'
elseif a:ident == 'kapp'
return '<tdeapplication.h>'
elseif a:ident == 'i18n' ||
\a:ident == 'I18N_NOOP'
return '<tdelocale.h>'
elseif a:ident == 'locate' ||
\a:ident == 'locateLocal'
return '<kstandarddirs.h>'
" aRts stuff
elseif a:ident =~ '\arts_\(debug\|info\|warning\|fatal\)'
return '<debug.h>'
" Standard Library stuff
elseif a:ident =~ '\(std::\)\?\(cout\|cerr\|endl\)'
return '<iostream>'
elseif a:ident =~ '\(std::\)\?is\(alnum\|alpha\|ascii\|blank\|graph\|lower\|print\|punct\|space\|upper\|xdigit\)'
return '<cctype>'
endif
let header = tolower( substitute( a:ident, '::', '/', 'g' ) ) . '.h'
let check = header
while 1
if filereadable( check )
return '"' . check . '"'
endif
let slash = match( check, '/' )
if slash == -1
return '<' . header . '>'
endif
let check = strpart( check, slash + 1 )
endwhile
endfunction
" This is a rather dirty hack, but seems to work somehow :-) (malte)
function! AddHeader()
let s = getline( '.' )
let i = col( '.' ) - 1
while i > 0 && strpart( s, i, 1 ) !~ '[A-Za-z0-9_:]'
let i = i - 1
endwhile
while i > 0 && strpart( s, i, 1 ) =~ '[A-Za-z0-9_:]'
let i = i - 1
endwhile
let start = match( s, '[A-Za-z0-9_]\+\(::[A-Za-z0-9_]\+\)*', i )
let end = matchend( s, '[A-Za-z0-9_]\+\(::[A-Za-z0-9_]\+\)*', i )
if end > col( '.' )
let end = matchend( s, '[A-Za-z0-9_]\+', i )
endif
let ident = strpart( s, start, end - start )
let include = '#include ' . MapIdentHeader( ident )
let line = 1
let incomment = 0
let appendpos = 0
let codestart = 0
while line <= line( '$' )
let s = getline( line )
if incomment == 1
let end = matchend( s, '\*/' )
if end == -1
let line = line + 1
continue
else
let s = strpart( s, end )
let incomment = 0
endif
endif
let s = substitute( s, '//.*', '', '' )
let s = substitute( s, '/\*\([^*]\|\*\@!/\)*\*/', '', 'g' )
if s =~ '/\*'
let incomment = 1
elseif s =~ '^' . include
break
elseif s =~ '^#include' && s !~ '\.moc"'
let appendpos = line
elseif codestart == 0 && s !~ '^$'
let codestart = line
endif
let line = line + 1
endwhile
if line == line( '$' ) + 1
if appendpos == 0
call append( codestart - 1, include )
call append( codestart, '' )
else
call append( appendpos, include )
endif
endif
endfunction
function! RunDiff()
echo 'Diffing....'
read! cvs diff -bB -I \\\#include | egrep -v '(^Index:|^=+$|^RCS file:|^retrieving revision|^diff -u|^[+-]{3})'
endfunction
function! CreateChangeLogEntry()
let currentBuffer = expand( "%" )
if exists( "g:EMAIL" )
let mail = g:EMAIL
elseif exists( "$EMAIL" )
let mail = $EMAIL
else
let mail = inputdialog( "Enter Name/Email for Changelog entry: " )
if mail == ""
echo "Aborted ChangeLog edit..."
return
endif
let g:EMAIL = mail
endif
if bufname( "ChangeLog" ) != "" && bufwinnr( bufname( "ChangeLog" ) ) != -1
execute bufwinnr( bufname( "ChangeLog" ) ) . " wincmd w"
else
execute "split ChangeLog"
endif
let lastEntry = getline( nextnonblank( 1 ) )
let newEntry = strftime("%Y-%m-%d") . " " . mail
if lastEntry != newEntry
call append( 0, "" )
call append( 0, "" )
call append( 0, newEntry )
endif
" like emacs, prepend the current buffer name to the entry. but unlike
" emacs I have no idea how to figure out the current function name :(
" (Simon)
if currentBuffer != ""
let newLine = "\t* " . currentBuffer . ": "
else
let newLine = "\t* "
endif
call append( 2, newLine )
execute "normal 3G$"
endfunction
function! AddQtSyntax()
if expand( "<amatch>" ) == "cpp"
syn keyword qtKeywords Q_SIGNALS Q_SLOTS emit foreach
syn keyword qtMacros Q_OBJECT Q_WIDGET TQ_PROPERTY TQ_ENUMS TQ_OVERRIDE TQ_CLASSINFO TQ_SETS SIGNAL SLOT
syn keyword qtCast qt_cast qobject_cast qvariant_cast qstyleoption_cast
syn keyword qtTypedef uchar uint ushort ulong TQ_INT8 TQ_UINT8 TQ_INT16 TQ_UINT16 TQ_INT32 TQ_UINT32 TQ_LONG TQ_ULONG TQ_INT64 TQ_UINT64 TQ_LLONG TQ_ULLONG pchar puchar pcchar qint8 quint8 qint16 quint16 qint32 quint32 qint64 quint64 qlonglong qulonglong
syn keyword kdeKeywords k_dcop k_dcop_Q_SIGNALS
syn keyword kdeMacros K_DCOP ASYNC
syn keyword cRepeat foreach
syn keyword cRepeat forever
hi def link qtKeywords Statement
hi def link qtMacros Type
hi def link qtCast Statement
hi def link qtTypedef Type
hi def link kdeKeywords Statement
hi def link kdeMacros Type
endif
endfunction
function! InsertMethodTracer()
:normal [[kf(yBjokdDebug() << ""()" << endl;
endfunction
function! UpdateMocFiles()
if &syntax == "cpp"
let i = 1
while i < 80
let s = getline( i )
if s =~ '^#include ".*\.moc"'
let s = substitute( s, '.*"\(.*\)\.moc"', '\1.h', '' )
if stridx( &complete, s ) == -1
let &complete = &complete . ',k' . s
endif
break
endif
let i = i + 1
endwhile
endif
endfunction
autocmd Syntax * call AddQtSyntax()
autocmd CursorHold * call UpdateMocFiles()