windows下emacs配置

;;禁用启动信息
(setq inhibit-startup-message t)

;;显示时间
(display-time-mode t)
;;时间使用24小时制
;;(setq display-time-24hr-format t)
;;时间显示包括日期和具体时间
;;(setq display-time-day-and-date t)
;;时间变化频率
(setq display-time-interval 120)

;; 字体设置
;;(set-default-font "DejaVu Sans Mono-11")

;;主要是这段设置,同样的将.emacs.d目录放在C:\Users\Jack\AppData\Roaming下,
;; 里面的设置的方式都不用改变,windows下同linux下是通用的
;;我的emacs lisp包的路径
(add-to-list 'load-path (expand-file-name "c:/Users/Jack/AppData/Roaming/.emacs.d"))
(add-to-list 'load-path "C:/Users/Jack/AppData/Roaming/.emacs.d/plugins")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;使用主题  
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'theme-settings)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;speedbar设置
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'speedbar-settings)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; cedet
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'cedet-settings)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ecb
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'ecb-settings)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;tabbar和wcy-swbuff设置
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'tabbar-settings)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; yasnippet设置
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'yasnippet-settings)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; session.el配置,这个顺序很重要,否则不管用 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'session-settings)

;; 设置tab为4个空格的宽度,而不是原来的2                       
(setq c-basic-offset 4)                                        
(setq default-tab-width 4)                                     
(setq-default indent-tabs-mode nil)

;;显示行号
(require 'linum)
(global-linum-mode t)
;;显示列号  
(column-number-mode t)

(setq auto-image-file-mode t) ;让 Emacs 可以直接打开和显示图片

;;(setq speedbar-show-unknown-files t);;可以显示所有目录以及文件,好像不管用

;;隐藏工具栏,滚动条,菜单栏
(tool-bar-mode nil)
(scroll-bar-mode nil)
(menu-bar-mode nil)

;;鼠标不闪动
(blink-cursor-mode nil)
;;当指针到一个括号时,自动显示所匹配的另一个括号
(show-paren-mode t)
;;括号匹配时可以高亮显示另外一边的括号,但光标不会烦人的跳到另一个括号处
(setq show-paren-style 'parenthesis) ;;好像也没太大作用
;;鼠标自动避开指针,如当你输入的时候,指针到了鼠标的位置,鼠标有点挡住视线了
(mouse-avoidance-mode 'animate)
;;当指针移到另一行,不要新增一行,按 C-n 或向下键时不添加新行
(setq next-line-add-newlines nil)

;;定制快捷键
;;设置f10为显示菜单栏
(global-set-key [f10] 'menu-bar-mode)
;;跳到指定行
(define-key ctl-x-map "l" 'goto-line)

;;y/n替代yes/no
(fset 'yes-or-no-p 'y-or-n-p)

;;不产生备份文件
(setq make-backup-files nil)

;;设置默认工作目录
;;(setq default-directory "~/working/")


;;设置粘贴缓冲条目数量
(setq kill-ring-max 200)


;;支持外部程序粘贴
(setq x-select-enable-clipboard t)

;;启动最大化
(setq initial-frame-alist '((top . 0) (left . 0)(width . 167)(height . 43)))
(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.
 '(ecb-primary-secondary-mouse-buttons (quote mouse-1--mouse-2))
 '(session-use-package t nil (session)))
(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.
 )

相关推荐