From dd998d84a6b11630b3e680ad5c371b818c2072e6 Mon Sep 17 00:00:00 2001
From: Franck Cuny <franck@fcuny.net>
Date: Wed, 20 Oct 2021 08:24:57 -0700
Subject: emacs: changes to the UI

- smaller font for the modeline
- use the '3d' modeline from modus' theme
- include the host's name in the frame's title
- slightly larger font in linux
- include time and date in the modeline
- configure the modeline to include explicitly what we want
---
 emacs/custom/fcuny-ui.el | 48 +++++++++++++++++++++++++++++++++++++++++++-----
 1 file changed, 43 insertions(+), 5 deletions(-)

(limited to 'emacs')

diff --git a/emacs/custom/fcuny-ui.el b/emacs/custom/fcuny-ui.el
index 16b9a3e..1c4b814 100644
--- a/emacs/custom/fcuny-ui.el
+++ b/emacs/custom/fcuny-ui.el
@@ -28,7 +28,7 @@
   (setq modus-themes-italic-constructs t
         modus-themes-bold-constructs t
         modus-themes-lang-checkers '(text-also background)
-        modus-themes-mode-line '(accented)
+        modus-themes-mode-line '(3d intense)
         modus-themes-diffs '(desaturated)
         modus-themes-fringes nil
         modus-themes-paren-match '(intense)
@@ -54,8 +54,7 @@
 (use-package frame
   :config
   (blink-cursor-mode -1)
-  (setq frame-title-format "%b")
-  (set-background-color "#FFFFEA")
+  (setq frame-title-format '("%b@" (:eval (or (file-remote-p default-directory 'host) system-name))))
   (when (memq window-system '(mac ns))
     (set-frame-font "Source Code Pro-14")
     (add-to-list 'default-frame-alist '(fullscreen . maximized))
@@ -66,13 +65,52 @@
     (when (boundp 'mac-allow-anti-aliasing)
       (setq mac-allow-anti-aliasing t)))
   (when (memq window-system '(x))
-    (set-frame-font "Source Code Pro-10")
-    ;; this is a fall back in the case we have unicode characeters.
+    (set-frame-font "Source Code Pro-12")
+    (set-face-attribute 'mode-line nil :font "Source Code Pro-10")
+    ;; this is a fall back in the case we have Unicode characters.
     ;; For example, with this settings, the following source is
     ;; rendered correctly 😇 😀 and 🤢
     (set-fontset-font "fontset-default" nil
                       (font-spec :name "Noto Color Emoji"))))
 
+(require 'time)
+(setq display-time-24hr-format t)
+(setq display-time-day-and-date t)
+(setq display-time-format "%a %e %b, %H:%M")
+(setq display-time-interval 60)
+(setq display-time-default-load-average nil)
+(setq zoneinfo-style-world-list
+      '(("America/Los_Angeles" "Berkeley")
+        ("America/Chicago" "Chicago")
+        ("America/New_York" "New York")
+        ("Europe/Paris" "Paris")
+        ("Asia/Tokyo" "Tokyo")
+        ("Asia/Vladivostok" "Vladivostok")))
+;; (setq world-clock-list t)
+;; (setq world-clock-time-format "%R %z  %A %d %B")
+;; (setq world-clock-buffer-name "*world-clock*") ; Placement handled by `display-buffer-alist'
+;; (setq world-clock-timer-enable t)
+;; (setq world-clock-timer-second 60)
+(display-time-mode t)
+
+(setq mode-line-percent-position '(-3 "%p"))
+
+(setq-default mode-line-format
+              '("%e"
+                mode-line-front-space
+                mode-line-modified
+                mode-line-remote
+                mod-line-frame-identification
+                mode-line-buffer-identification
+                "  "
+                mode-line-position
+                mode-line-modes
+                "  "
+                (vc-mode vc-mode)
+                "  "
+                mode-line-misc-info
+                mode-line-end-spaces))
+
 (use-package hl-line
   :hook ((prog-mode text-mode conf-mode special-mode) . hl-line-mode)
   :custom
-- 
cgit 1.4.1