Merge branch 'avoid-digga' of github.com:aciceri/fleet into avoid-digga
This commit is contained in:
commit
55ead06206
13 changed files with 65 additions and 12 deletions
|
@ -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...
|
||||
|
|
|
@ -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))
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue