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.2.144 < prev    next >
Encoding:
Internet Message Format  |  2003-11-01  |  6.9 KB
  1. To: vim-dev@vim.org
  2. Subject: Patch 6.2.144
  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.2.144
  11. Problem:    When "g:html_use_css" is set the HTML header generated by the
  12.         2html script is wrong.
  13. Solution:   Add the header after adding HREF for links.
  14.         Also use ":normal!" instead of ":normal" to avoid mappings
  15.         getting in the way.
  16. Files:        runtime/syntax/2html.vim
  17.  
  18.  
  19. *** ../vim-6.2.143/runtime/syntax/2html.vim    Sat May 31 20:59:11 2003
  20. --- runtime/syntax/2html.vim    Sun Nov  2 17:44:26 2003
  21. ***************
  22. *** 1,6 ****
  23.   " Vim syntax support file
  24.   " Maintainer: Bram Moolenaar <Bram@vim.org>
  25. ! " Last Change: 2003 May 31
  26.   "           (modified by David Ne\v{c}as (Yeti) <yeti@physics.muni.cz>)
  27.   
  28.   " Transform a file into HTML, using the current syntax highlighting.
  29. --- 1,6 ----
  30.   " Vim syntax support file
  31.   " Maintainer: Bram Moolenaar <Bram@vim.org>
  32. ! " Last Change: 2003 Nov 02
  33.   "           (modified by David Ne\v{c}as (Yeti) <yeti@physics.muni.cz>)
  34.   
  35.   " Transform a file into HTML, using the current syntax highlighting.
  36. ***************
  37. *** 180,205 ****
  38.   let s:old_magic = &magic
  39.   set magic
  40.   
  41. - " The DTD
  42. - if exists("html_use_css")
  43. -   exe "normal a<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\"\n    \"http://www.w3.org/TR/html4/strict.dtd\">\n\e"
  44. - endif
  45. - 
  46.   " HTML header, with the title and generator ;-). Left free space for the CSS,
  47.   " to be filled at the end.
  48. ! exe "normal a<html>\n<head>\n<title>\e"
  49. ! exe "normal a" . expand("%:p:~") . "</title>\n\e"
  50. ! exe "normal a<meta name=\"Generator\" content=\"Vim/" . version/100 . "." . version %100 . "\">\n\e"
  51.   if s:html_encoding != ""
  52. !   exe "normal a<meta http-equiv=\"content-type\" content=\"text/html; charset=" . s:html_encoding . "\">\n\e"
  53.   endif
  54.   if exists("html_use_css")
  55. !   exe "normal a<style type=\"text/css\">\n<!--\n-->\n</style>\n\e"
  56.   endif
  57.   if exists("html_no_pre")
  58. !   exe "normal a</head>\n<body>\n\e"
  59.   else
  60. !   exe "normal a</head>\n<body>\n<pre>\n\e"
  61.   endif
  62.   
  63.   wincmd p
  64. --- 180,200 ----
  65.   let s:old_magic = &magic
  66.   set magic
  67.   
  68.   " HTML header, with the title and generator ;-). Left free space for the CSS,
  69.   " to be filled at the end.
  70. ! exe "normal! a<html>\n<head>\n<title>\e"
  71. ! exe "normal! a" . expand("%:p:~") . "</title>\n\e"
  72. ! exe "normal! a<meta name=\"Generator\" content=\"Vim/" . version/100 . "." . version %100 . "\">\n\e"
  73.   if s:html_encoding != ""
  74. !   exe "normal! a<meta http-equiv=\"content-type\" content=\"text/html; charset=" . s:html_encoding . "\">\n\e"
  75.   endif
  76.   if exists("html_use_css")
  77. !   exe "normal! a<style type=\"text/css\">\n<!--\n-->\n</style>\n\e"
  78.   endif
  79.   if exists("html_no_pre")
  80. !   exe "normal! a</head>\n<body>\n\e"
  81.   else
  82. !   exe "normal! a</head>\n<body>\n<pre>\n\e"
  83.   endif
  84.   
  85.   wincmd p
  86. ***************
  87. *** 281,295 ****
  88.     if exists("html_no_pre")
  89.       let s:new = substitute(s:new, '  ', '\ \ ', 'g') . '<br>'
  90.     endif
  91. !   exe "normal \<C-W>pa" . strtrans(s:new) . "\n\e\<C-W>p"
  92.     let s:lnum = s:lnum + 1
  93.     +
  94.   endwhile
  95.   " Finish with the last line
  96.   if exists("html_no_pre")
  97. !   exe "normal \<C-W>pa\n</body>\n</html>\e"
  98.   else
  99. !   exe "normal \<C-W>pa</pre>\n</body>\n</html>\e"
  100.   endif
  101.   
  102.   
  103. --- 276,290 ----
  104.     if exists("html_no_pre")
  105.       let s:new = substitute(s:new, '  ', '\ \ ', 'g') . '<br>'
  106.     endif
  107. !   exe "normal! \<C-W>pa" . strtrans(s:new) . "\n\e\<C-W>p"
  108.     let s:lnum = s:lnum + 1
  109.     +
  110.   endwhile
  111.   " Finish with the last line
  112.   if exists("html_no_pre")
  113. !   exe "normal! \<C-W>pa\n</body>\n</html>\e"
  114.   else
  115. !   exe "normal! \<C-W>pa</pre>\n</body>\n</html>\e"
  116.   endif
  117.   
  118.   
  119. ***************
  120. *** 313,324 ****
  121.   " incorrect.
  122.   if exists("html_use_css")
  123.     if exists("html_no_pre")
  124. !     execute "normal A\nbody { color: " . s:fgc . "; background-color: " . s:bgc . "; font-family: Courier, monospace; }\e"
  125.     else
  126. !     execute "normal A\npre { color: " . s:fgc . "; background-color: " . s:bgc . "; }\e"
  127.       yank
  128.       put
  129. !     execute "normal ^cwbody\e"
  130.     endif
  131.   else
  132.     if exists("html_no_pre")
  133. --- 308,319 ----
  134.   " incorrect.
  135.   if exists("html_use_css")
  136.     if exists("html_no_pre")
  137. !     execute "normal! A\nbody { color: " . s:fgc . "; background-color: " . s:bgc . "; font-family: Courier, monospace; }\e"
  138.     else
  139. !     execute "normal! A\npre { color: " . s:fgc . "; background-color: " . s:bgc . "; }\e"
  140.       yank
  141.       put
  142. !     execute "normal! ^cwbody\e"
  143.     endif
  144.   else
  145.     if exists("html_no_pre")
  146. ***************
  147. *** 331,337 ****
  148.   " Line numbering attributes
  149.   if s:numblines
  150.     if exists("html_use_css")
  151. !     execute "normal A\n.lnr { " . s:CSS1(hlID("LineNr")) . "}\e"
  152.     else
  153.       execute '%s+<span class="lnr">\([^<]*\)</span>+' . s:HtmlOpening(hlID("LineNr")) . '\1' . s:HtmlClosing(hlID("LineNr")) . '+g'
  154.     endif
  155. --- 326,332 ----
  156.   " Line numbering attributes
  157.   if s:numblines
  158.     if exists("html_use_css")
  159. !     execute "normal! A\n.lnr { " . s:CSS1(hlID("LineNr")) . "}\e"
  160.     else
  161.       execute '%s+<span class="lnr">\([^<]*\)</span>+' . s:HtmlOpening(hlID("LineNr")) . '\1' . s:HtmlClosing(hlID("LineNr")) . '+g'
  162.     endif
  163. ***************
  164. *** 350,356 ****
  165.     " its occurences to make the HTML shorter
  166.     if s:attr != ""
  167.       if exists("html_use_css")
  168. !       execute "normal A\n." . s:id_name . " { " . s:attr . "}"
  169.       else
  170.         execute '%s+<span class="' . s:id_name . '">\([^<]*\)</span>+' . s:HtmlOpening(s:id) . '\1' . s:HtmlClosing(s:id) . '+g'
  171.       endif
  172. --- 345,351 ----
  173.     " its occurences to make the HTML shorter
  174.     if s:attr != ""
  175.       if exists("html_use_css")
  176. !       execute "normal! A\n." . s:id_name . " { " . s:attr . "}"
  177.       else
  178.         execute '%s+<span class="' . s:id_name . '">\([^<]*\)</span>+' . s:HtmlOpening(s:id) . '\1' . s:HtmlClosing(s:id) . '+g'
  179.       endif
  180. ***************
  181. *** 361,367 ****
  182.   endwhile
  183.   
  184.   " Add hyperlinks
  185. ! %s+\(http://\S\{-}\)\(\([.,;:]\=\(\s\|$\)\)\|[\\"'<>]\)+<A HREF="\1">\1</A>\2+ge
  186.   
  187.   " Cleanup
  188.   %s:\s\+$::e
  189. --- 356,367 ----
  190.   endwhile
  191.   
  192.   " Add hyperlinks
  193. ! %s+\(http://\S\{-}\)\(\([.,;:]\=\(\s\|$\)\)\|[\\"'<>]\|>\|<\)+<A HREF="\1">\1</A>\2+ge
  194. ! 
  195. ! " The DTD
  196. ! if exists("html_use_css")
  197. !   exe "normal! ggi<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\" \"http://www.w3.org/TR/html4/strict.dtd\">\n\e"
  198. ! endif
  199.   
  200.   " Cleanup
  201.   %s:\s\+$::e
  202. *** ../vim-6.2.143/src/version.c    Sun Nov  2 15:49:56 2003
  203. --- src/version.c    Sun Nov  2 17:48:30 2003
  204. ***************
  205. *** 639,640 ****
  206. --- 639,642 ----
  207.   {   /* Add new patch number below this line */
  208. + /**/
  209. +     144,
  210.   /**/
  211.  
  212. -- 
  213. Violators can be fined, arrested or jailed for making ugly faces at a dog.
  214.         [real standing law in Oklahoma, United States of America]
  215.  
  216.  /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
  217. ///          Creator of Vim - Vi IMproved -- http://www.Vim.org          \\\
  218. \\\              Project leader for A-A-P -- http://www.A-A-P.org        ///
  219.  \\\  Help AIDS victims, buy here: http://ICCF-Holland.org/click1.html  ///
  220.