[Vim-latex-cvs] vimfiles/ftplugin/latex-suite/packages polski,1.3,1.4

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Update of /cvsroot/vim-latex/vimfiles/ftplugin/latex-suite/packages
In directory sc8-pr-cvs1:/tmp/cvs-serv12585

Modified Files:
	polski 
Log Message:
full version of support for polski package

Index: polski
===================================================================
RCS file: /cvsroot/vim-latex/vimfiles/ftplugin/latex-suite/packages/polski,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** polski	23 Nov 2002 21:36:28 -0000	1.3
--- polski	25 Nov 2002 00:01:05 -0000	1.4
***************
*** 1,11 ****
! " Maintainer: Mikolaj Machowski <mi...@wp...>
! " Last Change: sob lis 23 09:00  2002 C
  
  let g:TeX_package_option_polski = 'OT1,OT4,T1,plmath,nomathsymbols,MeX'
  let g:TeX_package_polski = 
  \'sbr:Dywiz&Ska,'.
  \'nor:dywiz,'.
- \'nor:pauza,'.
  \'nor:ppauza,'.
  \'nor:prefixing,'.
  \'nor:nonprefixing,'.
--- 1,31 ----
! " Author: Mikolaj Machowski <mi...@wp...>
! " (c) Copyright by Mikolaj Machowski 2002
! " Last Change: pon lis 25 12:00  2002 C
! " License: Vim Charityware
! "
! " Plik jest w kodowaniu iso-8859-2. Je¶li chcesz go uzywac w MS-Windows musisz
! " go przekonwertowac na cp-1250. 
! "
! " Plik ten jest czê¶ci± vim-latexSuite, ale:
! " Nie u¿ywaj±cy vim-latexSuite (http://vim-latex.sourceforge.net) mog± wyci±æ
! " oznaczon± czê¶æ. Reszta mo¿e byæ kopiowana jako osobny plik pod warunkiem
! " niezmieniania tej notki i informacji o prawach autorskich.
! "
! " This file is in iso-8859-2 encoding. If you want to use it in MS-Windows you
! " have to convert it to cp-1250.
! "
! " This file is part of vim-latexSuite but:
! " Those who do not use vim-latexSuite (http://vim-latex.sourceforge.net) can
! " cut off marked part. Rest of the file can be copied as separate file under
! " condition of leaving this notice and information about copyrights unchanged.
  
+ " --------8<-------------
+ " Czesc odpowiedzialna za menu
  let g:TeX_package_option_polski = 'OT1,OT4,T1,plmath,nomathsymbols,MeX'
  let g:TeX_package_polski = 
  \'sbr:Dywiz&Ska,'.
  \'nor:dywiz,'.
  \'nor:ppauza,'.
+ \'nor:pauza,'.
  \'nor:prefixing,'.
  \'nor:nonprefixing,'.
***************
*** 20,24 ****
  \'nor:tan,'.
  \'nor:tanh,'.
! \'nor:bra:arc,'.
  \'nor:ctg,'.
  \'nor:ctgh,'.
--- 40,44 ----
  \'nor:tan,'.
  \'nor:tanh,'.
! \'bra:arc,'.
  \'nor:ctg,'.
  \'nor:ctgh,'.
***************
*** 26,66 ****
  \'nor:tgh'
  
  function! TPackagePolskiTylda()
  	call IMAP (" ---", "~---", "tex")
  endfunction
  call TPackagePolskiTylda()
  " Zmodyfikowana i rozwinieta funkcja Andrzeja Ostruszki
! " iunmap <Space> 
! inoremap <buffer> <silent> <Space> <Space><C-R>=<SID>TeXSpace()<CR>
  inoremap <buffer> <silent> <S-Space> ~
  inoremap <buffer> <silent> <C-Space> <Space>
! function! s:TeXSpace()
  	 if synIDattr(synID(line('.'),col('.')-1,0),"name") =~ '^texMath'
! 		 return ''
  	 else
