massive cleanup

1 files changed, 55 insertions, 32 deletions

diff --git a/config/init-ui.el b/config/init-ui.el
index 526b446..312e622 100644
--- a/config/init-ui.el
+++ b/config/init-ui.el
@@ -6,6 +6,8 @@
 
 ;;; Code:
 
+(require 'time)
+
 ;; Don't say anything on mode-line mouseover.
 (setq mode-line-default-help-echo nil)
 
@@ -15,26 +17,6 @@
 ;; Don't highlight inactive windows.
 (setq highlight-nonselected-windows nil)
 
-;; Use y-or-n
-(setq use-short-answers t)
-
-;; Use UTF-8 everywhere
-(prefer-coding-system       'utf-8)
-(set-default-coding-systems 'utf-8)
-(set-terminal-coding-system 'utf-8)
-(set-keyboard-coding-system 'utf-8)
-
-(use-package paren
-  :init
-  (show-paren-mode 2)
-  :custom-face
-  :custom
-  (show-paren-delay 0.2)
-  (show-paren-highlight-openparen t)
-  (show-paren-when-point-inside-paren t)
-  (show-paren-when-point-in-periphery t)
-  (show-paren-style 'parenthesis))
-
 (use-package fringe
   :demand t
   :config
@@ -44,18 +26,6 @@
 ;; Disable bidirectional text support for slight performance bonus.
 (setq bidi-display-reordering nil)
 
-(setq window-divider-default-bottom-width 1)
-(setq window-divider-default-places 'bottom-only)
-
-;; empty scratch buffer
-(setq initial-scratch-message "")
-
-;; scroll 5 lines at a time
-(setq next-screen-context-lines 5)
-
-;; cursor is a horizontal bar
-(setq cursor-type 'box)
-
 ;; breadcrumb
 ;; https://github.com/joaotavora/breadcrumb
 (use-package breadcrumb
@@ -63,5 +33,58 @@
   :init
   (breadcrumb-mode 1))
 
+;; show column number in the mode line
+(setq column-number-mode t)
+
+(setq display-time-24hr-format t
+      display-time-interval 60
+      display-time-mode t
+      display-time-format "%H:%M %d.%m"
+      display-time-day-and-date t
+      display-time-default-load-average nil)
+
+(setq world-clock-list t
+      world-clock-timer-enable t
+      world-clock-timer-second 60
+      world-clock-time-format "%R %z  %A %d %B")
+
+;; UTC      => 02:42 +0000  Wednesday 20 April
+;; Berkeley => 19:42 -0700  Tuesday 19 April
+(setq zoneinfo-style-world-list '(("UTC" "UTC")
+                             ("America/Los_Angeles" "Berkeley")
+                             ("America/Denver" "Mountain Time")
+                             ("America/Chicago" "Central Time")
+                             ("America/New_York" "New York")
+                             ("Europe/London" "London")
+                             ("Europe/Paris" "Paris")))
+
+(add-to-list 'display-buffer-alist '("\\*wclock\\*"
+                                     (display-buffer-in-side-window)
+                                     (side . left)
+                                     (slot . 0)
+                                     (window-width . 0.35)))
+
+;; use various monaspace fonts
+;; https://monaspace.githubnext.com
+(set-face-attribute 'default nil
+                    :font "Monaspace Argon"
+                    :height 150)
+
+(set-face-attribute 'fixed-pitch nil
+                    :font "Monaspace Argon"
+                    :height 150)
+
+(set-face-attribute 'variable-pitch nil
+                    :font "Monaspace Radon"
+                    :height 150)
+
+(add-to-list 'default-frame-alist '(background-color . "#FFFCF6"))
+(add-to-list 'default-frame-alist '(foreground-color . "#101010"))
+
+(custom-set-faces
+ ;; make sure comments are distinct from the rest
+ `(font-lock-comment-face ((t (:font "Monaspace Radon" :italic t :bold t :height 1.0 :background "#eeefff" :foreground "#7f0000"))))
+ `(font-lock-doc-face     ((t (:font "Monaspace Radon" :italic t :bold t :height 1.0 :background "#eeefff" :foreground "#7f0000")))))
+
 (provide 'init-ui)
 ;;; init-ui.el ends here