colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Enable frame-mode under Hyprland

Browse Source
This commit is contained in:
Ivan Malison
2026-02-04 02:48:55 -08:00
parent 3a405c0520
commit 98c85c5727
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
dotfiles/emacs.d/README.org
View File

@@ -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