;; -*- mode: lisp; coding: cp1251 -*-

;;

;; Copyright (C) 2008 by Oleksandr Gavenko <gavenkoa@gmail.com>

;;

;; This file formed from parts and ideas from many sites/docs and

;; placed in public domain.

;;

;; .emacs file for GNU Emacs.

;;

;; ~/.emacs load this file after ~/.emacs-pre, but before ~/.emacs-post.

;; ======================================================================

;; Debugging.

;; Shut off message buffer by setting nil.

(setq message-log-max 100)

;;(add-hook 'after-init-hook

;;    '(lambda () (setq debug-on-error t)))

;;(debug-on-entry 'command-line-1)

;; Set the debug option to enable a backtrace when a problem occurs.

(setq debug-on-error nil)               ; t/nil

;; ======================================================================

;; ��������� �������� ���� ���������.

;; View.

(menu-bar-mode -1)

(tool-bar-mode -1)

(tooltip-mode -1)

(scroll-bar-mode 1)

(if window-system

    ;; ��� X-window � Win

    (progn

      ;;��������� ������ ������

      (set-background-color "white")

      (set-foreground-color "black")

      ;;��������� ������� ������ �������

      (set-cursor-color "brown")

      ;;(setq blink-matching-delay 0.01)

      ;; ������ �� ������!

      ;; (blink-cursor-mode nil)

      ;; (set-face-font 'default "7x14")

      (fringe-mode 'default)

      )

  ;; ��� tty

  (progn

    )

)

;; ----------------------------------------------------------------------

;; Silent runing.

;; (setq inhibit-splash-screen t) ; nonexist on 21.4.1

(setq inhibit-startup-message t)

;; ======================================================================

;; GNU Serv.

;; (load "~/emacs/bin/gnuserv/gnuserv.el")

;; (require 'gnuserv)

;; (setq gnuserv-frame (selected-frame))

(require 'server)

(when (and (= emacs-major-version 23) (equal window-system 'w32))

  (defun server-ensure-safe-dir (dir) "Noop" t)) ; Suppress error directory ~/.emacs.d/server is unsafe on windows.

(server-start)

;; (desktop-load-default)

;; (desktop-read)

;; ======================================================================

;; standart/general settings

(setq kill-whole-line t)

;; show column & line numbers in status bar

(setq column-number-mode t)

(setq line-number-mode t)

(setq view-read-only t)

(setq frame-title-format "Emacs - %b")

;; Always end a file with a newline.

;; (setq require-final-newline t)

(setq read-quoted-char-radix 16)

;; ----------------------------------------------------------------------

;; Switching, creating, selecting buffers.

(iswitchb-mode 1)

(setq iswitchb-buffer-ignore nil)

(mapc (lambda (arg) (add-to-list 'iswitchb-buffer-ignore arg))

        '("^ "

          "^\*Buffer"

          "^\*Completions\*"

          "^\*tramp"

          "^\*Dired log\*"

          "^\*Help\*"

          "^\*Quail Completions\*"

          "^\*Disabled Command\*"

          "^\*vc\*"

          ))

(require 'uniquify)

(setq uniquify-buffer-name-style 'post-forward)

(global-set-key "\C-x\C-b" 'buffer-menu)

;; ----------------------------------------------------------------------

;; Scrolling

(setq-default

 ;; The number of lines to try scrolling a window by when point moves out.

 scroll-step 1

 scroll-conservatively 100

 ;; ��� ����������� ����� ��������������� �� ���������� i ����� � ������� ������,

 scroll-margin 2

 scroll-preserve-screen-position t

 )

;; ----------------------------------------------------------------------

;; *Text*

(setq default-major-mode 'text-mode)

;; ----------------------------------------------------------------------

;; syntax highlighting

(setq font-lock-maximum-decoration t)

(global-font-lock-mode 1 t)

;; ----------------------------------------------------------------------

;; highlight selected text

;; 1/-1, when the mark is active, the region is highlighted.

(transient-mark-mode 1)

(delete-selection-mode 1)               ; 1/-1

;; Order of next item is important.

(require 'pc-select)

;; To avoid some key bindings as F6, etc. Must set before 'pc-selection-mode' invoke.

(setq pc-select-selection-keys-only t)

(pc-selection-mode 1)

(when (eq window-system 'x)

  (setq x-select-enable-clipboard t)    ; from Emacs 21.2.1 and newer

  )

;; ----------------------------------------------------------------------

;; line

(if window-system

    (progn

      (global-hl-line-mode t)

      (custom-set-faces '(hl-line ((t (:inherit highlight :background "light yellow")))))

      )

  )

;; ----------------------------------------------------------------------

;; paren, brace

(show-paren-mode 1) ; Parenthesis matching via highlighting.

;; (setq show-paren-style 'expression) ; �������� ��� ��������� � �������

(setq show-paren-style (quote parenthesis))

;; ======================================================================

;; Keyboard, mouse.

;; cyrillic-jcuken  for 567 is :,.

;; russian-computer for 567 is %^&

(setq default-input-method 'cyrillic-jcuken)

;; (pc-bindings-mode) ; Myself define keybinding, see

;; ----------------------------------------------------------------------

;; Completition

(partial-completion-mode t) ; For example, M-x p-c-m expands to M-x partial-completion-mode

;; ----------------------------------------------------------------------

;; Mouse

;; Scroll Bar gets dragged by mouse butn 1

(global-set-key [vertical-scroll-bar down-mouse-1] 'scroll-bar-drag)

;; Paste at point NOT at cursor

(setq mouse-yank-at-point t)

(mouse-wheel-mode 1)

;; ----------------------------------------------------------------------

;; Key Binding (Short-keys).

(global-set-key [home]    'beginning-of-line)

(global-set-key [end]     'end-of-line)

(global-set-key [C-home] 'beginning-of-buffer)

(global-set-key [C-end]  'end-of-buffer)

(global-set-key [C-delete]  'kill-word)

(global-set-key [delete]     'delete-char)

;; (global-set-key [backspace]  'backward-delete-char-untabify) ; not work properly in *info* mode

;; setting some f[1-12] keys

(global-set-key [f1]    'help)

(global-set-key [f2]    'save-buffer)

;; (global-set-key [xxx]    'ediff-buffers)

(global-set-key [f4]    'ispell-buffer)

(global-set-key [S-f6]  'rename-buffer)

(global-set-key [f8]    'kill-this-buffer)

(global-set-key [M-f4]  'save-buffers-kill-emacs)

(global-set-key [f6]    'toggle-truncate-lines)

;; *Occur*

(global-set-key [f7] 'occur)            ; Key binding as in mc

;; frames, windows manipulation, switch buffers

(global-set-key [?\C-x right] 'next-buffer)

(global-set-key [?\C-x left]  'previous-buffer)

;; I usually mistype "C-x C-f" to "C-x d" or "C-x C-d", so always use find-file,

;; because when file if directory find-file load dired, if regular file open it.

(global-set-key (kbd "C-x C-f") 'find-file)

(global-set-key (kbd "C-x C-d") 'find-file)

(global-set-key (kbd "C-x d") 'find-file)

(global-set-key (kbd "\e\eg") 'goto-line)

(global-set-key (kbd "\e\er") 'query-replace-regexp)

;; Disable C-z, it ugly.

(if window-system (global-set-key (kbd "C-z") 'nil))

;; (global-set-key [language-change] 'ignore)

;; ======================================================================

;; Coding system, charset, locale, lang.

;; Emacs 23.1 no longer need codepage-setup.

(when (<= emacs-major-version 22)

  (codepage-setup 866)

  (codepage-setup 1251)

  )

;; Comment because prefer-coding-system will be ignored.

;; (setq-default coding-system-for-read  'cp1251-dos)

;; (setq-default coding-system-for-write 'cp1251-dos)

;; (setq locale-coding-system  'cp1251-dos)

;; (set-terminal-coding-system 'cp1251)

;; (set-keyboard-coding-system 'cp1251)

(prefer-coding-system 'koi8-r-dos)

(prefer-coding-system 'utf-16-le)

(prefer-coding-system 'cp866-dos)

(modify-coding-system-alist 'file "\\.el" 'iso-2022-7bit)

(cond

 ((equal window-system 'w32)          ; also (string-equal system-type "windows-nt")

  (progn

    (set-selection-coding-system 'utf-16le-dos)

    (prefer-coding-system 'utf-8-unix)

    (prefer-coding-system 'cp1251-dos)

    ))

 ((equal window-system 'x)

  (progn

    (prefer-coding-system 'cp1251-dos)

    (prefer-coding-system 'utf-8-unix)

    (setq selection-coding-system 'ctext-with-extensions)

    (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))

    (modify-coding-system-alist 'process ".*" 'utf-8-unix)

    ))

 (t

  (progn

    ;; (set-selection-coding-system   'utf-8-unix)

    (prefer-coding-system 'cp1251-dos)

    (prefer-coding-system 'utf-8-unix)

    (modify-coding-system-alist 'process ".*" 'utf-8-unix)

    ))

  )

;; XXXXXXXXXXXXXXXXXXXXXXXX

;; To open from command line file, which names has extended opcode

;; (set-file-name-coding-system 'cp1251)

;; (set-language-environment "Russian") ; XXX not used as set default coding system to koi8-r.

;; ======================================================================

;;

;; NON-STANDARD VARIABLES

;; ======================================================================

;;

;; STANDARD VARIABLES

(if (boundp 'confirm-kill-emacs)

    (setq confirm-kill-emacs 'yes-or-no-p))

;; Try to speed things up, especially in VM.

(setq gc-cons-threshold 2000000)

;; Don't beep in my headphones!

(setq ring-bell-function '(lambda () "Empty ring-bell-function." nil))

(setq visible-bell t) ; With default ring-bell-function in text terminal

                      ; revert screen if press [end] or [home]

;; Prompt before evaluating local bits of lisp.  This stops people

;; putting things at the end of files which delete all your files!

(setq enable-local-variables t

      enable-local-eval      1)

;; ======================================================================

;;

;; STANDARD LIBRARIES

(require 'jka-compr) ; Automatic decompression, hooks for tar-mode.

(if (fboundp 'auto-compression-mode)

    (auto-compression-mode 1))

;; ----------------------------------------------------------------------

;; *Recentf*

(require 'recentf)

;; Prevent TRAMP to login on remote host when loading.

;; Its take time and ask passwords!

(setq recentf-auto-cleanup 'never)

(recentf-mode t)

(setq recentf-max-saved-items 200)

(global-set-key (kbd "\e\eq")  'recentf-open-files)

;; ----------------------------------------------------------------------

;; revert

(global-set-key [f5]    'revert-buffer)

(setq revert-without-query (quote (".*")))

(setq auto-revert-interval 2)

;; ======================================================================

;; Convenient

;; ----------------------------------------------------------------------

;; Completion

(require 'icomplete) ; Interactive completion in minibuffer.

(icomplete-mode 1)

(setq completion-ignored-extensions

      '("CVS/" ".hg/" ".svn/" ".git/" ".bzr/"

        ".o" "~" ".bin" ".bak" ".obj" ".map" ".a" ".ln" ".blg" ".bbl" ".elc"

        ".lof" ".glo" ".idx" ".lot" ".fmt" ".tfm" ".class" ".fas" ".lib" ".x86f" ".sparcf"

        ".lo" ".la" ".toc" ".log" ".aux" ".cp" ".fn" ".ky" ".pg" ".tp" ".vr" ".cps"

        ".fns" ".kys" ".pgs" ".tps" ".vrs"))

;; ----------------------------------------------------------------------

;; *grep*

(setq grep-command "find . -name '*' -exec grep -nH '' {} ;"

      grep-find-command "find . '(' -name .svn -o -name CVS -o -name .hg -o -name _darcs ')' -prune -o -type f -name '*' -print0 | xargs -0 -e grep -nH "

      grep-highlight-matches nil ; do not set t because some grep do not has --color options

      grep-tree-command "find <D> <X> -type f <F> -print0 | xargs -0 -e grep <C> -nH  <R>"

      grep-use-null-device t)

(setq blink-matching-paren-on-screen t)

;; ----------------------------------------------------------------------

;; Music

(setq gnus-audio-au-player "winamp.exe"

      gnus-audio-directory "D:\\music"

      gnus-audio-wav-player "winamp.exe")

;; ----------------------------------------------------------------------

;; archive

(modify-coding-system-alist 'file "\\.\\(war\\|ear\\|sar\\|egg\\)\\'" 'no-conversion)

(add-to-list 'auto-mode-alist '("\\.\\(war\\|ear\\|sar\\|egg\\)\\'" . archive-mode))

;; ----------------------------------------------------------------------

;; browser

(cond

 ((equal window-system 'w32)

  (setq browse-url-browser-function 'browse-url-default-windows-browser))

 (t

  (setq browse-url-browser-function 'browse-url-mozilla)))

;; ======================================================================

;; TIME SETTING

;; ----------------------------------------------------------------------

;; Time

;; Also useful such format:

;; (setq display-time-format " %H:%M %d-%m-%y ")

(setq display-time-24hr-format t)

(setq display-time-default-load-average nil)

(display-time)

;; ----------------------------------------------------------------------

;; Calendar

;; (setq mark-holidays-in-calendar t)

;; (setq all-christian-calendar-holidays t)

;; (setq calendar-date-display-form (quote ((format "%04s-%02d-%02d" year (string-to-int month) (string-to-int day)))))

;; (setq calendar-time-display-form (quote (24-hours ":" minutes (if time-zone " (") time-zone (if time-zone ")"))))

(setq calendar-week-start-day 1)

(setq european-calendar-style t)

;; ======================================================================

;;

;; STANDARD HOOKS

(add-hook 'write-file-hooks 'time-stamp)

;; ======================================================================

;; *auto-fill*

(setq-default fill-column 78)

;; By default used American convention - sentence and with two spaces. Change

;; it to one space. Has affect on filling and M-a, M-e commands.

(setq sentence-end-double-space nil)

;; Turn on auto-fill mode

(add-hook 'html-mode-hook 'turn-on-auto-fill)

(add-hook 'text-mode-hook 'turn-on-auto-fill)

;; ----------------------------------------------------------------------

;; DESIRE

;; (require 'desire)

;; (add-to-list 'desire-load-path

;;       (expand-file-name "~/share/emacs/desire"))

;; (add-to-list 'auto-mode-alist

;;       (cons (concat (regexp-quote desire-extension) "\\'")

;;         'emacs-lisp-mode))

;; ----------------------------------------------------------------------

;; Pilot support

;; (desire 'pilot)

;; ----------------------------------------------------------------------

;; BBDB - Must be loaded before most other things, since other things

;;        may perform special configuration if BBDB is present.

;;

;; (desire 'bbdb "bbdb")

;; ----------------------------------------------------------------------

;; These provide options for the various message handling packages.

;; (desire 'browse-url)

;; (desire 'mailcrypt)

;; Message handing packages.

;; (desire 'gnus)

;; (desire 'message)

;; (desire 'sendmail)

;; ----------------------------------------------------------------------

;; Miscellaneous

;; (desire 'abbrev)

;; (desire 'bibtex)

;; (desire 'calc)

;; (desire 'ediff)

;; (desire 'eiffel-mode)

;; (desire 'emacs-w3m)

;; (desire 'eudc)

;; (desire 'filladapt)

;;;; (desire 'hugs-mode)

;; (desire 'haskell-mode)

;; (desire 'latex)

;; (desire 'lispdir)

;; (desire 'mpg123)

;; (desire 'php-mode)

;; (desire 'ps-print)

;; (desire 'sh-script)

;; (desire 'shell)

;; (desire 'tex)

;; (desire 'w3)

;; ======================================================================

;;

;; PERSONAL

;; (require 'chord-mode)  ; edit guitar music.

;; (require 'discography) ; variant of BibTeX mode for discographies.

;; ======================================================================

;; unNOVICEd commands...

;;

;; The following commands are usually disabled by default. Enable them...

(put 'eval-expression  'disabled nil)

(put 'downcase-region  'disabled nil)

(put 'upcase-region    'disabled nil)

(put 'narrow-to-page   'disabled nil)

(put 'narrow-to-region 'disabled nil)

;; ======================================================================

;; TEX

(setq tex-run-command "initex")

;; ======================================================================

;; AUC TeX