dotfiles-misc/protesilaos.dotfiles
1
0
Fork 0
mirror of https://github.com/protesilaos/dotfiles.git synced 2026-09-10 07:16:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

emacs: make indentation change to prot-modeline-frame-name

Browse source
This commit is contained in:
Protesilaos Stavrou 2026-04-12 18:04:40 +03:00
parent f77dde215e
commit 340734653e
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
2 changed files with 14 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
emacs/.emacs.d/prot-emacs.org
View file

@ -14391,12 +14391,13 @@ Specific to the current window's mode line.")
(defvar-local prot-modeline-frame-name
'(prot-modeline-show-frame-name
(" "
(:eval (when-let* ((_ (mode-line-window-selected-p))
(current-frame (selected-frame))
(_ (frame-live-p current-frame))
(parameters (frame-parameters))
(name (capitalize (alist-get 'name parameters))))
(format "%s %s " (prot-icons-get-icon 'frame 'prot-modeline-indicator-gray) name)))))
(:eval
(when-let* ((_ (mode-line-window-selected-p))
(current-frame (selected-frame))
(_ (frame-live-p current-frame))
(parameters (frame-parameters))
(name (capitalize (alist-get 'name parameters))))
(format "%s %s " (prot-icons-get-icon 'frame 'prot-modeline-indicator-gray) name)))))
"Mode line construct to display the current frame name.")
;;;; `which-function-mode' indicator

13
emacs/.emacs.d/prot-lisp/prot-modeline.el
View file

@ -547,12 +547,13 @@ Specific to the current window's mode line.")
(defvar-local prot-modeline-frame-name
'(prot-modeline-show-frame-name
(" "
(:eval (when-let* ((_ (mode-line-window-selected-p))
(current-frame (selected-frame))
(_ (frame-live-p current-frame))
(parameters (frame-parameters))
(name (capitalize (alist-get 'name parameters))))
(format "%s %s " (prot-icons-get-icon 'frame 'prot-modeline-indicator-gray) name)))))
(:eval
(when-let* ((_ (mode-line-window-selected-p))
(current-frame (selected-frame))
(_ (frame-live-p current-frame))
(parameters (frame-parameters))
(name (capitalize (alist-get 'name parameters))))
(format "%s %s " (prot-icons-get-icon 'frame 'prot-modeline-indicator-gray) name)))))
"Mode line construct to display the current frame name.")
;;;; `which-function-mode' indicator