emacs配置文件

windows下设置emacs的HOME目录
让 Windowz 最强大的注册表发挥一下功能
HKEY_CURRENT_USER/Software/GNU/Emacs

在里面添加一个 REG_SZ 类型的字符串，名字就叫
HOME, 值就是你想要的目录路径名。

;.emacs===file break point===
; zh's .emacs file
;; zh.ch
;; 2008-11-28

(load "D:/in/Emacs/myemacs/subdirs");导入插件
(mapc 'load (directory-files "D:/in/Emacs/myemacs/config" t "\.el$"))
; 一般设置===========
;;(setq initial-frame-alist '((top . 0) (left . 0) (width . 142) (height . 49)));启动自动最大化(数据自己调整，注意格式，如(top . 0)，圆点前后都要留有空格)
;;一般设置
(setq major-mode 'text-mode);一打开就起用 text 模式
(add-hook 'text-mode-hook 'turn-on-auto-fill);启用自动填充模式
(global-font-lock-mode t);语法高亮
(auto-image-file-mode t);打开图片显示功能
(fset 'yes-or-no-p 'y-or-n-p);以 y/n代表 yes/no，可能你觉得不需要，呵呵。
(column-number-mode t);显示列号
(tool-bar-mode nil);去掉那个大大的工具栏
(menu-bar-mode nil);去掉菜单栏
;;;(scroll-bar-mode nil);去掉滚动条
(customize-set-variable 'scroll-bar-mode 'right);把掉滚动条放右边
(mouse-avoidance-mode 'jump);光标靠近鼠标指针时，让鼠标指针自动让开，别挡住视线。很好玩阿，这个功能
(setq make-backup-files nil);不产生备份文件
(setq mouse-yank-at-point t);支持中键粘贴
(setq-default cursor-type 'bar) ; 设置光标为竖线
(setq x-select-enable-clipboard t);支持emacs和外部程序的粘贴
(setq frame-title-format "zhan@%b");在标题栏提示你目前在什么位置。你要把zhan改成自己的用户名
;;;设置标题栏显示文件的完整路径名
(setq frame-title-format
   '("%S" (buffer-file-name "%f"
    (dired-directory dired-directory "%b"))))
;;增加一个prefix
(define-prefix-command 'ctl-/-map)
(global-set-key (kbd "C-/") 'ctl-/-map)
; 自定义键绑定==========================
(global-set-key [f6] 'dired-jump);文件管理器
(global-set-key [f10] 'menu-bar-mode);打开/关闭菜单
(global-set-key (kbd "C-v") 'yank);粘贴
(global-set-key (kbd "C-z") 'undo);撤消
(global-set-key (kbd "C-y") 'redo);重做
(global-set-key [delete] 'delete-char);delete 删除一个字符
; 编程相关的============================
;;编程相关的
(setq tab-width 4);设置Tab宽度为4
(setq tab-width 4 indent-tabs-mode nil);设置Tab换为4个空格,不用Tab进行排版
(show-paren-mode t);显示括号匹配
;subdirs.el===file break point===
(defun my-add-subdirs-to-load-path (dir)
(let ((default-directory (concat dir "/")))
  (setq load-path (cons dir load-path))
  (normal-top-level-add-subdirs-to-load-path)))

(my-add-subdirs-to-load-path "D:/in/Emacs/myemacs/packages")
;colorThemeConf.el===file break point===
;; 设置颜色主题
(require 'color-theme);导入主题
(color-theme-initialize);初始化
(color-theme-charcoal-black);选用的主题
;;; 备用的
;;;;(color-theme-pierson)
;;;;(color-theme-robin-hood)
;;;;(color-theme-gray30)
;;;;(color-theme-comidia)
;;;;(color-theme-bharadwaj-slate)
;;;;(color-theme-billw)
;;;;(color-theme-charcoal-black)
;;;;(color-theme-calm-forest)
;customFunction.el===file break point===
; 多句的编写的小方法====================
;;多句的编写的小方法

;;; 这个忘了是从哪个地方弄来的，在保存~/.emacs文件自动编译为.elc文件
;;;;目前只是对~/.emacs有效，其余的*.el文件还没有去弄，以后有空我会改的
;;;;小知识：由于配置文件越来越大，你的*.el配置文件最好都编译为*.elc文件，这样在启动emacs速度会有很大的提升
(defun autocompile nil
  "compile itself if ~/.emacs"
  (interactive)
  (if (string= (buffer-file-name) (concat default-directory ".emacs"))
      (byte-compile-file (buffer-file-name))))
(add-hook 'after-save-hook 'autocompile)

;;;删除一行
(defun zl-delete-line nil
  "delete the whole line"
  (interactive)
  (beginning-of-line);光标移动到行首
  (push-mark);做个标记
  (beginning-of-line 2);移动到下一行行首
  (kill-region (point) (mark)));光标和标记之间的删掉

(global-set-key (kbd "C-d") 'zl-delete-line);删除一行

;;新建一行，不管光标在哪
(defun zl-newline nil
  "open new line belowe current line"
  (interactive)
  (end-of-line)
  (newline))

(global-set-key [S-return] 'zl-newline);绑定Shift-回车

;;本行上面新建一行，不管光标在哪
(defun zl-newline-up nil
  "open new line up current line"
  (interactive)
  (beginning-of-line)
  (newline)
  (backward-char))

(global-set-key [C-S-return] 'zl-newline-up);绑定Ctrl-shift-回车
;elMode.el===file break point===
;;; emacs模式的大纲模式
(add-hook 'emacs-lisp-mode-hook
     (function (lambda ()
              (setq outline-regexp ";+ ")
            (outline-minor-mode)
            (hide-body)
               )))
;orgMode.el===file break point===
;; org mode
(require 'org-install)

;outlineMode.el===file break point===
;; 大纲模式
;;添加键绑定
(add-hook 'outline-minor-mode-hook
    (function (lambda ()
        (global-set-key (kbd "C-/ s") 'show-subtree)
        (global-set-key (kbd "C-/ d") 'show-branches)
        (global-set-key (kbd "C-/ h") 'hide-subtree)
        (global-set-key (kbd "C-/ j") 'hide-leaves)
        (global-set-key (kbd "C-/ k") 'hide-sublevels)
        ())))
;redoConf.el===file break point===
;; 导入重做
(require 'redo)
;tabbarConf.el===file break point===
;; tabbar
;(require 'tabbar)
;(tabbar-mode t)
;;设置键绑定
(global-set-key [C-up] 'tabbar-backward-group)
(global-set-key [C-down] 'tabbar-forward-group)
(global-set-key [C-left] 'tabbar-backward)
(global-set-key [C-right] 'tabbar-forward)