From 0d342f0aee3f2f800e486c0051dabe718a7b2841 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Wed, 23 Mar 2011 11:14:27 +0100 Subject: I don't like nxhtml --- emacs.d/nxhtml/related/iss-mode.el | 205 ------------------------------------- 1 file changed, 205 deletions(-) delete mode 100644 emacs.d/nxhtml/related/iss-mode.el (limited to 'emacs.d/nxhtml/related/iss-mode.el') diff --git a/emacs.d/nxhtml/related/iss-mode.el b/emacs.d/nxhtml/related/iss-mode.el deleted file mode 100644 index 7e498c0..0000000 --- a/emacs.d/nxhtml/related/iss-mode.el +++ /dev/null @@ -1,205 +0,0 @@ -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; iss-mode.el --- Mode for InnoSetup install scripts - -;; Copyright (C) 2000-2007 by Stefan Reichoer - -;; Emacs Lisp Archive Entry -;; Filename: iss-mode.el -;; Author: Stefan Reichoer, -;; Version: 1.1d - -;; iss-mode.el 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. - -;; iss-mode.el 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 GNU Emacs; see the file COPYING. If not, write to -;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Commentary - -;; InnoSetup is an Application Installer for Windows -;; See: http://www.jrsoftware.org/isinfo.php -;; This version of iss-mode.el is tested with InnoSetup v5.0 - -;; iss-mode provides the following features: -;; * Syntax coloring for InnoSetup scripts -;; * Integration of the InnoSetup commandline compiler iscc.exe -;; - Compilation via M-x iss-compile -;; - Jump to compilation error via M-x next-error -;; * Start Innosetup help via M-x iss-compiler-help -;; * Test the installation via M-x iss-run-installer - -;; Of course you can bind this commands to keys (e.g. in the iss-mode-hook) - -;; My initialization for InnoSetup looks like this: -;; (autoload 'iss-mode "iss-mode" "Innosetup Script Mode" t) -;; (setq auto-mode-alist (append '(("\\.iss$" . iss-mode)) auto-mode-alist)) -;; (setq iss-compiler-path "c:/Programme/Inno Setup 5/") -;; (add-hook 'iss-mode-hook 'xsteve-iss-mode-init) -;; (defun xsteve-iss-mode-init () -;; (interactive) -;; (define-key iss-mode-map [f6] 'iss-compile) -;; (define-key iss-mode-map [(meta f6)] 'iss-run-installer))) - -;; The latest version of iss-mode.el can be found at: -;; http://www.xsteve.at/prg/emacs/iss-mode.el - -;; Comments / suggestions welcome! - -;;; Change log: -;; -;; Version 1.1e: -;; -;; - Add some new flags to keywords - -;;; Code: - -(eval-and-compile (require 'compile)) - -(defvar iss-compiler-path nil "Path to the iss compiler") - -;;; End of user settings - -(defvar iss-mode-syntax-table - (let ((table (make-syntax-table))) - ;; ";" starts a comment - ;;(modify-syntax-entry ?\; "<" iss-mode-syntax-table) - (modify-syntax-entry ?\; ". 12" table) - ;; and \n and \^M end a comment - (modify-syntax-entry ?\n ">" table) - (modify-syntax-entry ?\^M ">" table) - - (modify-syntax-entry ?\" "." table) - - (modify-syntax-entry ?_ "w" table) - table) - "Syntax table in use in iss-mode buffers.") - - -(defvar iss-font-lock-keywords - (list - (cons (concat "^;\.*") - 'font-lock-comment-face) - (cons (concat "\\sw+: ") - 'font-lock-keyword-face) - (cons "^[ \t]*\\[\.+\\]" 'font-lock-function-name-face) ;font-lock-constant-face) - (cons "^[ \t]*#include[ \t]*\".+\"" 'font-lock-preprocessor-face) - (cons (concat "^[ \t]*\\<\\(appname\\|appvername\\|appversion\\|appcopyright\\|appid\\|" - "appmutex\\|beveledlabel\\|defaultdirname\\|versioninfoversion" - "\\|defaultgroupname\\|minversion\\|outputdir\\|outputbasefilename\\|" - "allownoicons\\|uninstallfilesdir\\|" - "sourcedir\\|disableprogramgrouppage\\|alwayscreateuninstallicon\\)\\>") - 'font-lock-type-face) - (cons (concat "\\<\\(alwaysskipifsameorolder\\|uninsneveruninstall\\|" - "comparetimestampalso\\|restartreplace\\|isreadme\\|" - "unchecked\\|nowait\\|postinstall\\|skipifsilent\\|ignoreversion\\|" - "uninsdeletekeyifempty\\|uninsdeletekey\\|" - "runasoriginaluser\\|runascurrentuser" - "\\)\\>") - 'font-lock-variable-name-face) - (cons (concat "\\<\\(HKCU\\|HKLM\\|dirifempty\\|files\\|filesandordirs\\)\\>") - 'font-lock-constant-face) - (list 'iss-fontify-options '(1 'font-lock-variable-name-face) '(2 'font-lock-keyword-face)) - ) - "Expressions to highlight in iss mode.") - -(defun iss-fontify-options (bound) - (message "iss-fontify-options %s" bound) - (when (re-search-forward "^[ \t]*\\([^=]+\\)[ \t]*\\(=\\)" bound t) - (match-data))) - -(defvar iss-mode-map (make-sparse-keymap) - "Keymap used in iss-mode buffers.") - -(easy-menu-define - iss-menu - iss-mode-map - "InnoSetup script menu" - (list - "ISS" - ["Compile" (iss-compile) t] - ["Run Installer" (iss-run-installer) t] - ["InnoSetup Help" (iss-compiler-help) t] - )) -(easy-menu-add iss-menu) - -(defvar compilation-file-regexp-alist) ;; silence compiler, don't know the var. - -;;;###autoload -(defun iss-mode () - "Major mode for editing InnoSetup script files. Upon startup iss-mode-hook is run." - (interactive) - (kill-all-local-variables) - (use-local-map iss-mode-map) - (setq major-mode 'iss-mode) - (setq mode-name "iss") - (set-syntax-table iss-mode-syntax-table) - (set (make-local-variable 'comment-start) ";") - (set (make-local-variable 'comment-end) "") - (set (make-local-variable 'comment-multi-line) nil) - - (set (make-local-variable 'compilation-error-regexp-alist) - '(("\\(Error on line\\) \\([0-9]+\\):" nil 2))) - (set (make-local-variable 'compilation-file-regexp-alist) - '(("iscc \\(.*\\)$" 1))) - - ;; Font lock support - (make-local-variable 'font-lock-defaults) - (setq font-lock-defaults '(iss-font-lock-keywords nil t)) - (run-hooks 'iss-mode-hook)) - -(defun iss-compiler-help () - "Start the online documentation for the InnoSetup compiler" - (interactive) - (let ((default-directory (or iss-compiler-path default-directory))) - (w32-shell-execute 1 "ISetup.chm"))) - -(defun iss-compile () - "Compile the actual file with the InnoSetup compiler" - (interactive) - (let ((default-directory (or iss-compiler-path default-directory)) - (compilation-process-setup-function 'iss-process-setup)) - (compile (concat "iscc " (buffer-file-name))))) - -(defun iss-process-setup () - "Set up `compilation-exit-message-function' for `iss-compile'." - (set (make-local-variable 'compilation-exit-message-function) - 'iss-compilation-exit-message-function)) - -(defun iss-compilation-exit-message-function (process-status exit-status msg) - (interactive) - (save-excursion - (let ((buffer-read-only nil)) - (goto-char (point-min)) - ;;scroll down one line, so that the compile command is parsed to: - ;; -> get the filename of the compiled file - (insert "\n"))) - (cons msg exit-status)) - -(defun iss-find-option (option) - (let ((search-regexp - (concat option "[ \t]*=[ \t]*\\(.*\\)$"))) - (save-excursion - (goto-char (point-min)) - (when (search-forward-regexp search-regexp nil t) - (buffer-substring-no-properties (match-beginning 1) (match-end 1)))))) - -(defun iss-run-installer () - (interactive) - (let ((executable - (concat (or (iss-find-option "outputdir") "Output\\") - (or (iss-find-option "outputbasefilename") "setup") - ".exe"))) - (w32-shell-execute 1 executable))) - -(provide 'iss-mode) - -;; arch-tag: b07b7119-d591-465e-927f-d0be0bcf7cab -- cgit v1.2.3-54-g00ecf