旧的linux emacs配置文件

;;=============================自身功能配置=============================;; ;; 隐藏菜单栏 ;(menu-bar-mode 1) ;; 取消工具栏 ;;(tool-bar-mode nil) ;; 取消滚动栏 ;;(set-scroll-bar-mode nil) ;; 显示行列号,它显示在minibuffer上面那个杠上 (setq column-number-mode t) (setq line-number-mode t) ;; 设置标题栏 (setq frame-title-format '((:eval (if (buffer-file-name) (abbreviate-file-name (buffer-file-name)) "%b")))) ;; 关闭emacs启动时的画面 (setq inhibit-startup-message t) ;; 快速向下移动行 (global-set-key (kbd "M-n") (lambda () (interactive) (next-line 3))) ;;快速向上移动行 (global-set-key (kbd "M-p") (lambda () (interactive) (previous-line 3))) ;;关闭gnus启动时的画面 (setq gnus-inhibit-startup-message t) ;; 设置启动时窗口的长宽 (setq initial-frame-alist '((width . 165) (height . 45))) ;;关闭出错时的提示声 ;(setq visible-bell t) ;;设置打开文件的缺省路径,默认的路径为“～/” (setq default-directory "~/") ;; 改变Emacs要你回答yes的行为,按y或空格键表示yes，n表示no。 (fset 'yes-or-no-p 'y-or-n-p) ;;隐藏*scratch*模式下的This buffer is for notes you don't want to save ...提示 (setq initial-scratch-message "") ;; 启用windmove，可以使用alt+方向键切换窗口 ;(global-unset-key (kbd "ESC <right>")) ;(windmove-default-keybindings) ;(windmove-default-keybindings 'meta) (global-set-key (kbd "M-b") 'windmove-left) (global-set-key (kbd "M-f") 'windmove-right) (global-set-key (kbd "M-p") 'windmove-up) (global-set-key (kbd "M-n") 'windmove-down) (global-set-key (kbd "C-w") 'save-buffer) ; 启用winner-mode，可以使用super+方向键切换布局 ;(setq winner-dont-bind-my-keys t) ;(winner-mode t) ;(global-set-key (kbd "C-c <left>") 'winner-undo) ;(global-set-key (kbd "C-c <right>") 'winner-redo) ;;打开括号匹配显示模式 (setq show-paren-mode t) ;;括号匹配时可以高亮显示另外一边的括号，但光标不会烦人的跳到另一个括号处 (setq show-paren-style 'parenthesis) ;;ido的配置,这个可以使你在用C-x C-f打开文件的时候在后面有提示,这里将其关闭 (ido-mode t) ;;ido模式不保存目录列表 ;(setq ido-save-directory-list-file nil) ;; 设置tab宽度 (display-time-mode 1) ;; 显示时间 (setq display-time-24hr-format t) ;; 24小时格式 (setq display-time-day-and-date t) ;; 显示日期 (setq column-number-mode t) ;; 显示列号 (setq line-number-mode t) ;; 显示行号 ;; 状态栏颜色配置 ;(set-face-foreground 'mode-line "#000000") (set-face-background 'mode-line "#e5e5e5") ;(set-face-foreground 'mode-line-inactive "#606060") ;(set-face-background 'mode-line-inactive "#202020") ;;------自动保存/备份有关配置--------;; (defvar backup-dir (expand-file-name "~/.emacs.d/backups")) (setq version-control t ; 多次备份 kept-new-versions 3 ; 保留最近的3个备份文件 kept-old-versions 2 ; 保留最早的2个备份文件 delete-old-versions t ; 自动删除旧的备份文件 backup-by-copying t ; 自动备份 backup-directory-alist `((".*" . ,backup-dir)) ; 自动备份目录 vc-make-backup-files t ; 使用版本控制时仍启用备份 auto-save-file-name-transforms `((".*" ,backup-dir t))) ; 自动保存目录 ;; 警告信息配置 (setq warning-minimum-level :emergency) ;; 报警时不再出现警告图标 (setq visible-bell nil) ;;以免占用输入法切换快捷键 (global-unset-key (kbd "C-SPC")) ;;======================快捷键 ;; 设置通过F1执行命令 (global-set-key (kbd "<f1>") 'execute-extended-command) ;; 设置通过F2执行goto char (global-set-key (kbd "<f2>") 'avy-goto-char) ;; cua-mode (cua-mode t) ;;源配置 (require 'package) (add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/") t) ;;(add-to-list 'package-archives '("melpa-stable" . "https://stable.melpa.org/packages/")) ;(setq package-archives '(("gnu" . "http://elpa.gnu.org/packages/") ; ("marmalade" . "http://marmalade-repo.org/packages/") ; ("melpa" . "http://melpa.org/packages/"))) (package-initialize) ;; company-mode (add-hook 'after-init-hook 'global-company-mode) (setq company-minimum-prefix-length 1) (setq company-idle-delay 0) ;(setq company-show-numbers t) (require 'company-tabnine) (add-to-list 'company-backends 'company-tabnine) ;; CEDET (global-ede-mode 1) ; 全局启用CEDET (semantic-mode 1) (semanticdb-enable-gnu-global-databases 'c-mode) (semanticdb-enable-gnu-global-databases 'c++-mode) ;;=========================鼠标配置====================;; ;; 终端下启用鼠标操作，需要在iterm2中启用mouse reporting ;; 之后正常鼠标选择是操作emacs选区，Alt+鼠标左键选择是操作系统选区 (xterm-mouse-mode 1) (defun track-mouse (e)) (setq mouse-sel-mode t) ;;光标靠近鼠标指针时，让鼠标指针自动让开，别挡住视线 (setq mouse-avoidance-mode 'animate) ;; (electric-indent-mode -1) ;; 禁用该模式，否则在按回车换行时，上一行会缩进比较多 (setq x-select-enable-clipboard t) ;; flycheck (global-flycheck-mode 1) ;; 光标改成竖线 (setq-default cursor-type 'bar) ;;=============================程序生成的配置============================;; (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. '(column-number-mode t) '(company-tabnine-show-annotation nil) '(display-time-mode t) '(gud-gdb-command-name "gdb --annotate=1") '(indent-tabs-mode t) '(large-file-warning-threshold nil) '(package-selected-packages '(rust-mode flycheck-rust ggtags go-mode flymake-go flycheck-golangci-lint sr-speedbar flycheck avy company-tabnine)) '(show-paren-mode t) '(speedbar-supported-extension-expressions '(".[ch]\\(\\+\\+\\|pp\\|c\\|h\\|xx\\)?" ".tex\\(i\\(nfo\\)?\\)?" ".el" ".emacs" ".l" ".lsp" ".p" ".java" ".js" ".f\\(90\\|77\\|or\\)?" ".ad[abs]" ".p[lm]" ".tcl" ".m" ".scm" ".pm" ".py" ".g" ".s?html" ".ma?k" "[Mm]akefile\\(\\.in\\)?" ".go")) '(tab-width 4) '(tool-bar-mode nil)) ;;(set-default-font "Monaco") (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. ) ;;==================插件===================;; ;; sr-speedbar (require 'sr-speedbar) ;(setq sr-speedbar-right-side nil) ;(setq sr-speedbar-width 25) ;(setq dframe-update-speed t) (setq speedbar-show-unknown-files t) (global-set-key (kbd "<f5>") (lambda() (interactive) (sr-speedbar-toggle))) ;; ggtags (ggtags-mode t) ; 全局启用ggtags-mode (global-set-key (kbd "<f3>") 'ggtags-find-tag-dwim)