Version 0.5

Added: roman and Roman counters
Fixed: various bugs with :FootnoteCommands

Author: vvizzo

plugin/vimfootnotes.vim

@@ -1,9 +1,10 @@
 " Author:	Mikolaj Machowski <mikmach@wp.pl>
-" Version:	0.3
+" Version:	0.6
 " Description:	Footnotes in Vim
 " Installation: See below
-" Last change: czw wrz 26 09:00  2002 C
+" Last change: pon wrz 30 09:00  2002 C
 " 
+" Help part:
 " Inspired by Emmanuel Touzery tip:
 " http://vim.sourceforge.net/tip_view.php?tip_id=332 
 " and discussion below (thanks to Luc for pluginization hints) 
@@ -26,13 +27,15 @@
 "
 "
 "    Footnotes are placed at the end of the file but above signature delimiter
-"    (is one exists). 
+"    (if one exists). 
 "
 " Settings:
-" g:vimfootnotetype - possible values:
+" b:vimfootnotetype - possible values:
 " 	arabic (default) - [1] [2] [3] ...
 " 	alpha  - [a] [b] ... [z] [aa] [bb] ... [zz] [a] ...
 "   Alpha  - as above but uppercase [A] ...
+"   roman  - [i] [ii] [iii] displayed properly up to 89
+"   Roman  - as above but uppercase [I] ... 
 "   star   - [*] [**] [***] ...	
 "
 " Additional commands:
@@ -46,53 +49,76 @@
 "	Decrease footnote counter by 1
 "	:FootnoteUndo	 
 " FootnoteMeta:
-" 	Change type of the footnotes and restart counter (1, a, A, *)
+" 	Change type of the footnotes and restart counter (1, a, A, i, I, *)
 " 	:FootnoteMeta
-" 		If your previous footnote type was alpha, Alpha or star new type will
-" 		be arabic.
+" 		If your previous footnote type was alpha, Alpha, roman, Roman or star
+" 		new type will be arabic.
 " 		If your previous footnote type was arabic new type will be alpha.
 " 	:FootnoteMeta name_of_the_type
 " 		Change footnote type to name_of_the_type. If name_of_the_type is the
 " 		same as	your current footnote type nothing would be changed.
+" 		You can change your default type of footnote before inserting first
+" 		footnote.	
 " FootnoteRestore:
 " 	Restore previous footnote type and counter. Unfortunately there is no easy
 " 	way to sort footnotes at the end of file without handmade :!sort on marked
 " 	lines (it doesn't work for 'star' type).
 " 	:FootnoteRestore	
 "
 " For easier work with this commands I would suggest place this lines in your
