emacs之主题

记录一下自己今天修改主题的方法，默认的主题是一片惨白啊，很难看啊～！所以自己捣鼓了一个主题，在网上找到的，觉得还是蛮好看的 叫做monokai

如图所示

我感觉还是很好看滴～！

在 .emacs 中的配置如下，记住，之前我已经创建了～/.emacs.d/themes这个文件夹，并把monokai.el放入了这个文件夹里面

;;加入加载路径
(add-to-list 'custom-theme-load-path "~/.emacs.d/themes")
;;启用主题
(load-theme 'monokai t)

后来在网上找到了一个窗口半透明的方法，试用了一下，感觉很蛋疼，方法依旧，吧下面的这段文字放入.emacs文件中

;;下面是窗口的半透明效果的开启
;;可以用来区分当前窗口和非当前窗口
;;启动时自动开启窗口半透明效果 f10键用来切换

(global-set-key (kbd "<f10>") 'loop-alpha)
;当前窗口和非当前窗口时透明度
(setq alpha-list '((90 70) (100 100)))
(defun loop-alpha ()
(interactive)
(let ((h (car alpha-list)))
((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))))))
;启动窗口时时自动开启窗口半透明效果
(loop-alpha)

效果如图显示