pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 16:24:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Figured out how to get libXrandr on NixOS

Browse source
This commit is contained in:
Benson Chu 2025-01-26 18:30:09 -06:00
parent e8bf01ccbf
commit 6e534e9a1d
1 changed files with 25 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
lisp/corfu-hack.el
View file

@ -26,21 +26,33 @@
(require 'exwm-screens)
(require 'corfu)
;; (defun get-focused-monitor-geometry ()
;; "Get the geometry of the monitor displaying the selected frame in EXWM."
;; (let* ((name
;; (-->
;; (format "xrandr | grep %s"
;; (exwm-workspace-current-monitor))
;; (shell-command-to-string it))))
;; (string-match (rx (+? nonl)
;; (group (+ digit)) "x" (group (+ digit)) "+"
;; (group (+ digit)) "+" (group (+ digit)))
;; name)
;; (list (string-to-number (match-string 3 name)) ; X
;; (string-to-number (match-string 4 name)) ; Y
;; (string-to-number (match-string 1 name)) ; Width
;; (string-to-number (match-string 2 name)) ; Height
;; )))
;; Requires libXrandr
(defun get-focused-monitor-geometry ()
"Get the geometry of the monitor displaying the selected frame in EXWM."
(let* ((name
(-->
(format "xrandr | grep %s"
(exwm-workspace-current-monitor))
(shell-command-to-string it))))
(string-match (rx (+? nonl)
(group (+ digit)) "x" (group (+ digit)) "+"
(group (+ digit)) "+" (group (+ digit)))
name)
(list (string-to-number (match-string 3 name)) ; X
(string-to-number (match-string 4 name)) ; Y
(string-to-number (match-string 1 name)) ; Width
(string-to-number (match-string 2 name)) ; Height
(let* ((monitor-attrs (frame-monitor-attributes))
(workarea (assoc 'workarea monitor-attrs))
(geometry (cdr workarea)))
(list (nth 0 geometry) ; X
(nth 1 geometry) ; Y
(nth 2 geometry) ; Width
(nth 3 geometry) ; Height
)))
;; (get-focused-monitor-geometry)