home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / patches / 6.1.137 < prev    next >
Encoding:
Internet Message Format  |  2002-07-20  |  5.0 KB
  1. To: vim-dev@vim.org
  2. Subject: Patch 6.1.137
  3. Fcc: outbox
  4. From: Bram Moolenaar <Bram@moolenaar.net>
  5. Mime-Version: 1.0
  6. Content-Type: text/plain; charset=ISO-8859-1
  7. Content-Transfer-Encoding: 8bit
  8. ------------
  9.  
  10. Patch 6.1.137
  11. Problem:    Converting to HTML has a clumsy way of dealing with tabs which may
  12.         change the highlighting.
  13. Solution:   Replace tabs with spaces after converting a line to HTML. (Preben
  14.         Guldberg)
  15. Files:        runtime/syntax/2html.vim
  16.  
  17.  
  18. *** ../vim61.136/runtime/syntax/2html.vim    Mon Jan  7 22:24:33 2002
  19. --- runtime/syntax/2html.vim    Wed Jul 10 20:52:56 2002
  20. ***************
  21. *** 1,6 ****
  22.   " Vim syntax support file
  23.   " Maintainer: Bram Moolenaar <Bram@vim.org>
  24. ! " Last Change: 2001 Dec 12
  25.   "           (modified by David Ne\v{c}as (Yeti) <yeti@physics.muni.cz>)
  26.   
  27.   " Transform a file into HTML, using the current syntax highlighting.
  28. --- 1,6 ----
  29.   " Vim syntax support file
  30.   " Maintainer: Bram Moolenaar <Bram@vim.org>
  31. ! " Last Change: 2002 Jul 10
  32.   "           (modified by David Ne\v{c}as (Yeti) <yeti@physics.muni.cz>)
  33.   
  34.   " Transform a file into HTML, using the current syntax highlighting.
  35. ***************
  36. *** 130,135 ****
  37. --- 130,136 ----
  38.   let s:old_icon = &icon
  39.   let s:old_et = &l:et
  40.   let s:old_report = &report
  41. + let s:old_search = @/
  42.   set notitle noicon
  43.   setlocal et
  44.   set report=1000000
  45. ***************
  46. *** 160,185 ****
  47.   endif
  48.   exe "normal a</head>\n<body>\n<pre>\n\e"
  49.   
  50. ! exe "normal \<C-W>p"
  51.   
  52.   " List of all id's
  53.   let s:idlist = ","
  54.   
  55.   " Loop over all lines in the original text
  56.   let s:end = line("$")
  57.   let s:lnum = 1
  58.   while s:lnum <= s:end
  59.   
  60. !   " Get the current line, with tabs expanded to spaces when needed
  61. !   " FIXME: What if it changes syntax highlighting?
  62.     let s:line = getline(s:lnum)
  63. -   if stridx(s:line, "\t") >= 0
  64. -     exe s:lnum . "retab!"
  65. -     let s:did_retab = 1
  66. -     let s:line = getline(s:lnum)
  67. -   else
  68. -     let s:did_retab = 0
  69. -   endif
  70.     let s:len = strlen(s:line)
  71.     let s:new = ""
  72.   
  73. --- 161,183 ----
  74.   endif
  75.   exe "normal a</head>\n<body>\n<pre>\n\e"
  76.   
  77. ! wincmd p
  78.   
  79.   " List of all id's
  80.   let s:idlist = ","
  81.   
  82. + let s:expandedtab = ' '
  83. + while strlen(s:expandedtab) < &ts
  84. +   let s:expandedtab = s:expandedtab . ' '
  85. + endwhile
  86. + 
  87.   " Loop over all lines in the original text
  88.   let s:end = line("$")
  89.   let s:lnum = 1
  90.   while s:lnum <= s:end
  91.   
  92. !   " Get the current line
  93.     let s:line = getline(s:lnum)
  94.     let s:len = strlen(s:line)
  95.     let s:new = ""
  96.   
  97. ***************
  98. *** 209,217 ****
  99.         break
  100.       endif
  101.     endwhile
  102. !   if s:did_retab
  103. !     undo
  104. !   endif
  105.   
  106.     exe "normal \<C-W>pa" . strtrans(s:new) . "\n\e\<C-W>p"
  107.     let s:lnum = s:lnum + 1
  108. --- 207,224 ----
  109.         break
  110.       endif
  111.     endwhile
  112. ! 
  113. !   " Expand tabs
  114. !   let s:pad=0
  115. !   let s:start = 0
  116. !   let s:idx = stridx(s:line, "\t")
  117. !   while s:idx >= 0
  118. !     let s:i = &ts - ((s:start + s:pad + s:idx) % &ts)
  119. !     let s:new = substitute(s:new, '\t', strpart(s:expandedtab, 0, s:i), '')
  120. !     let s:pad = s:pad + s:i - 1
  121. !     let s:start = s:start + s:idx + 1
  122. !     let s:idx = stridx(strpart(s:line, s:start), "\t")
  123. !   endwhile
  124.   
  125.     exe "normal \<C-W>pa" . strtrans(s:new) . "\n\e\<C-W>p"
  126.     let s:lnum = s:lnum + 1
  127. ***************
  128. *** 278,300 ****
  129.     endif
  130.   endwhile
  131.   
  132. ! " Cleanup (we've already lost last user's pattern match highlighting)
  133.   %s:\s\+$::e
  134. - if has("extra_search")
  135. -   nohlsearch
  136. - endif
  137.   
  138.   " Restore old settings
  139.   let &report = s:old_report
  140.   let &title = s:old_title
  141.   let &icon = s:old_icon
  142.   let &paste = s:old_paste
  143. ! exe "normal \<C-W>p"
  144.   let &l:et = s:old_et
  145. ! exe "normal \<C-W>p"
  146.   
  147.   " Save a little bit of memory (worths doing?)
  148. ! unlet s:old_et s:old_paste s:old_icon s:old_report s:old_title
  149.   unlet s:whatterm s:idlist s:lnum s:end s:fgc s:bgc
  150.   unlet! s:col s:id s:attr s:len s:line s:new s:did_retab s:numblines
  151.   delfunc s:HtmlColor
  152. --- 285,305 ----
  153.     endif
  154.   endwhile
  155.   
  156. ! " Cleanup
  157.   %s:\s\+$::e
  158.   
  159.   " Restore old settings
  160.   let &report = s:old_report
  161.   let &title = s:old_title
  162.   let &icon = s:old_icon
  163.   let &paste = s:old_paste
  164. ! let @/ = s:old_search
  165. ! wincmd p
  166.   let &l:et = s:old_et
  167. ! wincmd p
  168.   
  169.   " Save a little bit of memory (worths doing?)
  170. ! unlet s:old_et s:old_paste s:old_icon s:old_report s:old_title s:old_search
  171.   unlet s:whatterm s:idlist s:lnum s:end s:fgc s:bgc
  172.   unlet! s:col s:id s:attr s:len s:line s:new s:did_retab s:numblines
  173.   delfunc s:HtmlColor
  174. *** ../vim61.136/src/version.c    Sun Jul 21 21:16:47 2002
  175. --- src/version.c    Sun Jul 21 21:18:40 2002
  176. ***************
  177. *** 608,609 ****
  178. --- 608,611 ----
  179.   {   /* Add new patch number below this line */
  180. + /**/
  181. +     137,
  182.   /**/
  183.  
  184. -- 
  185. hundred-and-one symptoms of being an internet addict:
  186. 18. Your wife drapes a blond wig over your monitor to remind you of what she
  187.     looks like.
  188.  
  189.  ///  Bram Moolenaar -- Bram@moolenaar.net -- http://www.moolenaar.net  \\\
  190. ///   Creator of Vim -- http://vim.sf.net -- ftp://ftp.vim.org/pub/vim   \\\
  191. \\\           Project leader for A-A-P -- http://www.a-a-p.org           ///
  192.  \\\ Lord Of The Rings helps Uganda - http://iccf-holland.org/lotr.html ///
  193.