blob: 32bd393f5ab52f9155925681c35d354c85086e26 (
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
|
;;; ui-config --- User Interface Preferences -*- lexical-binding: t; coding: utf-8; -*-
;; author: Craig Jennings <c@cjennings.net>
;;; Commentary:
;;
;; Layer: 2 (Core UX).
;; Category: C/S.
;; Load shape: eager.
;; Eager reason: UI preferences that should be visible in the first frame.
;; Top-level side effects: UI defaults, a post-command hook, and
;; display-buffer-alist entries.
;; Runtime requires: user-constants.
;; Direct test load: yes.
;;
;; 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 -------------------------------
(defvar cj/enable-transparency nil
"Non-nil means use `cj/transparency-level' for frame transparency.")
(defvar cj/transparency-level 84
"Opacity level for Emacs frames when `cj/enable-transparency' is non-nil.
100 = fully opaque, 0 = fully transparent.")
;; Use buffer status colors from user-constants
(require 'user-constants)
;; ----------------------------- 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) ;; disabled for performance
(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
(line-number-mode 1) ;; show line number in the modeline (cached)
(column-number-mode 1) ;; show column number in the modeline (cached)
(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 (skip if terminal frame)
(when (display-graphic-p)
(condition-case err
(set-frame-parameter nil 'alpha alpha)
(error (message "Failed to set transparency: %s" (error-message-string err)))))
;; 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 ----------------------------------
;; The cursor uses the theme's cursor face. Buffer-state coloring (both the
;; cursor and the modeline buffer-name) was removed -- changing color by buffer
;; write state was more confusing than useful.
;; 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)
;; Keep the cursor a solid block -- no blinking (including the initial blink
;; burst when entering read-only buffers like EPUBs or vterm).
(blink-cursor-mode -1)
;; --------------------------------- Nerd Icons --------------------------------
;; use icons from nerd fonts in the Emacs UI
(use-package nerd-icons
:defer t)
(provide 'ui-config)
;;; ui-config.el ends here
|
