我的emacs配置文件

御前带刀侍卫 2014-12-19

最近根据网上的一些材料配置了现在的emacs鉴于emacs新手使用的时候不太习惯现在把我的配置文件分享如下。

;;关闭欢迎界面
(setq inhibit-startup-message t)
;;(setq gnus-inhibit-startup-message nil)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;nva插件
(add-to-list 'load-path "~/.emacs.d/extra/")
(require 'sr-speedbar)
(add-to-list 'load-path ".emacs.d/emacs-nav/")
(require 'nav)
(nav-disable-overeager-window-splitting)
;;绑定快捷键
(global-set-key [f8] 'nav-toggle)
(global-set-key [f5] 'compile)
    (setq-default compile-command "make")

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




(defun my-maximized () 
  (interactive) 
  (x-send-client-message 
    nil 0 nil "_NET_WM_STATE" 32 
    '(2 "_NET_WM_STATE_MAXIMIZED_HORZ" 0) 
  ) 
  (x-send-client-message 
    nil 0 nil "_NET_WM_STATE" 32 
    '(2 "_NET_WM_STATE_MAXIMIZED_VERT" 0) 
  ) 
) 
;;启动时最大化 
;;(my-maximized) 
(global-set-key [f11] 'my-maximized) 



(defun myfullscreen () 
(interactive)
  (x-send-client-message nil 0 nil "_NET_WM_STATE" 32  '(2 "_NET_WM_STATE_FULLSCREEN" 0) )   
)
(global-set-key [f10] 'myfullscreen)
;;(myfullscreen)
(global-set-key [(f9)] 'loop-alpha)  ;;注意这行中的F9 , 可以改成你想要的按键   
   
(setq alpha-list '((45 55) (100 100)))   
   
(defun loop-alpha ()   
  (interactive)   
  (let ((h (car alpha-list)))                   
    ((lambda (a ab)   
       (set-frame-parameter (selected-frame) 'alpha (list a ab))   
       (add-to-list 'default-frame-alist (cons 'alpha (list a ab)))   
       ) (car h) (car (cdr h)))   
    (setq alpha-list (cdr (append alpha-list (list h))))   
    )   
)   
 
;; 显示时间,格式如下
(display-time-mode 1)
(setq display-time-24hr-format t)
(setq display-time-day-and-date t)

(transient-mark-mode t)

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


;;;;;改变emacs标题栏的标题 
(setq frame-title-format "%b@localhost") 


;;启动默认设置显示行号
(global-linum-mode t)
;; 显示列号 
(setq column-number-mode t) 
;;开启语法高亮。 
(global-font-lock-mode 1) 
;;设置tab为4个空格的宽度 
(setq default-tab-width 4) 
(setq c-basic-offset 4) 


;;;;;;;;;  设置界面 start  这个会改变颜色方案
(set-cursor-color "Wheat")
(set-mouse-color "Wheat")
(set-foreground-color "Wheat")
(set-background-color "DarkSlateGray") 
(if window-system (setq default-frame-alist (append  '( (top . 80)    (left   . 100) (width . 110) (height . 35 ) )  default-frame-alist)) 
) 
;;;启动最大化 
;;;(setq initial-frame-alist '((top . 0) (left . 0) (width . 97) (height . 49))) 
;;高亮当前行
(global-hl-line-mode t) 
;; 去掉工具栏
(tool-bar-mode nil)
;;去掉菜单栏
(menu-bar-mode nil)
;; 去掉滚动栏
;;(scroll-bar-mode nil)

 




附件中的包直接解压到用户目录下就可以使用我的配置文件,包括我装的插件都可以使用。

相关推荐