First commit.

lisp/ux/mode-line.el

@@ -0,0 +1,51 @@
+;;; mode-line.el --- Mode line configuration -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+(defun user--modeline-config ()
+  "Initialize Emacs mode line."
+
+  ;; Show row and column numbers.
+  (validate-setq
+   line-number-mode t
+   column-number-mode t
+   display-time-mode nil)
+
+  ;;; (Packages) ;;;
+  ;; Display the current time and system load.
+  (use-package time
+    :disabled
+    :config
+    (validate-setq
+     display-time-24hr-format t
+     display-time-day-and-date t)
+    (display-time))
+
+  ;; Display battery status.
+  (use-package battery
+    :disabled
+    :config
+    (when (and (functionp battery-status-function)
+               (not (string-match-p "N/A" (battery-format "%B" (funcall battery-status-function)))))
+      (validate-setq battery-mode-line-format
+                     (format " [%s%s%s]" "%b%p%" " (%t)"
+                             (if (string-match-p "N/A" (battery-format "%d" (funcall battery-status-function)))
+                                 ""
+                               " %d°C")))
+      (display-battery-mode t)))
+
+  (use-package doom-modeline
+    :hook (after-init-hook . doom-modeline-init)
+    :config
+    (validate-setq
+     doom-modeline-height 18))
+
+  (use-package mode-line-bell
+    :config
+    (mode-line-bell-mode t)))
+
+(user--modeline-config)
+
+
+(provide 'ux/mode-line)
+;;; mode-line.el ends here