[WIP] Remove EXWM layer from Doom Emacs
This commit is contained in:
parent
132b6634d7
commit
3a219ee954
3 changed files with 0 additions and 170 deletions
|
|
@ -1,153 +0,0 @@
|
||||||
;;; os/exwm/config.el -*- lexical-binding: t; -*-
|
|
||||||
|
|
||||||
;; Define custom variables for the `exwm-update-class-hook' for users to
|
|
||||||
;; configure which buffers names should NOT be modified.
|
|
||||||
(defvar exwm/ignore-wm-prefix "sun-awt-X11-"
|
|
||||||
"Don't rename exwm buffers with this prefix.")
|
|
||||||
(defvar exwm/ignore-wm-name "gimp"
|
|
||||||
"Don't rename exwm buffers with this name.")
|
|
||||||
|
|
||||||
;; Make sure `exwm' windows can be restored when switching workspaces.
|
|
||||||
(defun exwm--update-utf8-title-advice (oldfun id &optional force)
|
|
||||||
"Only update the window title when the buffer is visible."
|
|
||||||
(when (get-buffer-window (exwm--id->buffer id))
|
|
||||||
(funcall oldfun id force)))
|
|
||||||
|
|
||||||
;; Confgure `exwm' the X window manager for emacs.
|
|
||||||
(use-package! exwm
|
|
||||||
:config
|
|
||||||
(setq exwm-workspace-number 10)
|
|
||||||
;(mapcar (lambda (i) (exwm-workspace-switch-create i) (number-sequence 0 9)))
|
|
||||||
;(exwm-workspace-switch-create 1)
|
|
||||||
|
|
||||||
;; Configure global key bindings.
|
|
||||||
(setq exwm-input-global-keys
|
|
||||||
`(([?\s-r] . exwm-reset)
|
|
||||||
([?\s-w] . exwm-workspace-switch)
|
|
||||||
([?\s-q] . kill-this-buffer)
|
|
||||||
([?\s-f] . exwm-layout-toggle-fullscreen)
|
|
||||||
([?\s-c] . exwm-input-toggle-keyboard)
|
|
||||||
([?\s-s] . (lambda () (interactive) (start-process-shell-command "screenshot" nil "maim -s -u | xclip -selection clipboard -t image/png -i")))
|
|
||||||
([?\s-d] . (lambda (command)
|
|
||||||
(interactive (list (read-shell-command "$ ")))
|
|
||||||
(start-process-shell-command command nil command)))
|
|
||||||
,@(mapcar (lambda (i)
|
|
||||||
`(,(kbd (format "C-s-%d" i)) .
|
|
||||||
(lambda ()
|
|
||||||
(interactive)
|
|
||||||
(exwm-workspace-move-window ,i))))
|
|
||||||
(number-sequence 0 9))
|
|
||||||
,@(mapcar (lambda (i)
|
|
||||||
`(,(kbd (format "s-%d" i)) .
|
|
||||||
(lambda ()
|
|
||||||
(interactive)
|
|
||||||
(exwm-workspace-switch-create ,i))))
|
|
||||||
(number-sequence 0 9))))
|
|
||||||
|
|
||||||
(setq exwm-layout-show-all-buffers t)
|
|
||||||
(setq exwm-workspace-show-all-buffers t)
|
|
||||||
|
|
||||||
;; Configure the default buffer behaviour. All buffers created in `exwm-mode'
|
|
||||||
;; are named "*EXWM*". Change it in `exwm-update-class-hook' and `exwm-update-title-hook'
|
|
||||||
;; which are run when a new X window class name or title is available.
|
|
||||||
(add-hook 'exwm-update-class-hook
|
|
||||||
(lambda ()
|
|
||||||
(unless (or (string-prefix-p exwm/ignore-wm-prefix exwm-instance-name)
|
|
||||||
(string= exwm/ignore-wm-name exwm-instance-name))
|
|
||||||
(exwm-workspace-rename-buffer exwm-class-name))))
|
|
||||||
(add-hook 'exwm-update-title-hook
|
|
||||||
(lambda ()
|
|
||||||
(when (or (not exwm-instance-name)
|
|
||||||
(string-prefix-p exwm/ignore-wm-prefix exwm-instance-name)
|
|
||||||
(string= exwm/ignore-wm-name exwm-instance-name))
|
|
||||||
(exwm-workspace-rename-buffer exwm-title))))
|
|
||||||
|
|
||||||
;; Show `exwm' buffers in buffer switching prompts.
|
|
||||||
(add-hook 'exwm-mode-hook #'doom-mark-buffer-as-real-h)
|
|
||||||
|
|
||||||
;; Restore window configurations involving exwm buffers by only changing names
|
|
||||||
;; of visible buffers.
|
|
||||||
(advice-add #'exwm--update-utf8-title :around #'exwm--update-utf8-title-advice)
|
|
||||||
|
|
||||||
(defun exwm-rename-buffer ()
|
|
||||||
(interactive)
|
|
||||||
(exwm-workspace-rename-buffer
|
|
||||||
(concat exwm-class-name " :: "
|
|
||||||
(if (<= (length exwm-title) 50) exwm-title
|
|
||||||
(concat (substring exwm-title 0 49) "...")))))
|
|
||||||
|
|
||||||
;; Add these hooks in a suitable place (e.g., as done in exwm-config-default)
|
|
||||||
(add-hook 'exwm-update-class-hook 'exwm-rename-buffer)
|
|
||||||
(add-hook 'exwm-update-title-hook 'exwm-rename-buffer)
|
|
||||||
|
|
||||||
(require 'exwm-systemtray)
|
|
||||||
(exwm-systemtray-enable))
|
|
||||||
|
|
||||||
;; Use the `ido' configuration for a few configuration fixes that alter
|
|
||||||
;; 'C-x b' workplace switching behaviour. This also effects the functionality
|
|
||||||
;; of 'SPC .' file searching in doom regardless of the users `ido' configuration.
|
|
||||||
(use-package! exwm-config
|
|
||||||
:after exwm
|
|
||||||
:config
|
|
||||||
(exwm-config--fix/ido-buffer-window-other-frame))
|
|
||||||
|
|
||||||
;; Configure `exwm-randr' to support multi-monitor setups as well as
|
|
||||||
;; hot-plugging HDMI outputs. Read more at:
|
|
||||||
;; https://github.com/ch11ng/exwm/wiki#randr-multi-screen
|
|
||||||
(use-package! exwm-randr
|
|
||||||
:after exwm
|
|
||||||
:config
|
|
||||||
(setq exwm-randr-workspace-monitor-plist '(1 "DP-2" 2 "eDP-1"))
|
|
||||||
(setq exwm-workspace-warp-cursor t)
|
|
||||||
(setq mouse-autoselect-window t
|
|
||||||
focus-follows-mouse t)
|
|
||||||
;; (add-hook 'exwm-randr-screen-change-hook
|
|
||||||
;; (lambda ()
|
|
||||||
;; (let ((xrandr-output-regexp "\n\\([^ ]+\\) connected ")
|
|
||||||
;; default-output)
|
|
||||||
;; (with-temp-buffer
|
|
||||||
;; (call-process "xrandr" nil t nil)
|
|
||||||
;; (goto-char (point-min))
|
|
||||||
;; (re-search-forward xrandr-output-regexp nil 'noerror)
|
|
||||||
;; (setq default-output (match-string 1))
|
|
||||||
;; (forward-line)
|
|
||||||
;; (if (not (re-search-forward xrandr-output-regexp nil 'noerror))
|
|
||||||
;; (call-process
|
|
||||||
;; "xrandr" nil nil nil
|
|
||||||
;; "--output" default-output
|
|
||||||
;; "--auto")
|
|
||||||
;; (call-process
|
|
||||||
;; "xrandr" nil nil nil
|
|
||||||
;; "--output" (match-string 1) "--primary" "--auto"
|
|
||||||
;; "--output" default-output "--off"
|
|
||||||
;; )
|
|
||||||
;; (setq exwm-randr-workspace-monitor-plist
|
|
||||||
;; (list 0 (match-string 1))))))))
|
|
||||||
(exwm-randr-enable))
|
|
||||||
|
|
||||||
;; Configure the rudamentary status bar.
|
|
||||||
(when (featurep! +status)
|
|
||||||
(setq display-time-default-load-average nil)
|
|
||||||
(display-time-mode +1)
|
|
||||||
(display-battery-mode +1))
|
|
||||||
|
|
||||||
;; Configure `exwm-firefox-*'.
|
|
||||||
(when (featurep! +firefox)
|
|
||||||
(use-package! exwm-firefox-core
|
|
||||||
:after exwm
|
|
||||||
:config
|
|
||||||
;; Add the <ESC> key to the exwm input keys for firefox buffers.
|
|
||||||
(dolist (k `(escape))
|
|
||||||
(cl-pushnew k exwm-input-prefix-keys)))
|
|
||||||
|
|
||||||
;; Configure further depending if the user has evil mode enabled.
|
|
||||||
(when (featurep! :editor evil)
|
|
||||||
(use-package! exwm-firefox-evil
|
|
||||||
:after exwm
|
|
||||||
:config
|
|
||||||
;; Add the firefox wm class name.
|
|
||||||
(dolist (k `("firefox"))
|
|
||||||
(cl-pushnew k exwm-firefox-evil-firefox-class-name))
|
|
||||||
;; Add the firefox buffer hook
|
|
||||||
(add-hook 'exwm-manage-finish-hook
|
|
||||||
'exwm-firefox-evil-activate-if-firefox))))
|
|
||||||
|
|
@ -1,6 +0,0 @@
|
||||||
;;; -*- lexical-binding: t; no-byte-compile: t; -*-
|
|
||||||
;;; os/exwm/doctor.el
|
|
||||||
|
|
||||||
(when (featurep! +firefox)
|
|
||||||
(unless (executable-find "firefox")
|
|
||||||
(warn! "Couldn't find firefox. exwm-firefox will not work")))
|
|
||||||
|
|
@ -1,11 +0,0 @@
|
||||||
;; -*- no-byte-compile: t; -*-
|
|
||||||
;;; os/exwm/packages.el
|
|
||||||
|
|
||||||
;; Here we require the `exwm' package.
|
|
||||||
(package! exwm :pin "e43bd78...")
|
|
||||||
|
|
||||||
;; Here we require the `exwm-firefox*' packages.
|
|
||||||
(when (featurep! +firefox)
|
|
||||||
(if (featurep! :editor evil)
|
|
||||||
(package! exwm-firefox-evil :pin "14643ee...")
|
|
||||||
(package! exwm-firefox-core :pin "e2fe2a8ODO...")))
|
|
||||||
Loading…
Add table
Reference in a new issue