Emacs23在Ubuntu中不能透明(Gnome 3)

Question

我搜索如何使我的emacs窗口透明。但它不起作用。类似这样的操作失败了：

 (global-set-key [(f8)] 'loop-alpha)

 (setq alpha-list '((100 100) (95 65) (85 55) (75 45) (65 35)))

(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))))
)
)

Answer 1

下面是我认为你正在尝试做的事情的一个工作实现：

(global-set-key [(f8)] 'loop-alpha)

(defvar alpha-list '((100 100) (95 65) (85 55) (75 45) (65 35)))

(defun next-alpha ()
  (let ((current-alpha
         (or (frame-parameter (selected-frame) 'alpha)
             (first alpha-list)))
        (lst alpha-list))
    (or (second
         (catch 'alpha
           (while lst
             (when (equal (first lst) current-alpha)
               (throw 'alpha lst))
             (setf lst (cdr lst)))))
        (first alpha-list))))

(defun loop-alpha ()
  (interactive)
  (let ((new-alpha (next-alpha))
        (current-default (assoc 'alpha default-frame-alist)))
    (set-frame-parameter (selected-frame) 'alpha new-alpha)
    (if current-default
        (setcdr current-default new-alpha)
      (add-to-list 'default-frame-alist (cons 'alpha new-alpha)))))

请注意，您编写的任何重新定义alpha-list的版本在使用多个框架时都会表现得非常奇怪。我会解释你的代码出了什么问题，但我真的不知道它应该做什么。请注意，如果我允许自己先使用(require 'cl)，这会更容易编写，但我认为这段代码应该可以工作--至少在这里可以工作！