blob: 312e622efe59c2d73e73746215544b88f166f552 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
;;; init-ui.el --- User interface config. -*- lexical-binding: t -*-
;;; Commentary:
;; User interface settings.
;;; Code:
(require 'time)
;; Don't say anything on mode-line mouseover.
(setq mode-line-default-help-echo nil)
;; Keep cursors and highlights in current window only.
(setq cursor-in-non-selected-windows nil)
;; Don't highlight inactive windows.
(setq highlight-nonselected-windows nil)
(use-package fringe
:demand t
:config
;; no fringe on the right side
(fringe-mode '(8 . 0)))
;; Disable bidirectional text support for slight performance bonus.
(setq bidi-display-reordering nil)
;; breadcrumb
;; https://github.com/joaotavora/breadcrumb
(use-package breadcrumb
:ensure t
: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
|
