summaryrefslogtreecommitdiffstats
path: root/emacs.d/nxhtml/related/iss-mode.el
diff options
context:
space:
mode:
Diffstat (limited to 'emacs.d/nxhtml/related/iss-mode.el')
-rw-r--r--emacs.d/nxhtml/related/iss-mode.el205
1 files changed, 0 insertions, 205 deletions
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, <stefan@xsteve.at>
-;; 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
generated by cgit v1.2.3-54-g00ecf (git 2.39.0) at 2024-07-10 13:17:04 +0000