emacs/nxhtml/tests/hfy-test.el

   1 ;;; hfy-test.el --- Test for htmlfontify + hfyview
   2 ;;
   3 ;; Author: Lennart Borgman (lennart O borgman A gmail O com)
   4 ;; Created: 2008-10-17 Fri
   5 ;; Version:
   6 ;; Last-Updated:
   7 ;; URL:
   8 ;; Keywords:
   9 ;; Compatibility:
  10 ;;
  11 ;; Features that might be required by this library:
  12 ;;
  13 ;;   None
  14 ;;
  15 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  16 ;;
  17 ;;; Commentary:
  18 ;;
  19 ;;
  20 ;;
  21 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  22 ;;
  23 ;;; Change log:
  24 ;;
  25 ;;
  26 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  27 ;;
  28 ;; This program is free software; you can redistribute it and/or
  29 ;; modify it under the terms of the GNU General Public License as
  30 ;; published by the Free Software Foundation; either version 2, or
  31 ;; (at your option) any later version.
  32 ;;
  33 ;; This program is distributed in the hope that it will be useful,
  34 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  35 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  36 ;; General Public License for more details.
  37 ;;
  38 ;; You should have received a copy of the GNU General Public License
  39 ;; along with this program; see the file COPYING.  If not, write to
  40 ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
  41 ;; Floor, Boston, MA 02110-1301, USA.
  42 ;;
  43 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  44 ;;
  45 ;;; Code:
  46 (require 'winsav)
  47 (require 'emacsw32 nil t)
  48 (require 'grep)
  49
  50 (defun hfy-test-setup-frame ()
  51   (find-library "htmlfontify")
  52   (occur "hfy-tmpfont-stack")
  53   (unless grep-template (grep-compute-defaults))
  54   (lgrep "hfy-tmpfont-stack" "*.el" ".")
  55   (list-faces-display)
  56   (list-colors-display)
  57   (describe-function 'describe-function)
  58   (delete-other-windows)
  59
  60   (split-window-vertically)
  61   (split-window-vertically)
  62   (balance-windows)
  63   (split-window-vertically)
  64   (balance-windows)
  65   (split-window-vertically)
  66   (balance-windows)
  67
  68   ;;(winsav-upper-left-window)
  69   (frame-first-window)
  70   (split-window-horizontally)
  71   ;;(winsav-upper-left-window)
  72   (frame-first-window)
  73   (switch-to-buffer "*scratch*")
  74
  75   (select-window (next-window))
  76   (switch-to-buffer "*Help*")
  77
  78   (select-window (next-window))
  79   (switch-to-buffer "*Faces*")
  80   (split-window-horizontally)
  81
  82   (select-window (next-window))
  83   (switch-to-buffer "*Colors*")
  84
  85   (select-window (next-window))
  86   (when (fboundp 'emacsw32-show-custstart)
  87     (emacsw32-show-custstart))
  88
  89   (select-window (next-window))
  90   (info)
  91
  92   (select-window (next-window))
  93   (split-window-horizontally)
  94   (switch-to-buffer "*grep*")
  95
  96   (select-window (next-window))
  97   (switch-to-buffer "*Occur*")
  98   )
  99
 100
 101 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 102 ;;; hfy-test.el ends here