tec/emacs-config
tec
/
emacs-config
1
0
Fork 0
Code Issues 4 Pull Requests Releases Activity

Make custom frame-title-format less error-prone

This commit is contained in:
TEC 2022-09-14 19:42:45 +08:00
parent 73d4007a31
commit c6d4befbfc
Signed by: tec
SSH Key Fingerprint: SHA256:eobz41Mnm0/iYWBvWThftS0ElEs1ftBr6jamutnXc/A
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
config.org
View File

@ -1936,13 +1936,14 @@ I'd like to have just the buffer name, then if applicable the project folder
(setq frame-title-format
'(""
(:eval
(if (s-contains-p org-roam-directory (or buffer-file-name ""))
(if (string-match-p (regexp-quote (or (bound-and-true-p org-roam-directory) "\u0000"))
(or buffer-file-name ""))
(replace-regexp-in-string
".*/[0-9]*-?" "☰ "
(subst-char-in-string ?_ ? buffer-file-name))
(subst-char-in-string ?_ ?\s buffer-file-name))
"%b"))
(:eval
(let ((project-name (projectile-project-name)))
(when-let ((project-name (and (featurep 'projectile) (projectile-project-name))))
(unless (string= "-" project-name)
(format (if (buffer-modified-p) " ◉ %s" "  ●  %s") project-name))))))
#+end_src