my.emacs

;;; comment ￑ﾀ￑ﾀ￑ﾀ￑ﾄ￐ﾹ￐ﾽ￐ﾹ￐ﾽ￐ﾽ￐ﾹ ￐ﾹ￐ﾹ￐ﾹ￑ﾆ￑ﾆ￑ﾆ tttqqqwww￩￩￩ qqq
;;; ￃﾪￃﾣￃﾻ (in qwerty) ￃﾰￃﾳￃﾱ (jcuken)
;;; ￩￶￳￪￪￥￭ qwerty


(defmacro custom-comment (&rest rest)
  nil)
(defmacro ccc (&rest rest)  nil)

;;(cd "C:\\cygwin\\home\\avpaqr")
;;(cd "C:/sfu/usr/local/src/")
(setq line-number-mode t)
(setq default-input-method "cyrillic-jcuken")
;(prefer-coding-system 'cp1251)
;(prefer-coding-system 'utf-8)
;(set-face-background 'default "lightgray")
(set-face-background 'default "#eee")
(set-face-foreground 'default "midnightblue")
(set-face-attribute 'region nil :background "#ee5")
;;; next for Ubuntu GNOME in VirtualBox

;(set-face-font 'default "-unknown-DejaVu Sans Mono-normal-normal-normal-*-12-*-*-*-m-0-iso10646-1")
(set-face-attribute 'default nil
		   :height 100)
;		   (- (face-attribute 'default :height) 10))



;(set-face-font 'default "-unknown-DejaVu Sans Mono-normal-normal-normal-*-13-*-*-*-m-0-iso10646-1")

;(set-frame-parameter nil 'cursor-color "grey")
;(set-frame-parameter nil 'background-color "#403550")
;(set-frame-parameter nil 'foreground-color "#c0a070")

;(set-frame-parameter nil 'foreground-color "orange")
;(set-frame-parameter nil 'background-color "midnightblue")

;(set-frame-font "")
;(set-frame-font "-outline-OCR A Extended-normal-normal-normal-mono-13-*-*-*-p-*-iso8859-1")
;(set-frame-font "-outline-MS Mincho-normal-normal-normal-mono-13-*-*-*-c-*-iso8859-1")
;(set-frame-font "-outline-Lucida Sans Typewriter-normal-normal-normal-mono-13-*-*-*-c-*-iso8859-1")
;(set-frame-font "-outline-Lucida Console-normal-normal-normal-mono-13-*-*-*-c-*-iso8859-1")
;(set-frame-font "-outline-Courier New-normal-normal-normal-mono-13-*-*-*-c-*-iso8859-1")
;(set-frame-font "-outline-Consolas-normal-normal-normal-mono-13-*-*-*-c-*-iso8859-1")
;(set-frame-font "bookman old style:normal")
;(set-frame-font "-outline-Eras Demi ITC-normal-normal-normal-sans-14-*-*-*-p-*-iso8859-1")
;(set-frame-font "-outline-Arial-bold-normal-normal-sans-14-*-*-*-p-*-iso8859-1")
;(set-frame-font "-outline-Arial-normal-normal-normal-sans-14-*-*-*-p-*-iso8859-1")
;(set-frame-font "-outline-Courier New-normal-normal-normal-mono-13-*-*-*-c-*-iso8859-1")
;(set-frame-font "-outline-Courier New-bold-normal-normal-mono-14-*-*-*-c-*-iso8859-1")
;(frame-parameter nil 'font)

;;; (set-face-font 'default "Lucida Console:normal:10::cyrillic")
;;; (set-face-font 'default "Lucida Sans Unicode:normal:12::cyrillic")
;;; (set-face-font 'default "Courier New::10::cyrillic")
; (set-face-font 'default "Times New Roman:bold:16::cyrillic")
; (set-face-font 'default "Courier New:bold:12::cyrillic")

;(set-face-font 'default "Courier New:bold:10::cyrillic")

;;;(set-face-font 'default "Courier New:normal:10::cyrillic")

;; (set-face-font 'default "Lucida Sans Unicode:normal:12::cyrillic")

;(set-face-background 'default "lightgray")
;(set-face-background 'default "NavajoWhite2")
;(set-face-background 'default "snow3")
;(set-face-background 'default "PapayaWhip")
;(set-face-background 'default "gainsboro")
;(set-face-background 'default "wheat")
;(set-face-background 'default "NavajoWhite")
;(set-face-background 'default "NavajoWhite3")
;(set-face-background 'default "cornsilk3")
;(set-face-background 'default "LemonChiffon3")
;(set-face-background 'default "seashell3")
;(set-face-background 'default "honeydew3")
;(set-face-background 'default "LavenderBlush3")
;(set-face-background 'default "LightGoldenrod2")
;(set-face-background 'default "wheat3")
;(set-face-background 'default "tan2")
;(set-face-background 'default "salmon1")
;(set-face-background 'default "thistle3")
;(set-face-background 'default "bisque3")
;

(defun my-prefer-coding-system-utf-8 ()
  "Switch to UTF-8"
  (interactive)
  (prefer-coding-system 'utf-8)
  (message "utf-8"))

(defun my-prefer-coding-system-cp1251 ()
  "Switch to CP1251"
  (interactive)
  (prefer-coding-system 'cp1251)
  (message "cp1251"))

(defun my-dark_frame ()
  "Make frame in semidark/semilight colors"
  (interactive)
;  (set-frame-font "-outline-Courier New-bold-normal-normal-mono-14-*-*-*-c-*-iso8859-1")
  (set-frame-parameter nil 'cursor-color "grey")
  (set-frame-parameter nil 'background-color "#403550")
  (set-frame-parameter nil 'foreground-color "#c0a070"))

(defun my-light_frame ()
  "Make frame in light colors"
  (interactive)
;  (set-frame-font "-outline-Courier New-bold-normal-normal-mono-14-*-*-*-c-*-iso8859-1")
  (set-frame-parameter nil 'cursor-color "black")
  (set-frame-parameter nil 'background-color "#e8e0c8")
  (set-frame-parameter nil 'foreground-color "black"))

(global-set-key [f1]  'prefer-coding-system)
(global-set-key [C-f1]  'my-prefer-coding-system-cp1251)
(global-set-key [S-f1]  'my-prefer-coding-system-utf-8)

(global-set-key [f12]  'copy-region-as-kill)
(global-set-key [f11]  'backward-sexp)
(global-set-key [f4] 'makefile-gmake-mode)
(global-set-key [S-f4] 'fundamental-mode)
(global-set-key [f5]  'global-font-lock-mode)
(global-set-key [f6]  'font-lock-fontify-buffer)
(global-set-key [f7]  'forward-sexp)
(global-set-key [f8]  'point-to-register)
(global-set-key [f9]  'jump-to-register)
(global-set-key "\C-x\M-f" 'find-file-binary)
(global-set-key "\C-x\M-h" 'htmlfontify-buffer)
(define-key global-map "\^X\^G" 'goto-char)
(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(inhibit-startup-screen t))
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(font-lock-comment-face ((((class color) (min-colors 88) (background light)) (:foreground "#503000" :slant italic)) (((class color) (min-colors 88) (background dark)) (:foreground "wheat" :slant italic))))
 '(font-lock-keyword-face ((((class color) (min-colors 88) (background light)) (:foreground "purple")) (((class color) (min-colors 88) (background dark)) (:foreground "orchid"))))
 '(font-lock-negation-char-face ((t (:foreground "magenta3"))))
 '(font-lock-string-face ((((class color) (min-colors 88) (background light)) (:foreground "red4")) (((class color) (min-colors 88) (background dark)) (:foreground "orange"))))
 '(font-lock-type-face ((((class color) (min-colors 88) (background light)) (:foreground "#005000")) (((class color) (min-colors 88) (background dark)) (:foreground "palegreen")))))