Merge branch 'avoid-digga' of github.com:aciceri/fleet into avoid-digga

This commit is contained in:
Andrea Ciceri 2022-07-30 11:40:37 +02:00
commit 55ead06206
No known key found for this signature in database
GPG key ID: A1FC89532D1C5654
13 changed files with 65 additions and 12 deletions

View file

@ -111,7 +111,7 @@
:os
(:if IS-MAC macos) ; improve compatibility with macOS
tty ; improve the terminal Emacs experience
exwm
(exwm +status +xim)
:lang
;;agda ; types of types of types of types...

View file

@ -20,7 +20,7 @@
(setq exwm-input-global-keys
`(([?\s-r] . exwm-reset)
([?\s-w] . exwm-workspace-switch)
([?\s-&] . (lambda (command)
([?\s-d] . (lambda (command)
(interactive (list (read-shell-command "$ ")))
(start-process-shell-command command nil command)))
,@(mapcar (lambda (i)
@ -52,6 +52,20 @@
;; 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)
;; Enable the window manager.
(exwm-enable))