merged
authorOleksandr Gavenko <gavenkoa@gmail.com>
Thu, 28 Jan 2010 22:27:45 +0200
changeset 280 9250e3ad5f4a
parent 259 b6c514e81d2c (current diff)
parent 279 fd6164dfec82 (diff)
child 281 457b9057a35a
merged
.emacs-my
template-post/resize-frame.el
template-pre/iar-linker-config-mode.el
template-pre/iar4-linker-config-mode.el
template-pre/nsis-mode.el
--- 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