如何设置键绑定以使 Emacs 按照我的需要透明/不透明？

我想在 Emacs 中有一个命令让它按照我想要的方式不透明/透明（请参阅神话般的question https://stackoverflow.com/questions/2010158/setting-an-emacs-background-image指出 Emacs 中透明性是可能的，并且Emacs维基 http://www.emacswiki.org/emacs/TransparentEmacs那里链接的页面有我在下面使用的代码）。

EmacsWiki 代码设置“C-c t”来打开和关闭先前设置的透明度：

;;(set-frame-parameter (selected-frame) 'alpha '(<active> [<inactive>]))  
(set-frame-parameter (selected-frame) 'alpha '(85 50))  
(add-to-list 'default-frame-alist '(alpha 85 50))

enter code here(eval-when-compile (require 'cl))  
(defun toggle-transparency ()  
(interactive)  
(if (/= 
    (cadr (find 'alpha (frame-parameters nil) :key #'car)) 
    100)  
   (set-frame-parameter nil 'alpha '(100 100))
 (set-frame-parameter nil 'alpha '(85 60))))  
 (global-set-key (kbd "C-c t") 'toggle-transparency)

我想做的是当我在 Emacs 中时能够选择％透明度。

如果可能的话，我想要一个命令，例如为活动框架键入“C-c t N”（其中 N 是不透明性百分比），然后为非活动窗口键入“M-c t N”。

如果不能那样做，那么可能是一个命令，如果我输入“C-c t”，它会询问我提供活动窗口不透明度的数字（对于使用“M-c t”的非活动窗口也是如此） 。

在此先感谢您的时间 ：）

以下只是一些评论，如果您不感兴趣，对回答问题来说并不重要：

我真的很想要这个，因为当我告诉我的主管我正在学习 Emacs 时，他说 TexShop 更好，而且我使用的是 80 年代的软件。我告诉他 Emacs 的神奇之处，他说 TexShop 拥有这一切，甚至更多。除了透明度之外，我匹配了他向我展示的所有内容（尽管他无法匹配来自 Preview-Latex 的 Emacs 内的预览）。我偶然发现了透明这个东西，现在我想向他展示Emacs规则！

我想这对你们中的一些人来说是小菜一碟，尽管如果我花足够的时间尝试学习 lisp 或阅读周围的内容我就可以完成它，但我不是程序员，我只使用过 Emacs 和 mac一个星期。我已经迷路了！所以提前感谢您的时间和帮助 - 我最终会学习 lisp！

Edit:我的主管使用 TextMate，而不是 TeXShop。现在更有意义了吗？

(defun set-frame-alpha (arg &optional active)
  (interactive "nEnter alpha value (1-100): \np")
  (let* ((elt (assoc 'alpha default-frame-alist))
         (old (frame-parameter nil 'alpha))
         (new (cond ((atom old)     `(,arg ,arg))
                    ((eql 1 active) `(,arg ,(cadr old)))
                    (t              `(,(car old) ,arg)))))
    (if elt (setcdr elt new) (push `(alpha ,@new) default-frame-alist))
    (set-frame-parameter nil 'alpha new)))
(global-set-key (kbd "C-c t") 'set-frame-alpha)

Use C-c t for the active frame, and C-u C-c t for the non-active frame.

Edit:

One way to make the effect persists across sessions is to enable desktop-save-mode and add default-frame-alist to desktop-globals-to-save, through the customization interface: M-x customize-group RET desktop.