merged
authorOleksandr Gavenko <gavenkoa@gmail.com>
Sun, 23 Jan 2011 11:13:42 +0200
changeset 560 9ace43469185
parent 557 f692f2fe00a2 (diff)
parent 559 290aff3dde17 (current diff)
child 561 18c74742b032
merged
.emacs-my
--- a/.emacs-my	Sat Jan 15 17:53:29 2011 +0200
+++ b/.emacs-my	Sun Jan 23 11:13:42 2011 +0200
@@ -10,7 +10,7 @@
 ;; For load order see README.
 
 ;;; ----------------------------------------------------------------
-;;; debugging.
+(message "debugging")
 
 ;; Shut off message buffer by setting nil.
 (setq message-log-max 512)
@@ -18,8 +18,23 @@
 ;; Set the debug option to enable a backtrace when a problem occurs.
 (setq debug-on-error nil)               ; t/nil
 
+;; Get trace when press C-g.
+(setq debug-on-quit nil)                ; t/nil
+
+;; Prevent Emacs from loading 'default.el', which loaded after '.emacs'.
+;; Also '-q' prevent loading your init file.
+(setq inhibit-default-init nil)         ; t/nil
+
 ;;; ----------------------------------------------------------------
-;;; mode groups.
+(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 "mode groups")
 
 (defun my-modelist-to-hooklist (modes)
   "Convert list of MODES to list of hooks for these modes."
@@ -69,16 +84,15 @@
   (my-modelist-to-hooklist my-text-mode-list)
   "List of text mode hooks.")
 
-
 ;;; ----------------------------------------------------------------