! 		let g:place = strpart(getline('.'), col('.') - 5, 4)
! 		if g:place =~? '^.\?[ ~(|]\?[aiouwz] $\|^[ ~]\?\u\. $'
  			return "\<BS>~"
! 		elseif getline('.') =~? '\(\s\|^\|\~\)\(str\.\|ryc\.\|rys\.\|tab\.\|art\.\|vol\.\|nr\|tabl\.\|rozdz\.\|ss\.\|s\.\|t\.\|z\.\|prof\.\|hab\.\|red\.\|min\.\|gen\.\|kpt\.\|przew\.\|p³k\|mjr\|mgr\|bp\|ks\.\|o\+\.\|¶w\.\|dr\)\s\+$'
  			return "\<BS>~"
! 		elseif getline('.') =~? '\d\s\+r\.\s\+$'
! 			s/\(\d\)\s\+r\.\s\+$/\1\~r\.  /ei
! 			normal A
! 			return ''
! 		elseif getline('.') =~? '[IVXLCM]\s\+w\.\s\+$'
! 			s/\([IVXLCM]\)\s\+w\.\s\+$/\1\~w\.  /ei
! 			normal A
! 			return ''
! 		elseif getline('.') =~? '\(\d\|mln\|mld\|tys\.\)\s\+\(z³\|gr\|ha\|t\|mies\|godz\|min\|sek\|cm\|km\|mln\|mld\|tys\.\)\.\?\s\+$'
! 			s/\(\d\|mln\|mld\|tys\.\)\s\+\(z³\|gr\|ha\|m\|t\|mies\|godz\|min\|sek\|cm\|km\|mln\|mld\|tys\.\)\(\.\?\)\s\+$/\1\~\2\3  /ei
! 			normal A
! 			return ''
! 		elseif getline('.') =~? '[a-z±æê³ñó¶¿¼]-[a-z±æê³ñó¶¿¼]'
! 			s/\([a-z±æê³ñó¶¿¼]\)-\([a-z±æê³ñó¶¿¼]\)/\1\\dywiz \2/ei
! 			normal A
! 			return ''
  		endif
! 		return ''
  	endif
  endfunction 
  
--- 46,129 ----
  \'nor:tgh'
  
+ " To wymaga calego pakietu vim-latexSuite - zakomentuj lub wytnij je¶li nie
+ " u¿ywasz (albo go ¶ci±gnij z http://vim-latex.sf.net)
  function! TPackagePolskiTylda()
  	call IMAP (" ---", "~---", "tex")
  endfunction
  call TPackagePolskiTylda()
+ " --------8<-------------
+ 
  " Zmodyfikowana i rozwinieta funkcja Andrzeja Ostruszki
! " Z dodatkiem od Benjiego Fishera (sprawdzanie sk³adni)
! "
! " Spacja
! inoremap <buffer> <silent> <Space> <Space><C-R>=<SID>Tex_polish_space()<CR>
! 
! " Wymuszenie tyldy
  inoremap <buffer> <silent> <S-Space> ~
+ 
+ " Wymuszenie zwyklej spacji
  inoremap <buffer> <silent> <C-Space> <Space>
! function! s:Tex_polish_space()
! 	"Nic magicznego w matematyce
  	 if synIDattr(synID(line('.'),col('.')-1,0),"name") =~ '^texMath'
! 		 return "\<BS> "
  	 else
! 		let s:col = col('.')
! 		let s:linelength = strlen(getline('.')) + 1
! 		" Wstaw tylde po spojnikach
! 		if strpart(getline('.'), col('.') - 4, 3) =~? '^[ ~(]\?[aiouwz] $'
  			return "\<BS>~"
! 	    " Wstaw tylde po inicjalach - konkretnie po pojedynczych wielkich
! 		" literach i kropce. Obs³uguje wiekszosc sytuacji.
! 		elseif strpart(getline('.'), col('.') - 5, 4) =~? '^[ ~]\?\u\. $'
  			return "\<BS>~"
