emacs-config/unused/99-exwm.org

EXWM Configuration

• Config Functions
• Start EXWM

Using Emacs as a window manager.

Config Functions

This Config is not actually mine, so I don't fully understand it either

(defun exwm-config--fix/ido-buffer-window-other-frame ()
"Fix `ido-buffer-window-other-frame'."
(defalias 'exwm-config-ido-buffer-window-other-frame
(symbol-function #'ido-buffer-window-other-frame))
(defun ido-buffer-window-other-frame (buffer)
"This is a version redefined by EXWM.

You can find the original one at `exwm-config-ido-buffer-window-other-frame'."
(with-current-buffer (window-buffer (selected-window))
 (if (and (derived-mode-p 'exwm-mode)
   exwm--floating-frame)
 ;; Switch from a floating frame.
 (with-current-buffer buffer
(if (and (derived-mode-p 'exwm-mode)
  exwm--floating-frame
  (eq exwm--frame exwm-workspace--current))
;; Switch to another floating frame.
(frame-root-window exwm--floating-frame)
  ;; Do not switch if the buffer is not on the current workspace.
  (or (get-buffer-window buffer exwm-workspace--current)
  (selected-window))))
(with-current-buffer buffer
 (when (derived-mode-p 'exwm-mode)
(if (eq exwm--frame exwm-workspace--current)
(when exwm--floating-frame
  ;; Switch to a floating frame on the current workspace.
  (frame-selected-window exwm--floating-frame))
  ;; Do not switch to exwm-mode buffers on other workspace (which
  ;; won't work unless `exwm-layout-show-all-buffers' is set)
  (unless exwm-layout-show-all-buffers
(selected-window)))))))))

Start EXWM

(use-package exwm
:config
;; Set the default number of workspaces
(setq exwm-workspace-number 10)

;; When window "class" updates, use it to set the buffer name
(add-hook 'exwm-update-class-hook
  (lambda ()
    (exwm-workspace-rename-buffer exwm-class-name)))


;; Set the screen resolution (update this to be the correct resolution for your screen!)
(require 'exwm-randr)

;; (setq exwm-randr-workspace-output-plist
;; 	   '(0 "HDMI1" 1 "eDP1" 2 "HDMI1" 3 "eDP1" 4 "HDMI1" 5 "eDP1" 6 "HDMI1" 7 "eDP1" 8 "HDMI1" 9 "eDP1"))

;; (add-hook 'exwm-randr-screen-change-hook
;; 		 (lambda ()
;; 		(start-process-shell-command
;; 		 "xrandr" nil "xrandr --output HDMI1 --primary --mode 1920x1080 --output eDP1 --left-of HDMI1 --mode 1366x768 --rotate left")))

(exwm-randr-enable)

;; Load the system tray before exwm-init
(require 'exwm-systemtray)
(exwm-systemtray-enable)

;; make emacs input method available to other programs
(require 'exwm-xim)
(exwm-xim-enable)

(require 'org-crypt)
(org-crypt-use-before-save-magic)

;; as the name suggests
;; (exwm-enable-ido-workaround)

;; These keys should always pass through to Emacs
(setq exwm-input-prefix-keys
  '(?\C-x
?\C-u
?\C-h
?\M-x
?\M-`
?\M-&
?\M-:
?\C-\\ ;; backslash
?\C-\M-j  ;; Buffer list
?\C-\ ;; ctrl-space
?\s-a ;; audio binding
?\s-m )) ;; music binding

;; Set up global key bindippngs.  These always work, no matter the input state!
;; Keep in mind that changing this list after EXWM initializes has no effect.
(setq exwm-input-global-keys
  `(
;; Reset to line-mode (C-c C-k switches to char-mode via exwm-input-release-keyboard)p
([?\s-w ?\C-r] . exwm-reset)

;; Move between windows
([?\s-w ?\s-b] . windmove-left)
([?\s-w ?\s-f] . windmove-right)
([?\s-w ?\s-p] . windmove-up)
([?\s-w ?\s-n] . windmove-down)

;; Launch applications via shell command
([?\s-&] . (lambda (command)
		   (interactive (list (read-shell-command "$ ")))
		   (start-process-shell-command command nil command)))

;; toggle modeline
([?\s-w ?\t] . exwm-layout-toggle-mode-line)

;; Switch workspace
([?\s-w ?\w] . exwm-workspace-switch)
([?\s-w ?\m] . exwm-workspace-move-window)))
;; 's-N': Switch to certain workspace with Super (Win) plus a number key (0 - 9)
;; ,@(mapcar (lambda (i)
;; 		  `(,(kbd (format "s-w %d" i)) .
;; 		    (lambda ()
;; 			 (interactive)
;; 			 (exwm-workspace-switch-create ,i))))
;; 		(number-sequence 0 9))))

(setq exwm-input-simulation-keys
  '(([?\C-b] . [left])
([?\C-f] . [right])
([?\C-p] . [up])
([?\C-n] . [down])
([?\C-a] . [home])
([?\C-e] . [end])
([?\C-\ ] . [?\C-a])
([?\M-v] . [prior])
([?\C-v] . [next])
([?\C-d] . [delete])
([?\C-k] . [S-end delete])
([?\C-s] . [?\C-f])
([?\C-x ?\h] . [?\C-h])
([?\C-y] . [?\C-v])
([?\C-g] . [escape])))

;; (exwm-enable)
(add-hook 'exwm-init-hook #'exwm-config--fix/ido-buffer-window-other-frame))