tweak(window): do not deffer

abougouffa · Jun 17, 2023 · a75d587 · a75d587
1 parent cd75b1b
commit a75d587
Showing 1 changed file with 65 additions and 66 deletions.
diff --git a/modules/me-window.el b/modules/me-window.el
@@ -12,86 +12,85 @@
 
 ;;; Code:
 
-(+deferred!
- (add-to-list
-  'display-buffer-alist
-  `(,(rx (seq "*" (or "Help" (seq "helpful" (zero-or-more not-newline))) "*"))
-    (display-buffer-reuse-window display-buffer-pop-up-window)
-    (inhibit-same-window . t)))
+(add-to-list
+ 'display-buffer-alist
+ `(,(rx (seq "*" (or "Help" (seq "helpful" (zero-or-more not-newline))) "*"))
+   (display-buffer-reuse-window display-buffer-pop-up-window)
+   (inhibit-same-window . t)))
 
  ;; Show *Warnings* at bottom
- (add-to-list
-  'display-buffer-alist
-  `("*Warnings*"
-    (display-buffer-reuse-window display-buffer-in-direction)
-    (direction . bottom) ;; bottom (above below...)
-    (dedicated . t) ;; Close when finished
-    (reusable-frames . visible) ;;
-    (window-height . 10)))
+(add-to-list
+ 'display-buffer-alist
+ `("*Warnings*"
+   (display-buffer-reuse-window display-buffer-in-direction)
+   (direction . bottom) ;; bottom (above below...)
+   (dedicated . t) ;; Close when finished
+   (reusable-frames . visible) ;;
+   (window-height . 10)))
 
  ;; Show dictionary definition and completion buffer on the right side
- (add-to-list
-  'display-buffer-alist
-  `(,(rx (seq "*" (or "Dictionary" "lexic" "Completions") "*"))
-    (display-buffer-in-side-window)
-    (side . right)
-    (window-width . 82)))
+(add-to-list
+ 'display-buffer-alist
+ `(,(rx (seq "*" (or "Dictionary" "lexic" "Completions") "*"))
+   (display-buffer-in-side-window)
+   (side . right)
+   (window-width . 82)))
 
- (add-to-list
-  'display-buffer-alist
-  `(,(rx (seq "*" (or "eshell" "terminal") "*"))
-    ;; (display-buffer-reuse-window display-buffer-at-bottom)
-    (display-buffer-reuse-window display-buffer-in-direction)
-    (direction . bottom) ;; bottom (above below...)
-    (dedicated . t) ;; Close when finished
-    (reusable-frames . visible) ;;
-    (window-height . 0.3)))
+(add-to-list
+ 'display-buffer-alist
+ `(,(rx (seq "*" (or "eshell" "terminal") "*"))
+   ;; (display-buffer-reuse-window display-buffer-at-bottom)
+   (display-buffer-reuse-window display-buffer-in-direction)
+   (direction . bottom) ;; bottom (above below...)
+   (dedicated . t) ;; Close when finished
+   (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
+         (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)))))))
 
  ;; Adapted from: github.com/Phundrak/dotfiles/blob/master/org/config/emacs.org
- (with-eval-after-load 'hydra
-   (defhydra +window-adjust-size (:hint nil :foreign-keys warn)
-     "
+(with-eval-after-load 'hydra
+  (defhydra +window-adjust-size (:hint nil :foreign-keys warn)
+    "
 ^Zoom^                                ^Other
 ^^^^^^^-----------------------------------------
 [_t_/_s_] shrink/enlarge vertically   [_q_] quit
 [_c_/_r_] shrink/enlarge horizontally
 "
-     ("q" nil :exit t)
-     ("c" shrink-window-horizontally)
-     ("t" enlarge-window)
-     ("s" shrink-window)
-     ("r" enlarge-window-horizontally))
+    ("q" nil :exit t)
+    ("c" shrink-window-horizontally)
+    ("t" enlarge-window)
+    ("s" shrink-window)
+    ("r" enlarge-window-horizontally))
 
-   (+map!
-     :infix "w"
-     "a" '(+window-adjust-size/body :wk "Adjust window size"))))
+  (+map!
+    :infix "w"
+    "a" '(+window-adjust-size/body :wk "Adjust window size")))
 
 
 (provide 'me-window)