Mercurial > vim
annotate src/testdir/test33.in @ 12505:5cf248ecb6e3 v8.0.1131
patch 8.0.1131: not easy to trigger an autocommand for new terminal window
commit https://github.com/vim/vim/commit/b00fdf6eed5fec589a86655249a851c2d9ba3bb8
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Sep 21 22:16:21 2017 +0200
patch 8.0.1131: not easy to trigger an autocommand for new terminal window
Problem: It is not easy to trigger an autocommand for new terminal window.
(Marco Restelli)
Solution: Trigger BufWinEnter after setting 'buftype'.
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Thu, 21 Sep 2017 22:30:04 +0200 |
parents | 3fc0f57ecb91 |
children |
rev | line source |
---|---|
7 | 1 Test for 'lisp' |
2 If the lisp feature is not enabled, this will fail! | |
3 | |
4 STARTTEST | |
5 :so small.vim | |
6 :set lisp | |
7 /^(defun | |
8 =G:/^(defun/,$w! test.out | |
9 :q! | |
10 ENDTEST | |
11 | |
12 (defun html-file (base) | |
13 (format nil "~(~A~).html" base)) | |
14 | |
15 (defmacro page (name title &rest body) | |
16 (let ((ti (gensym))) | |
17 `(with-open-file (*standard-output* | |
18 (html-file ,name) | |
19 :direction :output | |
20 :if-exists :supersede) | |
21 (let ((,ti ,title)) | |
22 (as title ,ti) | |
23 (with center | |
24 (as h2 (string-upcase ,ti))) | |
25 (brs 3) | |
26 ,@body)))) | |
27 | |
28 ;;; Utilities for generating links | |
29 | |
30 (defmacro with-link (dest &rest body) | |
31 `(progn | |
32 (format t "<a href=\"~A\">" (html-file ,dest)) | |
33 ,@body | |
34 (princ "</a>"))) |