# HG changeset patch # User Oleksandr Gavenko # Date 1264710465 -7200 # Node ID 9250e3ad5f4a413af148ff987be96bef362b3593 # Parent b6c514e81d2c2dc37c1fe44ed5f1762a00313e95# Parent fd6164dfec82040474e2b981bcd579a843319c9f merged diff -r b6c514e81d2c -r 9250e3ad5f4a .emacs --- 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 +;; Written by Oleksandr Gavenko , 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") diff -r b6c514e81d2c -r 9250e3ad5f4a .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 +;; Written by Oleksandr Gavenko , 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... diff -r b6c514e81d2c -r 9250e3ad5f4a INSTALL --- 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 +Copyright (C) 2008-2010 by Oleksandr Gavenko + +You can do anything with this file without any warranty. * Install note for .emacs. diff -r b6c514e81d2c -r 9250e3ad5f4a Makefile --- 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 +# Copyright (C) 2008-2010 by Oleksandr Gavenko +# +# 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 diff -r b6c514e81d2c -r 9250e3ad5f4a lisp/bat-file-mode.el --- /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 + +;; You can do anything with this file without any warranty. + +;; Author: Oleksandr Gavenko +;; Maintainer: Oleksandr Gavenko +;; 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 diff -r b6c514e81d2c -r 9250e3ad5f4a lisp/iar-linker-config-mode.el --- /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 + +;; You can do anything with this file without any warranty. + +;; Author: Oleksandr Gavenko +;; Maintainer: Oleksandr Gavenko +;; 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 diff -r b6c514e81d2c -r 9250e3ad5f4a lisp/iar4-linker-config-mode.el --- /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 + +;; You can do anything with this file without any warranty. + +;; Author: Oleksandr Gavenko +;; Maintainer: Oleksandr Gavenko +;; 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 diff -r b6c514e81d2c -r 9250e3ad5f4a lisp/nsis-mode.el --- /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 + +;; You can do anything with this file without any warranty. + +;; Author: Oleksandr Gavenko +;; Maintainer: Oleksandr Gavenko +;; 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 diff -r b6c514e81d2c -r 9250e3ad5f4a template-post/resize-frame.el --- 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))) - ) diff -r b6c514e81d2c -r 9250e3ad5f4a template-pre/iar-linker-config-mode.el --- 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 - -;; Author: Oleksandr Gavenko -;; Maintainer: Oleksandr Gavenko -;; 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 diff -r b6c514e81d2c -r 9250e3ad5f4a template-pre/iar4-linker-config-mode.el --- 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 - -;; Author: Oleksandr Gavenko -;; Maintainer: Oleksandr Gavenko -;; 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 diff -r b6c514e81d2c -r 9250e3ad5f4a template-pre/nsis-mode.el --- 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 - -;; Author: Oleksandr Gavenko -;; Maintainer: Oleksandr Gavenko -;; 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