sqrtminusone/perspective-exwm.el
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/perspective-exwm.el.git synced 2025-12-11 05:03:02 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: set custom faces for everything

Browse source
This commit is contained in:
Pavel Korytov 2021-12-24 22:15:13 +03:00
parent 1d42f244c6
commit c66fd7d763
1 changed files with 28 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
perspective-exwm.el
View file

@ -65,6 +65,30 @@ The two default options are:
:type '(alist :key-type (integer :tag "EXWM workspace index") :type '(alist :key-type (integer :tag "EXWM workspace index")
:value-type (string :tag "Initial perspective name"))) :value-type (string :tag "Initial perspective name")))
(defface perspective-exwm-cycle-current-face
'((t (:inherit warning)))
"Face for the current buffer in the buffer cycling message."
:group 'perspective-exwm)
(defface perspective-exwm-cycle-skip-face
'((t (:inherit persp-selected-face)))
"Face for the buffer to skip in the buffer cycling message."
:group 'perspective-exwm)
(defface perspective-exwm-current-workspace-face
'((t (:inherit warning)))
"Face for the current workspace number.
Used in `perspective-exwm-switch-perspective'."
:group 'perspective-exwm)
(defface perspective-exwm-selected-pespective-face
'((t (:inherit persp-selected-face)))
"Face for the selected perspective.
Used in `perspective-exwm-switch-perspective'."
:group 'perspective-exwm)
(defun perspective-exwm--cycle-exwm-buffers (dir) (defun perspective-exwm--cycle-exwm-buffers (dir)
"Cycle EXWM buffers in the current perspective. "Cycle EXWM buffers in the current perspective.
@ -104,9 +128,9 @@ buffer is highlighted with `persp-selected-face'"
for is-current = (eq (current-buffer) buf) for is-current = (eq (current-buffer) buf)
for is-skip = (not (member buf cycle-buffers)) for is-skip = (not (member buf cycle-buffers))
if is-current if is-current
concat (concat "[" (propertize name 'face 'warning) "] ") into res concat (concat "[" (propertize name 'face 'perspective-exwm-cycle-current-face) "] ") into res
else if is-skip else if is-skip
concat (concat "[" (propertize name 'face 'persp-selected-face) "] ") into res concat (concat "[" (propertize name 'face 'perspective-exwm-cycle-skip-face) "] ") into res
else else
concat (format " %s " name) into res concat (format " %s " name) into res
finally return res)))))) finally return res))))))
@ -149,13 +173,13 @@ detail."
(propertize (propertize
(format "[%s]" workspace-name) (format "[%s]" workspace-name)
'face 'face
'warning) 'perspective-exwm-current-workspace-face)
(format "[%s]" workspace-name)) (format "[%s]" workspace-name))
(if (string-equal persp-name current-persp-name) (if (string-equal persp-name current-persp-name)
(propertize (propertize
persp-name persp-name
'face 'face
'persp-selected-face) 'perspective-exwm-selected-pespective-face)
persp-name)) persp-name))
(cons i persp-name)))))) (cons i persp-name))))))
(choice (cdr (assoc (completing-read "Select a perspective: " choices) choices)))) (choice (cdr (assoc (completing-read "Select a perspective: " choices) choices))))