123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280 |
- ;;; EXWM
- ;;; When stating the client from .xinitrc, `save-buffer-kill-terminal' will
- ;;; force-kill Emacs before it can run through `kill-emacs-hook'.
- (global-set-key (kbd "C-x C-c") 'save-buffers-kill-emacs)
- ;;; Athena+Xaw3d confuses xcape when binding Caps-lock to both L_Ctrl
- ;;; escape, in which case it will procude <C-escape> in Emacs. In practice, it
- ;;; means that `C-` keys will works but `<escape>` will need a fast double tap
- ;;; on Caps Lock.
- ;;;
- ;;; See https://github.com/ch11ng/exwm/issues/285
- ;;; and https://gitlab.com/interception/linux/plugins/caps2esc/issues/2.
- ;;; Rename buffer to window title.
- (defun ambrevar/exwm-rename-buffer-to-title () (exwm-workspace-rename-buffer exwm-title))
- (add-hook 'exwm-update-title-hook 'ambrevar/exwm-rename-buffer-to-title)
- (add-hook 'exwm-floating-setup-hook 'exwm-layout-hide-mode-line)
- (add-hook 'exwm-floating-exit-hook 'exwm-layout-show-mode-line)
- ;;; Allow non-floating resizing with mouse.
- (setq window-divider-default-bottom-width 2
- window-divider-default-right-width 2)
- (window-divider-mode)
- ;;; System tray
- (require 'exwm-systemtray)
- (exwm-systemtray-enable)
- (setq exwm-systemtray-height 16)
- ;;; Those cannot be set globally: if Emacs would be run in another WM, the "s-"
- ;;; prefix will conflict with the WM bindings.
- (exwm-input-set-key (kbd "s-R") #'exwm-reset)
- (exwm-input-set-key (kbd "s-x") #'exwm-input-toggle-keyboard)
- (exwm-input-set-key (kbd "s-h") #'windmove-left)
- (exwm-input-set-key (kbd "s-j") #'windmove-down)
- (exwm-input-set-key (kbd "s-k") #'windmove-up)
- (exwm-input-set-key (kbd "s-l") #'windmove-right)
- (exwm-input-set-key (kbd "s-D") #'kill-this-buffer)
- (exwm-input-set-key (kbd "s-b") #'list-buffers)
- (exwm-input-set-key (kbd "s-f") #'find-file)
- (when (require 'windower nil 'noerror)
- (exwm-input-set-key (kbd "s-<tab>") 'windower-switch-to-last-buffer)
- (exwm-input-set-key (kbd "s-o") 'windower-toggle-single)
- (exwm-input-set-key (kbd "s-\\") 'windower-toggle-split)
- (exwm-input-set-key (kbd "s-H") 'windower-swap-left)
- (exwm-input-set-key (kbd "s-J") 'windower-swap-below)
- (exwm-input-set-key (kbd "s-K") 'windower-swap-above)
- (exwm-input-set-key (kbd "s-L") 'windower-swap-right))
- ;; The following can only apply to EXWM buffers, else it could have unexpected effects.
- (push ?\s- exwm-input-prefix-keys)
- (define-key exwm-mode-map (kbd "s-SPC") #'exwm-floating-toggle-floating)
- (exwm-input-set-key (kbd "s-i") #'follow-delete-other-windows-and-split)
- (exwm-input-set-key (kbd "s-O") #'exwm-layout-toggle-fullscreen)
- (with-eval-after-load 'helm
- ;; Need `with-eval-after-load' here since 'helm-map is not defined in 'helm-config.
- (ambrevar/define-keys helm-map
- "s-\\" 'helm-toggle-resplit-and-swap-windows)
- (exwm-input-set-key (kbd "s-c") #'helm-resume)
- (exwm-input-set-key (kbd "s-b") #'helm-mini)
- (exwm-input-set-key (kbd "s-f") #'helm-find-files)
- (exwm-input-set-key (kbd "s-F") #'helm-locate)
- (when (fboundp 'ambrevar/helm-locate-meta)
- (exwm-input-set-key (kbd "s-F") #'ambrevar/helm-locate-meta))
- (exwm-input-set-key (kbd "s-g") 'ambrevar/helm-grep-git-or-ag)
- (exwm-input-set-key (kbd "s-G") 'ambrevar/helm-grep-git-all-or-ag)
- ;; Launcher
- (exwm-input-set-key (kbd "s-r") 'helm-run-external-command))
- (when (require 'evil nil t)
- (exwm-input-set-key (kbd "s-<tab>") #'evil-switch-to-windows-last-buffer)
- (exwm-input-set-key (kbd "C-6") #'evil-switch-to-windows-last-buffer))
- ;;; Emacs mode shortcuts.
- (if (not (require 'helm-selector nil :noerror))
- (progn
- (exwm-input-set-key (kbd "s-t") (lambda ()
- (interactive)
- (find-file (car org-agenda-files))))
- (exwm-input-set-key (kbd "s-<return>") #'eshell)
- (exwm-input-set-key (kbd "s-m") #'notmuch-hello)
- (exwm-input-set-key (kbd "s-n") #'elfeed)
- (exwm-input-set-key (kbd "s-e") #'eww))
- (exwm-input-set-key (kbd "s-t") 'helm-selector-org)
- (exwm-input-set-key (kbd "s-T") 'helm-selector-org-other-window)
- (exwm-input-set-key (kbd "s-<return>") 'helm-selector-shell)
- (exwm-input-set-key (kbd "S-s-<return>") 'helm-selector-shell-other-window)
- (exwm-input-set-key (kbd "s-m") #'helm-selector-notmuch)
- (exwm-input-set-key (kbd "s-M") #'helm-selector-notmuch-other-window)
- (exwm-input-set-key (kbd "s-n") #'helm-selector-elfeed)
- (exwm-input-set-key (kbd "s-N") #'helm-selector-elfeed-other-window) ; "n" for "news"
- (exwm-input-set-key (kbd "s-e") #'helm-selector-eww)
- (exwm-input-set-key (kbd "s-E") #'helm-selector-eww-other-window))
- (when (fboundp 'magit-status)
- (exwm-input-set-key (kbd "s-v") #'magit-status))
- (when (fboundp 'emms-all)
- (exwm-input-set-key (kbd "s-a") #'emms-smart-browse)
- (exwm-input-set-key (kbd "S-s-<kp-enter>") #'emms-pause)
- (if (fboundp 'helm-emms)
- (exwm-input-set-key (kbd "s-A") #'helm-emms)
- (exwm-input-set-key (kbd "s-A") #'emms)))
- (when (fboundp 'helm-pass)
- (exwm-input-set-key (kbd "s-p") #'helm-pass))
- (autoload 'ambrevar/slime-to-repl "lisp")
- (exwm-input-set-key (kbd "s-<backspace>") #'helm-selector-sly)
- (defun ambrevar/repl-switcher ()
- "Switch between Geiser and SLIME REPLs."
- (interactive)
- ;; TODO: Apparently, S-s-<backspace> is not recognized.
- (pcase
- (completing-read "Lisp: " '(cider geiser slime sly racket))
- ("cider"
- (exwm-input-set-key (kbd "s-<backspace>") 'helm-selector-cider)
- (exwm-input-set-key (kbd "M-s-<backspace>") 'helm-selector-cider-other-window))
- ("geiser"
- (autoload 'helm-geiser-repl-switch "init-scheme")
- (exwm-input-set-key (kbd "s-<backspace>") 'helm-selector-geiser)
- (exwm-input-set-key (kbd "M-s-<backspace>") 'helm-selector-geiser-other-window))
- ("slime"
- (exwm-input-set-key (kbd "s-<backspace>") 'helm-selector-slime)
- (exwm-input-set-key (kbd "M-s-<backspace>") 'helm-selector-slime-other-window))
- ("sly"
- (exwm-input-set-key (kbd "s-<backspace>") 'helm-selector-sly)
- (exwm-input-set-key (kbd "<M-s-backspace>") 'helm-selector-sly-other-window))
- ("racket"
- (exwm-input-set-key (kbd "s-<backspace>") #'racket-repl))))
- (exwm-input-set-key (kbd "s-C-<backspace>") #'ambrevar/repl-switcher)
- ;;; External application shortcuts.
- (defun ambrevar/exwm-start (command)
- (interactive (list (read-shell-command "$ ")))
- (start-process-shell-command command nil command))
- (exwm-input-set-key (kbd "s-&") #'ambrevar/exwm-start)
- (when (require 'helm-exwm nil t)
- (add-to-list 'helm-source-names-using-follow "EXWM buffers")
- (setq helm-exwm-emacs-buffers-source (helm-exwm-build-emacs-buffers-source))
- (setq helm-exwm-source (helm-exwm-build-source))
- (setq helm-mini-default-sources `(helm-exwm-emacs-buffers-source
- helm-exwm-source
- helm-source-recentf
- ,(when (boundp 'helm-source-ls-git) 'helm-source-ls-git)
- helm-source-bookmarks
- helm-source-bookmark-set
- helm-source-buffer-not-found))
- (ambrevar/define-keys
- helm-exwm-map
- "M-d" 'helm-buffer-run-kill-persistent
- "S-<return>" 'helm-buffer-switch-other-window)
- ;; Web browser
- (exwm-input-set-key (kbd "s-w") #'helm-exwm-switch-browser)
- (exwm-input-set-key (kbd "s-W") #'helm-exwm-switch-browser-other-window))
- (when (require 'desktop-environment nil 'noerror)
- ;; REVIEW: Remove the override on next version release:
- ;; https://gitlab.petton.fr/DamienCassou/desktop-environment
- (defun ambrevar/desktop-environment-lock-screen ()
- "Lock the screen, preventing anyone without a password from using the system."
- (interactive)
- ;; Run command asynchronously so that Emacs does not wait in the background.
- (start-process-shell-command "lock" nil desktop-environment-screenlock-command))
- (advice-add #'desktop-environment-lock-screen :override #'ambrevar/desktop-environment-lock-screen)
- (setq desktop-environment-screenshot-directory "~/Downloads")
- (define-key desktop-environment-mode-map (kbd "s-z") #'desktop-environment-lock-screen)
- ;; Re-set s-l to navigate windows.
- (define-key desktop-environment-mode-map (kbd "s-l") #'windmove-right)
- (desktop-environment-mode))
- (defun ambrevar/suspend-to-sleep ()
- (interactive)
- (require 'recentf)
- (recentf-save-list)
- (call-process "loginctl" nil nil nil "suspend"))
- (exwm-input-set-key (kbd "s-Z") #'ambrevar/suspend-to-sleep)
- ;;; Volume control
- (when (require 'pulseaudio-control nil t)
- (exwm-input-set-key (kbd "s-<kp-subtract>") #'pulseaudio-control-decrease-volume)
- (exwm-input-set-key (kbd "s-<kp-add>") #'pulseaudio-control-increase-volume)
- (exwm-input-set-key (kbd "s-<kp-enter>") #'pulseaudio-control-toggle-current-sink-mute)
- (exwm-input-set-key (kbd "s--") #'pulseaudio-control-decrease-volume)
- (exwm-input-set-key (kbd "s-=") #'pulseaudio-control-increase-volume)
- (exwm-input-set-key (kbd "s-0") #'pulseaudio-control-toggle-current-sink-mute))
- ;;; Check for start-up errors. See ~/.profile.
- (let ((error-logs (directory-files "~" t "errors.*log$")))
- (when error-logs
- (warn "Error during system startup. See %s." (mapconcat 'identity error-logs ", "))
- (when (daemonp)
- ;; Non-daemon Emacs already brings up the *Warning* buffer.
- (setq initial-buffer-choice
- (lambda () (get-buffer "*Warnings*"))))))
- ;;; Some programs such as 'emacs' are better off being started in char-mode.
- (defun ambrevar/exwm-start-in-char-mode ()
- (when (string-prefix-p "emacs" exwm-instance-name)
- (exwm-input-release-keyboard (exwm--buffer->id (window-buffer)))))
- (add-hook 'exwm-manage-finish-hook 'ambrevar/exwm-start-in-char-mode)
- ;;; Some programs escape EXWM control and need be tamed. See
- ;; https://github.com/ch11ng/exwm/issues/287
- (add-to-list 'exwm-manage-configurations '((string= exwm-title "Kingdom Come: Deliverance") managed t))
- ;; Gens
- (add-to-list 'exwm-manage-configurations '((string= exwm-class-name "Gens") floating nil))
- (defvar ambrevar/exwm-change-screen-turn-off-primary nil
- "Turn off primary display when cable is plugged.")
- ;; Function to automatically toggle between internal/external screens.
- (defun ambrevar/exwm-change-screen-hook ()
- (let* ((xrandr-output-regexp "\n\\([^ ]+\\) connected ")
- (xrandr-monitor-regexp "\n .* \\([^ \n]+\\)")
- (find-first-output (lambda ()
- (call-process "xrandr" nil t nil)
- (goto-char (point-min))
- (re-search-forward xrandr-output-regexp nil 'noerror)
- (match-string 1)))
- (default-output (with-temp-buffer
- (funcall find-first-output)))
- (second-output (with-temp-buffer
- (funcall find-first-output)
- (forward-line)
- (when (re-search-forward xrandr-output-regexp nil 'noerror)
- (match-string 1)))))
- (if (not second-output)
- (progn
- (call-process "xrandr" nil nil nil "--output" default-output "--auto" "--primary")
- (with-temp-buffer
- ;; Turn off all monitors that are not DEFAULT-OUTPUT.
- ;; See "--auto" in xrandr(1) and https://github.com/ch11ng/exwm/issues/529.
- (call-process "xrandr" nil t nil "--listactivemonitors")
- (goto-char (point-min))
- (while (not (eobp))
- (when (and (re-search-forward xrandr-monitor-regexp nil 'noerror)
- (not (string= (match-string 1) default-output)))
- (call-process "xrandr" nil nil nil "--output" (match-string 1) "--auto")))))
- (apply #'call-process
- "xrandr" nil nil nil
- "--output" second-output
- "--auto"
- (append
- (if ambrevar/exwm-change-screen-turn-off-primary '("--primary") '())
- (when ambrevar/exwm-change-screen-turn-off-primary
- (list "--output" default-output "--off"))))
- (setq exwm-randr-workspace-monitor-plist (list 0 second-output)))))
- (require 'exwm-randr)
- (exwm-randr-enable)
- (defun ambrevar/exwm-change-screen-toggle (&optional setting)
- "Toggle automatic multiscreen configuration.
- Turn off if you want to set the display settings manually.
- WIth SETTING to :ENABLE or :DISABLE, set"
- (interactive)
- (if (member 'ambrevar/exwm-change-screen-hook exwm-randr-screen-change-hook)
- (progn
- (remove-hook 'exwm-randr-screen-change-hook 'ambrevar/exwm-change-screen-hook)
- (message "Manual multiscreen handling."))
- (add-hook 'exwm-randr-screen-change-hook 'ambrevar/exwm-change-screen-hook)
- (message "Automatic multiscreen handling.")))
- (add-hook 'exwm-randr-screen-change-hook 'ambrevar/exwm-change-screen-hook)
- ;; TODO: Turn the toggle into a global minor mode.
- ;; Even better: Use autorandr_launcher (https://github.com/phillipberndt/autorandr/issues/210).
- (setq exwm-edit-bind-default-keys nil)
- ;; REVIEW: The following prevents passing "C-c" to the child window.
- ;; (when (require 'exwm-edit nil 'noerror)
- ;; (exwm-input-set-key (kbd "C-c '") #'exwm-edit--compose)
- ;; (exwm-input-set-key (kbd "C-c C-'") #'exwm-edit--compose))
- (provide 'init-exwm)
|