1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
" accents in SGML
" $FreeBSD$
" don't do it twice
if !exists("autocommands_accents_sgml")
let autocommands_accents_sgml = 1
" on reads, have a native (iso-8859-1) representation
autocmd BufReadPost,FileReadPost *.sgml,*.ent,*.html '[,']!$HOME/.vim/sgml2accents.pl
" to correct some accents
autocmd BufEnter * map! ^a �|map! ^e �|map! ^i �|map! ^o �|map! ^u �
" on writes, have the SGML syntax
autocmd BufWritePre,FileWritePre *.sgml,*.ent,*.html '[,']!$HOME/.vim/accents2sgml.pl
" then go back with native accents
autocmd BufWritePost,FileWritePost *.sgml,*.ent,*.html '[,']!$HOME/.vim/sgml2accents.pl
endif
|
