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: include prot-icons for frames and git that prot-modeline uses

Browse source
This commit is contained in:
Protesilaos Stavrou 2026-01-19 12:41:49 +02:00
parent 56f1947a25
commit 83aaa5aab3
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
3 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -12869,6 +12869,8 @@ Now use `display-buffer-alist' like the Lisp gods intended."
(audio ">Η" prot-icons-cyan) ; ήχος
(image ">Ε" prot-icons-yellow) ; εικόνα
(video ">Κ" prot-icons-blue) ; κίνηση (κινηματογράφος)
(frame "[]" prot-icons-gray)
(git "|-" prot-icons-gray)
(t ">." prot-icons-gray))
"Major modes or concepts and their corresponding icons.
Each element is a cons cell of the form (THING STRING FACE), where THING
@ -13936,7 +13938,7 @@ face. Let other buffers have no face.")
"Prepare text for Git controlled FILE, given BRANCH.
With optional FACE, use it to propertize the BRANCH."
(format "%s %s "
(propertize "\\/" 'face 'prot-modeline-indicator-gray)
(prot-icons-get-icon 'git 'prot-modeline-indicator-gray)
;; (propertize (char-to-string #xE0A0) 'face 'prot-modeline-indicator-gray)
(propertize branch
'face face
@ -14063,9 +14065,8 @@ Specific to the current window's mode line.")
(current-frame (selected-frame))
(_ (frame-live-p current-frame))
(parameters (frame-parameters))
(name (capitalize (alist-get 'name parameters)))
(indicator "[+]"))
(format "%s %s " (propertize indicator 'face 'prot-modeline-indicator-gray) name)))))
(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

2
emacs/.emacs.d/prot-lisp/prot-icons.el
View file

@ -130,6 +130,8 @@
(audio ">Η" prot-icons-cyan) ; ήχος
(image ">Ε" prot-icons-yellow) ; εικόνα
(video ">Κ" prot-icons-blue) ; κίνηση (κινηματογράφος)
(frame "[]" prot-icons-gray)
(git "|-" prot-icons-gray)
(t ">." prot-icons-gray))
"Major modes or concepts and their corresponding icons.
Each element is a cons cell of the form (THING STRING FACE), where THING

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

@ -424,7 +424,7 @@ face. Let other buffers have no face.")
"Prepare text for Git controlled FILE, given BRANCH.
With optional FACE, use it to propertize the BRANCH."
(format "%s %s "
(propertize "\\/" 'face 'prot-modeline-indicator-gray)
(prot-icons-get-icon 'git 'prot-modeline-indicator-gray)
;; (propertize (char-to-string #xE0A0) 'face 'prot-modeline-indicator-gray)
(propertize branch
'face face
@ -551,9 +551,8 @@ Specific to the current window's mode line.")
(current-frame (selected-frame))
(_ (frame-live-p current-frame))
(parameters (frame-parameters))
(name (capitalize (alist-get 'name parameters)))
(indicator "[+]"))
(format "%s %s " (propertize indicator 'face 'prot-modeline-indicator-gray) name)))))
(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