;; 設定 load path (setq load-path (cons "~/.emacs.d/elisp" load-path)) ;; 在標題列顯示buffer的名字 (setq frame-title-format "emacs@%b") ;; 設定有用個人資訊 (setq user-full-name "HuZhifei") (setq user-mail-address "WisdomFusion@gmail.com") ;; 開啟tabbar (require 'tabbar) (tabbar-mode) ;; 色彩配置 (require 'color-theme) (color-theme-robin-hood) ;; 關閉提示音 (setq visible-bell t) ;; 簡化工具條 (tool-bar-mode -1) ;; 顯示時間 (display-time) ;; 顯示行號 (setq column-number-mode t) ;; 顯示匹配的括弧 (show-paren-mode t) ;; 加大kill ring,防止出錯後無法復原文檔 (setq kill-ring-max 100) ;; 把fill-column設為60 (setq default-fill-column 60) ;; 不使用tab縮排 (setq-default indent-tabs-mode nil) (setq default-tab-width 4) ;; 詢問時的 yes or no 改為 y/n,減少輸入量 (fset 'yes-or-no-p 'y-or-n-p) ;; 設定sentence-end可以識別中文標點 (setq sentence-end "\\([。!?]\\|……\\|[.?!][]\"')}]*\\($\\|[ \t]\\)\\)[ \t\n]*") (setq sentence-end-double-space nil) ;; 可以遞迴使用minibuffer (setq enable-recursive-minibuffers t) ;; 防止頁面滾動時跳動,scroll-margin 3 (setq scroll-margin 3 scroll-conservatively 10000) ;; 把預設的major mode設定為 text-mode (setq default-major-mode 'text-mode) ;; 括弧匹配時顯示另外一邊的括弧,而不是跳到另一個括弧 (show-paren-mode t) (setq show-paren-style 'parentheses) ;; 游標靠近滑鼠指標時,讓滑鼠指標自動讓開,別擋住視線 (mouse-avoidance-mode 'animate) ;; 讓emacs可以直接開啟和顯示圖片 (auto-image-file-mode) ;; 文法加亮 (global-font-lock-mode t) ;; 高亮顯示要拷貝的地區 (transient-mark-mode t) ;; 把一些預設禁用的功能開啟 (put 'set-goal-column 'disabled nil) (put 'narrow-to-region 'disabled nil) (put 'upcase-region 'disabled nil) (put 'downcase-region 'disabled nil) (put 'LaTeX-hide-environment 'disabled nil) ;; 設定備份時的版本控制 (setq version-control t) (setq kept-new-versions 3) (setq delete-old-versions t) (setq kept-old-versions 2) (setq dired-kept-versions 1) ;; 如果不想自動備份檔案,可以把上面的配置注釋 ;; 開啟下面的配置: ;; ;; 不自動產生備份檔案 ;; (setq-default make-backup-files nil) ;; 讓 dired 可以遞迴地拷貝和刪除目錄 (setq dired-recursive-copies 'top) (setq dired-recursive-deletes 'top) ;; 中文配置 (set-language-environment 'Chinese-GB) (set-keyboard-coding-system 'euc-cn) (set-clipboard-coding-system 'euc-cn) (set-terminal-coding-system 'euc-cn) (set-buffer-file-coding-system 'euc-cn) (set-selection-coding-system 'euc-cn) (modify-coding-system-alist 'process "*" 'euc-cn) (setq default-process-coding-system '(euc-cn . euc-cn)) (setq-default pathname-coding-system 'euc-cn)
該配置中使用了tabbar.el和color-theme.el兩個emacs擴充,檔案見附件