-;;; appearance.
-
-(setq default-directory "~/")
+(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 (
@@ -157,13 +171,13 @@
 (setq echo-keystrokes 0.2)
 
 ;;; ----------------------------------------------------------------
-;;; silent runing.
+(message "silent runing")
 
 ;; (setq inhibit-splash-screen t) ; nonexist on 21.4.1
 (setq inhibit-startup-message t)
 
 ;;; ----------------------------------------------------------------
-;;; whitespaces.
+(message "whitespaces")
 
 (setq default-indicate-empty-lines t)
 (setq default-indicate-buffer-boundaries 'left)
@@ -176,7 +190,7 @@
 (add-hook 'text-mode-hook (lambda () (setq require-final-newline nil)))
 
 ;;; ----------------------------------------------------------------
-;;; gnu serv, server.
+(message "gnu serv, server")
 
 ;; (load "~/emacs/bin/gnuserv/gnuserv.el")
 ;; (require 'gnuserv)
@@ -193,7 +207,7 @@
 ;; (desktop-read)
 
 ;;; ----------------------------------------------------------------
-;;; standart/general settings.
+(message "standart/general settings")
 
 (if (boundp 'confirm-kill-emacs)
     (setq confirm-kill-emacs 'yes-or-no-p))
@@ -252,7 +266,7 @@
  )
 
 ;;; ----------------------------------------------------------------
-;;; switching, creating, selecting buffers.
+(message "switching, creating, selecting buffers")
 
 (iswitchb-mode 1)
 (setq iswitchb-buffer-ignore
@@ -263,6 +277,7 @@
         "^\*Dired log\*"
         "^\*Quail Completions\*"
         "^\*Disabled Command\*"
+        "^TAGS"
         ))
 
 (require 'uniquify)
@@ -272,7 +287,7 @@
 (global-set-key "\C-x\C-b" 'ibuffer)
 
 ;;; ----------------------------------------------------------------
-;;; scrolling.
+(message "scrolling")
 
 (defvar my-scroll-margin 4)
 
@@ -289,7 +304,7 @@
       (append my-text-mode-hook-list my-devel-mode-hook-list my-scroll-margin-mode-hook-list) )
 
 ;;; ----------------------------------------------------------------
-;;; search, isearch, occur.
+(message "search, isearch, occur")
 
 (setq case-fold-search t)
 
@@ -297,9 +312,7 @@
 (setq search-highlight t)               ; highlight incremental search
 
 ;;; ----------------------------------------------------------------
-;;; grep, find.
-
-(require 'grep)
+(message "grep, find")
 
 ;; This settings have effect from Emacs 22.x.
 (when (eq system-type 'windows-nt)
@@ -312,29 +325,38 @@
   (setq null-device "/dev/null")
   )
 
+;; -ls produce very noisy output:
+;; (setq find-ls-option '("-ls" . ""))
+;; So I use next expression, which work with GNU find, I replace %s with '0'
+;; to avoid unnecessary sys calls and this make output aligned by column:
+(setq find-ls-option '("-printf ' -rw-rw-rw- 0 %AY-%Am-%Ad %AH:%AM %p\n'" . ""))
+
 ;; Do not set t because some grep do not has --color options.
 (setq grep-highlight-matches nil)
 (setq grep-use-null-device nil)
 
-(add-to-list 'grep-find-ignored-directories "build" t)
-(add-to-list 'grep-find-ignored-directories "dist" t)
-(add-to-list 'grep-find-ignored-directories "lib" t)
+(eval-after-load 'grep
+  '(progn
+     (add-to-list 'grep-find-ignored-directories "build" t)
+     (add-to-list 'grep-find-ignored-directories "dist" t)
+     (add-to-list 'grep-find-ignored-directories "lib" t)
 
-(when (and (>= emacs-major-version 23) (>= emacs-minor-version 2))
-  (add-to-list 'grep-find-ignored-files "*TAGS")
-  (add-to-list 'grep-find-ignored-files "GPATH")
-  )
+     (when (boundp 'grep-find-ignored-files)
+       (add-to-list 'grep-find-ignored-files "*TAGS")
+       (add-to-list 'grep-find-ignored-files "GPATH")
+       )
+     ))
 
 (global-set-key [M-f7] 'rgrep)
 
 ;;; ----------------------------------------------------------------
-;;; syntax highlighting.
+(message "syntax highlighting")
 
 (setq font-lock-maximum-decoration t)
 (global-font-lock-mode 1)
 
 ;;; ----------------------------------------------------------------
-;;; highlight selected text.
+(message "highlight selected text")
 
 ;; 1/-1, when the mark is active, the region is highlighted.
 (transient-mark-mode 1)
@@ -354,7 +376,7 @@
   )
 
 ;;; ----------------------------------------------------------------
-;;; highlighting current line.
+(message "highlighting current line")
 
 (when window-system
   (custom-set-faces '(hl-line ((t (:inherit highlight :background "light yellow")))))
@@ -362,13 +384,13 @@
   )
 
 ;;; ----------------------------------------------------------------
-;;; paren, braces.
+(message "paren, braces")
 
 (show-paren-mode 1) ; Parenthesis matching via highlighting.
 (setq show-paren-style (quote parenthesis))
 
 ;;; ----------------------------------------------------------------
-;;; keyboard, mouse.
+(message "keyboard, mouse")
 
 ;; cyrillic-jis-russian  for 567 is :,.
 ;; cyrillic-jcuken  for SHIFT 567 is :,.
@@ -379,13 +401,13 @@
 ;; (pc-bindings-mode) ; Myself define keybinding, see
 
 ;;; ----------------------------------------------------------------
-;;; completion.
+(message "completion")
 
 ;; I remove partial-completion-mode because it depricated in Emacs 24.0.
 ;; Completion controled by 'completion-styles' variable.
 
 ;;; ----------------------------------------------------------------
-;;; mouse.
+(message "mouse")
 
 ;; Scroll Bar gets dragged by mouse butn 1
 (global-set-key [vertical-scroll-bar down-mouse-1] 'scroll-bar-drag)
@@ -396,7 +418,7 @@
   )
 
 ;;; ----------------------------------------------------------------
-;;; key binding, short-keys.
+(message "key binding, short-keys")
 
 (global-set-key [home]    'beginning-of-line)
 (global-set-key [end]     'end-of-line)
@@ -435,7 +457,7 @@
 ;; (global-set-key [language-change] 'ignore)
 
 ;;; ----------------------------------------------------------------
-;;; coding system, charset, locale, lang.
+(message "coding system, charset, locale, lang")
 
 ;; Emacs 23.1 no longer need codepage-setup.
 (when (<= emacs-major-version 22)
@@ -476,12 +498,12 @@
   )
 
 ;;; ----------------------------------------------------------------
-;;; open file, ffap.
+(message "open file, ffap")
 (setq-default save-place t)
 (require 'saveplace)
 
 ;;; ----------------------------------------------------------------
-;;; dired.
+(message "dired")
 
 (require 'dired)
 
@@ -547,7 +569,7 @@
 (define-key dired-mode-map (kbd "`") 'my-dired-flag-tmp-files)
 
 ;;; ----------------------------------------------------------------
-;;; ls-lisp, dired ls.
+(message "ls-lisp, dired ls")
 
 ;; If non-nil - use 'insert-directory-program', which I dislike.
 (setq ls-lisp-use-insert-directory-program nil)
@@ -564,7 +586,7 @@
 (require 'ls-lisp)
 
 ;;; ----------------------------------------------------------------
-;;; compression, archive.
+(message "compression, archive")
 
 (require 'jka-compr) ; Automatic decompression, hooks for tar-mode.
 (if (fboundp 'auto-compression-mode)
@@ -575,13 +597,13 @@
 (add-to-list 'auto-mode-alist '("\\.\\(war\\|ear\\|sar\\|egg\\)\\'" . archive-mode))
 
 ;;; ----------------------------------------------------------------
-;;; image.
+(message "image")
 
 (when (fboundp 'auto-image-file-mode)
   (auto-image-file-mode 1))
 
 ;;; ----------------------------------------------------------------
-;;; recentf.
+(message "recentf")
 
 (require 'recentf)
 ;; Prevent TRAMP to login on remote host when loading.
@@ -592,14 +614,14 @@
 (global-set-key (kbd "\e\eq")  'recentf-open-files)
 
 ;;; ----------------------------------------------------------------
-;;; revert buffer.
+(message "revert buffer")
 
 (global-set-key [f5]    'revert-buffer)
 (setq revert-without-query (quote (".*")))
 (setq auto-revert-interval 2)
 
 ;;; ----------------------------------------------------------------
-;;; convenient.
+(message "convenient")
 
 (defun reglen()
   "Show region length."
@@ -607,7 +629,7 @@
   (message "%s" (- (region-end) (region-beginning))))
 
 ;;; ----------------------------------------------------------------
-;;; minibuffer.
+(message "minibuffer")
 
 (require 'icomplete) ; Interactive completion in minibuffer.
 (icomplete-mode 1)
@@ -621,13 +643,13 @@
         ) )
 
 ;;; ----------------------------------------------------------------
-;;; music.
+(message "music")
 (setq gnus-audio-au-player "winamp.exe"
       gnus-audio-directory "D:\\music"
       gnus-audio-wav-player "winamp.exe")
 
 ;;; ----------------------------------------------------------------
-;;; browser.
+(message "browser")
 
 (cond
  ((equal window-system 'w32)
@@ -638,7 +660,7 @@
   (setq browse-url-browser-function 'browse-url-mozilla)))
 
 ;;; ----------------------------------------------------------------
-;;; calendar.
+(message "calendar")
 
 ;; (setq mark-holidays-in-calendar t)
 ;; (setq all-christian-calendar-holidays t)
@@ -648,12 +670,12 @@
 (setq european-calendar-style t)
 
 ;;; ----------------------------------------------------------------
-;;; STANDARD HOOKS.
+(message "standard hooks")
 
 (add-hook 'write-file-hooks 'time-stamp)
 
 ;;; ----------------------------------------------------------------
-;;; auto-fill.
+(message "auto-fill")
 
 (setq-default fill-column 78)
 
@@ -669,7 +691,7 @@
 (add-hook 'text-mode-hook 'turn-on-auto-fill)
 
 ;;; ----------------------------------------------------------------
-;;; unknown.
+(message "unknown")
 
 ;; browse-url mailcrypt gnus message sendmail bbdb pilot bibtex eiffel-mode emacs-w3m
 ;; eudc filladapt hugs-mode mpg123 php-mode ps-print
@@ -677,7 +699,7 @@
 ;; discography - variant of BibTeX mode for discographies
 
 ;;; ----------------------------------------------------------------
-;;; cacl, calculator.
+(message "cacl, calculator")
 
 (setq-default calc-group-digits t)
 (setq-default calc-group-char "'")
@@ -696,12 +718,12 @@
         (insert result)))))
 
 ;;; ----------------------------------------------------------------
-;;; TeX, LaTeX.
+(message "TeX, LaTeX")
 
 (setq tex-run-command "initex")
 
 ;;; ----------------------------------------------------------------
-;;; AUC TeX.
+(message "AUC TeX")
 
 ;(add-hook 'LaTeX-mode-hook 'LaTeX-install-toolbar)
 ;; (setq TeX-parse-self t)             ; Enable parse on load.
@@ -738,7 +760,7 @@
 ;           'TeX-run-command nil t))))
 
 ;;; ----------------------------------------------------------------
-;;; reftex.
+(message "reftex")
 
 ;; Reftex is included with Emacs 21.1.
 
@@ -750,7 +772,7 @@
 ;; (add-hook 'latex-mode-hook 'turn-on-reftex)   ; with Emacs latex mode
 
 ;;; ----------------------------------------------------------------
-;;; PreviewLatex.
+(message "PreviewLatex")
 
 ;(load "preview-latex.el" nil t t)
 
@@ -758,7 +780,7 @@
 ;(autoload 'LaTeX-preview-setup "preview")
 
 ;;; ----------------------------------------------------------------
-;;; Info.
+(message "Info")
 
 ;; Because of Debian policy documentation covered by FDL license with invariant sections not allowed in packet
 ;; repository tree. So it must be installed manually. My usual configuration is install user local software
@@ -767,13 +789,13 @@
   (setenv "INFOPATH" "~/usr/share/info:"))
 
 ;;; ----------------------------------------------------------------
-;;; man, woman.
+(message "man, woman")
 
 (setq woman-use-own-frame nil)
 (setq woman-fill-frame t)
 
 ;;; ----------------------------------------------------------------
-;;; comint.
+(message "comint")
 
 ;; If non-nil, add a `/' to completed directories, ` ' to file names.
 (setq comint-completion-addsuffix t)
@@ -781,7 +803,7 @@
 (setq comint-eol-on-send t)
 
 ;;; ----------------------------------------------------------------
-;;; shell, sh, bash.
+(message "shell, sh, bash")
 
 ;; Setup Emacs to run bash as its primary shell.
 ;; (setq binary-process-input t)
@@ -818,7 +840,7 @@
   )
 
 ;;; ----------------------------------------------------------------
-;;; spell, ispell, aspell.
+(message "spell, ispell, aspell")
 
 ;; Settings for spelling done in '.emacs-autogen'.
 ;(add-hook 'text-mode-hook 'flyspell-mode)
@@ -826,10 +848,10 @@
 ;(setq flyspell-delay '1)
 
 ;;; ----------------------------------------------------------------
-;;; GTD, PIM, organize, todo mode.
+(message "GTD, PIM, organize, todo mode")
 
 ;;; ----------------------------------------------------------------
-;;; org-mode.
+(message "org-mode")
 
 (if (>= emacs-major-version 22)
 (progn
@@ -858,7 +880,7 @@
       (setq org-agenda-files '("~/.gtd/todo.org")) ))
 
 ;;; ----------------------------------------------------------------
-;;; remember-mode.
+(message "remember-mode")
 
 (if (or (featurep 'remember) (fboundp 'remember))
     (progn
@@ -876,7 +898,7 @@
        ) ))
 
 ;;; ----------------------------------------------------------------
-;;; TODO, XXX, FIXME highlight.
+(message "TODO, XXX, FIXME highlight")
 ;; Show blanks and FIXME
 ;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule
 
@@ -903,16 +925,16 @@
   )
 
 ;;; ----------------------------------------------------------------
-;;; communication.
+(message "communication")
 
 ;;; ----------------------------------------------------------------
-;;; jabber.
+(message "jabber")
 
 (when (featurep 'jabber)
   (setq
    jabber-history-enabled t
    jabber-use-global-history nil
-   jabber-backlog-number 15
+   jabber-backlog-number 40
    jabber-backlog-days 30
    jabber-alert-presence-message-function (lambda (who oldstatus newstatus statustext) nil)
    )
@@ -928,13 +950,22 @@
    )
   )
 
+(when (featurep 'jabber)
+  (let ( (mgs-list '("Я тутачки, а где Вы меня ожидали?"
+                     "Software Development == Church Development. Step 1. Build it. Step 2. Pray."
+                     "А любит Б, Б любит С, что делать A? Найти другую Б!")) )
+    (random t)
+    (setq jabber-default-show (nth (random (length mgs-list)) mgs-list))
+    (setq jabber-default-status (nth (random (length mgs-list)) mgs-list))
+    ) )
+
 ;; fsm used in emacs jabber
 (when (featurep 'fsm)
   (setq fsm-debug nil)                  ; Disable *fsm-debug* buffer.
   )
 
 (defvar my-jabber-users nil
-  "Assoc list of jabber user goup. Keys are strings, values are lists of JIDs.")
+  "Assoc list of jabber user group. Keys are strings, values are lists of JIDs.")
 
 (defun my-jabber-send (group)
   "GROUP is keys from `my-jabber-users'"
@@ -960,7 +991,7 @@
 (global-set-key (kbd "C-x C-j C-s") 'my-jabber-send)
 
 ;;; ----------------------------------------------------------------
-;;; rcirc.
+(message "rcirc")
 
 ;; Turn on logging everything to a special buffer, for debugging.
 ;; (setq rcirc-debug-flag t)
@@ -970,8 +1001,13 @@
 (defun rcirc-handler-301 (process cmd sender args)
   "/away message handler.")
 
+(setq rcirc-default-server "irc.freenode.net")
+(setq rcirc-default-port 6667)
+(setq rcirc-default-nick user-nick)
+(setq rcirc-default-user-full-name user-full-name)
+
 ;;; ----------------------------------------------------------------
-;;; erc.
+(message "erc")
 
 ;; Take off noise message.
 (setq erc-track-exclude-types '("JOIN" "PART" "QUIT" "NICK" "MODE"))
@@ -982,7 +1018,7 @@
 (setq erc-server-coding-system 'utf-8)
 
 ;;; ----------------------------------------------------------------
-;;; VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil.
+(message "VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil")
 
 (if (equal window-system 'w32)
     (progn
@@ -1020,20 +1056,20 @@
   )
 
 ;;; ----------------------------------------------------------------
-;;; psvn.
+(message "psvn")
 
 (setq svn-status-verbose t)
 (setq svn-status-hide-unmodified t)
 
 ;;; ----------------------------------------------------------------
-;;; DVC.
+(message "DVC")
 
 (when (featurep 'dvc-emacs)
   (setq dvc-tips-enabled nil)
   )
 
 ;;; ----------------------------------------------------------------
-;;; devel, prog, programming.
+(message "devel, prog, programming")
 
 (add-to-list 'auto-mode-alist '("\\.cu$" . c-mode))
 
@@ -1057,7 +1093,7 @@
       my-devel-mode-hook-list)
 
 ;;; ----------------------------------------------------------------
-;;; diff, patch, ediff, emerge.
+(message "diff, patch, ediff, emerge")
 
 (setq diff-switches "-u")
 
@@ -1065,7 +1101,7 @@
 (setq ediff-custom-diff-options "-u")
 
 ;;; ----------------------------------------------------------------
-;;; indenting.
+(message "indenting")
 
 (setq standard-indent 4)
 (setq c-basic-offset 4)
@@ -1085,31 +1121,44 @@
     (setq i (- i 4))))
 
 ;;; ----------------------------------------------------------------
-;;; compile.
+(message "compile")
 
 (setq compile-auto-highlight t
       compile-command "make ")
 ;; compilation window shall scroll down if not 0
 (setq compilation-scroll-output 1)
 
-;; My funny error messages.
-;; XXX нужно реализовать через hook.
-(require 'compile)
-(add-to-list 'compilation-error-regexp-alist '("^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4))
-(add-to-list 'compilation-error-regexp-alist '("^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2))
-(add-to-list 'compilation-error-regexp-alist '("^\"?\\([^\"]*\\)\"?,\\([0-9]*\\) .*\\[.*\\]: " 1 2)) ; KEIL compiler
-;; (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^ 	]+\\)" . 1))
-;; (add-to-list 'compilation-mode-font-lock-keywords '("[ 	]\\(/F[oe][^ 	]+\\)" . 1))
+(eval-after-load 'compile
+  '(progn
+     ;; My funny error messages.
+     (add-to-list 'compilation-error-regexp-alist '("^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4))
+     (add-to-list 'compilation-error-regexp-alist '("^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2))
+     (add-to-list 'compilation-error-regexp-alist '("^\"?\\([^\"]*\\)\"?,\\([0-9]*\\) .*\\[.*\\]: " 1 2)) ; KEIL compiler
+     (when (boundp 'compilation-mode-font-lock-keywords)
+       (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^[:blank:]]+\\)" . 1))
+       (add-to-list 'compilation-mode-font-lock-keywords '("[[:blank:]]\\(/F[oe][^[:blank:]]+\\)" . 1))
+       )
+     ))
 
 ;;; ----------------------------------------------------------------
-;;; TAGS, etags, ctags, GNU GLOBAL.
+(message "TAGS, etags, ctags, GNU GLOBAL")
+
+;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to
+;; use.
+
+(setq tags-add-tables t)
 
 (when (featurep 'etags-table)
-  (setq etags-table-search-up-depth 1)
+  (setq etags-table-search-up-depth 8)
+  (when (featurep 'etags-select)
+    (global-set-key "\M-." 'etags-select-find-tag)
+    )
   )
 
+(global-set-key "\M-\r" 'complete-tag)
+
 ;;; ----------------------------------------------------------------
-;;; CEDET, semantic.
+(message "CEDET, semantic")
 
 ;; For debug use 'semantic-debug-idle-function' and 'semantic-debug-idle-work-function'.
 
@@ -1166,7 +1215,7 @@
   )
 
 ;;; ----------------------------------------------------------------
-;;; imenu.
+(message "imenu")
 
 (require 'imenu)
 (when window-system
@@ -1180,17 +1229,17 @@
   )
 
 ;;; ----------------------------------------------------------------
-;;; windows inf files for driver installing
+(message "windows inf files for driver installin")
 
 (add-to-list 'auto-mode-alist '("\\.inf\\'" . conf-mode))
 
 ;;; ----------------------------------------------------------------
-;;; makefile, make.
+(message "makefile, make")
 
 (add-to-list 'auto-mode-alist '("\\(Makefile\\|Makefile\\..+\\)\\'" . makefile-gmake-mode))
 
 ;;; ----------------------------------------------------------------
-;;; asm, assembler.
+(message "asm, assembler")
 
 ;; (setq-default asm-comment-char 59)
 (add-hook 'asm-mode-hook '(lambda () (setq comment-start "/*") (setq comment-end "*/")) t)
@@ -1201,7 +1250,7 @@
 ;; (add-hook 'asm-mode-hook '(lambda () (local-set-key ":" ":")))
 
 ;;; ----------------------------------------------------------------
-;;; linker.
+(message "linker")
 
 (when (fboundp 'iar-linker-config-mode)
   (add-to-list 'auto-mode-alist '("\\.icf\\'" . iar-linker-config-mode))
@@ -1211,12 +1260,12 @@
   )
 
 ;;; ----------------------------------------------------------------
-;;; lisp.
+(message "lisp")
 
 (setq list-command-history-max 256)
 
 ;;; ----------------------------------------------------------------
-;;; C, c-mode, C++, c++-mode.
+(message "C, c-mode, C++, c++-mode")
 
 (setq c-echo-syntactic-information-p t)
 (add-hook 'c-mode-common-hook
@@ -1286,7 +1335,7 @@
     ))
 
 ;;; ----------------------------------------------------------------
-;;; javascript, js.
+(message "javascript, js")
 
 (if (>= emacs-major-version 23)
     (add-to-list 'auto-mode-alist '("\\.js$" . js-mode))
@@ -1294,53 +1343,53 @@
   )
 
 ;;; ----------------------------------------------------------------
-;;; bat file, batch.
+(message "bat file, batch")
 
 ;; loaded from 'generic-x.el'
 
 ;;; ----------------------------------------------------------------
-;;; nsis-mode.
+(message "nsis-mode")
 
 (when (fboundp 'nsis-mode)
   (add-to-list 'auto-mode-alist '("\\.\\(nsi\\|nsh\\)\\'" . nsis-mode))
   )
 
 ;;; ----------------------------------------------------------------
-;;; csharp, c-sharp.
+(message "csharp, c-sharp")
 
 (autoload 'csharp-mode "csharp-mode" "Major mode for editing C# code." t)
 (add-to-list 'auto-mode-alist '("\\.cs$" . csharp-mode))
 
 ;;; ----------------------------------------------------------------
-;;; java.
+(message "java")
 
 ;;; ----------------------------------------------------------------
-;;; ECB.
+(message "ECB")
 
 (setq ecb-tip-of-the-day nil)
 
 ;;; ----------------------------------------------------------------
-;;; html.
+(message "html")
 
 ;;; ----------------------------------------------------------------
-;;; nxml.
+(message "nxml")
 
 (setq nxml-sexp-element-flag t)
 (setq nxml-child-indent 2)
 (setq nxml-attribute-indent 4)
 
 ;;; ----------------------------------------------------------------
-;;; psgml.
+(message "psgml")
 
 (setq sgml-set-face t)                  ; for highlighting in sgml
 
 ;;; ----------------------------------------------------------------
-;;; sh, bash.
+(message "sh, bash")
 
 (add-to-list 'auto-mode-alist '("\\.cygport\\'" . shell-script-mode))
 
 ;;; ----------------------------------------------------------------
-;;; printing.
+(message "printing")
 
 ;; Use Notepad to print plain text files to the default Windows printer
 ;(setq lpr-command "notepad")
@@ -1355,36 +1404,14 @@
 ;(setq printer-name "~/myprint.txt")
 ;(setq ps-printer-name nil)
 ;(setq ps-print-header nil)
-;; some more menu entries in the command list:
-;; see tex-mik.el from package auctex: %v is defined in tex-mik.el
-;; other variables are defined in tex.el from auctex
-;; the meaning of some auctex-varibles:
-        ;symbols defined in tex.el and tex-mik.el:
-        ;%b name slave tex-file  %t name master tex-file
-        ;%d dvi-file  %f ps-file
-        ;%l "latex --src-specials"
-        ;%n line number  %p printcommand  %q "lpq"
-        ;%r (TeX-style-check TeX-print-style)
-        ;%s master-file-name without extention
-        ;%v yap command view line
-;(eval-after-load "tex"
-;  '(progn
-;     (add-to-list 'TeX-command-list
-;         (list "->PS landscape for pdf"
-;           "dvips %d -N0 -Ppdf -G0 -T 297mm,210mm -o %f "
-;           'TeX-run-command nil t))
-;     (add-to-list 'TeX-command-list
-;         (list "All Texify run-viewer"
-;           "texify --tex-opt=--src --run-viewer --clean %s.tex"
-;           'TeX-run-command nil t))))
 
 ;;; ----------------------------------------------------------------
-;;; SQL.
+(message "SQL")
 
 (setq sql-password "")
 
 ;;; ----------------------------------------------------------------
-;;; backuping.
+(message "backuping")
 
 (setq
  make-backup-files t
@@ -1397,7 +1424,7 @@
  version-control t)                            ; use versioned backups
 
 ;;; ----------------------------------------------------------------
-;;; auto save.
+(message "auto save")
 
 (setq auto-save-default t)
 ;; If nil autosave to different than original to buffer file.
@@ -1406,11 +1433,7 @@
 (setq delete-auto-save-files t)
 
 ;;; ----------------------------------------------------------------
-;;; user info.
-
-(setq user-full-name "Oleksandr Gavenko")
-(setq user-mail-address "gavenkoa@gmail.com")
-(setenv "ORGANIZATION" (concat user-full-name " <" user-mail-address  ">"))
+(message "User welcome msg")
 
 (add-hook 'emacs-startup-hook
           (lambda ()
@@ -1419,4 +1442,9 @@
                                "Nice day for Emacsing!")) )
               (message (nth (random (length mgs-list)) mgs-list)))))
 
+(switch-to-buffer "*Messages*")
+(setq default-directory "~/")
+(switch-to-buffer "*scratch*")
+(setq default-directory "~/")
+
 ;;; End loading...
--- a/.emacs-post	Sat Jan 15 17:53:29 2011 +0200
+++ b/.emacs-post	Sun Jan 23 11:13:42 2011 +0200
@@ -1,3 +1,30 @@
 ;; -*- mode: lisp; coding: utf-8; fill-column: 78 -*-
 ;;
 ;; For load order see README.
+
+;; (require 'cygwin-mount)
+;; (cygwin-mount-activate)
+
+;; (when (featurep 'jabber)
+;;   (setq jabber-account-list
+;;         '(
+;;           ("gavenko@services.bifit.int"
+;;            (:port . 5222)
+;;            (:password . "")
+;;            ;; (:network-server . "talk.google.com")
+;;            (:connection-type . network))
+;;           ("gavenkoa@gmail.com"
+;;            ;; (:port . 5222)
+;;            (:password . "")
+;;            (:network-server . "talk.google.com")
+;;            (:connection-type . ssl))
+;;           )
+;;         )
+;;   (jabber-connect-all)
+;;   )
+
+;; (setq etags-table-alist
+;;       (list
+;;        '(".*\\.\\([ch]\\|cpp\\|rc\\)" "c:/Program Files/Microsoft SDKs/Windows/v6.1/Include/TAGS")
+;;        ))
+
--- a/.emacs-pre	Sat Jan 15 17:53:29 2011 +0200
+++ b/.emacs-pre	Sun Jan 23 11:13:42 2011 +0200
@@ -1,3 +1,13 @@
 ;; -*- mode: lisp; coding: utf-8; fill-column: 78 -*-
 ;;
 ;; For load order see README.
+
+;; (require 'remember)
+
+;; (require 'etags-select)
+;; (require 'etags-table)
+
+;; (require 'jabber)
+
+;; (require 'rcirc)
+
--- a/Makefile	Sat Jan 15 17:53:29 2011 +0200
+++ b/Makefile	Sun Jan 23 11:13:42 2011 +0200
@@ -2,6 +2,17 @@
 #
 # You can do anything with this file without any warranty.
 
+SHELL = /bin/sh
+
+# Disable built in pattern rules.
+MAKEFLAGS += -r
+# Disable built in variables.
+MAKEFLAGS += -R
+# Disable built in suffix rules.
+.SUFFIXES:
+# Default target.
+.DEFAULT_GOAL = all
+
 ################################################################
 # Helper definition.