tweak(window): cleanup irrelevant code

abougouffa · Nov 18, 2023 · b39dfd2 · b39dfd2
1 parent 28f5f4f
commit b39dfd2
Showing 1 changed file with 14 additions and 26 deletions.
diff --git a/modules/me-window.el b/modules/me-window.el
@@ -54,32 +54,20 @@
    (reusable-frames . visible) ;;
    (window-height . 0.3)))
 
-(setq frame-title-format
-      '(""
-        (:eval
-         (if (and
-              (bound-and-true-p org-roam-directory)
-              (string-prefix-p
-               (expand-file-name org-roam-directory)
-               (expand-file-name (or buffer-file-name ""))))
-             (replace-regexp-in-string ".*/[0-9]*-?" "☰ "
-              (subst-char-in-string ?_ ?\s buffer-file-name))
-           "%b"))
-        (:eval
-         (let ((proj
-                (ignore-errors
-                  (cond
-                   ((featurep 'projectile)
-                    (projectile-project-name))
-                   (t
-                    (or
-                     (project-name (project-current))
-                     (file-name-nondirectory
-                      (string-trim-right (expand-file-name (vc-root-dir)) "/"))))))))
-          (concat
-           (if (buffer-modified-p) " ○" " ●")
-           (when (and proj (not (string= proj "-")))
-            (format " %s" proj)))))))
+(setq
+ frame-title-format
+ '(""
+   (:eval
+    (let ((proj
+           (ignore-errors
+             (cond
+              ((featurep 'projectile) (projectile-project-name))
+              (t (or
+                  (project-name (project-current))
+                  (file-name-nondirectory (string-trim-right (expand-file-name (vc-root-dir)) "/"))))))))
+     (concat
+      (if (buffer-modified-p) " ○" " ●")
+      (when (and proj (not (string= proj "-"))) (format " %s" proj)))))))
 
 ;; Adapted from: github.com/Phundrak/dotfiles/blob/master/org/config/emacs.org
 (with-eval-after-load 'hydra