function WikiLinkFollow()
	let link = expand('<cword>')
	if link =~# '[A-Z]\+[a-z_]*[a-z]\+[a-z_]*[A-Z][A-Za-z_]*'
		let fpath = expand('%:p:h')."/".link.".wiki"
		execute 'edit' fpath
		return 1
	else
		return 0
	endif
endfunction

function WikiLinksInit()
	syntax match Underlined "[A-Z]\+[a-z_]*[a-z]\+[a-z_]*[A-Z][A-Za-z_]*"
	nnoremap <CR> :call WikiLinkFollow()<Bar>nohlsearch<CR>
	map <Leader>n /\<[A-Z]\+[a-z_]*[a-z]\+[a-z_]*[A-Z][A-Za-z_]*\><CR>:nohlsearch<CR>
	map <Leader>p ?\<[A-Z]\+[a-z_]*[a-z]\+[a-z_]*[A-Z][A-Za-z_]*\><CR>:nohlsearch<CR>
endfunction

autocmd BufNewFile,BufRead *.wiki call WikiLinksInit()