From 65a29d4ad78bbc4c661506e19741f4a24544c732 Mon Sep 17 00:00:00 2001
From: Case Duckworth <acdw@acdw.net>
Date: Mon, 1 Mar 2021 16:57:10 -0600
Subject: [PATCH] Add mode-line-format

Can remove mode-line-mule-info because everything /should/ be UTF-8-Unix
---
 early-init.el | 23 +++++++++++++++++++----
 1 file changed, 19 insertions(+), 4 deletions(-)

diff --git a/early-init.el b/early-init.el
index 57bc7f2..1bf78eb 100644
--- a/early-init.el
+++ b/early-init.el
@@ -97,7 +97,22 @@
    mode-line-client
    mode-line-modified
    " - GNU Emacs")
- )
+
+ mode-line-format			; Mode line
+ `("%e"
+  mode-line-front-space
+  ;; mode-line-mule-info
+  mode-line-client
+  mode-line-modified
+  mode-line-remote
+  mode-line-frame-identification
+  mode-line-buffer-identification " "
+  mode-line-position
+  (vc-mode vc-mode) " "
+  minions-mode-line-modes
+  mode-line-misc-info
+  mode-line-end-spaces
+  ))
 
 ;; Set the rest of the fonts after initiation
 (defun hook--setup-fonts ()
@@ -164,8 +179,9 @@
     [#b00000000
      #b00101010
      #b00101010
-     #b00000000]))
-(add-hook 'after-init-hook #'hook--setup-fringe-bitmaps)
+     #b00000000])
+  (remove-function after-focus-change-function #'hook--setup-fringe-bitmaps))
+(add-function :after after-focus-change-function #'hook--setup-fringe-bitmaps)
 
 ;; Resize like it's 2021
 (setq-default frame-inhibit-implied-resize t
@@ -229,7 +245,6 @@
       (eval-print-last-sexp)))
   (load bootstrap-file nil 'nomessage))
 
-
 ;; `use-package'
 
 (straight-use-package 'use-package)