一些有用的Emacs配置（窗口快速切换、一键透明效果、任意位置删除整行等）

本文链接：https://blog.csdn.net/Ondays/article/details/40536847

本篇文章记录的是一些有用的Emacs配置，有些是自己原创，有些是借鉴别人（能记起来出处的我放了链接）。

规定：C代表Ctrl，M代表Alt。

1. 设置一次跳跃n行的快捷键

按C-M-n可以连续下跳5行，按C-M-p可以连续上跳5行：

(global-set-key (kbd "C-M-n")
    (lambda () (interactive) (next-line 5)))
(global-set-key (kbd "C-M-p")
    (lambda () (interactive) (previous-line 5)))

2. 在一个emacs中打开多个shell buffer

在emacs中，使用M-x(输入: shell或eshel)来打开shell的buffer，当作shell 终端使用。但是有时候需要在一个emacs中打开多个shell buffer，需要进行一下设置：

;; set open multi shell
(defun wcy-shell-mode-auto-rename-buffer (text)
  (if (eq major-mode 'shell-mode)
      (rename-buffer  (concat "shell:" default-directory) t)))
(add-hook 'comint-output-filter-functions'wcy-shell-mode-auto-rename-buffer)

3. 窗口操作的撤销和重做

在emacs中，使用C-x,2或C-x,3来新建窗口，使用C-x,0或C-x,1来关闭窗口，这些称为窗口操作。在进行窗口操作时有时候需要撤销或重做，可以使用以下配置：

C-x,4,u代表撤销，C-x,4,r代表重做。

;;set windows undo and redo
(when (fboundp 'winner-mode)
      (winner-mode 1)
(global-set-key (kbd "C-x 4 u") 'winner-undo)
(global-set-key (kbd "C-x 4 r") 'winner-redo)
)

（感谢redguardtoo）

4. 在行末或行中位置删除整行

在emacs默认设置中，要想删除整行，需要先C-a跳到行首，然后使用C-k来删除整行，有些不方便。通过一下配置，可以使用C-w来删除整行（操作时不用事先选中整行），同时不影响原有的剪切功能。M-w也可以在不事先选中整行的情况下复制整行。

(defadvice kill-ring-save (before slickcopy activate compile)
  (interactive
   (if mark-active (list (region-beginning) (region-end))
     (list (line-beginning-position)
           (line-beginning-position 2)))))
(defadvice kill-region (before slickcut activate compile)
  (interactive
   (if mark-active (list (region-beginning) (region-end))
     (list (line-beginning-position)
           (line-beginning-position 2)))))

（感谢浏忙大爆炸）

5. 在各个窗口之间快速切换

在emacs的默认设置中，需要使用C-x, o来进行窗口切换，颇为不便，特别是窗口数量比较大的时候。通过以下设置，可以使用M-1/M-2/M-3/.../M-9来快速切换到第1/2/3/.../9窗口（窗口上有编号）。

事先下载window numbering el，放置到~/.emacs.d/目录下，然后在.emacs中做以下配置：

;;set windows numbering
(require 'window-numbering)
(window-numbering-mode 1)

（感谢redguardtoo）

6. 设置color-theme主题

下载 color-theme，放置到~/.emacs.d/目录下，然后在.emacs中做以下配置：

;;set color theme
(add-to-list 'load-path"~/.emacs.d/")
(require ')
(color-theme-initialize)  
;; 这个是你选择的主题，后面的 calm forest 就是它的名字，注意使用小写。
(color-theme-calm-forest)

(7)设置透明效果

我觉得这个很有用，特别是需要一边写代码一边看参照其他文档时。按F11键可以一键切换透明度，非常方便：

;;set transparent effect
(global-set-key [(f11)] 'loop-alpha)
(setq alpha-list '((100 100) (95 65) (85 55) (75 45) (65 35)))
(defun loop-alpha ()
  (interactive)
  (let ((h (car alpha-list)))                ;; head value will set to
    ((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))))
    )
)

（感谢ccat）

8. 将光标移动到当前行的中间位置

Emacs可以将光标跳到行首（C-a）和行尾（C-e），但是没有跳到行中的快捷键。可以通过以下配置来实现：

将C-z绑定为将光标移动到当前行的中间位置。

(defun middle-of-line ()
  "Put cursor at the middle point of the line."
  (interactive)
  (goto-char (/ (+ (point-at-bol) (point-at-eol)) 2)))
(global-set-key (kbd "C-z") 'middle-of-line)

9. 优化注释功能

Emacs的默认设置中，M-;可以起到注释的作用，但是有不方便的地方：必须在选中一部分区域后才能进行注释。通过如下配置，可以达到以下效果：当光标位于行尾时，M-;在行尾进行注释；当光标位于其他位置时，M-;起到注释该行的作用；当选中一部分区域时，M-;起到注释该区域的作用。

(defun qiang-comment-dwim-line (&optional arg)
  (interactive "*P")
  (comment-normalize-vars)
  (if (and (not (region-active-p)) (not (looking-at "[ \t]*$")))
      (comment-or-uncomment-region (line-beginning-position) (line-end-position))
    (comment-dwim arg)))
(global-set-key "\M-;" 'qiang-comment-dwim-line)

（感谢 cmdblock）