[Emacs]1.3我的常用按键配置

更新.emacs

;;; 按键设置
(add-to-list &＃39;load-path "~/.emacs.d/lisp/")
(load "key.el")

然后在.emacs.d中新建文件夹lisp&＃xff0c;并新建文档key.el&＃xff0c;接下来的代码默认插入在文件key.el中。

透明度

单纯有配色还是不够有感觉&＃xff0c;接下来的代码设置F7为透明度切换按键。&＃xff08;这里是代码出处&＃xff09;

;;; f7设置透明度,初始为(85 55)
(global-set-key [(f7)] &＃39;loop-alpha)
(setq alpha-list &＃39;((85 55) (65 35) (100 100)))
(defun loop-alpha ()(interactive)(let ((h (car alpha-list)))(set-frame-parameter (selected-frame) &＃39;alpha h)(add-to-list &＃39;default-frame-alist (cons &＃39;alpha h))(setq alpha-list (cdr (append alpha-list (list h))))))
(loop-alpha)

原代码有些地方比较重复&＃xff0c;稍作了一些修改&＃xff0c;并且把透明情况减为三种了&＃xff0c;按F7可切换。如果要理解代码意思必须懂得lisp语言的队列概念。

一些方便的按键

;;;设置M-n与M-p为上下五行&＃xff08;C-n与C-p一行行切太慢了&＃xff09;
(global-set-key (kbd "M-n")(lambda () (interactive) (next-line 5)))
(global-set-key (kbd "M-p")(lambda () (interactive) (previous-line 5)))
;;;C-j设置为换行并缩进
(global-set-key "\C-j"&＃39;newline-and-indent)
;;;C-f1与C-f2来切换缓冲区&＃xff0c;代替C-x 方向键
(global-set-key (kbd "C-")(kbd "C-x "))
(global-set-key (kbd "C-")(kbd "C-x "))