这是Emacs透明配置,可以在配置文件里修改实现,我的实现如下
(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))))))
把这行代码加入配置文件,按下<f11>就可以实现透明化了,一共5档,由黑渐变为透明
PS 话说你这求助帖发错位置了,Emacs有专门的中文社区,而且十分活跃,可以去那里寻求更多帮助
(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))))))
把这行代码加入配置文件,按下<f11>就可以实现透明化了,一共5档,由黑渐变为透明
PS 话说你这求助帖发错位置了,Emacs有专门的中文社区,而且十分活跃,可以去那里寻求更多帮助