From 94d2fc1815a919734353c942f224db1de4b4fcb8 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Mon, 7 Mar 2011 09:04:49 +0100 Subject: Django, org * Added nxhtml, mostly for django support. * Changed some org settings. --- emacs.d/nxhtml/tests/hfy-test.el | 102 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 102 insertions(+) create mode 100644 emacs.d/nxhtml/tests/hfy-test.el (limited to 'emacs.d/nxhtml/tests/hfy-test.el') diff --git a/emacs.d/nxhtml/tests/hfy-test.el b/emacs.d/nxhtml/tests/hfy-test.el new file mode 100644 index 0000000..4592d7b --- /dev/null +++ b/emacs.d/nxhtml/tests/hfy-test.el @@ -0,0 +1,102 @@ +;;; hfy-test.el --- Test for htmlfontify + hfyview +;; +;; Author: Lennart Borgman (lennart O borgman A gmail O com) +;; Created: 2008-10-17 Fri +;; Version: +;; Last-Updated: +;; URL: +;; Keywords: +;; Compatibility: +;; +;; Features that might be required by this library: +;; +;; None +;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;;; Commentary: +;; +;; +;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;;; Change log: +;; +;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;; This program is free software; you can redistribute it and/or +;; modify it under the terms of the GNU General Public License as +;; published by the Free Software Foundation; either version 2, or +;; (at your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth +;; Floor, Boston, MA 02110-1301, USA. +;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;;; Code: +(require 'winsav) +(require 'emacsw32 nil t) +(require 'grep) + +(defun hfy-test-setup-frame () + (find-library "htmlfontify") + (occur "hfy-tmpfont-stack") + (unless grep-template (grep-compute-defaults)) + (lgrep "hfy-tmpfont-stack" "*.el" ".") + (list-faces-display) + (list-colors-display) + (describe-function 'describe-function) + (delete-other-windows) + + (split-window-vertically) + (split-window-vertically) + (balance-windows) + (split-window-vertically) + (balance-windows) + (split-window-vertically) + (balance-windows) + + ;;(winsav-upper-left-window) + (frame-first-window) + (split-window-horizontally) + ;;(winsav-upper-left-window) + (frame-first-window) + (switch-to-buffer "*scratch*") + + (select-window (next-window)) + (switch-to-buffer "*Help*") + + (select-window (next-window)) + (switch-to-buffer "*Faces*") + (split-window-horizontally) + + (select-window (next-window)) + (switch-to-buffer "*Colors*") + + (select-window (next-window)) + (when (fboundp 'emacsw32-show-custstart) + (emacsw32-show-custstart)) + + (select-window (next-window)) + (info) + + (select-window (next-window)) + (split-window-horizontally) + (switch-to-buffer "*grep*") + + (select-window (next-window)) + (switch-to-buffer "*Occur*") + ) + + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; hfy-test.el ends here -- cgit v1.2.3-54-g00ecf