init_20101112.el

;; -*- coding: iso-8859-1 -*-
;;
;; Emacs initialization file.
;; (c) Semih Cemiloglu
;; $Id$
;; 

(message "INIT: Starting...")

(setq emacs-load-start-time (current-time))

(defconst win32p
    (eq system-type 'windows-nt)
  "Are we running on a WinTel system?")

(defconst cygwinp
    (eq system-type 'cygwin)
  "Are we running on a WinTel cygwin system?")

(defconst linuxp
    (or (eq system-type 'gnu/linux)
        (eq system-type 'linux))
  "Are we running on a GNU/Linux system?")

(defconst solarisp
    (or (eq system-type 'Solaris)
        (eq system-type 'SunOS))
  "Are we running on a Solaris system?")

(defconst unixp
  (or linuxp
      (eq system-type 'usg-unix-v)
      (eq system-type 'berkeley-unix))
  "Are we running Unix")

(defconst linux-x-p
    (and window-system linuxp)
  "Are we running under X on a GNU/Linux system?")

(defconst xemacsp (featurep 'xemacs)
  "Are we running XEmacs?")

(defconst emacs>=21p (and (not xemacsp) (or (= emacs-major-version 21) (= emacs-major-version 22) (= emacs-major-version 23)))
  "Are we running GNU Emacs 21 or above?")

(defvar emacs-debug-loading nil)


;; Customizations changes made by Emacs go to this file
;; It may be useful to load this up as the first thing in intialization.
(setq custom-file "~/.emacs.d/custom.el")
(load custom-file 'noerror)

;;-----------------------------------------------------
;; CUA mode
;;-----------------------------------------------------
(cua-mode t)

;; Remove M-v keybinding in cua mode
(define-key cua--cua-keys-keymap [(meta v)] 'nil)
;(setq cua-auto-tabify-rectangles nil) ;; Don't tabify after rectangle commands
;(setq cua-keep-region-after-copy t) ;; Standard Windows behaviour
;(setq cua-highlight-region-shift-only t) ;; no transient mark mode

;;-----------------------------------------------------
;; Defaults
;;-----------------------------------------------------

;; Default major mode is Text
(setq default-major-mode 'text-mode)
(add-hook 'text-mode-hook 'turn-on-auto-fill)

;; Disable system beep
;;(setq visible-bell t)

;; Stop the bell
(defun eat-bell () nil)
(setq ring-bell-function 'eat-bell)


;; Background color
(setq default-frame-alist
      (append default-frame-alist
       '((foreground-color . "Black")
 (background-color . "Gray93")
 (cursor-color . "Blue")
 (cursor-type . 'hollow)
 )))

;; Cursor related 
(blink-cursor-mode nil) ; 1 to blink it on
(setq x-stretch-cursor t) ; stretch cursor to cover glyph

;; Don't use Win32 I-beam cursor 
(if win32p
    (setq w32-use-visible-system-caret  nil))

;; Horizontal line at cursor location
(global-hl-line-mode 1)
(set-face-background 'hl-line "White")

;; Smooth scrolling
(setq scroll-conservatively 1)

;; Position of the scroll bar
(set-scroll-bar-mode 'right)

;; Recent files
(recentf-mode 1)

;; Highlighted Region
(transient-mark-mode 1)

;; Make delete or typing delete whole selected text
(delete-selection-mode 1)

;; Where am I?
(line-number-mode 1)
(column-number-mode 1)

;; No yes-no question
(fset 'yes-or-no-p 'y-or-n-p)

;; Don't convert leading spaces to tabs
(setq-default indent-tabs-mode nil)
(setq-default tab-width 2)

;; Make a file executable if it's a script
(add-hook 'after-save-hook 'executable-make-buffer-file-executable-if-script-p)

;; Soft wrapping at the word boundary
(global-visual-line-mode 0) ; 1 for on, 0 for off.

;; Each file in a new window
;(setq pop-up-frames t)

; turn on highlight matching parens when cursor is on one
(show-paren-mode 1)
(setq show-paren-style 'parenthesis) ; highlight just parens
;(setq show-paren-style 'expression) ; highlight entire expression

;; Default font
(if win32p
    (set-face-font 'default "Courier New-11")
    (set-face-font 'default "Courier-13"))

;; Uncomment this to stop and debug on error
;(setq debug-on-error t) 



;; Don't pass Windows/Menu keystokes to OS.
;; setting the PC keyboard's various keys to Super or Hyper
;; presumes you are using the emacsw32 distro on windows
;; http://ourcomments.org/Emacs/EmacsW32Util.html
(setq w32-pass-lwindow-to-system nil 
      w32-pass-rwindow-to-system nil 
      w32-pass-apps-to-system nil 
      w32-lwindow-modifier 'super ;; Left Windows key (super)
      w32-rwindow-modifier 'super ;; Right Windows key (super)
      w32-apps-modifier 'hyper)   ;; Menu key (hyper)


;; X Windows Hyper key settings to capture hyper key events
(setq x-hyper-keysym 'hyper)


;; Allow coloring in shell mode
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)

;; Enable auto reverting
;; See "Reverting a buffer" section of the manual
;(setq global-auto-revert-mode t)

;;-----------------------------------------------------
;; Packages bundled with Emacs
;;-----------------------------------------------------

;; Desktop
(desktop-save-mode 0) ; 1-on 0-off
;; Customization follows below
(setq history-length 250)
(add-to-list 'desktop-globals-to-save 'file-name-history)


;; Common Lisp compatibility
;(require 'cl)

;; Dired-X mode by default
(add-hook 'dired-load-hook (function (lambda () (load "dired-x"))))



;; For xml files, use nxml-mode instead of sgml-mode
(add-to-list 'auto-mode-alist '("\\.xml\\'" . nxml-mode))

;; Well known file types for makefile-mode
(add-to-list 'auto-mode-alist '("\\.cmp\\'" . makefile-mode))
(add-to-list 'auto-mode-alist '("\\.pro\\'" . makefile-mode))
(add-to-list 'auto-mode-alist '("\\.pri\\'" . makefile-mode))

;; Do not sit at the beginning of compilation window
;(setq compilation-scroll-output t)


;;-----------------------------------------------------
;; For Qt development
;;-----------------------------------------------------

;; On Windows we need following directories on PATH
(if win32p
  (progn
   ; These directories should come before pre-exisiting paths
   (setenv "PATH" (concat "C:/TCenv/ctags-5.8;"  (getenv "PATH")))
   (setenv "PATH" (concat "C:/TCenv/msys-1.0/bin;"  (getenv "PATH")))
   (setenv "PATH" (concat "C:/TCenv;" (getenv "PATH")))
   ; These directories should come after pre-existing paths
   (setenv "PATH" (concat (getenv "PATH") ";C:/TCenv/Aspell/bin"))
   (setenv "PATH" (concat (getenv "PATH") ";C:/TCenv/GnuWin32/bin"))
   (setenv "PATH" (concat (getenv "PATH") ";C:/TCenv/UnxUtils/usr/local/wbin"))
   (setenv "PATH" (concat (getenv "PATH") ";C:/TCenv/doxygen-1.6.1/bin"))
   (setenv "PATH" (concat (getenv "PATH") ";C:/Racket"))
   (setenv "PATH" (concat (getenv "PATH") ";C:/TCenv/STAF-3.3.5/bin"))
   (setenv "PATH" (concat (getenv "PATH") ";C:/Program Files/Debugging Tools for Windows (x86)")) ; For CDB debugger
   ))

;; Default shell
;; On Win32 MYSYS bash could be used
(if win32p
  (setq explicit-shell-file-name "C:/TCenv/msys-1.0/bin/bash.exe")
  (setq explicit-shell-file-name "/bin/bash"))

;; Qt project files should be viewed in makefile-mode
(add-to-list 'auto-mode-alist '("\\.pro\\'" . makefile-mode))

;; On Win32 Default build command is qnmake batch script
(if win32p
  (setq compile-command "C:/TCenv/qnmake.bat")
  (setq compile-command "gmake"))


;;-----------------------------------------------------
;; Paths for third party packages, files, and others
;;-----------------------------------------------------

;; Keep all backup files in one directory 
(push '("." . "~/.emacs.backups") backup-directory-alist)

(add-to-list 'load-path
             "~/.emacs.d")

(add-to-list 'load-path
             "~/.emacs.lisp/misc")

(add-to-list 'load-path
             "~/.emacs.lisp/drews")





;;-----------------------------------------------------
;; Third party packages
;;-----------------------------------------------------

;; redo.el
;;
;; Redo/Undo system
(require 'redo)


;; cycle-buffer.el
;;
;; To select buffers.
(autoload 'cycle-buffer 
           "cycle-buffer" "Cycle forward." t)
(autoload 'cycle-buffer-backward 
          "cycle-buffer" "Cycle backward." t)
(autoload 'cycle-buffer-permissive 
          "cycle-buffer" "Cycle forward allowing *buffers*." t)
(autoload 'cycle-buffer-backward-permissive 
          "cycle-buffer" "Cycle backward allowing *buffers*." t)
(autoload 'cycle-buffer-toggle-interesting 
          "cycle-buffer" "Toggle if this buffer will be considered." t)
; See key assignments at the end of this file


;; session.el
;;
;; Restores various variables from your last session
(require 'session)
(add-hook 'after-init-hook 'session-initialize)



;; cursor-chg.el
;;
;; Change cursor dynamically, depending on the context
(require 'cursor-chg)  ; Load this library
(change-cursor-mode 1) ; On for overwrite/read-only/input mode
(toggle-cursor-type-when-idle 1) ; On when idle
; Default values
(setq curchg-default-cursor-type 'hollow)
(setq curchg-idle-cursor-type 'box)


;; pager.el
;;
;; Window scroll commands
(require 'pager)
(global-set-key (kbd "<prior>")  'pager-page-up)   ; PageUp
(global-set-key (kbd "<next>")   'pager-page-down) ; PageDown
; Following two collides with CUA mode
;(global-set-key [(control v)]  'pager-page-down) 
;(global-set-key [(meta v)]     'pager-page-up) 
(global-set-key [(meta up)]    'pager-row-up) 
(global-set-key [(meta kp-8)]  'pager-row-up) 
(global-set-key [(meta down)]  'pager-row-down) 
(global-set-key [(meta kp-2)]  'pager-row-down)


;; maxframe.el
;;
;; Maximize/minimize/restore frames
(require 'maxframe)
;(add-hook 'window-setup-hook 'maximize-frame t) 


;; Google's C/C++ style for c-mode
(require 'google-c-style)
(add-hook 'c-mode-common-hook 'google-set-c-style)
(add-hook 'c-mode-common-hook 'google-make-newline-indent)






;; python-mode.el
;;
(setq auto-mode-alist (cons '("\\.py$" . python-mode) auto-mode-alist))
(setq interpreter-mode-alist (cons '("python" . python-mode)
                                   interpreter-mode-alist))
(autoload 'python-mode "python-mode" "Python editing mode." t)


;;-----------------------------------------------------
;; Scheme related
;;-----------------------------------------------------

(require 'quack)                        



;;-----------------------------------------------------
;; Org Mode
;;-----------------------------------------------------

(add-to-list 'load-path
             "~/.emacs.lisp/org-7.01g/lisp")
(add-to-list 'load-path
             "~/.emacs.lisp/org-7.01g/contrib/lisp")

(require 'org-install)

(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
(define-key global-map "\C-cl" 'org-store-link)
(define-key global-map "\C-ca" 'org-agenda)
(define-key global-map "\C-cb" 'org-iswitchb)

(add-hook 'org-mode-hook 'turn-on-font-lock) ; Org buffers only

(setq org-log-done t)



;;-----------------------------------------------------
;; Functions
;;-----------------------------------------------------

(defun text-scale-normal-size ()
  "Set the height of the default face in the current buffer to its default value."
  (interactive)
  (text-scale-increase 0))

(defun lookup-word-definition ()
  "Look up the current word's definition in a browser.
If a region is active (a phrase), lookup that phrase."
 (interactive)
 (let (myword myurl)
   (setq myword
         (if (and transient-mark-mode mark-active)
             (buffer-substring-no-properties (region-beginning) (region-end))
           (thing-at-point 'symbol)))

  (setq myword (replace-regexp-in-string " " "%20" myword))
  (setq myurl (concat "http://www.answers.com/main/ntquery?s=" myword))

  (browse-url myurl)
  ;; (w3m-browse-url myurl) ;; if you want to browse using w3m

  ;; if you want to browse using OSX+Opera
  ;; (shell-command (concat "open -a opera " myurl))
))


(defun lookup-wikipedia ()
  "Look up the word under cursor in Wikipedia.
This command generates a url for Wikipedia.com and switches you
to browser. If a region is active (a phrase), lookup that phrase."
 (interactive)
 (let (myword myurl)
   (setq myword
         (if (and transient-mark-mode mark-active)
             (buffer-substring-no-properties (region-beginning) (region-end))
           (thing-at-point 'symbol)))

  (setq myword (replace-regexp-in-string " " "_" myword))
  (setq myurl (concat "http://en.wikipedia.org/wiki/" myword))
  (browse-url myurl)
))


(defun run-ctags ()
  "Run ctags on the current buffer's directory"
  (interactive)
  (save-excursion
    (let ((cb (current-buffer)))
      (set-buffer (get-buffer-create "*ctags*"))
      (call-process "C:/TCenv/ctags-5.8/ctags.exe" nil t nil "-V" "-e" "-R" "--languages=C,C++" "--extra=+q" ".")
      ;; Perform error checking here
      (goto-char (point-min))
      (if (looking-at "Error")
          (error (buffer-string)))
      )))


(defun run-doxygen ()
  "Run doxygen on the current buffer's directory"
  (interactive)
  (save-excursion
    (let ((cb (current-buffer)))
      (set-buffer (get-buffer-create "*doxygen*"))
      (call-process "C:/TCenv/doxygen-1.6.1/bin/doxygen.exe" nil t nil "doxy.cfg")
      ;; Perform error checking here
      (goto-char (point-min))
      (if (looking-at "Error")
          (error (buffer-string)))
      )))
 

;;
;; From ErgoEmacs
;;

(defun kill-line-backward ()
  "Kill text between the beginning of the line to the cursor position.
If there's no text, delete the previous line ending."
  (interactive)
  (if (looking-back "\n")
      (delete-char -1)
    (kill-line 0)
    )
  )

(defun move-cursor-next-pane ()
  "Move cursor to the next pane."
  (interactive)
  (other-window 1)
  )

(defun move-cursor-previous-pane ()
  "Move cursor to the previous pane."
  (interactive)
  (other-window -1)
  )

(defun switch-to-next-frame ()
  "Select the next frame on current display, and raise it."
  (interactive)
  (other-frame 1)
  )

(defun switch-to-previous-frame ()
  "Select the previous frame on current display, and raise it."
  (interactive)
  (other-frame -1)
  )


(defun new-empty-buffer ()
  "Opens a new empty buffer."
  (interactive)
  (let ((buf (generate-new-buffer "untitled")))
    (switch-to-buffer buf)
    (funcall (and initial-major-mode))
    (setq buffer-offer-save t)))
;; note: emacs won't offer to save a buffer that's
;; not associated with a file,
;; even if buffer-modified-p is true.
;; One work around is to define your own my-kill-buffer function
;; that wraps around kill-buffer, and check on the buffer modification
;; status to offer save
;; This custome kill buffer is close-current-buffer.

(defun ergoemacs-cua-hook ()
  "Prevent `cua-mode' from going into selection mode when commands with Shift key is used."

  (put 'cua-scroll-down 'CUA nil)
  (put 'cua-scroll-up 'CUA nil)
  (put 'backward-paragraph 'CUA nil)
  (put 'forward-paragraph 'CUA nil)
  (put 'beginning-of-buffer 'CUA nil)
  (put 'end-of-buffer 'CUA nil)
  (put 'move-end-of-line 'CUA nil)
  )

; TODO: How can I use above function?
;(funcall modify-hook 'cua-mode-hook 'ergoemacs-cua-hook)

;;-----------------------------------------------------
;; Keyboard shortcuts:
;;-----------------------------------------------------

; Enable these regardless of ErgoEmacs is on or off
(global-set-key (kbd "C-k") 'kill-line) 
(global-set-key (kbd "C-a") 'beginning-of-visual-line) 
(global-set-key (kbd "C-e") 'end-of-visual-line) 
; goto-line is already bound to M-g M-g
;(global-set-key (kbd "C-c C-g") 'goto-line) 

;; H is for hyper (Menu key)
;; s is for super (Windows key)
(global-set-key (kbd "s-c") 'make-frame-command) 
(global-set-key (kbd "s-x") 'delete-frame)
(global-set-key (kbd "H-d") 'delete-frame)
(global-set-key (kbd "H-x") 'maximize-frame)
(global-set-key (kbd "H-n") 'w32-minimize-frame)
(global-set-key (kbd "H-r") 'restore-frame)
(global-set-key (kbd "s-k") 'describe-key)
(global-set-key (kbd "H-f") 'describe-function)
(global-set-key (kbd "s-<delete>") 'kill-buffer)

; Frame movement
(global-set-key (kbd "s-n") 'switch-to-next-frame)
(global-set-key (kbd "s-<right>") 'switch-to-next-frame)
(global-set-key (kbd "s-<left>")  'switch-to-previous-frame)
(global-set-key (kbd "C-<tab>")   'switch-to-next-frame)
(global-set-key (kbd "C-S-<tab>") 'switch-to-previous-frame)


(global-set-key (kbd "C-<backspace>") 'backward-kill-word)

(global-set-key (kbd "M-<up>")     'backward-paragraph)
(global-set-key (kbd "M-<down>")   'forward-paragraph) 

(global-set-key (kbd "<end>")       'move-end-of-line)
(global-set-key (kbd "<home>")      'move-beginning-of-line)

; Buffer movement
(global-set-key (kbd "M-<right>") 'cycle-buffer)
(global-set-key (kbd "M-<left>")  'cycle-buffer-backward)
(global-set-key (kbd "M-S-<right>") 'cycle-buffer-permissive)
(global-set-key (kbd "M-S-<left>")  'cycle-buffer-backward-permissive)

 
;; Font height
;(global-set-key (kbd "C-+") 'text-scale-increase)
;(global-set-key (kbd "C--") 'text-scale-decrease)
;(global-set-key (kbd "C-0") 'text-scale-normal-size)
(global-set-key (kbd "C-<kp-add>") 'text-scale-increase)
(global-set-key (kbd "C-<kp-subtract>") 'text-scale-decrease)
(global-set-key (kbd "C-<kp-0>") 'text-scale-normal-size)

;; ErgoEmacs like keys
;; make cursor movement keys under right hand's home-row.

(global-set-key (kbd "M-h") 'beginning-of-visual-line) 
(global-set-key (kbd "M-H") 'end-of-visual-line) 

(global-set-key (kbd "M-j") 'backward-char) 
(global-set-key (kbd "M-k") 'next-line) 
(global-set-key (kbd "M-l") 'forward-char) 

(global-set-key (kbd "M-u") 'backward-word)  
(global-set-key (kbd "M-i") 'previous-line) 
(global-set-key (kbd "M-o") 'forward-word) 

(global-set-key (kbd "M-J") 'backward-paragraph) 
(global-set-key (kbd "M-L") 'forward-paragraph) 

(global-set-key (kbd "M-K") 'pager-page-down) 
(global-set-key (kbd "M-I") 'pager-page-up)  

(global-set-key (kbd "M-U") 'beginning-of-buffer) 
(global-set-key (kbd "M-O") 'end-of-buffer) 

; Do I need this?
;(global-set-key (kbd "M-m") 'newline)

;; Deletion commands
;; M-d bound to kill-word already
(global-set-key (kbd "M-e") 'backward-kill-word)
(global-set-key (kbd "M-<delete>") 'kill-line)
(global-set-key (kbd "M-<backspace>") 'kill-line-backward)


(global-set-key (kbd "C-n") 'new-empty-buffer) ; Open New File
(global-set-key (kbd "C-S-n") 'make-frame-command) ; open a new window.
(global-set-key (kbd "C-o") 'find-file) ; Open
;(global-set-key (kbd "C-w") 'close-current-buffer) ; Close

;; C-s is too precious for isearch-forward
;(global-set-key (kbd "C-s") 'save-buffer) ; Save
(global-set-key (kbd "M-s") 'save-buffer) ; Save

(global-set-key (kbd "C-S-s") 'write-file) ; Save As
(global-set-key (kbd "C-x C-b") 'ibuffer)

;; isearch
(global-set-key (kbd "M-[") 'isearch-forward)
(global-set-key (kbd "M-]") 'isearch-backward)
(global-set-key (kbd "M-{") 'isearch-forward-regexp)
(global-set-key (kbd "M-}") 'isearch-backward-regexp)

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

(global-set-key (kbd "M-1") 'delete-other-windows)
(global-set-key (kbd "M-!") 'delete-window)

(global-set-key (kbd "M-2") 'split-window-vertically)
(global-set-key (kbd "M-@") 'split-window-horizontally)

; Mark point.
(global-set-key (kbd "M-SPC") 'set-mark-command)

(global-set-key (kbd "M-a") 'execute-extended-command)
(global-set-key (kbd "M-A") 'shell-command)

(global-set-key (kbd "M-z") 'undo)
(global-set-key (kbd "M-Z") 'redo)

; Window splitting
; Following functions are from ErgoEmacs, need to extract those:
;(global-set-key (kbd "M-n") 'move-cursor-next-pane)
; M-b too precious for backward-word
;(global-set-key (kbd "M-b") 'move-cursor-previous-pane)

;; Function key bindings
(global-set-key (kbd "<f5>") 'dired)
(global-set-key (kbd "<f6>") 'ibuffer)
(global-set-key (kbd "<f7>") 'compile)
; Don't forget to call visit-tags-table after TAGS generation
(global-set-key (kbd "<f8>") 'run-ctags)
(global-set-key (kbd "<f9>") 'run-doxygen)
;; Google search is bound to C-c g
(global-set-key (kbd "<f10>") 'dim:google)
(global-set-key (kbd "<f11>") 'lookup-wikipedia)
(global-set-key (kbd "<f12>") 'lookup-word-definition)



;;-----------------------------------------------------
;; Check point
;;-----------------------------------------------------

(message "INIT: Completed.")

;; End of file