emacs: Add time to the modeline and smaller font.

Add the current time (in 24 hours format) to the modeline.

Configure Emacs to start in fullscreen.

Set a slightly smaller font too (but keep the same font).

1 files changed, 18 insertions, 12 deletions

diff --git a/emacs.d/custom/fcuny-ui.el b/emacs.d/custom/fcuny-ui.el
index df4e85f..1e19bf1 100644
--- a/emacs.d/custom/fcuny-ui.el
+++ b/emacs.d/custom/fcuny-ui.el
@@ -16,11 +16,23 @@
   :config
   (blink-cursor-mode -1)
   (setq frame-title-format "%b")
-  (set-face-attribute 'default nil :height 140 :weight 'normal :width 'normal :font "Source Code Pro")
+  (set-frame-font "Source Code Pro-13")
   (when (memq window-system '(mac ns))
+    (add-to-list 'default-frame-alist '(fullscreen . maximized))
+    (add-to-list 'default-frame-alist '(ns-appearance . nil))
+    (add-to-list 'default-frame-alist '(ns-transparent-titlebar . nil))
     (setq ns-use-native-fullscreen nil)
     (setq mac-allow-anti-aliasing t)))
 
+(use-package time
+  :ensure t
+  :config
+  (progn
+    (setf display-time-default-load-average nil
+          display-time-use-mail-icon t
+          display-time-24hr-format t)
+    (display-time-mode t)))
+
 (use-package hl-line
   :config
   (set-face-background 'hl-line "#E0EBF5")
@@ -37,17 +49,11 @@
 (use-package hydra
   :ensure t)
 
-(use-package spacemacs-theme
-  :defer t
-  :init (load-theme 'spacemacs-light t))
-
-(use-package spaceline
+(use-package smart-mode-line
   :ensure t
-  :init
-  (require 'spaceline-config)
-  :config
-  (progn
-    (spaceline-spacemacs-theme)
-    (spaceline-toggle-minor-modes-on)))
+  :hook (after-init . sml/setup)
+  :custom
+  (sml/theme 'light)
+  (sml/no-confirm-load-theme t))
 
 (provide 'fcuny-ui)