emacs/+window.el

@@ -0,0 +1,17 @@
+;;; 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))))))

emacs/config.el

@@ -23,3 +23,4 @@
 (load! "+org")
 (load! "+company")
 (load! "+modeline")
+(load! "+window")