emacs 配置文件
[2016/05/20]
- ;; 把 .emacs.d 目錄加入到 load-path
- ;; 這樣的話本來需要放到 /usr/share/emacs/site-lisp/ 的東西
- ;; 就只需要放到 .emacs.d 裏面
- (add-to-list ‘load-path "~/.emacs.d/")
-
-
-
-
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;; ;;
- ; 軟件界面
- ;; ;;
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
- ;; 去掉歡迎界面
- (setq inhibit-startup-message t)
-
- ;; 在标题栏提示文件名字
- (setq frame-title-format "[email protected] %b")
-
- ;; 去掉工具栏
- (tool-bar-mode nil)
-
- ;;去掉菜单栏
- (menu-bar-mode nil)
-
- ;; 顯示行號
- ;; 1) linum.el 放入 .emacs.d
- (require ‘linum) ;; 引用包
- (global-linum-mode) ;; 在全局使用顯示行號的模式
-
- ;; 去掉滚动栏
- (scroll-bar-mode nil)
-
- ;; 顯示時間
- (display-time-mode 1)
- (setq display-time-24hr-format t)
- (setq display-time-day-and-date t)
-
- ;; 启动窗口大小
- (setq default-frame-alist
- ‘((height . 37) (width . 85)
- (menu-bar-lines . 20) (tool-bar-lines . 0)))
-
-
-
-
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;; ;;
- ; 編輯界面
- ;; ;;
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
- ;; 選擇高亮配色
- ;; 1) color-theme.el 和 theme 文件夹放入 .emacs.d
- ;; 2) 打開 Emacs，按 ‘M-x color-theme-select‘，選擇配色，按回車查看效果
- ;; 3) 選好你中意的效果，然後按 d 出現配色的描述信息，以 matrix 配色爲例子：
- ;; color-theme-matrix is an interactive Lisp function in
- ;; `color-theme-library.el‘.
- ;; (color-theme-matrix)
- ;; Color theme by [email protected], created 2003-10-16.
- ;; 4) 進入 .emacs 寫入 (color-theme-matrix)。
- (require ‘color-theme)
- (color-theme-initialize)
- (setq color-theme-is-global t)
- ;;(color-theme-xp)
- ;;(color-theme-high-contrast)
- ;;(color-theme-classic)
- ;;(color-theme-jb-simple)
- ;;(color-theme-arjen)
- (color-theme-matrix)
-
- ;; 显示括号匹配
- (show-paren-mode t)
- (setq show-paren-style ‘parentheses)
-
- ;; 回车缩进
- (global-set-key "\C-m" ‘newline-and-indent)
- (global-set-key (kbd "C-<return>") ‘newline)
-
- ;; 設置字體
- ;; 1) emacs->options->Set Default Font 選擇字體
- ;; 2) "M-x describe-font" & RET
- ;; 3) 將第一行冒號後的部分抄到下面的引號裏面
-
- ;;(set-default-font
- ;; " -unknown-Ubuntu Mono-normal-normal-normal-*-15-*-*-*-m-0-iso10646-1")
- ;; Ubuntu Mono
-
- ;;(set-default-font
- ;; " -outline-DejaVu Sans Mono-normal-normal-normal-mono-16-*-*-*-c-*-iso8859-2")
- ;; DejaVu Sans Mono
-
- ;;(set-default-font
- ;;"-outline-Lucida Console-normal-normal-normal-mono-16-*-*-*-c-*-iso10646-1")
- ;; Lucida Console
-
- (set-default-font
- "-outline-Andale Mono-normal-normal-normal-mono-16-*-*-*-c-*-iso10646-1")
- ;; Andale mono
-
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;; ;;
- ; 其他功能
- ;; ;;
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
- ;;使用 y or n 提問
- ;;(fset ‘yes-or-no-p‘ ‘y-or-n-p‘)
-
- ;; 支持emacs和外部程序的粘贴
- (setq x-select-enable-clipboard t)
-
- ;; 不產生備份文件
- (setq-default make-backup-files nil)
-
- ;; 不自動去掉行尾空格
- (setq delete-trailing-whitespace nil)
-
- ;; 設置默認查找文件的目錄
- (setq default-directory "d:/Documents/")
-
- ;; 移動到第 n 行：M-g n
- (global-set-key [(meta g)] ‘goto-line)
-
- ;; 插入當前時間
- (defun insert-curtime()
- "insert current time"
- (interactive "*")
- (insert (current-time-string)))
-
- ;; Eshell 清屏
- (defun eshell/cls()
- "to clear the eshell buffer."
- (interactive)
- (let ((inhibit-read-only t))
- (erase-buffer)))
-
- ;; hs-minor-mode 按鍵綁定
- ;; 如果要使用這個鍵，先運行 M-x hs-minor-mode
- (global-set-key (kbd "M-,") ‘hs-toggle-hiding)
时间： 2024-10-26 00:28:18