From dc451de0bc952bc611bc497f201ad2a2030f2805 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Tue, 2 Jan 2024 17:33:02 +0100
Subject: [PATCH] Update --gui

---
 bundle/bundle--gui.el | 48 +++++++++++++++++++++----------------------
 1 file changed, 23 insertions(+), 25 deletions(-)

diff --git a/bundle/bundle--gui.el b/bundle/bundle--gui.el
index 3be9d48a..8f3badce 100644
--- a/bundle/bundle--gui.el
+++ b/bundle/bundle--gui.el
@@ -6,12 +6,12 @@
 
 (setq default-frame-alist
       `((font . "MonoLisa-11")
-	(width . 85)
-	(height . 50)
-	(vertical-scroll-bars)
-	,@(cond ((eq system-type 'gnu/linux)
-		 '((fullscreen . maximized)
-		   (undecorated . t))))))
+        (width . 85)
+        (height . 50)
+        (vertical-scroll-bars)
+        ,@(cond ((eq system-type 'gnu/linux)
+                 '((fullscreen . maximized)
+                   (undecorated . t))))))
 
 (setq frame-resize-pixelwise t)
 
@@ -29,6 +29,23 @@
 
 (add-hook 'after-make-frame-functions 'center-frame)
 
+(use-package all-the-icons
+  :commands all-the-icons-install-fonts
+  :init
+  (unless (find-font (font-spec :name "all-the-icons"))
+    (all-the-icons-install-fonts t)))
+
+(use-package all-the-icons-dired
+  :hook (dired-mode . all-the-icons-dired-mode))
+
+(use-package emojify
+  :config
+  (when (member "Segoe UI Emoji" (font-family-list))
+    ;; https://ianyepan.github.io/posts/emacs-emojis/
+    (set-fontset-font t 'symbol (font-spec :family "Segoe UI Emoji") nil 'prepend)
+    (setq emojify-display-style 'unicode)
+    (setq emojify-emoji-styles '(unicode))))
+
 ;; (defun my-vc-info ()
 ;;   (when vc-mode
 ;;     (concat (substring vc-mode 5)
@@ -79,17 +96,6 @@
 (set-face-attribute 'mode-line-inactive nil
                     :box '(:line-width (1 . 8) :style flat-button) :weight 'normal)
 
-(use-package all-the-icons
-  :if (display-graphic-p)
-  :commands all-the-icons-install-fonts
-  :init
-  (unless (find-font (font-spec :name "all-the-icons"))
-    (all-the-icons-install-fonts t)))
-
-(use-package all-the-icons-dired
-  :if (display-graphic-p)
-  :hook (dired-mode . all-the-icons-dired-mode))
-
 ;; (use-package doom-modeline
 ;;   :hook (after-init . doom-modeline-mode)
 ;;   :custom
@@ -120,14 +126,6 @@
 
 (use-package ace-window :init (global-set-key (kbd "M-o") 'ace-window))
 
-(use-package emojify
-  :config
-  (when (member "Segoe UI Emoji" (font-family-list))
-    ;; https://ianyepan.github.io/posts/emacs-emojis/
-    (set-fontset-font t 'symbol (font-spec :family "Segoe UI Emoji") nil 'prepend)
-    (setq emojify-display-style 'unicode)
-    (setq emojify-emoji-styles '(unicode))))
-
 ;; (use-package vertico :init (vertico-mode))
 
 (use-package webjump