;;禁用启动信息
(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 lisp包的路径
(add-to-list 'load-path (expand-file-name "~/.emacs.d"))
(add-to-list 'load-path "~/.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 . 180)(height . 40)))
(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.
)
~/.emacs
最新推荐文章于 2024-08-19 16:38:24 发布