linux emacs配置文件,emacs配置文件

(setq default-major-mode 'text-mode)

(global-font-lock-mode t)

(auto-image-file-mode t)

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

(column-number-mode t)

(show-paren-mode t)

(display-time-mode 1)

(setq display-time-24hr-format t)

(setq display-time-day-and-date t)

(tool-bar-mode nil)

(scroll-bar-mode nil)

(mouse-avoidance-mode 'animate)

(setq mouse-yank-at-point t)

(transient-mark-mode t)

(setq x-select-enable-clipboard t)

(setq frame-title-format "%b@emacs")

(setq default-fill-column 80)

(blink-cursor-mode -1)

(set-default-font "文泉驿等宽微米黑-13")

(setq auto-save-default nil)

(setq-default make-backup-files nil)

(setq inhibit-startup-message t)

(setq visible-bell t)

(display-time)

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

;chinese-menu

(require 'english-menu)

(require 'chinese-menu)

(require 'mule-menu)

;tabbar

(require 'tabbar)

(tabbar-mode)

(global-set-key (kbd "s-;") 'tabbar-backward-group)

(global-set-key (kbd "s-'") 'tabbar-forward-group)

(global-set-key (kbd "s-,") 'tabbar-backward)

(global-set-key (kbd "s-.") 'tabbar-forward)

(set-face-attribute 'tabbar-default-face nil :family "文泉驿微米黑" :height 120)

(set-face-attribute 'mode-line nil :family "文泉驿微米黑" :height 120)

;color-theme

(require 'color-theme)

(color-theme-comidia)

;cedet

(load-file "~/.emacs.d/cedet/common/cedet.el")

(semantic-load-enable-code-helpers)

(require 'cedet)

;; Enabling Semantic (code-parsing, smart completion) feature, Select one of the following:

;; (semantic-load-enable-minimum-features)

(semantic-load-enable-code-helpers)

;; (semantic-load-enable-guady-code-helpers)

;; (semantic-load-enable-excessive-code-helpers)

;; (semantic-load-enable-semantic-debugging-helpers)

;; (global-set-key [(control tab)] 'senator-complete-symbol);

;; (global-set-key [(control tab)] 'senator-completion-menu-popup) ;; use C-c , SPC instead

;; (global-set-key [(control tab)] 'semantic-ia-complete-symbol)

;(global-set-key [(control tab)] 'semantic-ia-complete-symbol-menu)

;; 配置Semantic的检索范围:

;; (setq semanticdb-project-roots

;; (list

;; (expand-file-name "/")))

;; 设置semantic cache临时文件的路径，避免到处都是临时文件

(setq semanticdb-default-save-directory "~/.emacs.d/semantic.cache")

;; C/C++语言启动时自动加载semantic对/usr/include的索引数据库

(setq semanticdb-search-system-databases t)

(add-hook 'c-mode-common-hook

(lambda ()

(setq semanticdb-project-system-databases

(list (semanticdb-create-database

semanticdb-new-database-class

"/usr/include")))))

;ecb

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

(require 'ecb)

(autoload 'speedbar-frame-mode "speedbar" "Popup a speedbar frame" t)

(autoload 'speedbar-get-focus "speedbar" "Jump to speedbar frame" t)

(define-key-after (lookup-key global-map [menu-bar tools])

[speedbar]

'("Speedbar" .

speedbar-frame-mode)

[calendar])

(global-set-key [f12] 'ecb-activate)

(global-set-key [C-f12] 'ecb-deactivate)

(global-set-key [f11] 'delete-other-windows)

(global-set-key [(f5)] 'speedbar)

;ido

(require 'ido)

(ido-mode t)

;line-number

(global-linum-mode t)

;cscope

(require 'xcscope)

(setq cscope-do-not-update-database t)

;gdb

(setq gdb-many-windows t)

(load-library "multi-gud.el")

(load-library "multi-gdb-ui.el")

;sdcv

(require 'sdcv-mode)

(global-set-key (kbd "C-c d") 'sdcv-search)

;eim

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

(autoload 'eim-use-package "eim" "Another emacs input method")

(setq eim-use-tooltip nil)

(register-input-method

"eim-wb" "euc-cn" 'eim-use-package

"五笔" "汉字五笔输入法" "wb.txt")

(register-input-method

"eim-py" "euc-cn" 'eim-use-package

"拼音" "汉字拼音输入法" "py.txt")

(setq default-input-method "eim-py")

;w3m

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

(require 'w3m-load)

(setq w3m-home-page "")

(setq w3m-command-arguments '("-cookie" "-F"))

(setq w3m-use-cookies t)

(setq w3m-default-display-inline-images t)

;emms

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

(require 'emms-setup)

(emms-standard)

(emms-default-players)

(add-hook 'emms-player-started-hook 'emms-show)

(setq emms-show-format "NP: %s")

(setq emms-source-file-default-directory "/var/lib/mpd/music")

(require 'emms-i18n)

(require 'emms-history)

(require 'emms-player-mpd)

(setq emms-player-mpd-server-name "localhost")

(setq emms-player-mpd-server-port "6600")

(setq emms-player-mpd-music-directory "/var/lib/mpd/music")

(add-to-list 'emms-info-functions 'emms-info-mpd)

(add-to-list 'emms-player-list 'emms-player-mpd)

;emms-lyrics

(setq emms-lyrics-dir "~/.lyrics")

(setq emms-lyrics-coding-system nil)

(require 'emms-lyrics)

(emms-lyrics 1)

(setq emms-lyrics-display-on-minibuffer t)

(setq emms-lyrics-display-on-modeline nil)

;auto-complete

(add-to-list 'load-path "/root/.emacs.d/auto-complete")

(require 'auto-complete-config)

(add-to-list 'ac-dictionary-directories "/root/.emacs.d/auto-complete/ac-dict")

(ac-config-default)

(setq ac-auto-show-menu 0.2)

(setq ac-use-menu-map t)

(define-key ac-menu-map "\C-n" 'ac-next)

(define-key ac-menu-map "\C-p" 'ac-previous)

;company,这个有点卡

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

(autoload 'company-mode "company" nil t)

;(setq company-idle-delay 0.2)

(setq company-idle-delay nil)

(add-hook 'c-mode-hook '(lambda () (company-mode)))

(add-hook 'c++-mode-hook '(lambda () (company-mode)))

(global-set-key [(control tab)] 'company-complete-common)

;yasnippet

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

(require 'yasnippet)

(yas/initialize)

(yas/load-directory "~/.emacs.d/yasnippet/snippets")

(require 'cc-mode)

;;设置TAB宽度为4

(setq default-tab-width 4)

;;以下设置缩进

(setq c-indent-level 4)

(setq c-continued-statement-offset 4)

(setq c-brace-offset -4)

(setq c-argdecl-indent 4)

(setq c-label-offset -4)

(setq c-basic-offset 4)

(global-set-key "\C-m" 'reindent-then-newline-and-indent)

(setq indent-tabs-mode nil)

(setq standard-indent 4)

;;开启语法高亮。

(global-font-lock-mode 1)

;python-mode

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

(setq font-lock-maximum-decoration t)

;eshell

(defalias 'em 'find-file)

;tramp

(require 'tramp)

(setq tramp-default-method "scp")

;(setq tramp-default-user "username"

; tramp-default-host "hostname")