From 98c85c5727f2df8eb88008cca8c6e86d798931a5 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Wed, 4 Feb 2026 02:48:55 -0800 Subject: [PATCH] Enable frame-mode under Hyprland --- dotfiles/emacs.d/README.org | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org index fc43cc51..3017e5df 100644 --- a/dotfiles/emacs.d/README.org +++ b/dotfiles/emacs.d/README.org @@ -1117,7 +1117,15 @@ I keep it around just in case I need it. *** frame-mode #+BEGIN_SRC emacs-lisp (defvar imalison:use-frame-mode - (s-contains? "xmonad" (shell-command-to-string "wmctrl -m"))) + (let ((xdg-current (downcase (or (getenv "XDG_CURRENT_DESKTOP") ""))) + (xdg-session (downcase (or (getenv "XDG_SESSION_DESKTOP") ""))) + (desktop-session (downcase (or (getenv "DESKTOP_SESSION") "")))) + (or (getenv "HYPRLAND_INSTANCE_SIGNATURE") + (s-contains? "hyprland" xdg-current) + (s-contains? "hyprland" xdg-session) + (s-contains? "hyprland" desktop-session) + (and (executable-find "wmctrl") + (s-contains? "xmonad" (shell-command-to-string "wmctrl -m")))))) (use-package frame-mode :if imalison:use-frame-mode