blob: 022a05748f423cd7128197615f358f72be40cc32 (
plain)
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
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
;;; ui-config --- User Interface Preferences -*- lexical-binding: t; coding: utf-8; -*-
;; author: Craig Jennings <c@cjennings.net>
;;; Commentary:
;; This file centralizes user interface preferences, including:
;; • Frame and window behavior
;; – Start all frames maximized
;; – Disable file‐ and dialog‐boxes
;; – Pixel scroll precision
;; – Show column numbers in the mode-line
;; • Transparency controls
;; – Customizable variables 'cj/enable-transparency' and 'cj/transparency-level'
;; – Interactive 'cj/toggle-transparency' command
;; • Cursor appearance
;; – Cursor color changes on the buffer's write and insertion state
;; (i.e., read-only, overwrite, normal)
;; – Option to customize cursor shape with 'cj/set-cursor-type'
;; • Icons
;; – Load and enable 'nerd-icons' for UI glyphs
;; Customize the transparency and cursor color options at the top of this file.
;;; Code:
;; -------------------------------- UI Constants -------------------------------
(defcustom cj/enable-transparency nil
"Non-nil means use `cj/transparency-level' for frame transparency."
:type 'boolean
:group 'ui-config)
(defcustom cj/transparency-level 84
"Opacity level for Emacs frames when `cj/enable-transparency' is non-nil.
100 = fully opaque, 0 = fully transparent."
:type 'integer
:group 'ui-config)
(defconst cj/cursor-colors
'((read-only . "#f06a3f") ; red – buffer is read-only
(overwrite . "#c48702") ; gold – overwrite mode
(normal . "#64aa0f")) ; green – insert & read/write
"Alist mapping cursor states to their colors.")
;; ----------------------------- System UI Settings ----------------------------
(add-to-list 'initial-frame-alist '(fullscreen . maximized)) ;; start the initial frame maximized
(add-to-list 'default-frame-alist '(fullscreen . maximized)) ;; start every frame maximized
(setq pixel-scroll-precision-mode nil) ;; smooth scroll past images - enabled if nil!
(setq-default frame-inhibit-implied-resize t) ;; don't resize frames when setting ui-elements
(setq frame-title-format '("Emacs " emacs-version" : %b")) ;; the title is emacs with version and buffer name
(setq use-file-dialog nil) ;; no file dialog
(setq use-dialog-box nil) ;; no dialog boxes either
(column-number-mode 1) ;; show column number in the modeline
(setq switch-to-buffer-obey-display-actions t) ;; manual buffer switching obeys display action rules
;; -------------------------------- Transparency -------------------------------
(defun cj/apply-transparency ()
"Apply `cj/transparency-level' to the selected frame and future frames.
When `cj/enable-transparency' is nil, reset alpha to fully opaque."
(let ((alpha (if cj/enable-transparency
(cons cj/transparency-level cj/transparency-level)
'(100 . 100))))
;; apply to current frame
(set-frame-parameter nil 'alpha alpha)
;; update default for new frames
(setq default-frame-alist
(assq-delete-all 'alpha default-frame-alist))
(add-to-list 'default-frame-alist `(alpha . ,alpha))))
;; apply once at startup
(cj/apply-transparency)
(defun cj/toggle-transparency ()
"Toggle `cj/enable-transparency' and re-apply."
(interactive)
(setq cj/enable-transparency (not cj/enable-transparency))
(cj/apply-transparency)
(message "Transparency %s"
(if cj/enable-transparency "enabled" "disabled")))
;; ----------------------------------- Cursor ----------------------------------
;; set cursor color according to mode
;;
;; #f06a3f indicates a read-only document
;; #c48702 indicates overwrite mode
;; #64aa0f indicates insert and read/write mode
;; ----------------------------------- Cursor ----------------------------------
(defvar cj/-cursor-last-color nil
"Last color applied by `cj/set-cursor-color-according-to-mode'.")
(defvar cj/-cursor-last-buffer nil
"Last buffer name where cursor color was applied.")
(defun cj/set-cursor-color-according-to-mode ()
"Change cursor color according to \\='buffer-read-only or \\='overwrite state."
(let* ((state (cond
(buffer-read-only 'read-only)
(overwrite-mode 'overwrite)
(t 'normal)))
(color (alist-get state cj/cursor-colors)))
(unless (and (string= color cj/-cursor-last-color)
(string= (buffer-name) cj/-cursor-last-buffer))
(set-cursor-color color)
(setq cj/-cursor-last-color color
cj/-cursor-last-buffer (buffer-name)))))
(add-hook 'post-command-hook #'cj/set-cursor-color-according-to-mode)
;; Don’t show a cursor in non-selected windows:
(setq cursor-in-non-selected-windows nil)
;; Initialize to box cursor (or any type you prefer)
(defun cj/set-cursor-type (new-cursor-type)
"Set the cursor type of the selected frame to NEW-CURSOR-TYPE."
(interactive
(list (intern (completing-read
"Cursor type: "
(mapcar #'list '("box" "hollow" "bar" "hbar" nil))))))
(modify-frame-parameters nil `((cursor-type . ,new-cursor-type))))
(cj/set-cursor-type 'box)
;; --------------------------------- Nerd Icons --------------------------------
;; use icons from nerd fonts in the Emacs UI
(use-package nerd-icons
:demand t)
(provide 'ui-config)
;;; ui-config.el ends here
|
