summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/third/vim/2context.vim
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/context/third/vim/2context.vim')
-rw-r--r--Master/texmf-dist/tex/context/third/vim/2context.vim150
1 files changed, 0 insertions, 150 deletions
diff --git a/Master/texmf-dist/tex/context/third/vim/2context.vim b/Master/texmf-dist/tex/context/third/vim/2context.vim
deleted file mode 100644
index dfdaa8439c4..00000000000
--- a/Master/texmf-dist/tex/context/third/vim/2context.vim
+++ /dev/null
@@ -1,150 +0,0 @@
-" Author : Aditya Mahajan <adityam [at] umich [dot] edu>
-" version : 2011.12.23
-" license : Simplified BSD License
-
-" This script is part of the t-vim module for ConTeXt. It is based on 2html.vim.
-" Since this script is called by the t-vim module, we assume that Two buffers
-" are open. The first buffer is the input buffer, and the second buffer is the
-" output buffer. The script parses content line-by-line from the first buffer
-" and pastes the modified result on the second buffer.
-
-" Split screen and go to the second buffer, ensure modifiable is set, and the
-" buffer is empty.
-sblast
-set modifiable
-%d
-
-" Go to first buffer
-wincmd p
-
-" If contextstartline and contextstartline are set, use them.
-if exists("contextstartline")
- let s:lstart = max([1, min([line("$"), contextstartline]) ])
-else
- let s:lstart = 1
-endif
-
-if exists("contextstopline")
- if contextstopline <= 0
- let contextstopline = line("$") + contextstopline
- endif
- let s:lstop = min([line("$"), max([s:lstart, contextstopline]) ])
-else
- let s:lstop = line("$")
-endif
-
-" Set highlight
-if !exists("highlight")
- let highlight=[]
-endif
-
-" Set escapecomments
-if !exists("escapecomments")
- let escapecomments=0
-endif
-
-let s:strip = strlen( matchstr( getline(s:lstart), '^\s*' ) )
-
-" Find the smallest leading white space
-if exists("strip") && strip && (s:strip != 0)
- echo "Calculating amount of leading whitespace"
- for s:lnum in range(s:lstart, s:lstop)
- let s:line = getline(s:lnum)
- if (match(s:line, '^\s*$')) == -1 " line is not empty
- let s:space = matchstr(s:line, '^\s*')
- let s:len = strlen(s:space)
- " echo s:len
- let s:strip = min([s:strip, s:len])
- if s:strip == 0
- break
- end
- end
- endfor
- " echo "Strip amount:" . s:strip
-else
- let s:strip = 0
-endif
-
-" Loop over all lines in the original text.
-let s:buffer_lnum = 1
-let s:lnum = s:lstart
-
-while s:lnum <= s:lstop
-" Get the current line
- let s:line = getline(s:lnum)
- let s:len = strlen(s:line)
- let s:new = ''
-
-" Loop over each character in the line
- let s:col = s:strip + 1
- while s:col <= s:len
- let s:startcol = s:col " The start column for processing text
- let s:id = synID (s:lnum, s:col, 1)
- let s:col = s:col + 1
-" Speed loop (it's small - that's the trick)
-" Go along till we find a change in synID
- while s:col <= s:len && s:id == synID(s:lnum, s:col, 1)
- let s:col = s:col + 1
- endwhile
-
-" Output the text with the same synID, with class set to {s:id_name}
- let s:id = synIDtrans (s:id)
- let s:id_name = synIDattr (s:id, "name", "gui")
- let s:temp = strpart(s:line, s:startcol - 1, s:col - s:startcol)
-" Remove line endings (on unix machines reading windows files)
- let s:temp = substitute(s:temp, '\r*$', '', '')
-" It might have happened that that one has been the last item in a row, so
-" we don't need to print in in that case
- if strlen(s:temp) > 0
-" Change special TeX characters to escape sequences.
- if !(escapecomments && s:id_name == "Comment")
- let s:temp = escape( s:temp, '\{}')
- endif
- if !empty(s:id_name)
- let s:temp = '\SYN[' . s:id_name . ']{' . s:temp . '}'
- endif
- let s:new = s:new . s:temp
- endif
-
-" Why will we ever enter this loop
-" if s:col > s:len
-" break
-" endif
- endwhile
-
-" Expand tabs
- let s:pad = 0
- let s:start = 0
- let s:idx = stridx(s:line, "\t")
- while s:idx >= 0
- let s:i = &ts - ((s:start + s:pad + s:idx) % &ts)
-" let s:new = substitute(s:new, '\t', strpart(s:expandedtab, 0, s:i), '')
- let s:new = substitute(s:new, '\t', '\\tab{' . s:i . '}', '')
- let s:pad = s:pad + s:i - 1
- let s:start = s:start + s:idx + 1
- let s:idx = stridx(strpart(s:line, s:start), "\t")
- endwhile
-
-" Remove leading whitespace
-" let s:new = substitute(s:new, '^\s\{' . s:strip . '\}', "", "")
-
-" Highlight line, if needed.
- if (index(highlight, s:lnum) != -1)
- let s:new = '\HGL{' . s:new . '}'
- endif
-
-" Go back and paste the current line
- wincmd p
- call append (s:buffer_lnum-1, s:new)
- wincmd p
-
-" Increment line numbers
- let s:lnum = s:lnum + 1
- let s:buffer_lnum = s:buffer_lnum + 1
-endwhile
-
-wincmd p
-" We have a spurious line in the end. So we remove it.
-$delete
-" Write the file
-write