Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

First commit of base files

  • Loading branch information...
commit 4622a6b12ea8cfa9cb2dd6409045f12e1acbc1aa 1 parent 2e59456
@hsitz authored
View
28 _vimrc
@@ -0,0 +1,28 @@
+set nocompatible
+source $VIMRUNTIME/vimrc_example.vim
+source $VIMRUNTIME/mswin.vim
+behave mswin
+set foldmethod=manual
+filetype off
+call pathogen#runtime_append_all_bundles()
+filetype plugin indent on
+colorscheme org_dark
+
+au BufWrite *.org :PreWriteTags
+au BufWritePost *.org :PostWriteTags
+
+function SetFileType()
+ if expand("%:e") == 'org'
+ execute "set filetype=org"
+ PreLoadTags
+ endif
+ if !exists('g:in_agenda_search')
+ setlocal foldmethod=expr
+ set foldlevel=1
+ endif
+ syntax on
+ colorscheme org_dark
+endfunction
+
+au! BufRead,BufNewFile *.org call SetFileType()
+
View
171 autoload/calutil.vim
@@ -0,0 +1,171 @@
+" calutil.vim: some calendar utilities
+" Author: Charles E. Campbell, Jr.
+" Date: Oct 08, 2008
+" Version: 3b ASTRO-ONLY
+" ---------------------------------------------------------------------
+if exists("loaded_calutil")
+ finish
+endif
+let g:loaded_calutil= "v3b"
+if v:version < 700
+ echohl WarningMsg
+ echo "***warning*** this version of calutil needs vim 7.0"
+ echohl Normal
+ finish
+endif
+
+function! calutil#dayname(date)
+ return calutil#DayOfWeek(split(a:date,'-')[0],split(a:date,'-')[1],split(a:date,'-')[2],2)
+endfunction
+function! calutil#dow(date)
+ return calutil#DayOfWeek(split(a:date,'-')[0],split(a:date,'-')[1],split(a:date,'-')[2],1)
+endfunction
+
+function! calutil#jul(date)
+ return calutil#Cal2Jul(split(a:date,'-')[0],split(a:date,'-')[1],split(a:date,'-')[2])
+endfunction
+
+function! calutil#cal(julian)
+ return calutil#Jul2Cal(a:julian)
+endfunction
+" ---------------------------------------------------------------------
+" DayOfWeek: {{{1
+" Usage : call calutil#DayOfWeek(y,m,d,[0|1|2])
+" g:CalUtilDayOfWeek: if 0-> integer (default)
+" 1-> 3-letter English abbreviation for name of day
+" 2-> English name of day
+" Returns
+" g:CalUtilDayOfWeek
+" ---------
+" 1 : 0 1 2 3 4 5 6
+" 2 : Mon Tue Wed Thu Fri Sat Sun
+" 3 : Monday Tuesday Wednesday Thursday Friday Saturday Sunday
+fun! calutil#DayOfWeek(y,m,d,...)
+ if a:0 > 0
+ let g:CalUtilDayOfWeek= a:1
+ endif
+
+ let z = calutil#Cal2Jul(a:y,a:m,a:d)
+ if z >= 0
+ let z= z%7
+ else
+ let z= 7 - (-z%7)
+ endif
+
+ if exists("g:CalUtilDayOfWeek")
+ if g:CalUtilDayOfWeek == 2
+ let dow0="Mon"
+ let dow1="Tue"
+ let dow2="Wed"
+ let dow3="Thu"
+ let dow4="Fri"
+ let dow5="Sat"
+ let dow6="Sun"
+ return dow{z}
+ elseif g:CalUtilDayOfWeek == 3
+ let dow0="Monday"
+ let dow1="Tuesday"
+ let dow2="Wednesday"
+ let dow3="Thursday"
+ let dow4="Friday"
+ let dow5="Saturday"
+ let dow6="Sunday"
+ return dow{z}
+ endif
+ endif
+ return z
+endfun
+
+" ---------------------------------------------------------------------
+" calutil#Cal2Jul: convert a (after 9/14/1752) Gregorian calendar date to Julian day {{{1
+" (on,before " ) Julian calendar date to Julian day
+" (proleptic)
+fun! calutil#Cal2Jul(y,m,d)
+ let year = a:y
+ let month= a:m
+ let day = a:d
+
+ " there is no year zero
+ if year == 0
+ let year= -1
+ elseif year < 0
+ let year= year + 1
+ endif
+
+ let julday= day - 32075 +
+ \ 1461*(year + 4800 + (month - 14)/12)/4 +
+ \ 367*(month - 2 - ((month - 14)/12)*12)/12 -
+ \ 3*((year + 4900 + (month - 14)/12)/100)/4
+
+ " 2361221 == Sep 2, 1752, which was followed immediately by
+ " Sep 14, 1752 (in England). Various countries
+ " adopted the Gregorian calendar at different times.
+ if julday <= 2361221
+ let a = (14-month)/12
+ let y = year + 4800 - a
+ let m = month + 12*a - 3
+ let julday = day + (153*m + 2)/5 + y*365 + y/4 - 32083
+ endif
+ return julday
+endfun
+
+" ---------------------------------------------------------------------
+" calutil#Jul2Cal: convert a Julian day to a date: {{{1
+" Default year/month/day
+" julday,1 julday,"ymd" year/month/day
+" julday,2 julday,"mdy" month/day/year
+" julday,3 julday,"dmy" day/month/year
+fun! calutil#Jul2Cal(julday,...)
+ let julday= a:julday
+
+ if julday <= 2361221
+ " Proleptic Julian Calendar:
+ " 2361210 == Sep 2, 1752, which was followed immediately by Sep 14, 1752
+ " in England
+ let c = julday + 32082
+ let d = (4*c + 3)/1461
+ let e = c - (1461*d)/4
+ let m = (5*e + 2)/153
+ let day = e - (153*m + 2)/5 + 1
+ let month = m + 3 - 12*(m/10)
+ let year = d - 4800 + m/10
+ if year <= 0
+ " proleptic Julian Calendar: there *is* no year 0!
+ let year= year - 1
+ endif
+
+ else
+ " Gregorian calendar
+ let t1 = julday + 68569
+ let t2 = 4*t1/146097
+ let t1 = t1 - (146097*t2 + 3)/4
+ let yr = 4000*(t1 + 1)/1461001
+ let t1 = t1 - (1461*yr/4 - 31)
+ let mo = 80*t1/2447
+ let day = (t1 - 2447*mo/80)
+ let t1 = mo/11
+ let month = (mo + 2 - 12*t1)
+ let year = (100*(t2 - 49) + yr + t1)
+ endif
+
+ let month = (month<10) ? '0' . month : month
+ let day = (day < 10) ? '0' . day : day
+
+ if a:0 > 0
+ if a:1 == 1 || a:1 =~ "ymd"
+ return year."-".month."/".day
+ elseif a:1 == 2 || a:1 =~ "mdy"
+ return month."-".day."/".year
+ elseif a:1 == 3 || a:1 =~ "dmy"
+ return day."-".month."/".year
+ else
+ return year."-".month."/".day
+ endif
+ else
+ return year."-".month."-".day
+ endif
+endfun
+
+" ---------------------------------------------------------------------
+" vim: ts=4 fdm=marker
+
View
114 colors/org_dark.vim
@@ -0,0 +1,114 @@
+let g:colors_name="org_dark"
+"hi normal guifg=#11cc11 guibg=black ctermfg=green ctermbg=black
+hi normal guifg=#bbbbbb guibg=black ctermfg=green ctermbg=black
+hi StatusLine guifg=white guibg=black ctermfg=white ctermbg=black
+hi StatusLineNC guifg=white guibg=black ctermfg=white ctermbg=black
+hi VertSplit guifg=white guibg=black ctermfg=white ctermbg=black
+hi FoldColumn guifg=black guibg=NONE
+hi SignColumn guibg=black
+
+hi OL1 guifg=#7744ff guibg=black ctermfg=blue
+hi OL2 guifg=#aaaa22 guibg=black ctermfg=brown
+hi OL3 guifg=#00ccff guibg=black ctermfg=cyan
+hi OL4 guifg=#999999 guibg=black gui=italic ctermfg=gray
+hi OL5 guifg=#eeaaee guibg=black ctermfg=lightgray
+"hi OL1 guifg=#eeeeee ctermfg=white
+"hi OL2 guifg=#ee0000 ctermfg=white
+"hi OL3 guifg=#00ccff ctermfg=white
+"hi OL4 guifg=#6633ff ctermfg=magenta
+hi OL5 guifg=#eeaaee ctermfg=cyan
+hi OL6 guifg=#9966ff ctermfg=yellow
+hi OL7 guifg=#dd99dd ctermfg=red
+hi OL8 guifg=cyan ctermfg=grey
+hi OL9 guifg=magenta ctermfg=blue
+hi Folded gui=bold guifg=#6633ff guibg=#111111 ctermfg=blue
+"hi link OLB1 Folded
+hi WarningMsg gui=bold guifg=#aaaa22 guibg=#111111 ctermfg=brown
+"hi link OLB2 WarningMsg
+hi WildMenu gui=bold guifg=#00ccff guibg=#111111 ctermfg=cyan
+"hi link OLB3 WildMenu
+hi DiffAdd gui=bold guifg=#999999 gui=italic guibg=#111111 ctermfg=gray
+"hi link OLB4 DiffAdd
+hi DiffChange gui=bold guifg=#eeaaee guibg=#111111 ctermfg=lightgray
+"hi Folded gui=bold guifg=#eeeeee guibg=black ctermfg=white
+""hi link OLB1 Folded
+"hi WarningMsg gui=bold guifg=#ee0000 guibg=black ctermfg=white
+""hi link OLB2 WarningMsg
+"hi WildMenu gui=bold guifg=#00ccff guibg=black ctermfg=white
+""hi link OLB3 WildMenu
+"hi DiffAdd gui=bold guifg=#6633ff guibg=black ctermfg=magenta
+""hi link OLB4 DiffAdd
+"hi DiffChange gui=bold guifg=#eeaaee guibg=black ctermfg=cyan
+"hi link OLB5 DiffChange
+hi OLB6 gui=bold guifg=#9966ff ctermfg=yellow
+hi OLB7 gui=bold guifg=#dd99dd ctermfg=red
+hi OLB8 gui=bold guifg=cyan ctermfg=grey
+hi OLB9 gui=bold guifg=magenta ctermfg=blue
+"hi OL1 guifg=#ee0000 ctermfg=white
+"hi OL2 guifg=#dddddd ctermfg=white
+"hi OL3 guifg=#ee3333 ctermfg=magenta
+"hi OL4 guifg=#77eeff ctermfg=cyan
+"hi OL5 guifg=#9966ff ctermfg=yellow
+"hi OL6 guifg=#dd99dd ctermfg=red
+"hi OL7 guifg=cyan ctermfg=grey
+"hi OL8 guifg=magenta ctermfg=blue
+"hi OL9 guifg=gray ctermfg=magenta
+"hi OL9 guifg=white ctermfg=white
+
+syn match Props '^\s*:\s*\S\+\s*:'
+hi Props guifg=#ffa0a0
+hi T1 guifg=#00ee00
+hi T2 guifg=#ffff33
+hi T3 guifg=#99cc33
+hi T4 guifg=#99cc66
+"
+" colors for folded sections
+"hi Folded gui=bold guifg=white guibg=NONE ctermfg=white ctermbg=darkgreen
+"hi FoldLevel1 gui=bold guifg=white guibg=NONE ctermfg=lightcyan ctermbg=black
+"hi FoldLevel2 gui=bold guifg=white guibg=NONE ctermfg=lightcyan ctermbg=black
+"hi FoldLevel3 gui=bold guifg=white guibg=NONE ctermfg=lightcyan ctermbg=black
+"hi FoldLevel4 gui=bold guifg=red guibg=NONE ctermfg=lightyellow ctermbg=black
+"hi FoldLevel5 gui=bold guifg=#00ccff guibg=NONE ctermfg=lightred ctermbg=black
+"
+"hi FoldLevel6 gui=bold guifg=#6633ff guibg=NONE ctermfg=lightgrey ctermbg=black
+"hi FoldLevel7 gui=bold guifg=#eeaaee guibg=NONE ctermfg=lightblue ctermbg=black
+"hi FoldLevel8 gui=bold guifg=cyan guibg=NONE ctermfg=lightred ctermbg=black
+"hi FoldLevel8 gui=bold guifg=magenta guibg=NONE ctermfg=lightred ctermbg=black
+"hi FoldLevel9 gui=bold guifg=white guibg=NONE ctermfg=lightred ctermbg=black
+"hi FoldLevel10 gui=italic guifg=#008800 guibg=NONE ctermfg=lightcyan ctermbg=black
+"hi FoldLevel11 gui=bold guifg=white guibg=NONE ctermfg=lightyellow ctermbg=black
+"hi FoldLevel12 gui=bold guifg=white guibg=NONE ctermfg=lightcyan ctermbg=black
+
+
+"hi code guifg=#88aa88 gui=bold
+hi code guifg=orange gui=bold
+syn match code '=\S.\{-}\S='
+hi itals gui=italic guifg=#aaaaaa
+syn match itals '/\zs\S.\{-}\S\ze/'
+hi boldtext gui=bold guifg=#aaaaaa
+syn match boldtext '*\zs\S.\{-}\S\ze\*'
+hi undertext gui=underline guifg=#aaaaaa
+syn match undertext '_\zs\S.\{-}\S\ze_'
+" color for body text
+hi bt guifg=#00aa00 ctermfg=green
+
+"syn match doneline '^.*[X].*$'
+"hi doneline guifg=#555555
+"syn region colon start='^\t*' end=': ' keepend contained
+syn match colon '^\t*:' contained
+"syn match colon '^\t\d\.' contained
+"syn match colon '^\t*:\s\d\.\d\.' contained
+hi colon guifg=#666666
+syn match lnumber '^\t*\(\d\.\)*\s\s' contained
+"syn match lnumber '^\t*:' contained
+"syn match lnumber '^\t*\(.\.\)\{1,}\s\s' contained
+hi lnumber guifg=#999999
+"#999
+
+"syn match headtext '{vo-text}.*{/vo-text}' contained
+"hi headtext guifg=bg
+
+" colors for experimental spelling error highlighting
+" this only works for spellfix.vim with will be cease to exist soon
+hi spellErr gui=underline guifg=yellow cterm=underline ctermfg=yellow
+hi BadWord gui=underline guifg=yellow cterm=underline ctermfg=yellow
View
4,299 ftplugin/org.vim
4,299 additions, 0 deletions not shown
View
245 indent/org.vim
@@ -0,0 +1,245 @@
+
+" Delete the next line to avoid the special indention of items
+if !exists("g:org_indent_from_head")
+ let g:org_indent_from_head = 0
+
+endif
+
+if exists("b:did_indent") | finish
+endif
+let b:did_indent = 1
+
+
+setlocal indentexpr=GetOrgIndent()
+setlocal nolisp
+setlocal nosmartindent
+setlocal autoindent
+"setlocal indentkeys+=},=\\item,=\\bibitem
+
+
+" Only define the function once
+"if exists("GetOrgIndent") | finish
+"endif
+
+
+
+function! GetOrgIndent(...)
+ " Find a non-blank line above the current line.
+ "let lnum = prevnonblank(v:lnum - 1)
+ let lnum = PrevNonBlank(v:lnum - 1)
+
+ " At the start of the file use zero indent.
+ if lnum == 0 | return 0
+ endif
+
+ let curline = getline(v:lnum) " current line
+ "let lminusone = getline(v:lnum-1)
+ "if b:last_lnum > 0) && (curline !~ '^\s*$')
+" let lnum = b:last_lnum
+" let b:last_lnum = 0
+ " endif
+ let ind = indent(lnum)
+
+ if b:suppress_list_indent == 1
+ let prevline = getline(lnum) " previous line
+ else
+ let prevline = getline(prevnonblank(v:lnum-1))
+ endif
+
+ if (curline =~ '^\s*$') && (b:suppress_list_indent == 1)
+ let b:suppress_list_indent = 0
+ let b:org_list_offset=0
+ endif
+
+ if (curline =~ '^\*\+ ')
+ let ind = 0
+ " below lines are failsafes, hopefully redundant
+ let b:suppress_list_indent=0
+ let b:suppress_indent=0
+ elseif curline =~ '#+begin_'
+ let b:suppress_indent=1
+ let ind = 0
+ elseif curline =~ '#+end_'
+ let b:suppress_indent=0
+ let ind = 0
+ elseif curline =~ '^#+'
+ let ind = 0
+ "elseif (curline =~ '^\s*$') && (b:suppress_list_indent == 1)
+" \ && (len(synstack(v:lnum-1,1))>0)
+" \ && (synIDattr(synstack(v:lnum-1,1)[0],'name') == 'orgList')
+" let b:suppress_list_indent = 0
+ elseif b:suppress_indent == 1
+ return indent(curline)
+ elseif b:suppress_list_indent == 1
+ return len(matchstr(curline,'^\s*')) + b:org_list_offset
+ elseif (curline =~ '^\s*\(\d\+[.):]\|[-+] \)')
+ let before_ind = len(matchstr(curline,'^\s*'))
+ "let ind= ind
+ let b:org_list_offset = ind - before_ind
+ let b:suppress_list_indent = 1
+ elseif (curline =~'^\s*\d\+[).:]\s\+\S') || (curline =~'^\s*[-+\*]\s\+\S')
+" if len(curline)>0
+ let ind = indent(curline)
+" endif
+ elseif prevline =~ '^\*\+ '
+ let ind = len(matchstr(prevline,'^\*\+ ')) + g:org_indent_from_head
+ elseif prevline =~ '^\s*\d\+[).\]:]\s\+\S'
+ let ind = ind + len(matchstr(prevline,'^\s*\zs\d\+[).\]:]\s\+\ze\S'))
+ elseif prevline =~ '^\s*[-+\*]\s\+\S'
+ let ind = ind + len(matchstr(prevline,'^\s*\zs[-+\*]\s\+\ze\S'))
+ elseif (len(synstack(v:lnum,1))>0) && (synIDattr(synstack(v:lnum,1)[0],'name') == 'orgList')
+ let ind = len(matchstr(getline(v:lnum-1),'^\s*'))
+ endif
+
+ return ind
+endfunction
+
+function! PrevNonBlank(line)
+ let line = prevnonblank(a:line)
+
+ if (len(synstack(line,1))>0) && (synIDattr(synstack(line,1)[0],'name') == 'orgLisp')
+ execute line + 1
+ let line = search('^#+begin_src','nb')-1
+ elseif (len(synstack(line-1,1))>0) && (synIDattr(synstack(line-1,1)[0],'name') == 'orgList')
+ execute line - 1
+ let line = search('^\s*$','nb')-1
+
+ endif
+ return prevnonblank(line)
+endfunction
+
+function! GetTestIndent2(lnum)
+ " Find a non-blank line above the current line.
+ "let lnum = prevnonblank(a:lnum - 1)
+ let lnum = PrevNonBlank(a:lnum - 1)
+
+ " At the start of the file use zero indent.
+ if lnum == 0 | return 0
+ endif
+
+ let curline = getline(a:lnum) " current line
+ "let lminusone = getline(a:lnum-1)
+ "if b:last_lnum > 0) && (curline !~ '^\s*$')
+" let lnum = b:last_lnum
+" let b:last_lnum = 0
+ " endif
+ let ind = indent(lnum)
+
+ if b:suppress_list_indent == 1
+ let prevline = getline(lnum) " previous line
+ else
+ let prevline = getline(prevnonblank(a:lnum-1))
+ endif
+
+ if (curline =~ '^\s*$') && (b:suppress_list_indent == 1)
+ let b:suppress_list_indent = 0
+ let b:org_list_offset=0
+ endif
+
+ if (curline =~ '^\*\+ ')
+ let ind = 0
+ " below lines are failsafes, hopefully redundant
+ let b:suppress_list_indent=0
+ let b:suppress_indent=0
+ elseif curline =~ '#+begin_'
+ let b:suppress_indent=1
+ let ind = 0
+ elseif curline =~ '#+end_'
+ let b:suppress_indent=0
+ let ind = 0
+ "elseif (curline =~ '^\s*$') && (b:suppress_list_indent == 1)
+" \ && (len(synstack(a:lnum-1,1))>0)
+" \ && (synIDattr(synstack(a:lnum-1,1)[0],'name') == 'orgList')
+" let b:suppress_list_indent = 0
+ elseif b:suppress_indent == 1
+ return indent(curline)
+ elseif b:suppress_list_indent == 1
+ return len(matchstr(curline,'^\s*')) + b:org_list_offset
+ elseif (curline =~ '^\s*\(\d\+[.):]\|[-+] \)')
+ let before_ind = len(matchstr(curline,'^\s*'))
+ "let ind= ind
+ let b:org_list_offset = ind - before_ind
+ let b:suppress_list_indent = 1
+ elseif (curline =~'^\s*\d\+[).:]\s\+\S') || (curline =~'^\s*[-+\*]\s\+\S')
+" if len(curline)>0
+ let ind = indent(curline)
+" endif
+ elseif prevline =~ '^\*\+ '
+ let ind = len(matchstr(prevline,'^\*\+ ')) + g:org_indent_from_head
+ elseif prevline =~ '^\s*\d\+[).\]:]\s\+\S'
+ let ind = ind + len(matchstr(prevline,'^\s*\zs\d\+[).\]:]\s\+\ze\S'))
+ elseif prevline =~ '^\s*[-+\*]\s\+\S'
+ let ind = ind + len(matchstr(prevline,'^\s*\zs[-+\*]\s\+\ze\S'))
+ elseif (len(synstack(a:lnum,1))>0) && (synIDattr(synstack(a:lnum,1)[0],'name') == 'orgList')
+ let ind = len(matchstr(getline(a:lnum-1),'^\s*'))
+ endif
+
+ return ind
+endfunction
+
+function! GetTestIndent(lnum)
+ " Find a non-blank line above the current line.
+ "let lnum = prevnonblank(a:lnum - 1)
+ let lnum = PrevNonBlank(a:lnum - 1)
+
+ " At the start of the file use zero indent.
+ if lnum == 0 | return 0
+ endif
+
+ let curline = getline(a:lnum) " current line
+ "let lminusone = getline(a:lnum-1)
+ "if b:last_lnum > 0) && (curline !~ '^\s*$')
+" let lnum = b:last_lnum
+" let b:last_lnum = 0
+ " endif
+ let ind = indent(lnum)
+ if b:suppress_list_indent == 1
+ let prevline = getline(lnum) " previous line
+ else
+ let prevline = getline(prevnonblank(v:lnum-1))
+ endif
+
+ if (curline =~ '^\s*$') && (b:suppress_list_indent == 1)
+ let b:suppress_list_indent = 0
+ let b:org_list_offset=0
+ endif
+
+ if (curline =~ '^\*\+ ')
+ let ind = 0
+ " below lines are failsafes, hopefully redundant
+ let b:suppress_list_indent=0
+ let b:suppress_indent=0
+ elseif curline =~ '#+begin_'
+ let b:suppress_indent=1
+ let ind = 0
+ elseif curline =~ '#+end_'
+ let b:suppress_indent=0
+ let ind = 0
+ "elseif (curline =~ '^\s*$') && (b:suppress_list_indent == 1)
+" \ && (len(synstack(a:lnum-1,1))>0)
+" \ && (synIDattr(synstack(a:lnum-1,1)[0],'name') == 'orgList')
+" let b:suppress_list_indent = 0
+ elseif b:suppress_indent == 1
+ return indent(curline)
+ elseif b:suppress_list_indent == 1
+ return len(matchstr(curline,'^\s*')) + b:org_list_offset
+ elseif (curline =~ '^\s*\(\d\+[.):]\|[-+] \)')
+ let before_ind = len(matchstr(curline,'^\s*'))
+ "let ind= ind
+ let b:org_list_offset = ind - before_ind
+ let b:suppress_list_indent = 1
+ elseif (curline =~'^\s*\d\+[).:]\s\+\S') || (curline =~'^\s*[-+\*]\s\+\S')
+" if len(curline)>0
+ let ind = indent(curline)
+" endif
+ elseif prevline =~ '^\*\+ '
+ let ind = len(matchstr(prevline,'^\*\+ ')) + g:org_indent_from_head
+ elseif prevline =~ '^\s*\d\+[).\]:]\s\+\S'
+ let ind = ind + len(matchstr(prevline,'^\s*\zs\d\+[).\]:]\s\+\ze\S'))
+ elseif prevline =~ '^\s*[-+\*]\s\+\S'
+ let ind = ind + len(matchstr(prevline,'^\s*\zs[-+\*]\s\+\ze\S'))
+ endif
+
+ return ind
+endfunction
+
View
3,641 org_mode.org
3,641 additions, 0 deletions not shown
View
81 syntax/org.vim
@@ -0,0 +1,81 @@
+function! s:SynStars(perlevel)
+ let b:levelstars = a:perlevel
+ exe 'syntax match OL1 +^\(*\)\{1}\s.*+ contains=stars'
+ exe 'syntax match OL2 +^\(*\)\{'.( 1 + 1*a:perlevel).'}\s.*+ contains=stars'
+ exe 'syntax match OL3 +^\(*\)\{'.(1 + 2*a:perlevel).'}\s.*+ contains=stars'
+ exe 'syntax match OL4 +^\(*\)\{'.(1 + 3*a:perlevel).'}\s.*+ contains=stars'
+ exe 'syntax match OL5 +^\(*\)\{'.(1 + 4*a:perlevel).'}\s.*+ contains=stars'
+ exe 'syntax match OL6 +^\(*\)\{'.(1 + 5*a:perlevel).'}\s.*+ contains=stars'
+ exe 'syntax match OL7 +^\(*\)\{'.(1 + 6*a:perlevel).'}\s.*+ contains=stars'
+ exe 'syntax match OL8 +^\(*\)\{'.(1 + 7*a:perlevel).'}\s.*+ contains=stars'
+ exe 'syntax match OL9 +^\(*\)\{'.(1 + 8*a:perlevel).'}\s.*+ contains=stars'
+endfunction
+command! ChangeSyn call <SID>SynStars(b:levelstars)
+
+syntax match Properties +^\s*:\s*\S\{-1,}\s*:+
+hi Properties guifg=pink
+syntax match Tags +\s*:\S*:\s*$+
+hi Tags guifg=pink
+syntax match Dates +<\d\d\d\d-\d\d-\d\d.\{-1,}>+
+hi Dates guifg=magenta
+syntax match stars +\*\+\*+me=e-1 contained
+hi stars guifg=#444444
+syntax match TODO '\* \zsTODO' containedin=OL1,OL2,OL3,OL4,OL5,OL6
+syntax match STARTED '\* \zsSTARTED' containedin=OL1,OL2,OL3,OL4,OL5,OL6
+syntax match DONE '\* \zsDONE' containedin=OL1,OL2,OL3,OL4,OL5,OL6
+hi TODO guifg=red guibg=NONE
+hi STARTED guifg=yellow
+hi DONE guifg=green
+"syntax match source '^#+\(begin\|end\)_src.*$' contained
+"hi source gui=underline
+syntax match OL1 +^\(*\)\{1}\s.*+ contains=stars
+syntax match OL2 +^\(*\)\{2}\s.*+ contains=stars
+syntax match OL3 +^\(*\)\{3}\s.*+ contains=stars
+syntax match OL4 +^\(*\)\{4}\s.*+ contains=stars
+syntax match OL5 +^\(*\)\{5}\s.*+ contains=stars
+syntax match OL6 +^\(*\)\{6}\s.*+ contains=stars
+syntax match OL7 +^\(*\)\{7}\s.*+ contains=stars
+syntax match OL8 +^\(*\)\{8}\s.*+ contains=stars
+syntax match OL9 +^\(*\)\{9}\s.*+ contains=stars
+syntax match T1 +^\t*:.*$+ contains=tcolon,url
+syntax match T2 +^\t*;.*$+ contains=tcolon,url
+syntax match T3 +^\t*|.*$+ contains=tcolon,url
+syntax match T4 +^\t*>.*$+ contains=tcolon,url
+hi T1 guifg=#00ee00
+hi T2 guifg=#ffff33
+hi T3 guifg=#99cc33
+hi T4 guifg=#99cc66
+"hi FoldColumn guifg=#666666 guibg=bg
+syntax match tcolon '^\t*:' contained
+hi tcolon guifg=#666666
+syntax match url '<url:.*>'
+hi url guifg=#888822
+
+"syntax region Main start='^begin-org' end='^end-org' contains=orgPerl
+let b:current_syntax = ''
+unlet b:current_syntax
+
+"syntax include @Vimcode $VIMRUNTIME\syntax\vim.vim
+"syntax region orgVim start='^src-vimscript' end='^end-vimscript' contains=@Vimcode
+"unlet b:current_syntax
+syntax include @Lispcode $VIMRUNTIME\syntax\lisp.vim
+"syntax region orgLisp start='^#+begin-lisp' end='^#+end_src' contains=@Lispcode
+syntax region orgLisp start='^#+begin_src\semacs-lisp' end='^#+end_src$' contains=@Lispcode
+let b:current_syntax = 'combined'
+hi orgLisp gui=bold
+
+syntax region orgList start='^\s*\(\d\+[.):]\|[-+] \)' end='^\(\s*$\|^\*\)'me=e-1
+
+"unlet b:current_syntax
+"syntax include @rinvim $VIMRUNTIME\syntax\r.vim
+"syntax region orgR matchgroup=Snip start="^src-R" end="^end-R" keepend contains=@rinvim
+"let b:current_syntax = ''
+"unlet b:current_syntax
+"syntax include @python $VIMRUNTIME\syntax\python.vim
+"syntax region orgPython matchgroup=Snip start="^src-Python" end="^end-Python" keepend contains=@python
+"hi link orgPython TabLineFill
+"let b:current_syntax='combined'
+"hi link Snip SpecialComment
+
+
+" vim600: set foldmethod=marker foldlevel=0:
Please sign in to comment.
Something went wrong with that request. Please try again.