Added installation of template for -pre/-post scripts.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Mon, 14 Sep 2009 12:16:12 +0300
changeset 164 d7ed163b397e
parent 163 f9b21d24bbf4
child 165 9f5dd505a4cf
Added installation of template for -pre/-post scripts.
Makefile
template-post/resize-frame.el
template-pre/nsis-mode.el
--- a/Makefile	Tue Sep 08 12:10:17 2009 +0300
+++ b/Makefile	Mon Sep 14 12:16:12 2009 +0300
@@ -4,22 +4,46 @@
   $(error Home env var not set!)
 endif
 
-.PHONY: all install install-all
+.PHONY: all install preinstall install-all preinstall-all update-dot-emacs-pre update-dot-emacs-post
 
 all: install
 
-install: .emacs .emacs-my .emacs-pre .emacs-post
+install: preinstall update-dot-emacs-pre update-dot-emacs-post
+
+preinstall: .emacs .emacs-my .emacs-pre .emacs-post
 	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: .emacs .emacs-my .emacs-pre .emacs-post
+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; \
 	done
 
+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
+
+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
+
 dist-tar:
 	tar cf dot-emacs.tar .emacs .emacs-my
 
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/template-post/resize-frame.el	Mon Sep 14 12:16:12 2009 +0300
@@ -0,0 +1,7 @@
+;; DO NOT EDIT COMMENT! TAG: resize-frame
+(when window-system
+  ;; This size for 1280x1024 resolusion and 13pt font.
+  (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)))
+  )
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/template-pre/nsis-mode.el	Mon Sep 14 12:16:12 2009 +0300
@@ -0,0 +1,11 @@
+;; DO NOT EDIT COMMENT! TAG: nsis-mode
+(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."))