我的emacs配置文件
最近根据网上的一些材料配置了现在的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)
附件中的包直接解压到用户目录下就可以使用我的配置文件,包括我装的插件都可以使用。
相关推荐
kekenow 2020-06-02
Watanuki00 2020-05-31
kekenow 2020-05-27
applecarelte 2020-05-17
hell0kitty 2020-05-06
严谨死板君 2020-04-26
猫师 2020-03-16
Watanuki00 2020-02-19
nixebo 2020-02-02
Watanuki00 2020-01-31
Watanuki00 2019-11-18
kekenow 2019-10-22
Jouen 2011-09-18
DeanChen 2012-02-21
nixebo 2019-04-04
suncrx 2014-12-12
robertzhouxh 2014-03-10
suncrx 2013-03-11