;; -*- mode: emacs-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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(message "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 1000)

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(message "revert buffer")

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

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

(setq auto-revert-interval 2)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(message "debugging")

;; Shut off message buffer by setting nil.

(setq message-log-max 512)

;; Prevent Emacs from loading 'default.el', which loaded after '.emacs'.

;; Also '-q' prevent loading your init file.

(setq inhibit-default-init nil)         ; t/nil

(defun my-debug (mode)

  "With prefix enable debug backtrace when problems occur else disable."

  (interactive "P")

  (when mode

    ;; (setq debug-on-signal t)

    (setq mode t))

  (setq debug-on-error mode)

  ;; Get trace when press C-g.

  (setq debug-on-quit mode)

  )

(my-debug nil)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(message "user info")

(setq user-full-name "Oleksandr Gavenko")

(setq user-mail-address "gavenkoa@gmail.com")

(setq user-nick "gavenkoa")

(setenv "ORGANIZATION" (concat user-full-name " <" user-mail-address  ">"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(message "my defun, defmacro, defvar")

(defmacro my-filter (condfunc list)

  "Construct list with elements from LIST which satisfy CONDFUNC."

  `(let (r)

     (mapc (lambda (item)

             (when (,condfunc item)

               (if r

                   (nconc r (cons item nil))

                 (setq r (cons item nil)))))

           ,list)

     r))

(defun my-fold (f x list)

  "Recursively applies (F i j) to LIST starting with X.

For example, (fold F X '(1 2 3)) computes (F (F (F X 1) 2) 3)."

  (let ((li list) (x2 x))

    (while li

      (setq x2 (funcall f x2 (pop li)))

      )

    x2

    ) )

(unless (fboundp 'ignore-errors)

  (defmacro ignore-errors (&rest body)

    "Execute BODY; if an error occurs, return nil.

Otherwise, return result of last form in BODY."

    (declare (debug t) (indent 0))

    `(condition-case nil (progn ,@body) (error nil)))

  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(message "mode groups")

(defmacro my-defun-rename-symb-tree (name doc func)

  "Travel by TREE and applies FUNC to each symbol."

  `(defun ,name (tree)

     ,doc

     (cond

      ((symbolp tree)

       (,func tree)

       )

      ((listp tree)

       (mapcar ',name tree)

       )

      (t (error "Only tree of symbols allowed."))

      )))

(my-defun-rename-symb-tree

 my-feature2mode

 "Convert TREE of features to TREE of modes for these features. Single symbol allowed."

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

(my-defun-rename-symb-tree

 my-mode2hook

 "Convert TREE of modes to TREE of hooks for these modes. Single symbol allowed."

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

 )

(my-defun-rename-symb-tree

 my-mode2modemap

 "Convert TREE of modes to TREE of keymaps for these modes. Single symbol allowed."

 (lambda (symb) (intern (concat (symbol-name symb) "-map")))

 )

(defvar my-devel-mode-list

  '(

    sh-mode script-mode tcl-mode

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

    python-mode

    lisp-mode

    emacs-lisp-mode

    makefile-mode makefile-gmake-mode

    nsis-mode

    bat-generic-mode

    html-mode

    LilyPond-mode

    )

  "List of development modes.")

(defvar my-devel-mode-hook-list

   (my-mode2hook 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

    dired-mode

    compilation-mode

    )

  "List of modes for enabling scroll margin.")

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

  (my-mode2hook my-scroll-margin-mode-list)

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

(defvar my-text-mode-list

  '(

    text-mode

    outline-mode

    rst-mode

    diff-mode

    dict-c5-mode

    )

  "List of text modes.")

(defvar my-text-mode-hook-list

  (my-mode2hook my-text-mode-list)

  "List of text mode hooks.")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(message "appearance")

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

(setq display-buffer-reuse-frames t)

;; 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 . 2) (left . 2)))

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

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

    ) )

(menu-bar-mode -1)

(when window-system

  (mouse-avoidance-mode 'animate)

  (scroll-bar-mode 1)

  (tool-bar-mode -1)

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

  )

;; Prefer horizontal windows splitting.

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

  (setq split-height-threshold nil)

  (setq split-width-threshold nil)

  )

(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-day-and-date nil)

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

(display-time)                          ; display-time-mode

(when window-system

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

  (setq use-file-dialog t)

  (setq use-dialog-box t)

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

  )

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

(setq echo-keystrokes 0.2)

(fset 'yes-or-no-p 'y-or-n-p)

(when (boundp 'confirm-kill-emacs)

  (setq confirm-kill-emacs 'y-or-n-p))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(message "silent runing")

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

(setq inhibit-startup-message t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(message "shell, bash, Cygwin, MSYS")

(defvar my-use-windows-shell nil

  "If t 'cmdproxy.exe' will be used as shell. Affect on M-x shell like

  commands. If nil, 'sh' will be used." )

(defun follow-cygwin-symlink ()

  "Follow new-style (and also UCS-16) Cygwin symlinks."

  (save-excursion

    (goto-char 0)

    (when (looking-at "!<symlink>\xff\xfe")

      (find-alternate-file

       (substring

        (decode-coding-string

         (buffer-substring (match-end 0) (point-max))

         'utf-16-le)

        0 -1)                           ; -1 for stripping final \0.

       ))))

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

  (ignore-errors

    (require 'cygwin-mount)

    (cygwin-mount-activate)

    )

  (add-hook 'find-file-hook 'follow-cygwin-symlink)

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

  ;; Use shell from Cygwin/MinGW.

  (setq shell-file-name "bash")

  (setenv "SHELL" "/bin/bash")

  (modify-coding-system-alist 'process "bash" '(cp1251-unix . cp1251-unix))

  )

(when (eq window-system 'w32)

  ;; Fix 'starttls.el' on native Windows Emacs with gnutls-cli from Cygwin.

  ;; 'gnutls-cli' run with '-s' opt and process wait for SIGALRM.

  ;; But build-in native Emacs 'kill' command can not send such Cygwin

  ;; specific sygnal. So 'starttls-negotiate-gnutls' function infinitely

  ;; wait for 'gnutls-cli' output.

  (defadvice signal-process (around cygwin (process sigcode))

    "Use 'kill.exe' instead build-in Emacs 'kill'."

    (if (eq sigcode 'SIGALRM)

        (shell-command

         (format "kill.exe -s SIGALRM %d"

                 (if (processp process) (process-id process) process)))

      ad-do-it

      ))

  (ad-activate 'signal-process)

  (modify-coding-system-alist 'process "gnutls-cli" '(binary . binary))

  )

(ansi-color-for-comint-mode-on)

(setq explicit-bash-args '("-i"))

(setq explicit-sh-args '("-i"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(message "whitespaces")

(setq default-indicate-empty-lines t)

(setq default-indicate-buffer-boundaries 'left)

;; (setq-default show-trailing-whitespace t)

(defun my-show-trailing-whitespace ()

  (setq show-trailing-whitespace t)

  )

(mapc (lambda (hook) (add-hook hook 'my-show-trailing-whitespace))

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

(setq next-line-add-newlines nil)

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

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(message "server")

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

  (when (or (= emacs-major-version 22) (not (eq (server-running-p server-name) t)))

    (server-start))

  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(message "standart/general settings")

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

(when (and (>= emacs-major-version 22) (not (eq system-type 'darwin)))

  (setq standard-display-table (make-display-table))

  (let ( (i ?\x80) hex hi low )

    (while (<= i ?\xff)

      (setq hex (format "%x" i))

      (setq hi (elt hex 0))

      (setq low (elt hex 1))

      (aset standard-display-table (unibyte-char-to-multibyte i)

            (vector (make-glyph-code ?\\ 'escape-glyph)

                    (make-glyph-code ?x 'escape-glyph)

                    (make-glyph-code hi 'escape-glyph)

                    (make-glyph-code low 'escape-glyph)))

      (setq i (+ i 1))))

  )

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

 )

(defun my-prevent-kill-buffer ()

  (if (equal (buffer-name) "*scratch*") nil t))

(add-to-list 'kill-buffer-query-functions 'my-prevent-kill-buffer)

(define-key global-map "\C-ct" (lambda nil (interactive) (switch-to-buffer "*scratch*")))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(message "switching, creating, selecting buffers")

(iswitchb-mode 1)

(setq iswitchb-buffer-ignore

      '("^ "

        "^\*Buffer"

        "^\*Completions\*"

        "^\*tramp"

        "^\*Dired log\*"

        "^\*Quail Completions\*"

        "^\*Disabled Command\*"

        "^TAGS"

        ))

(require 'uniquify)

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

(setq uniquify-separator "|")

(setq uniquify-after-kill-buffer-p t)

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

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(message "chars, unicode")

(defun my-print-unicode (&optional start end)

  "Print UNICODE table."

  (interactive "nstart: \nnend: ")

  (switch-to-buffer (get-buffer-create "*UNICODE*"))

  (erase-buffer)

  (let ( (i start) )

    (while (<= i end)

      (insert (format "%s: U+%04x, %s\n" (char-to-string i) i (get-char-code-property i 'name)))

      (setq i (1+ i))

      )))