diff options
author | Franck Cuny <franck@fcuny.net> | 2021-10-20 08:24:57 -0700 |
---|---|---|
committer | Franck Cuny <franck@fcuny.net> | 2021-10-20 08:24:57 -0700 |
commit | dd998d84a6b11630b3e680ad5c371b818c2072e6 (patch) | |
tree | 1066eec438d7624c08a3f5240da8201812222ee2 /emacs | |
parent | emacs: add alias for ls -l (diff) | |
download | emacs.d-dd998d84a6b11630b3e680ad5c371b818c2072e6.tar.gz |
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
Diffstat (limited to 'emacs')
-rw-r--r-- | emacs/custom/fcuny-ui.el | 48 |
1 files changed, 43 insertions, 5 deletions
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 |