18 lines
612 B
EmacsLisp
18 lines
612 B
EmacsLisp
;;; window.org.el -*- lexical-binding: t; -*-
|
|
|
|
(setq doom-fallback-buffer-name "Doom"
|
|
+doom-dashboard-name "Doom Dashboard")
|
|
|
|
(setq frame-title-format
|
|
'(""
|
|
(:eval
|
|
(if (s-contains-p org-roam-directory (or buffer-file-name ""))
|
|
(replace-regexp-in-string
|
|
".*/[0-9]*-?" "☰ "
|
|
(subst-char-in-string ?_ ? buffer-file-name))
|
|
"%b"))
|
|
(:eval
|
|
(let ((project-name (projectile-project-name)))
|
|
(unless (string= "-" project-name)
|
|
(format (if (buffer-modified-p) " ♢ %s" " ♦ %s") project-name))))))
|