patch 8.0.1071: putty-color and cygwin-color are not recognized commit https://github.com/vim/vim/commit/c6da01a5b8efe9ca4931074c0cf2189d357707a2 Author: Bram Moolenaar <Bram@vim.org> Date: Thu Sep 7 22:37:36 2017 +0200 patch 8.0.1071: putty-color and cygwin-color are not recognized Problem: $TERM names starting with "putty" and "cygwin" are likely to have a dark background, but are not recognized. Solution: Only check the first few characters of $TERM to match "putty" or "cygwin". (Christian Brabandt)

(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>")))