在 emacs ns 上糊了一个毛玻璃背景

Jason · 2024 年2 月 6 日 11:28

看到最近 emacs mac ns port 也支持了背景透明，正好某位大佬给 emacs-plus 提了cr

就在这基础上糊了一个毛玻璃效果。因为完全没有做过 mac app / objc 开发，代码都是瞎写的。希望有经验的大佬可以把这个 patch 拿走合到上游或者 emacs-plus 里面

jaaasonSun/homebrew-emacs-plus/blob/master/patches/emacs-29/blur.patch

diff --git a/src/nsfns.m b/src/nsfns.m
index 60db0187de8..bae13bd334b 100644
--- a/src/nsfns.m
+++ b/src/nsfns.m
@@ -326,6 +326,12 @@ Turn the input menu (an NSMenu) into a lisp list for tracking on lisp side.
       else
           [[view window] setOpaque: YES];
 
+      NSVisualEffectView *effectView = view.window.contentView.subviews.firstObject;
+      if (effectView.subviews.count == 2) {
+        NSBox *titleView = effectView.subviews.lastObject;
+        titleView.fillColor = [col colorWithAlphaComponent: alpha];
+      }
+
       face = FRAME_DEFAULT_FACE (f);
       if (face)
         {
@@ -369,6 +375,14 @@ Turn the input menu (an NSMenu) into a lisp list for tracking on lisp side.
   f->alpha_background = alpha;
   [[view window] setBackgroundColor: [f->output_data.ns->background_color

This file has been truncated. show original

效果图

CheungHsu · 2024 年2 月 6 日 15:05

效果看起来很不错！希望可以合并去上游 @oldosfan

Jousimies · 2024 年2 月 6 日 15:27

试了下，不同的主题上效果有差。亮色主题不太行。

QuarterHeaven · 2024 年2 月 7 日 05:38

感谢 patch！不过我发现这个 patch 似乎在无 title-bar 的情况下会导致左上角出现红绿灯：

(add-to-list 'default-frame-alist '(undecorated-round . t))

ksqsf · 2024 年2 月 7 日 07:26

应该要先等Linux实现对等功能才行。

等一个Linux大佬把这个功能带给Linux……

Jason · 2024 年2 月 7 日 14:02

是为了配合我的 tab bar 配置修改的

相关的修改在 patch 的这里，取消注释这几行就可以了

georgealbert · 2024 年2 月 7 日 17:06

请问毛玻璃对系统的压力大吗？

manateelazycat · 2024 年2 月 9 日 00:53

有两种方式实现

一是操作系统窗口管理器合成模糊效果，通常用GPU赖合成，效率很高

二是直接把壁纸模糊图片生成，emacs窗口移动后直接对图片做裁剪重绘工作就好

第一种可以实现模糊背景后还可以看到其他应用内容，第二种模糊图片要叠加窗口透明才会有类似效果。

willbchang · 2024 年3 月 12 日 08:46

看到了这个 Emacs With Blurred Background : emacs https://www.reddit.com/r/emacs/comments/1bb4qki/emacs_with_blurred_background/