! 		" Wstaw tylde po tytulach, skrotach bibliograficznych, podpisach
! 		elseif strpart(getline('.'), col('.') - 9, 8) =~? '\(\s\|^\|\~\)\(str\.\|ryc\.\|rys\.\|tab\.\|art\.\|vol\.\|nr\|tabl\.\|rozdz\.\|ss\.\|s\.\|t\.\|z\.\|sir\|prof\.\|hab\.\|red\.\|min\.\|gen\.\|kpt\.\|przew\.\|p³k\|mjr\|mgr\|bp\|ks\.\|o\+\.\|¶w\.\|dr\)\s\+$'
! 			return "\<BS>~"
! 		" Wstaw tylde miedzy rokiem, wiekiem, a odpowiednim skrotem
! 		elseif strpart(getline('.'), col('.') - 8, 7) =~? '[0-9IVXLCM]\s\+\(r\|w\)\.[^a-z±æê³ñó¶¿¼]\{-}\s\+$'
! 			s/[0-9IVXLCM]\zs\s\+\ze\(w\|r\)\.[^a-z±æê³ñó¶¿¼]\{-}\s\+\%#/\~/ei
! 			exe 'normal '.s:col.'|'
! 			if s:col == s:linelength
! 				return "\<Del> "
! 			else
! 				return "\<Left> \<Del>"
! 			endif
! 		" Wstaw tylde miedzy liczba a miara, itd.
! 		elseif strpart(getline('.'), col('.') - 10, 9) =~? '\(\d\|mln\|mld\|tys\.\)\s\+\(z³\|gr\|ha\|t\|mies\|godz\|min\|sek\|cm\|km\|mln\|mld\|tys\.\)[^a-z±æê³ñó¶¿¼]\{-}\s\+$'
! 			s/\(\d\|mln\|mld\|tys\.\)\zs\s\+\ze\(z³\|gr\|ha\|m\|t\|mies\|godz\|min\|sek\|cm\|km\|mln\|mld\|tys\.\)[^a-z±æê³ñó¶¿¼]\{-}\s\+\%#/\~/ei
! 			exe 'normal '.s:col.'|'
! 			if s:col == s:linelength
! 				return "\<Del> "
! 			else
! 				return "\<Left> \<Del>"
! 			endif
! 		" Rozwin myslnik w zbitkach w '\dywiz ':
! 		" bialo-czerwony -> bialo\dywiz czerwony
! 		elseif strpart(getline('.'), col('.') - 20, 19) =~? '[a-z±æê³ñó¶¿¼]-[a-z±æê³ñó¶¿¼]\{-}[^a-z±æê³ñó¶¿¼]\{-}\s\+$'
! 			s/[a-z±æê³ñó¶¿¼]\zs-\ze[a-z±æê³ñó¶¿¼]\{-}[^a-z±æê³ñó¶¿¼]\{-}\s\+\%#/\\dywiz /ei
! 			let colb = s:col + 6
! 			exe 'normal '.colb.'|'
! 			if s:col == s:linelength
! 				return "\<Del> "
! 			else
! 				return "\<Left> \<Del>"
! 			endif
! 		" Rozwin '--' miedzy liczbami w '\ppauza ':
! 		" 39--45 -> 39\ppauza 45
! 		elseif strpart(getline('.'), col('.') - 10, 9) =~? '[0-9IVXLCM]--[0-9IVXLCM]\{-}[^0-9IVXLCM]\{-}\s\+$'
! 			s/[0-9IVXLCM]\zs--\ze[0-9IVXLCM]\{-}[^0-9IVXLCM]\{-}\s\+\%#/\\ppauza /ei
! 			let colb = s:col + 6
! 			exe 'normal '.colb.'|'
! 			if s:col == s:linelength
! 				return "\<Del> "
! 			else
! 				return "\<Left> \<Del>"
! 			endif
  		endif
! 		" Tu koncz komentowanie ostatniej sekcji
  	endif
+ 	return "\<BS> "
  endfunction