1 ;;; hfy-test.el --- Test for htmlfontify + hfyview
3 ;; Author: Lennart Borgman (lennart O borgman A gmail O com)
4 ;; Created: 2008-10-17 Fri
11 ;; Features that might be required by this library:
15 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
21 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
26 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
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.
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.
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.
43 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
47 (require 'emacsw32 nil t)
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" ".")
57 (describe-function 'describe-function)
58 (delete-other-windows)
60 (split-window-vertically)
61 (split-window-vertically)
63 (split-window-vertically)
65 (split-window-vertically)
68 ;;(winsav-upper-left-window)
70 (split-window-horizontally)
71 ;;(winsav-upper-left-window)
73 (switch-to-buffer "*scratch*")
75 (select-window (next-window))
76 (switch-to-buffer "*Help*")
78 (select-window (next-window))
79 (switch-to-buffer "*Faces*")
80 (split-window-horizontally)
82 (select-window (next-window))
83 (switch-to-buffer "*Colors*")
85 (select-window (next-window))
86 (when (fboundp 'emacsw32-show-custstart)
87 (emacsw32-show-custstart))
89 (select-window (next-window))
92 (select-window (next-window))
93 (split-window-horizontally)
94 (switch-to-buffer "*grep*")
96 (select-window (next-window))
97 (switch-to-buffer "*Occur*")
101 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
102 ;;; hfy-test.el ends here