54 lines
		
	
	
		
			2.2 KiB
		
	
	
	
		
			VimL
		
	
	
	
	
	
			
		
		
	
	
			54 lines
		
	
	
		
			2.2 KiB
		
	
	
	
		
			VimL
		
	
	
	
	
	
| " Vim syntax file
 | |
| " Language:	Gedcom
 | |
| " Maintainer:	Paul Johnson (pjcj@transeda.com)
 | |
| " Version 1.059 - 23rd December 1999
 | |
| 
 | |
| " quit when a syntax file was already loaded
 | |
| if exists("b:current_syntax")
 | |
|   finish
 | |
| endif
 | |
| 
 | |
| syntax case match
 | |
| 
 | |
| syntax keyword gedcom_record ABBR ADDR ADOP ADR1 ADR2 AFN AGE AGNC ALIA ANCE
 | |
| syntax keyword gedcom_record ANCI ANUL ASSO AUTH BAPL BAPM BARM BASM BIRT BLES
 | |
| syntax keyword gedcom_record BLOB BURI CALN CAST CAUS CENS CHAN CHAR CHIL CHR
 | |
| syntax keyword gedcom_record CHRA CITY CONC CONF CONL CONT COPR CORP CREM CTRY
 | |
| syntax keyword gedcom_record DATA DEAT DESC DESI DEST DIV DIVF DSCR EDUC EMIG
 | |
| syntax keyword gedcom_record ENDL ENGA EVEN FAM FAMC FAMF FAMS FCOM FILE FORM
 | |
| syntax keyword gedcom_record GEDC GIVN GRAD HEAD HUSB IDNO IMMI INDI LANG MARB
 | |
| syntax keyword gedcom_record MARC MARL MARR MARS MEDI NATI NATU NCHI NICK NMR
 | |
| syntax keyword gedcom_record NOTE NPFX NSFX OBJE OCCU ORDI ORDN PAGE PEDI PHON
 | |
| syntax keyword gedcom_record PLAC POST PROB PROP PUBL QUAY REFN RELA RELI REPO
 | |
| syntax keyword gedcom_record RESI RESN RETI RFN RIN ROLE SEX SLGC SLGS SOUR
 | |
| syntax keyword gedcom_record SPFX SSN STAE STAT SUBM SUBN SURN TEMP TEXT TIME
 | |
| syntax keyword gedcom_record TITL TRLR TYPE VERS WIFE WILL
 | |
| syntax keyword gedcom_record DATE nextgroup=gedcom_date
 | |
| syntax keyword gedcom_record NAME nextgroup=gedcom_name
 | |
| 
 | |
| syntax case ignore
 | |
| 
 | |
| syntax region gedcom_id start="@" end="@" oneline contains=gedcom_ii, gedcom_in
 | |
| syntax match gedcom_ii "\I\+" contained nextgroup=gedcom_in
 | |
| syntax match gedcom_in "\d\+" contained
 | |
| syntax region gedcom_name start="" end="$" skipwhite oneline contains=gedcom_cname, gedcom_surname contained
 | |
| syntax match gedcom_cname "\i\+" contained
 | |
| syntax match gedcom_surname "/\(\i\|\s\)*/" contained
 | |
| syntax match gedcom_date "\d\{1,2}\s\+\(jan\|feb\|mar\|apr\|may\|jun\|jul\|aug\|sep\|oct\|nov\|dec\)\s\+\d\+"
 | |
| syntax match gedcom_date ".*" contained
 | |
| 
 | |
| " Define the default highlighting.
 | |
| " Only when an item doesn't have highlighting yet
 | |
| 
 | |
| hi def link gedcom_record Statement
 | |
| hi def link gedcom_id Comment
 | |
| hi def link gedcom_ii PreProc
 | |
| hi def link gedcom_in Type
 | |
| hi def link gedcom_name PreProc
 | |
| hi def link gedcom_cname Type
 | |
| hi def link gedcom_surname Identifier
 | |
| hi def link gedcom_date Constant
 | |
| 
 | |
| 
 | |
| let b:current_syntax = "gedcom"
 |