refactor: remake pankomacs

config/config-ui.el

@@ -1,24 +1,20 @@
-;; -*- lexical-binding: t -*-
+;;; config-ui --- UI configuration -*- lexical-binding: t -*-
 
+;;; Commentary:
 
-(defun config-init-ui ()
-  (defun my/doom-modeline-for-new-frames (&optional frame)
-    (setq doom-modeline-height (+ (frame-char-height) 8))
-    (with-selected-frame (or frame (selected-frame))
-      (doom-modeline-mode 1)))
+;; I need to do UI configuration and this is a
+;; decent place to do that.
 
-  (use-package doom-modeline
-    :defer t
-    :commands (doom-modeline-mode)
-    :custom
-    (doom-modeline-mode (not (daemonp)))
-    (doom-modeline-env-load-string "")
-    :hook ((server-after-make-frame) . my/doom-modeline-for-new-frames)
-    ;;     ^^^^^^^^^^^^^^^^^^^^^^^ this hook is my goat
-    )
+;;; Code:
 
+(defun init-ui-config ()
+  "Just provide UI configuration."
   (use-package base16-theme
     :config
-    (load-theme 'base16-rose-pine t)))
+    (load-theme 'base16-rose-pine t))
+  (use-package doom-modeline
+    :custom
+    (doom-modeline-mode t)))
 
 (provide 'config-ui)
+;;; config-ui.el ends here