jimeh/tab-bar-notch
1
0
Fork 0
mirror of https://github.com/jimeh/tab-bar-notch.git synced 2026-02-19 01:26:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix(setup): correctly re-setup tab-bar-notch if needed

Browse Source 
This allows changes to the tab-bar-notch--face-name frame parameter to
be handled correctly, and the relevat face created if needed. Should
resolve issues with session managers which may restore all frame
parameters.
This commit is contained in:
Jim Myhrberg
2024-12-24 01:04:29 +00:00
parent 6d1101d815
commit 1e4b5040dd
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
tab-bar-notch.el
View File

@@ -197,15 +197,17 @@ The assigned face name for each frame is stored in a frame
parameter."
(let* ((frame (or frame (selected-frame)))
(face-name (frame-parameter frame 'tab-bar-notch--face-name)))
(if face-name
face-name
(when (not face-name)
(setq face-name (intern (format "tab-bar-notch--face-%d"
tab-bar-notch--next-face-id))
tab-bar-notch--next-face-id (1+ tab-bar-notch--next-face-id))
tab-bar-notch--next-face-id (1+ tab-bar-notch--next-face-id)))
(when (not (facep face-name))
(make-face face-name)
(set-face-attribute face-name nil :height 1.0)
(set-frame-parameter frame 'tab-bar-notch--face-name face-name)
face-name)))
(set-frame-parameter frame 'tab-bar-notch--face-name face-name))
face-name))
(defun tab-bar-notch--notch-height (width height)
"Return the notch height for the given screen WIDTH and HEIGHT.