path: root/emacs

;; add my paths to load-path
(add-to-list 'load-path "~/.emacs.d/session")
(add-to-list 'load-path "~/.emacs.d/lisp")

;; setup fontset
(if window-system
    (progn
	    ;; font setting
            (set-default-font "Bitstream Vera Sans Mono-9")
            (set-fontset-font (frame-parameter nil 'font)
			      'chinese-gbk '("Microsfot Yahei" . "unicode-bmp"))

            ;; window positioning
            (setq default-frame-alist '((top . 0) (left . 0) (width . 160) (height . 40)))))

;; setup show startup message
(setq inhibit-startup-message t)
(setq semantic-load-turn-useful-things-on t)

(load "/usr/share/emacs/site-lisp/site-gentoo")

;;(setq-default make-backup-files nil)
;; load ecb
(setq ecb-auto-activate t)
(require 'ecb)

;; set color theme if emacs is windowed
(require 'color-theme)
(color-theme-initialize)
(if window-system
    (progn
      (color-theme-bharadwaj-slate)))

;;color terminal
(require 'ansi-color)
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)

;; ask for y or n instead
(fset 'yes-or-no-p 'y-or-n-p)

(transient-mark-mode t)

(add-hook 'find-file-hooks 'auto-insert)

(show-paren-mode t)

;;(setq lazy-lock-defer-on-scrolling t)
;;(setq font-lock-support-mode 'lazy-lock-mode)
;;(setq font-lock-maximum-decoration t)

;; setup keybinds
(global-set-key [f5] 'ecb-activate)
(global-set-key [f6] 'ecb-deactivate)
(global-set-key [f9] 'compile)
(global-set-key [f12] 'gdb)

;;session
(require 'session)
(add-hook 'after-init-hook 'session-initialize)

;;kill a line
(defun kill-whole-line nil
  "delete the whole line"
  (interactive)
  (beginning-of-line)
  (push-mark)
  (beginning-of-line 2)
  (kill-region (point) (mark)))
(global-set-key (kbd "C-d") 'kill-whole-line)

;; compile .emacs
(defun autocompile nil
  "compile itself if ~/.emacs"
  (interactive)
  (if (string= (buffer-file-name) (concat default-directory ".emacs"))
      (byte-compile-file (buffer-file-name))))
(add-hook 'after-save-hook 'autocompile)

;;----------------------------------------------------------------------------
(setq tab-width 4)
;;(setq c-basic-offset 4)
;;(setq c-hanging-comment-ender-p nil)
;;(setq-default indent-tabs-mode nil)

;; define a new indentation style
(require 'cc-styles)
(add-to-list 'c-style-alist
             '("ljh"
               (indent-tabs-mode nil)
	       (c-basic-offset . 4)
	       (c-comment-only-line-offset . 0)
	       (c-offsets-alist . ((statement-block-intro . +)
				   (knr-argdecl-intro . 0)
				   (substatement-open . 0)
				   (substatement-label . 0)
				   (label . 1)
				   (statement-cont . +)
				   (arglist-intro . c-lineup-arglist-intro-after-paren)
				   (arglist-close . c-lineup-arglist)
				   ))
	       )
	     )

(add-to-list 'c-style-alist
             '("tables"
	       (c-basic-offset . 8)
	       (c-comment-only-line-offset . 0)
	       (c-offsets-alist . ((statement-block-intro . +)
				   (knr-argdecl-intro . 0)
				   (substatement-open . 0)
				   (substatement-label . 0)
				   (label . 1)
				   (statement-cont . +)
				   (inline-open 0)
				   (arglist-intro . c-lineup-arglist-intro-after-paren)
				   (arglist-close . c-lineup-arglist)
				   ))
	       )
	     )

(add-hook 'c-mode-common-hook
          (function
           (lambda ()
 ;;            (c-set-style "ljh")
	     (hl-line-mode t)
             )))
(add-hook 'c++-mode-hook
          (function
           (lambda ()
             (c-set-style "ljh")
	     (hl-line-mode t)
             )))

(add-hook 'python-mode-hook
          (function
           (lambda ()
	     (hl-line-mode t)
             )))

(defun gstreamer-c-mode ()
  "C mode with adjusted defaults for use with GStreamer."
  (interactive)
  (c-mode)
  (c-set-style "K&R")
  (setq c-basic-offset 2))

(setq auto-mode-alist (cons '("gst.*/.*\\.[ch]$" . gstreamer-c-mode)
                       auto-mode-alist))

(defun ljh-c-mode ()
  "C mode with adjusted defaults for myself."
  (interactive)
  (c-mode)
  (c-set-style "ljh"))
(setq auto-mode-alist (cons '("milkway.*/.*\\.[ch]$" . ljh-c-mode)
                       auto-mode-alist))

(setq auto-mode-alist (cons '("openpps.*/.*\\.[ch]$" . ljh-c-mode)
                       auto-mode-alist))

;; guess offset
(require 'guess-offset)

(require 'semanticdb)
;;(global-semanticdb-minor-mode 1)
(require 'semantic-ia)
(global-set-key [(control p)] 'semantic-ia-complete-symbol-menu)
;;# semantic-ia-complete-symbol
;;# semantic-ia-complete-symbol-menu
;;# semantic-ia-complete-tip

(require 'tabbar)
(tabbar-mode)
(global-set-key [(s-down)] 'tabbar-backward-group);;
(global-set-key [(s-up)] 'tabbar-forward-group)
(global-set-key (kbd "s-b") 'tabbar-backward);;
(global-set-key (kbd "s-f") 'tabbar-forward)

;;M-x desktop-clear
;;(load "desktop")
;;(desktop-save-mode)
;;(desktop-read)
;;(global-set-key [f11] 'desktop-save)

;;(global-semantic-show-dirty-mode -1)
(global-semantic-show-unmatched-syntax-mode -1)
(require 'semantic-load)
;;(global-semantic-idle-completions-mode 1)

(require 'doxymacs)
(add-hook 'c-mode-common-hook 'doxymacs-mode)

;; emacs
(add-to-list 'auto-mode-alist '("emacs/emacs" . lisp-mode))

;; scons
(add-to-list 'auto-mode-alist '("SConstruct" . python-mode))
(add-to-list 'auto-mode-alist '("SConscript" . python-mode))
(add-to-list 'interpreter-mode-alist '("python" . python-mode))

;; Set the fill column to 70 for human text, and 80 for code.
;;(add-hook 'text-mode-hook '(lambda () (set-fill-column 70)))
;;(add-hook 'c-mode-hook '(lambda () (set-fill-column 80)))
;;(add-hook 'c++-mode-hook '(lambda () (set-fill-column 80)))
;;(add-hook 'python-mode-hook '(lambda () (set-fill-column 80)))
;;(add-hook 'java-mode-hook '(lambda () (set-fill-column 80)))

;;auto-complete
(require 'auto-complete)
(require 'auto-complete-config)
(require 'yasnippet)

(global-auto-complete-mode t)
(setq ac-auto-start 2)

(define-key ac-complete-mode-map "\t" 'ac-expand)
(define-key ac-complete-mode-map "\r" 'ac-complete)
(define-key ac-complete-mode-map (kbd "M-j") 'ac-complete)
(define-key ac-complete-mode-map (kbd "M-n") 'ac-next)
(define-key ac-complete-mode-map (kbd "M-p") 'ac-previous)

(setq ac-dwim t)
(setq ac-candidate-menu-height 20)
(setq ac-candidate-max ac-candidate-menu-height)

(set-default 'ac-sources
             '(ac-source-semantic
               ac-source-yasnippet
               ac-source-abbrev
               ac-source-words-in-buffer
               ac-source-words-in-all-buffer
               ac-source-imenu
               ac-source-files-in-current-dir
               ac-source-filename))
;;(setq ac-modes ac+-modes)

(setq ac-trigger-commands '(self-insert-command autopair-insert-or-skip-quote))

(defun ac-settings-4-lisp ()
  "Auto complete settings for lisp mode."
  (setq ac-omni-completion-sources '(("require\s+'" ac-source-emacs-lisp-features)
                                     ("load\s+\"" ac-source-emacs-lisp-features)))
  (setq ac-sources
        '(ac-source-yasnippet
          ac-source-symbols
	  ac-source-semantic
          ac-source-abbrev
          ac-source-words-in-buffer
          ac-source-words-in-all-buffer
          ac-source-imenu
          ac-source-files-in-current-dir
          ac-source-filename)))

(defun ac-settings-4-java ()
  (setq ac-omni-completion-sources (list (cons "\\." '(ac-source-semantic))
                                         (cons "->" '(ac-source-semantic))))
  (setq ac-sources
        '(ac-source-semantic
          ac-source-yasnippet
          ac-source-abbrev
          ac-source-words-in-buffer
          ac-source-words-in-all-buffer
          ac-source-files-in-current-dir
          ac-source-filename)))

(defun ac-settings-4-c ()
  (setq ac-omni-completion-sources (list (cons "\\." '(ac-source-semantic))
                                         (cons "->" '(ac-source-semantic))))
  (setq ac-sources
        '(ac-source-semantic
	  ac-source-yasnippet
          ac-source-c-keywords
          ac-source-abbrev
          ac-source-words-in-buffer
          ac-source-words-in-all-buffer
          ac-source-files-in-current-dir
          ac-source-filename)))

(defun ac-settings-4-cpp ()
            (setq ac-omni-completion-sources
                  (list (cons "\\." '(ac-source-semantic))
                        (cons "->" '(ac-source-semantic))))
            (setq ac-sources
                  '(ac-source-semantic
		    ac-source-yasnippet
                    ac-source-c++-keywords
                    ac-source-abbrev
                    ac-source-words-in-buffer
                    ac-source-words-in-all-buffer
                    ac-source-files-in-current-dir
                    ac-source-filename)))

(defun ac-settings-4-python ()
	    (setq ac-omni-completion-sources
		  '(("\\." ac-source-ropemacs)))
	    (setq ac-sources
                  '(ac-source-semantic
		    ac-source-yasnippet
                    ac-source-abbrev
                    ac-source-words-in-buffer
                    ac-source-words-in-all-buffer
                    ac-source-files-in-current-dir
                    ac-source-filename)))

(defun ac-settings-4-text ()
            (setq ac-sources
                  '(;;ac-source-semantic
                    ac-source-yasnippet
                    ac-source-abbrev
                    ac-source-words-in-buffer
                    ac-source-words-in-all-buffer
                    ac-source-imenu)))

(defun ac-settings-4-eshell ()
            (setq ac-sources
                  '(;;ac-source-semantic
                    ac-source-yasnippet
                    ac-source-abbrev
                    ac-source-words-in-buffer
                    ac-source-words-in-all-buffer
                    ac-source-files-in-current-dir
                    ac-source-filename
                    ac-source-symbols
                    ac-source-imenu)))

(defun ac-settings-4-ruby ()
            (setq ac-omni-completion-sources
                  (list (cons "\\." '(ac-source-rcodetools))
                        (cons "::" '(ac-source-rcodetools)))))

(defun ac-settings-4-html ()
  (setq ac-sources
        '(ac-source-semantic
          ac-source-yasnippet
          ac-source-abbrev
          ac-source-words-in-buffer
          ac-source-words-in-all-buffer
          ac-source-files-in-current-dir
          ac-source-filename)))

(dolist (hook (list 'lisp-mode-hook 'emacs-lisp-mode-hook 'lisp-interaction-mode-hook
                    'svn-log-edit-mode))
  (add-hook hook 'ac-settings-4-lisp))

(add-hook 'java-mode-hook   'ac-settings-4-java)
(add-hook 'c-mode-hook      'ac-settings-4-c)
(add-hook 'c++-mode-hook    'ac-settings-4-cpp)
(add-hook 'python-mode-hook    'ac-settings-4-python)
(add-hook 'text-mode-hook   'ac-settings-4-text)
(add-hook 'eshell-mode-hook 'ac-settings-4-eshell)
(add-hook 'html-mode-hook   'ac-settings-4-html)

;;(dolist (mode ac-modes)
;;  (let ((mode-name (symbol-name mode)))
;;    (when (and (intern-soft mode-name) (intern-soft (concat mode-name "-map")))
;;    (define-key (symbol-value (concat-name mode-name "-map")) (kbd "C-c a") 'ac-start))))

(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(column-number-mode t)
 '(display-time-mode t)
 '(ecb-options-version "2.40")
 '(ecb-source-path (quote (("/" "/") ("~/Projects" "Projects"))))
 '(scroll-bar-mode (quote right))
 '(show-paren-mode t)
 '(show-trailing-whitespace t)
 '(size-indication-mode t)
 '(transient-mark-mode t))
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 )

(put 'narrow-to-region 'disabled nil)