;; -*- mode: lisp; coding: utf-8; fill-column: 78 -*-

;;

;; 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.

;;

;; Config file for GNU Emacs.

;;

;; For load order see README.

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

;; debugging.

;; Shut off message buffer by setting nil.

(setq message-log-max 512)

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

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

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

;; mode groups

(defvar my-devel-mode-list

  '(sh-mode script-mode java-mode c-mode

            lisp-mode makefile-mode makefile-gmake-mode python-mode)

  "List of development modes.")

(defvar my-devel-mode-hook-list

  '(sh-mode-hook script-mode-hook java-mode-hook c-mode-hook

            lisp-mode-hook makefile-mode-hook makefile-gmake-mode-hook python-mode-hook)

  "List of development mode hooks.")

(defvar my-text-mode-list

  '(outline-mode text-mode)

  "List of text modes.")

(defvar my-text-mode-hook-list

  '(outline-mode-hook text-mode-hook)

  "List of text mode hooks.")

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

;; appearance.

(setq default-directory "~/")

(menu-bar-mode -1)

(tool-bar-mode -1)

(tooltip-mode -1)

(scroll-bar-mode 1)

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

(setq default-header-line-format nil)

;; (setq default-mode-line-format nil)

;; show column & line numbers in status bar

(setq column-number-mode t)

(setq line-number-mode t)

;; 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)                          ; display-time-mode

(if window-system

    ;; For graphical environment.

    (progn

      (set-background-color "white")

      (set-foreground-color "black")

      (set-cursor-color "brown")

      ;; (set-mouse-color "white")

      (setq cursor-type 'box)           ; box, hollow, bar, hbar

      ;;(setq blink-matching-delay 0.01)

      (blink-cursor-mode 1)

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

      (fringe-mode 'default)

      )

  ;; For tty.

  (progn

    )

)

;; See what I am typing immediately (for keystroke in minibuffer).

(setq echo-keystrokes 0.2)

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

;; silent runing.

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

(setq inhibit-startup-message t)

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

;; whitespaces.

(setq default-indicate-empty-lines t)

(setq default-indicate-buffer-boundaries t)

(setq-default show-trailing-whitespace t)

(setq next-line-add-newlines nil)

;; See also 'mode-require-final-newline'.

(add-hook 'text-mode-hook (lambda () (setq require-final-newline nil)))

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

;; gnu serv, server.

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

;; (require 'gnuserv)

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

(require 'server)

(when (and (= emacs-major-version 23) (= emacs-minor-version 1) (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.

(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)

(setq kill-whole-line t)

(setq view-read-only t)

(setq read-quoted-char-radix 16)

;; generic-define-* before (require 'generic-x) allow load all useful extra modes.

(setq generic-define-mswindows-modes t)

(setq generic-define-unix-modes t)

(require 'generic-x)

;; 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)

(put 'scroll-left      'disabled nil)

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

;; 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)

;; buffer-menu better then buffer-list, but ibuffer much better.

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

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

;; scrolling.

(defvar my-scroll-margin 4)

(setq-default

 scroll-step 1

 scroll-conservatively my-scroll-margin

 scroll-preserve-screen-position t

 )

;; Set margin only for desired modes! Do not frustrate calendar any more.

(make-variable-buffer-local 'scroll-margin)

(mapc (lambda (hook) (add-hook hook (lambda nil (setq scroll-margin my-scroll-margin))))

      (delete-dups (append my-text-mode-hook-list my-devel-mode-hook-list

                           '(recentf-mode-hook))) )

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

;; searching.

(setq case-fold-search t)

(setq query-replace-highlight t)        ; highlight during query

(setq search-highlight t)               ; highlight incremental search

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

;; *Occur*

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

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

;; grep, find.

;; Assume that we have GNU grep, so -H available.

(setq grep-command "grep -nH ")

;; Assume that we have GNU grep, so -H available.

(setq grep-template "grep <C> -nH <R> <F>")

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

;; This pattern oriented to POSIX like sh shell and availability of GNU grep for -H option.

(setq grep-find-template "find . <X> -type f <F> -exec grep <C> -nH <R> {} \\;")

;; Do not set t because some grep do not has --color options.

(setq grep-highlight-matches nil)

(setq grep-use-null-device nil)

(global-set-key [M-f7] 'rgrep)

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

;; 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 items is important, (assignment must done before pc-selection-mode enabled).

(require 'pc-select)

(setq pc-select-selection-keys-only t)  ; To avoid some key bindings as F6, etc.

(setq pc-select-meta-moves-sexps t)

(pc-selection-mode 1)

(when (eq window-system 'x)

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

  )

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

;; highlighting current line.

(when window-system

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

  (global-hl-line-mode 1)

  )

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

;; paren, braces.

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

(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 cause bug in read-file-name with Emacs v22.3.1 (but not with v23.1).

;; read-file-name used in rgrep, so I disable partial-completion-mode.

(partial-completion-mode -1) ; 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)

;; 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 'compound-text-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.

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

;; dired.

(setq dired-dwim-target t)

;; dangerous

;; (setq

;;  dired-recursive-copies 'top

;;  dired-recursive-deletes 'top)

(put 'dired-find-alternate-file 'disabled nil) ; Enable 'a' command.

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

;; compression, archive.

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

(if (fboundp 'auto-compression-mode)

    (auto-compression-mode 1))

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

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

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

;; image.

(when (fboundp 'auto-image-file-mode)

  (auto-image-file-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 buffer.

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

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

(setq auto-revert-interval 2)

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

;; convenient.

(defun reglen()

  "Show region length."

  (interactive)

  (message "%s" (- (region-end) (region-beginning))))

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

;; minibuffer.

(require 'icomplete) ; Interactive completion in minibuffer.

(icomplete-mode 1)

(mapc (lambda (ext) (add-to-list 'completion-ignored-extensions ext))

      '(

        ".class" "~" ".aux"

        ".o" ".obj" ".map" ".lib" ".lo" ".la" ".a" ".bin" ".exe"

        ;; Place dir at end to appear at the start of completion-ignored-extensions.

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

        ) )

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

;; music.

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

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

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

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

;; 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)))

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

;; 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)

(defvar my-fill-column 100