;; -*- mode: lisp; mode: outline-minor; 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.

(defun my-modelist-to-hooklist (modes)

  "Convert list of MODES to list of hooks for these modes."

  (mapcar

   (lambda (mode) (intern (concat (symbol-name mode) "-hook")))

   modes

   ) )

(defvar my-devel-mode-list

  '(

    outline-mode

    sh-mode script-mode

    c-mode c++-mode java-mode js-mode

    python-mode

    lisp-mode

    emacs-lisp-mode

    makefile-mode makefile-gmake-mode

    )

  "List of development modes.")

(defvar my-devel-mode-hook-list

   (my-modelist-to-hooklist my-devel-mode-list)

  "List of development mode hooks.")

(defvar my-scroll-margin-mode-list

  '(

    vc-dir-mode

    recentf-dialog-mode

    org-agenda-grid-mode           ; XXX for this item not worked!

    log-view-mode

    diff-mode

    dired-mode

    compilation-mode

    )

  "List of modes for enabling scroll margin.")

(defvar my-scroll-margin-mode-hook-list

  (my-modelist-to-hooklist my-scroll-margin-mode-list)

  "List of mode hooks for enabling scroll margin.")

(defvar my-text-mode-list

  '(outline-mode text-mode)

  "List of text modes.")

(defvar my-text-mode-hook-list

  (my-modelist-to-hooklist my-text-mode-list)

  "List of text mode hooks.")

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

;;; appearance.

(setq default-directory "~/")

;; To maximize frame on full screen, not work with Windows Emacs 21.4.

;; And maked different height with Emacs 22.3 and 23.1.

;; (setq initial-frame-alist '((fullscreen . fullboth)))

;; Next code work with Emacs 21.4, 22.3, 23.1.

(when window-system

  (let (

        (px (display-pixel-width))

        (py (display-pixel-height))

        (fx (frame-char-width))

        (fy (frame-char-height))

        tx ty

        )

    ;; Next formulas discovered empiric on Windows host with default font.

    (setq tx (- (/ px fx) 7))

    (setq ty (- (/ py fy) 4))

    (setq initial-frame-alist '((top . 0) (left . 0)))

    (add-to-list 'initial-frame-alist (cons 'width tx))

    (add-to-list 'initial-frame-alist (cons 'height ty))

    ) )

(menu-bar-mode -1)

(tool-bar-mode -1)

(when window-system

  (defun my-popup-menu ()

    (interactive)

    (mouse-popup-menubar

     (list (list (/ (display-pixel-width) 2) 10) (get-buffer-window (buffer-name)))

     nil)

    )

  (global-set-key [f10] 'my-popup-menu)

  (global-set-key [apps] 'my-popup-menu)

  (global-set-key [menu] 'my-popup-menu)

  (when (>= emacs-major-version 22) (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)

(setq default-left-fringe-width nil)

(setq default-right-fringe-width nil)

(setq default-left-margin-width nil)

(setq default-right-margin-width nil)

(setq default-line-spacing nil)

(setq default-truncate-lines nil)

;; show column & line numbers in status bar

(setq column-number-mode t)

(setq line-number-mode t)

(setq size-indication-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")

      )

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

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

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

  (require 'server)

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

;; Default 'command-history' length too short (in Emacs 23.2 is 30).

(setq history-length 200)

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

(setq

 use-dialog-box t

 x-gtk-show-hidden-files t

 )

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

;;; 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\*"

          ))

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

      ;; TODO its good invoke delete-dups for list, but delete-dups not exist in Emacs 21.4

      (append my-text-mode-hook-list my-devel-mode-hook-list my-scroll-margin-mode-hook-list) )

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

;;; search, isearch, occur.

(setq case-fold-search t)

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

(setq search-highlight t)               ; highlight incremental search

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

;;; grep, find.

;; This settings have effect from Emacs 22.x.

(when (eq system-type 'windows-nt)

  ;; Workaround for Cygwin shell, when set 'CYGWIN=noglob'. By default 'shell-quote-argument'

  ;; quoted by double '\' chars this cause failure.

  (defun shell-quote-argument (argument)

    (concat "'" argument "'")

    )

  ;; Workaround for Cygwin when 'shell-file-name' is 'bash'.

  (setq null-device "/dev/null")

  )

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

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

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

(cond

 ((= emacs-major-version 21) (pc-selection-mode))

 ((>= emacs-major-version 22) (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-jis-russian  for 567 is :,.

;; cyrillic-jcuken  for SHIFT 567 is :,.

;; russian-computer for SHIFT 567 is %^&

(if (>= emacs-major-version 22)

    (setq default-input-method 'russian-computer)

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

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

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

;;; completion.

;; I remove partial-completion-mode because it depricated in Emacs 24.0.

;; Completion controled by 'completion-styles' variable.

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

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

(when window-system

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

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

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

;; Disable suspend. It ugly.

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

(global-set-key (kbd "C-x C-z") nil)

;; Make old Emacs key binding like in Emacs 23.x.

(when (< emacs-major-version 23)

  (global-set-key (kbd "M-s o") 'occur)

  )

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

(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-16-le-dos)

    (setq-default buffer-file-coding-system 'cp1251)

    (setq default-file-name-coding-system 'cp1251)

    (setq default-process-coding-system '(cp1251 . cp1251))

    ))

 ((equal window-system 'x)

  (progn

    (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

    (prefer-coding-system 'cp1251-dos)

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

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

    ))

  )

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

;;; open file, ffap.

(setq-default save-place t)

(require 'saveplace)

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

;;; dired.

(require 'dired)

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

(setq dired-dwim-target t)

;; dangerous

;; (setq

;;  dired-recursive-copies 'top

;;  dired-recursive-deletes 'top)

(defun my-dired-up-dir ()

  "'Reuse' buffer if enter to dir or open new buffer if enter to file."

  (interactive)

  ;; (dired-current-directory) always end with trailing '/' char.

  (let* ( (dir (dired-current-directory)) (i (- (length dir) 2)) upperdir )

    (while (and

            (>= i 0)

            (not (equal (aref dir i) ?/)) )

      (setq i (- i 1))

      )