if $TITFICHE_MODE
	set isfname+=:
	set includeexpr=substitute(v:fname,'/','','')
	cd $TITFICHE_HOME
	nnoremap <C-l> "zciw(/<C-r>#)<Esc>%i[<C-r>z]<Esc>%
	vnoremap <C-l> "zc(/<C-r>#)<Esc>%i[<C-r>z]<Esc>%
	inoremap <C-l> (/<C-r>#)<Esc>%i[]<Left>
endif