--- a/.emacs Tue Jan 26 11:08:33 2010 +0200
+++ b/.emacs Thu Jan 28 22:27:45 2010 +0200
@@ -1,6 +1,6 @@
;; -*- mode: lisp; coding: cp1251 -*-
;;
-;; Copyright (C) 2008 by Oleksandr Gavenko <gavenkoa@gmail.com>
+;; Written by Oleksandr Gavenko <gavenkoa@gmail.com>, 2008-2010.
;;
;; This file placed in public domain.
;;
@@ -11,19 +11,26 @@
(defvar my-usr-el-dir
(expand-file-name "~/usr/share/emacs/site-lisp")
"Here live additional lisp packages.")
-(add-to-list 'load-path my-usr-el-dir)
+(add-to-list 'load-path my-usr-el-dir t)
+(defvar my-lisp-dir
+ (expand-file-name "~/.emacs.d/my-lisp")
+ "Here live my lisp packages.")
+(add-to-list 'load-path my-lisp-dir t)
+(defvar my-autoload (concat my-lisp-dir "/autoload-my.el")
+ "Path to autoload for mode files.")
(defvar dot-emacs-pre (expand-file-name "~/.emacs-pre")
"Path to file with pre-loaded custom settings.")
(defvar dot-emacs-post (expand-file-name "~/.emacs-post")
"Path to file with post-loaded custom settings.")
-(add-to-list 'auto-mode-alist '("\\.emacs-.*" . emacs-lisp-mode) t)
-
;; pre-load custom settings
(if (file-exists-p dot-emacs-pre)
(load dot-emacs-pre))
+(if (file-exists-p my-autoload)
+ (load my-autoload))
+
;; load main customization
(load "~/.emacs-my")
--- a/.emacs-my Tue Jan 26 11:08:33 2010 +0200
+++ b/.emacs-my Thu Jan 28 22:27:45 2010 +0200
@@ -1,6 +1,6 @@
;; -*- mode: lisp; coding: cp1251 -*-
;;
-;; Copyright (C) 2008 by Oleksandr Gavenko <gavenkoa@gmail.com>
+;; Written by Oleksandr Gavenko <gavenkoa@gmail.com>, 2008-2010.
;;
;; This file formed from parts and ideas from many sites/docs and
;; placed in public domain.
@@ -855,6 +855,16 @@
;; (add-hook 'asm-mode-hook '(lambda () (local-set-key ":" ":")))
;; ----------------------------------------------------------------------
+;; linker
+
+(when (fboundp 'iar-linker-config-mode)
+ (add-to-list 'auto-mode-alist '("\\.icf\\'" . iar-linker-config-mode))
+ )
+(when (fboundp 'iar4-linker-config-mode)
+ (add-to-list 'auto-mode-alist '("\\.xcl\\'" . iar4-linker-config-mode))
+ )
+
+;; ----------------------------------------------------------------------
;; lisp
(setq list-command-history-max 256)
@@ -919,11 +929,17 @@
;; ----------------------------------------------------------------------
;; bat file, batch
-(when (featurep 'bat-mode)
- (progn
- (add-to-list 'auto-mode-alist '("\\.[bB][aA][tT]\\'" . bat-mode))
- (add-to-list 'auto-mode-alist '("\\.[cC][mM][dD]\\'" . bat-mode))
- ))
+(when (fboundp 'bat-file-mode)
+ (add-to-list 'auto-mode-alist '("\\.[bB][aA][tT]\\'" . bat-file-mode))
+ (add-to-list 'auto-mode-alist '("\\.[cC][mM][dD]\\'" . bat-file-mode))
+ )
+
+;; ----------------------------------------------------------------------
+;; nsis-mode
+
+(when (fboundp 'nsis-mode)
+ (add-to-list 'auto-mode-alist '("\\.\\(nsi\\|nsh\\)\\'" . nsis-mode))
+ )
;; ----------------------------------------------------------------------
;; *csharp*, c-sharp
@@ -1070,4 +1086,12 @@
"Nice day for Emacsing!")) )
(message (nth (random (length mgs-list)) mgs-list)))))
+;; Size of emacs area and its position.
+(when window-system
+ ;; This size for 1280x1024 resolusion and 13pt font to occupy almost all screen.
+ (run-at-time (format "%d sec" 1) nil '(lambda () (set-frame-position (selected-frame) 1 1)))
+ (run-at-time (format "%d sec" 2) nil '(lambda () (set-frame-width (selected-frame) 150 t)))
+ (run-at-time (format "%d sec" 3) nil '(lambda () (set-frame-height (selected-frame) 60 t)))
+ )
+
;; End loading...
--- a/INSTALL Tue Jan 26 11:08:33 2010 +0200
+++ b/INSTALL Thu Jan 28 22:27:45 2010 +0200
@@ -1,6 +1,8 @@
-*- mode: outline; coding: cp1251 -*-
-Copyright (C) 2008, 2009 by Oleksandr Gavenko <gavenkoa@gmail.com>
+Copyright (C) 2008-2010 by Oleksandr Gavenko <gavenkoa@gmail.com>
+
+You can do anything with this file without any warranty.
* Install note for .emacs.
--- a/Makefile Tue Jan 26 11:08:33 2010 +0200
+++ b/Makefile Thu Jan 28 22:27:45 2010 +0200
@@ -1,51 +1,45 @@
-# Copyright (C) 2008 by Oleksandr Gavenko <gavenkoa@gmail.com>
+# Copyright (C) 2008-2010 by Oleksandr Gavenko <gavenkoa@gmail.com>
+#
+# You can do anything with this file without any warranty.
ifeq '' '$(HOME)'
$(error Home env var not set!)
endif
-.PHONY: all install preinstall install-all preinstall-all update-dot-emacs-pre update-dot-emacs-post tar
-
+.PHONY: all
all: install
-install: preinstall update-dot-emacs-pre update-dot-emacs-post
+.PHONY: install-all
+install-all: install
+ cp .emacs-pre $(HOME)/.emacs-pre
+ cp .emacs-post $(HOME)/.emacs-post
-preinstall: .emacs .emacs-my .emacs-pre .emacs-post
+.PHONY: install
+install: .emacs .emacs-my .emacs-pre .emacs-post $(wildcard lisp/*.el)
for file in .emacs-pre .emacs-post; do \
if [ ! -f $(HOME)/$$file ]; then cp $$file $(HOME)/$$file; fi; \
done
cp .emacs $(HOME)/.emacs
cp .emacs-my $(HOME)/.emacs-my
-
-install-all: preinstall-all update-dot-emacs-pre update-dot-emacs-post
-
-preinstall-all: .emacs .emacs-my .emacs-pre .emacs-post
- for file in $^; do \
- cp $$file $(HOME)/$$file; \
+ rm -f -r $(HOME)/.emacs.d/my-lisp
+ mkdir -p $(HOME)/.emacs.d/my-lisp
+ for file in $(wildcard lisp/*.el); do \
+ cp -f $$file $(HOME)/.emacs.d/my-lisp; \
done
+ emacs --batch \
+ --eval='(let ( (generated-autoload-file "~/.emacs.d/my-lisp/autoload-my.el") ) (update-directory-autoloads "~/.emacs.d/my-lisp") )'
-update-dot-emacs-pre:
- for file in `cd template-pre; ls *.el`; do \
- tag=$${file%.el}; \
- if grep "DO NOT EDIT COMMENT! TAG: $$tag" $(HOME)/.emacs-pre; then \
- :; \
- else \
- cat template-pre/$$file >>$(HOME)/.emacs-pre; \
- fi; \
- done
+.PHONY: uninstall
+uninstall:
+ @echo !!! Nothing done !!!
-update-dot-emacs-post:
- for file in `cd template-post; ls *.el`; do \
- tag=$${file%.el}; \
- if grep "DO NOT EDIT COMMENT! TAG: $$tag" $(HOME)/.emacs-post; then \
- :; \
- else \
- cat template-post/$$file >>$(HOME)/.emacs-post; \
- fi; \
- done
-
+.PHONY: tar
tar:
tar cf dot-emacs.tar .emacs .emacs-my
+.PHONY: distclean
+distclean: clean
+
+.PHONY: clean
clean:
rm -f dot-emacs.tar
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/bat-file-mode.el Thu Jan 28 22:27:45 2010 +0200
@@ -0,0 +1,64 @@
+;;; bat-file-mode.el --- batch file major mode
+
+;; Copyright (C) 2010 by Oleksandr Gavenko <gavenkoa@gmail.com>
+
+;; You can do anything with this file without any warranty.
+
+;; Author: Oleksandr Gavenko <gavenkoa@gmail.com>
+;; Maintainer: Oleksandr Gavenko <gavenkoa@gmail.com>
+;; Created: 2010-01-28
+;; Version: 0.1
+;; Keywords: languages
+
+;;; Commentary:
+;;
+;; Very pure highlighting and not all available syntax.
+
+;;; Code:
+
+;;;###autoload
+(define-generic-mode 'bat-file-mode
+ (list "REM " ":: ")
+ nil
+ '(
+ ("\\(:[[:alnum:]_]+\\)" (1 'font-lock-function-name-face))
+ ("\\<\\([iI][fF]\\|[fF][oO][rR]\\|[gG][oO][tT][oO]\\|[pP][aA][uU][sS][eE]\\|[eE][cC][hH][oO]\\|[pP][rR][oO][mM][pP][tT]\\|[cC][aA][lL][lL]\\|[sS][eE][tT]\\|[sS][tT][aA][rR][tT]\\)\\>" (1 'font-lock-keyword-face))
+ ("\\(:[[:alpha:]][[:alnum:]_]*\\)" (1 'font-lock-function-name-face))
+ ;; ("\\(\\%[a-z]\\)" (1 'font-lock-reference-face))
+ ;; ("\\(%\\sw+%\\)" (1 'font-lock-reference-face))
+ ;; ("\\(%[0-9]\\)" (1 'font-lock-reference-face))
+ )
+ (list "\\.\\([bB][aA][tT]\\|[cC][mM][dD]\\|[nN][sS][hH]\\)$")
+ nil
+ "Generic mode for batch files.")
+
+;; (autoload 'myfunction "mypackage" "Do what I say." t)
+
+(setq bat-file-mode-hook
+ (lambda ()
+ (modify-syntax-entry ?\" "\"")
+ (modify-syntax-entry ?' "\"")
+ (modify-syntax-entry ?\\ "\\")
+ (modify-syntax-entry ?= ".")
+ (modify-syntax-entry ?_ "w")
+ )
+ )
+
+;; (add-hook
+;; 'bat-file-mode-hook
+;; (lambda ()
+;; (modify-syntax-entry ?\" "\"")
+;; (modify-syntax-entry ?' "\"")
+;; (modify-syntax-entry ?\\ "\\")
+;; (modify-syntax-entry ?= ".")
+;; (modify-syntax-entry ?_ "w")
+;; ))
+
+;; .bat file gramma:
+;;
+;; cmd ::= path { arg }
+;; path ::=
+
+(provide 'bat-file-mode)
+
+;;; bat-file-mode.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/iar-linker-config-mode.el Thu Jan 28 22:27:45 2010 +0200
@@ -0,0 +1,71 @@
+;;; iar-linker-config-mode.el --- major mode for highlighting IAR Embedded Workbench 5.x linker scripts
+
+;; Copyright (C) 2009, 2010 by Oleksandr Gavenko <gavenkoa@gmail.com>
+
+;; You can do anything with this file without any warranty.
+
+;; Author: Oleksandr Gavenko <gavenkoa@gmail.com>
+;; Maintainer: Oleksandr Gavenko <gavenkoa@gmail.com>
+;; Created: 2009-11-08
+;; Version: 0.1
+;; Keywords: languages
+
+;;; Commentary:
+;;
+;; Very pure highlighting and not all available syntax.
+
+;;; Code:
+
+;;;###autoload
+(define-generic-mode iar-linker-config-mode
+ '("// " ("/*" . "*/"))
+ '("zeroinit" "code" "readwrite" "rw" "readonly" "ro")
+ '(
+ ("\\(define +symbol\\) +\\([_a-zA-Z0-9]+\\) *= *\\(0x[0-9a-fA-F]+\\);"
+ (1 font-lock-keyword-face)
+ (2 font-lock-variable-name-face)
+ (3 font-lock-constant-face) )
+ ("\\(define +memory\\) +\\([_a-zA-Z]+\\) +\\(with +size\\) = \\(0x[0-9a-fA-F]+\\|[0-9]+\\)[GMK]?;"
+ (1 font-lock-keyword-face)
+ (2 font-lock-variable-name-face)
+ (3 font-lock-keyword-face)
+ (4 font-lock-constant-face) )
+ ("\\([_a-zA-Z]+\\):\\[\\(from\\) +\\([_a-zA-Z0-9]+\\) +\\(to\\|size\\) +\\([_a-zA-Z0-9]+\\)\\]"
+ (1 font-lock-variable-name-face)
+ (2 font-lock-keyword-face)
+ (3 font-lock-variable-name-face)
+ (4 font-lock-keyword-face)
+ (5 font-lock-variable-name-face) )
+ ("\\(define +region\\) +\\([_a-zA-Z]+\\) *="
+ (1 font-lock-keyword-face)
+ (2 font-lock-variable-name-face) )
+ ("\\(define +block\\) +\\([_a-zA-Z]+\\) +\\(with +alignment\\) *= *[0-9]+, *\\(size\\) *= *\\([_a-zA-Z]+\\).*;"
+ (1 font-lock-keyword-face)
+ (2 font-lock-variable-name-face)
+ (3 font-lock-keyword-face)
+ (4 font-lock-keyword-face)
+ (5 font-lock-variable-name-face) )
+ ("\\(do +not +initialize\\) *{"
+ (1 font-lock-keyword-face) )
+ ("\\(place +in\\) +\\([_a-zA-Z]+\\) *{"
+ (1 font-lock-keyword-face)
+ (2 font-lock-variable-name-face) )
+ ("\\(place +at +address\\) +\\([_a-zA-Z]+\\):\\([_a-zA-Z]+\\) *{"
+ (1 font-lock-keyword-face)
+ (2 font-lock-variable-name-face)
+ (3 font-lock-variable-name-face) )
+ ("\\(initialize by copy\\) *{"
+ (1 font-lock-keyword-face) )
+ ("\\(block\\|section\\) +\\([_.a-zA-Z0-9]+\\)"
+ (1 font-lock-keyword-face)
+ (2 font-lock-variable-name-face) )
+ )
+ (list "\\.\\(icf\\)\\'")
+ (list
+ (lambda () (setq comment-start "/* " comment-end " */"))
+ )
+ "Generic mode for iar linker config files.")
+
+(provide 'iar-linker-config-mode)
+
+;;; iar-linker-config-mode.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/iar4-linker-config-mode.el Thu Jan 28 22:27:45 2010 +0200
@@ -0,0 +1,53 @@
+;;; iar-linker-config-mode.el --- major mode for highlighting IAR Embedded Workbench 4.x linker scripts
+
+;; Copyright (C) 2009, 2010 by Oleksandr Gavenko <gavenkoa@gmail.com>
+
+;; You can do anything with this file without any warranty.
+
+;; Author: Oleksandr Gavenko <gavenkoa@gmail.com>
+;; Maintainer: Oleksandr Gavenko <gavenkoa@gmail.com>
+;; Created: 2009-11-04
+;; Version: 0.1
+;; Keywords: languages
+
+;;; Commentary:
+;;
+;; Very pure highlighting and not all available syntax.
+
+;;; Code:
+
+;;;###autoload
+(define-generic-mode iar4-linker-config-mode
+ '("// " ("/*" . "*/"))
+ nil
+ '(
+ ("^\\(-c\\)\\([_a-zA-Z]+\\)"
+ (1 font-lock-keyword-face)
+ (2 font-lock-variable-name-face) )
+ ("^\\(-D\\)\\([_a-zA-Z0-9]+\\)=\\(\\(0x\\)?[0-9a-fA-F]+\\|.[0-9]+\\)"
+ (1 font-lock-keyword-face)
+ (2 font-lock-variable-name-face)
+ (3 font-lock-constant-face) )
+ ("^\\(-Q\\)\\([_a-zA-Z]+\\)=\\([_a-zA-Z]+\\)"
+ (1 font-lock-keyword-face)
+ (2 font-lock-variable-name-face)
+ (3 font-lock-variable-name-face) )
+ ("^\\(-Z\\|-P\\|-b\\)(\\([_a-zA-Z]+\\))\\([_a-zA-Z]+\\)="
+ (1 font-lock-keyword-face)
+ (2 font-lock-variable-name-face)
+ (3 font-lock-variable-name-face) )
+ ("^\\(-Z\\|-P\\|-b\\)(\\([_a-zA-Z]+\\))\\([_a-zA-Z]+\\)\\+\\([_a-zA-Z]+\\)="
+ (1 font-lock-keyword-face)
+ (2 font-lock-variable-name-face)
+ (3 font-lock-variable-name-face)
+ (4 font-lock-variable-name-face) )
+ )
+ (list "\\.\\(xcl\\)\\'")
+ (list
+ (lambda () (setq comment-start "// " comment-end ""))
+ )
+ "Generic mode for iar linker config files.")
+
+(provide 'iar4-linker-config-mode)
+
+;;; iar4-linker-config-mode.el ends here
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/nsis-mode.el Thu Jan 28 22:27:45 2010 +0200
@@ -0,0 +1,32 @@
+;;; iar-linker-config-mode.el --- major mode for highlighting NSIS scripts
+
+;; Copyright (C) 2009, 2010 by Oleksandr Gavenko <gavenkoa@gmail.com>
+
+;; You can do anything with this file without any warranty.
+
+;; Author: Oleksandr Gavenko <gavenkoa@gmail.com>
+;; Maintainer: Oleksandr Gavenko <gavenkoa@gmail.com>
+;; Created: 2009-09-14
+;; Version: 0.1
+;; Keywords: languages
+
+;;; Commentary:
+;;
+;; Very pure syntax highlighting.
+
+;;; Code:
+
+;;;###autoload
+(define-generic-mode 'nsis-mode
+ (list ?\;)
+ '("Section" "SectionEnd" "Function" "FunctionEnd" "Call" "Goto")
+ '(("!\\([A-Za-z]+\\)" (1 'font-lock-builtin-face))
+ ("$[({]?\\([A-Za-z0-9_]+\\)[)}]?" (1 'font-lock-variable-name-face))
+ )
+ (list "\\.\\(nsi\\|nsh\\)$")
+ nil
+ "Generic mode for nsis files.")
+
+(provide 'nsis-mode)
+
+;;; nsis-mode.el ends here
--- a/template-post/resize-frame.el Tue Jan 26 11:08:33 2010 +0200
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,8 +0,0 @@
-;; DO NOT EDIT COMMENT! TAG: resize-frame
-;; Size of emacs area and its position.
-(when window-system
- ;; This size for 1280x1024 resolusion and 13pt font to occupy almost all screen.
- (run-at-time (format "%d sec" 1) nil '(lambda () (set-frame-position (selected-frame) 1 1)))
- (run-at-time (format "%d sec" 2) nil '(lambda () (set-frame-width (selected-frame) 150 t)))
- (run-at-time (format "%d sec" 3) nil '(lambda () (set-frame-height (selected-frame) 60 t)))
- )
--- a/template-pre/iar-linker-config-mode.el Tue Jan 26 11:08:33 2010 +0200
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,70 +0,0 @@
-;;; iar-linker-config-mode.el --- major mode for highlighting IAR Embedded Workbench 5.x linker scripts
-
-;; DO NOT EDIT COMMENT! TAG: iar-linker-config-mode
-
-;; Copyright (C) 2009, 2010 by Oleksandr Gavenko <gavenkoa@gmail.com>
-
-;; Author: Oleksandr Gavenko <gavenkoa@gmail.com>
-;; Maintainer: Oleksandr Gavenko <gavenkoa@gmail.com>
-;; Created: 2009-11-08
-;; Version: 0.1
-;; Keywords: languages
-
-;;; Commentary:
-;;
-;; Very pure highlighting and not all available syntax.
-
-;;; Code:
-
-(define-generic-mode iar-linker-config-mode
- '("// " ("/*" . "*/"))
- '("zeroinit" "code" "readwrite" "rw" "readonly" "ro")
- '(
- ("\\(define +symbol\\) +\\([_a-zA-Z0-9]+\\) *= *\\(0x[0-9a-fA-F]+\\);"
- (1 font-lock-keyword-face)
- (2 font-lock-variable-name-face)
- (3 font-lock-constant-face) )
- ("\\(define +memory\\) +\\([_a-zA-Z]+\\) +\\(with +size\\) = \\(0x[0-9a-fA-F]+\\|[0-9]+\\)[GMK]?;"
- (1 font-lock-keyword-face)
- (2 font-lock-variable-name-face)
- (3 font-lock-keyword-face)
- (4 font-lock-constant-face) )
- ("\\([_a-zA-Z]+\\):\\[\\(from\\) +\\([_a-zA-Z0-9]+\\) +\\(to\\|size\\) +\\([_a-zA-Z0-9]+\\)\\]"
- (1 font-lock-variable-name-face)
- (2 font-lock-keyword-face)
- (3 font-lock-variable-name-face)
- (4 font-lock-keyword-face)
- (5 font-lock-variable-name-face) )
- ("\\(define +region\\) +\\([_a-zA-Z]+\\) *="
- (1 font-lock-keyword-face)
- (2 font-lock-variable-name-face) )
- ("\\(define +block\\) +\\([_a-zA-Z]+\\) +\\(with +alignment\\) *= *[0-9]+, *\\(size\\) *= *\\([_a-zA-Z]+\\).*;"
- (1 font-lock-keyword-face)
- (2 font-lock-variable-name-face)
- (3 font-lock-keyword-face)
- (4 font-lock-keyword-face)
- (5 font-lock-variable-name-face) )
- ("\\(do +not +initialize\\) *{"
- (1 font-lock-keyword-face) )
- ("\\(place +in\\) +\\([_a-zA-Z]+\\) *{"
- (1 font-lock-keyword-face)
- (2 font-lock-variable-name-face) )
- ("\\(place +at +address\\) +\\([_a-zA-Z]+\\):\\([_a-zA-Z]+\\) *{"
- (1 font-lock-keyword-face)
- (2 font-lock-variable-name-face)
- (3 font-lock-variable-name-face) )
- ("\\(initialize by copy\\) *{"
- (1 font-lock-keyword-face) )
- ("\\(block\\|section\\) +\\([_.a-zA-Z0-9]+\\)"
- (1 font-lock-keyword-face)
- (2 font-lock-variable-name-face) )
- )
- (list "\\.\\(icf\\)\\'")
- (list
- (lambda () (setq comment-start "/* " comment-end " */"))
- )
- "Generic mode for iar linker config files.")
-
-(provide 'iar-linker-config-mode)
-
-;;; iar-linker-config-mode.el ends here
--- a/template-pre/iar4-linker-config-mode.el Tue Jan 26 11:08:33 2010 +0200
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,52 +0,0 @@
-;;; iar-linker-config-mode.el --- major mode for highlighting IAR Embedded Workbench 4.x linker scripts
-
-;; DO NOT EDIT COMMENT! TAG: iar4-linker-config-mode
-
-;; Copyright (C) 2009, 2010 by Oleksandr Gavenko <gavenkoa@gmail.com>
-
-;; Author: Oleksandr Gavenko <gavenkoa@gmail.com>
-;; Maintainer: Oleksandr Gavenko <gavenkoa@gmail.com>
-;; Created: 2009-11-04
-;; Version: 0.1
-;; Keywords: languages
-
-;;; Commentary:
-;;
-;; Very pure highlighting and not all available syntax.
-
-;;; Code:
-
-(define-generic-mode iar4-linker-config-mode
- '("// " ("/*" . "*/"))
- nil
- '(
- ("^\\(-c\\)\\([_a-zA-Z]+\\)"
- (1 font-lock-keyword-face)
- (2 font-lock-variable-name-face) )
- ("^\\(-D\\)\\([_a-zA-Z0-9]+\\)=\\(\\(0x\\)?[0-9a-fA-F]+\\|.[0-9]+\\)"
- (1 font-lock-keyword-face)
- (2 font-lock-variable-name-face)
- (3 font-lock-constant-face) )
- ("^\\(-Q\\)\\([_a-zA-Z]+\\)=\\([_a-zA-Z]+\\)"
- (1 font-lock-keyword-face)
- (2 font-lock-variable-name-face)
- (3 font-lock-variable-name-face) )
- ("^\\(-Z\\|-P\\|-b\\)(\\([_a-zA-Z]+\\))\\([_a-zA-Z]+\\)="
- (1 font-lock-keyword-face)
- (2 font-lock-variable-name-face)
- (3 font-lock-variable-name-face) )
- ("^\\(-Z\\|-P\\|-b\\)(\\([_a-zA-Z]+\\))\\([_a-zA-Z]+\\)\\+\\([_a-zA-Z]+\\)="
- (1 font-lock-keyword-face)
- (2 font-lock-variable-name-face)
- (3 font-lock-variable-name-face)
- (4 font-lock-variable-name-face) )
- )
- (list "\\.\\(xcl\\)\\'")
- (list
- (lambda () (setq comment-start "// " comment-end ""))
- )
- "Generic mode for iar linker config files.")
-
-(provide 'iar4-linker-config-mode)
-
-;;; iar4-linker-config-mode.el ends here
--- a/template-pre/nsis-mode.el Tue Jan 26 11:08:33 2010 +0200
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,32 +0,0 @@
-;;; iar-linker-config-mode.el --- major mode for highlighting NSIS scripts
-
-;; DO NOT EDIT COMMENT! TAG: nsis-mode
-
-;; Copyright (C) 2009, 2010 by Oleksandr Gavenko <gavenkoa@gmail.com>
-
-;; Author: Oleksandr Gavenko <gavenkoa@gmail.com>
-;; Maintainer: Oleksandr Gavenko <gavenkoa@gmail.com>
-;; Created: 2009-09-14
-;; Version: 0.1
-;; Keywords: languages
-
-;;; Commentary:
-;;
-;; Very pure syntax highlighting.
-
-;;; Code:
-
-(when (eq window-system 'w32)
- (define-generic-mode 'nsis-generic-mode
- (list ?\;)
- '("Section" "SectionEnd" "Function" "FunctionEnd" "Call" "Goto")
- '(("!\\([A-Za-z]+\\)" (1 'font-lock-builtin-face))
- ("$[({]?\\([A-Za-z0-9_]+\\)[)}]?" (1 'font-lock-variable-name-face))
- )
- (list "\\.\\(nsi\\|nsh\\)$")
- nil
- "Generic mode for nsis files."))
-
-(provide 'nsis-mode)
-
-;;; nsis-mode.el ends here