view src/testdir/test33.ok @ 10601:1b09db809d3f v8.0.0190

patch 8.0.0190: finding duplicate tags uses a slow linear search commit https://github.com/vim/vim/commit/810f9c361c83afb36b9f1cdadca2b93f1201d039 Author: Bram Moolenaar <Bram@vim.org> Date: Sun Jan 15 16:52:51 2017 +0100 patch 8.0.0190: finding duplicate tags uses a slow linear search Problem: Detecting duplicate tags uses a slow linear search. Solution: Use a much faster hash table solution. (James McCoy, closes https://github.com/vim/vim/issues/1046) But don't add hi_keylen, it makes hash tables 50% bigger.
author Christian Brabandt <cb@256bit.org>
date Sun, 15 Jan 2017 17:00:04 +0100
parents 3fc0f57ecb91
children
line wrap: on
line source

(defun html-file (base)
  (format nil "~(~A~).html" base))

(defmacro page (name title &rest body)
  (let ((ti (gensym)))
       `(with-open-file (*standard-output*
			 (html-file ,name)
			 :direction :output
			 :if-exists :supersede)
			(let ((,ti ,title))
			     (as title ,ti)
			     (with center 
				   (as h2 (string-upcase ,ti)))
			     (brs 3)
			     ,@body))))

;;; Utilities for generating links

(defmacro with-link (dest &rest body)
  `(progn
    (format t "<a href=\"~A\">" (html-file ,dest))
    ,@body
    (princ "</a>")))