如何设置一个键绑定，使Emacs的透明度随我意愿改变？

Question

如何设置一个键绑定，使Emacs的透明度随我意愿改变？

5

我希望在Emacs中有一个命令，可以让它变得透明或不透明（参考精彩的问题，指出在Emacs中透明度是可能的，以及链接到的EmacsWiki页面下面的代码）。

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的！

编辑：我的主管使用TextMate而不是TeXShop。现在更有意义了吗？

- Vivi

你的老板错了：Emacs 不是来自80年代。微软的Windows才是80年代的软件！虽然我对80年代的软件一般都没什么意见。 ;) - Marcel Korpel

哈，它甚至比那还要老！也许这就是为什么他如此喜欢他的Mac...无论如何，TexShop中的所有功能都只是从Emacs中“复制”而来。他们只是为已经存在并且更好的东西收费，因为很多人为它做出了贡献。只要再给我几个月时间，当我足够熟练掌握Emacs时，他会后悔没有使用它！ :P - Vivi

抱歉，我意识到我给出了错误的软件名称。我的主管使用的是TextMate，而不是TeXShop... - Vivi

来自TextMate网站（macromates.com）：由一位被Mac平台的易用性和优雅所吸引的UNIX极客创建，TextMate被称为Emacs和OS X的结晶，并且已经引发了无数对Windows和Linux移植版本的请求，但是TextMate仍然是Mac独有的，而这正是我们喜欢的！ - Vivi

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- huaiyuan · Accepted Answer

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

对于活动框架，请使用C-c t，对于非活动框架，请使用C-u C-c t。

编辑：

使效果跨会话保持的一种方法是启用 desktop-save-mode 并通过自定义界面将 default-frame-alist 添加到 desktop-globals-to-save 中：M-x customize-group RET desktop。