-" vimrc (they offer very nice competion of Vim commands):	
+" vimrc (they offer very nice completion of Vim commands):	
 "	set laststatus=2
 "	set wildmode=longest,list
 "	set wildmenu
 "
 " And/or map :FootnoteComs for something you like.
 "
 """""""""""""""""""""""""""""""""""""""""""""""""""
-if exists("g:loaded_footnote_vim") | finish | endif
-	let g:loaded_footnote_vim = 1
 
+if exists("b:loaded_footnote_vim") | finish | endif
+	let b:loaded_footnote_vim = 1
+
+let s:cpo_save = &cpo
+set cpo&vim
+
+if !exists("g:vimfootnotetype")
+	let g:vimfootnotetype = "arabic"
+endif
+if !exists("g:vimfootnotenumber")
+	let g:vimfootnotenumber = 0
+endif
+
+" Mappings
 if !hasmapto('<Plug>AddVimFootnote', 'i')
 	imap <Leader>f <Plug>AddVimFootnote
 endif
+if !hasmapto('<Plug>AddVimFootnote', 'n')
+    nmap <Leader>f <Plug>AddVimFootnote
+endif
+
 if !hasmapto('<Plug>ReturnFromFootnote', 'i')
-    imap <leader>r <Plug>ReturnFromFootnote
+    imap <Leader>r <Plug>ReturnFromFootnote
+endif
+if !hasmapto('<Plug>ReturnFromFootnote', 'n')
+    nmap <Leader>r <Plug>ReturnFromFootnote
 endif
 
-imap <Plug>AddVimFootnote <C-O>:call <SID>VimFootnotes()<CR>
-imap <Plug>ReturnFromFootnote <C-O>:q<CR><Right>
+nnoremap <Plug>AddVimFootnote :call <SID>VimFootnotes('a')<CR>
+inoremap <Plug>AddVimFootnote <C-O>:call <SID>VimFootnotes('a')<CR>
+
+inoremap <Plug>ReturnFromFootnote <C-O>:q<CR><Right>
+noremap <Plug>ReturnFromFootnote :q<CR><Right>
 
 " :Footnote commands
 command! -nargs=1 FootnoteNumber call <sid>VimFootnoteNumber(<q-args>)
 command! -nargs=0 FootnoteNumberRestore call <sid>VimFootnoteNumberRestore()
-command! -nargs=0 FootnoteUndo 
-			\ | let g:vimfootnotenumber = g:vimfootnotenumber - 1
+command! -nargs=0 FootnoteUndo let g:vimfootnotenumber = g:vimfootnotenumber - 1
 command! -nargs=? FootnoteMeta call <sid>VimFootnoteMeta(<f-args>)
 command! -nargs=0 FootnoteRestore call <sid>VimFootnoteRestore()
 
 function! s:VimFootnoteNumber(newnumber)
 	let g:oldvimfootnotenumber = g:vimfootnotenumber
-	let g:vimfootnotenumber = a:newnumber
+	let g:vimfootnotenumber = a:newnumber - 1
 endfunction
 
 function! s:VimFootnoteNumberRestore()
@@ -132,15 +158,12 @@ function! s:VimFootnoteRestore()
 		let g:oldvimfootnotetype = oldvimfootnotetype2
 		let g:oldvimfootnotenumber = oldvimfootnotenumber2
 	else
-		echomsg "You didn't chang footnote type. Yet."
+		echomsg "You didn't change footnote type. Yet."
 		return 0
 	endif
 endfunction
 
 function! s:VimFootnoteType(footnumber)
-	if !exists("g:vimfootnotetype")
-		let g:vimfootnotetype = "arabic"
-	endif
 	if (g:vimfootnotetype =~ "alpha\\|Alpha")
 		if (g:vimfootnotetype == "alpha")
 			let upper = "0"
@@ -158,34 +181,86 @@ function! s:VimFootnoteType(footnumber)
 	elseif (g:vimfootnotetype == "star")
 		let starnumber = 1
 		let ftnumber = ""
-		while starnumber <= a:footnumber
-			let ftnumber = ftnumber."*"
-			let starnumber = starnumber+1
+		while (starnumber <= a:footnumber)
+			let ftnumber = ftnumber . '*'
+			let starnumber = starnumber + 1
 		endwhile
+	elseif (g:vimfootnotetype =~ "roman\\|Roman")
+		let ftnumber = ""
+		let oneroman = ""
+		let counter = g:vimfootnotenumber
+		if (counter >= 50)
+			let ftnumber = "l"
+			let counter = counter - 50
+		endif
+		if (counter > 39 && counter < 50)
+			let ftnumber = "xl"
+			let counter = counter - 40
+		endif
+		if (counter > 10)
+			let tenmodulo = counter % 10
+			let number_roman_ten = (counter - tenmodulo) / 10
+			let romanten = 1
+			while (romanten <= number_roman_ten)
+				let ftnumber = ftnumber.'x'
+				let romanten = romanten + 1
+			endwhile
+		elseif (counter == 10)
+			let ftnumber = ftnumber.'x'
+			let tenmodulo = ""
+		else
+			let tenmodulo = counter
+		endif
+		if (tenmodulo == 1)
+			let oneroman = 'i'
+		elseif (tenmodulo == 2)
+			let oneroman = 'ii'
+		elseif (tenmodulo == 3)
+			let oneroman = 'iii'
+		elseif (tenmodulo == 4)
+			let oneroman = 'iv'
+		elseif (tenmodulo == 5)
+			let oneroman = 'v'
+		elseif (tenmodulo == 6)
+			let oneroman = 'vi'
+		elseif (tenmodulo == 7)
+			let oneroman = 'vii'
+		elseif (tenmodulo == 8)
+			let oneroman = 'viii'
+		elseif (tenmodulo == 9)
+			let oneroman = 'ix'
+		elseif (tenmodulo == 0)
+			let oneroman = ''
+		endif
+		let ftnumber = ftnumber . oneroman
+		if (g:vimfootnotetype == "Roman")
+			let ftnumber = substitute(ftnumber, ".*", "\\U\\0", "g")
+		endif
 	else
 		let ftnumber = a:footnumber
 	endif
 	return ftnumber
 endfunction
 
-function! s:VimFootnotes()
-	if exists("g:vimfootnotenumber")
+function! s:VimFootnotes(appendcmd)
+	if (g:vimfootnotenumber != 0)
 		let g:vimfootnotenumber = g:vimfootnotenumber + 1
-		let b:vimfootnotemark = <sid>VimFootnoteType(g:vimfootnotenumber)
+		let g:vimfootnotemark = <sid>VimFootnoteType(g:vimfootnotenumber)
 		let cr = ""
 	else
 		let g:vimfootnotenumber = 1
-		let b:vimfootnotemark = <sid>VimFootnoteType(g:vimfootnotenumber)
+		let g:vimfootnotemark = <sid>VimFootnoteType(g:vimfootnotenumber)
 		let cr = "\<cr>"
 	endif
-	exe "normal a[".b:vimfootnotemark."]\<esc>" 
+	exe "normal ".a:appendcmd."[".g:vimfootnotemark."]\<esc>" 
 	:below 4split
 	normal G
 	if search("^-- $", "bW")
-		exe "normal O".cr."[".b:vimfootnotemark."] "
+		exe "normal O".cr."[".g:vimfootnotemark."] "
 	else
-		exe "normal o".cr."[".b:vimfootnotemark."] "
+		exe "normal o".cr."[".g:vimfootnotemark."] "
 	endif
 	startinsert!
 endfunction
 
+let &cpo = s:cpo_save