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
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
|
;;; test-auto-dim-config.el --- Tests for the auto-dim-other-buffers config -*- lexical-binding: t; -*-
;;; Commentary:
;; auto-dim-config configures the local auto-dim-other-buffers fork: dim only
;; non-selected windows within Emacs (not the whole frame on focus-out), drop
;; fringe from the dimmed faces to avoid flicker on this non-pgtk build, and
;; enable the global mode. Guarded with `skip-unless' because the fork lives
;; in ~/code and may be absent on a clean checkout.
;;
;; The vterm dim-integration tests were removed when the terminal engine moved
;; off vterm. EAT (the current engine) renders in real Emacs faces and uses the
;; `default' face for its background, so terminal buffers dim like any other
;; buffer with no dedicated integration.
;;; Code:
(require 'ert)
(require 'cl-lib)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(defconst test-auto-dim--fork
(expand-file-name "~/code/auto-dim-other-buffers.el")
"Local fork directory the module loads via `:load-path'.")
(ert-deftest test-auto-dim-config-applies-settings ()
"Normal: loading the module enables the mode with the chosen settings."
(skip-unless (file-directory-p test-auto-dim--fork))
(require 'auto-dim-config)
(unwind-protect
(progn
(should (bound-and-true-p auto-dim-other-buffers-mode))
(should (null auto-dim-other-buffers-dim-on-focus-out))
(should (eq t auto-dim-other-buffers-dim-on-switch-to-minibuffer))
(should-not (assq 'fringe auto-dim-other-buffers-affected-faces)))
(when (fboundp 'auto-dim-other-buffers-mode)
(auto-dim-other-buffers-mode -1))))
(defconst test-auto-dim--flat-dimmed-org-faces
(append (mapcar (lambda (n) (intern (format "org-level-%d" n)))
(number-sequence 1 8))
'(org-link org-tag
;; Document header: #+TITLE:, #+AUTHOR:, #+ARCHIVE: and their values.
org-document-title org-document-info org-document-info-keyword
org-meta-line
;; Inline markup and blocks.
org-code org-verbatim org-block-begin-line org-block-end-line
;; Drawers, properties, planning lines.
org-drawer org-special-keyword org-property-value org-date
;; Tables and the fold indicator.
org-table org-table-row org-ellipsis))
"Org faces that must flat-dim to the `auto-dim-other-buffers' face.
These carry structure, not status: nothing about them needs to stay
readable in a window the user is not looking at. Excluded on purpose are
`org-todo' and `org-priority' (keyword class -- see the -dim variant test
below) and `org-hide' (needs `auto-dim-other-buffers-hide' so folded text
stays hidden).")
(defconst test-auto-dim--flat-dimmed-link-faces
'(link link-visited)
"Built-in link faces that must flat-dim, distinct from `org-link'.
They fontify links in help, info, and customize buffers. Both carry
`:underline t', which survives the relative remap, so a dimmed link still
reads as a link.")
(defconst test-auto-dim--keyword-dim-variants
'((org-faces-todo . org-faces-todo-dim)
(org-faces-doing . org-faces-doing-dim)
(org-faces-priority-a . org-faces-priority-a-dim))
"Sample of keyword faces that must keep dedicated -dim variants.")
(ert-deftest test-auto-dim-config-org-structure-faces-flat-dim ()
"Normal: org heading, link, and tag faces remap to the flat dim face."
(skip-unless (file-directory-p test-auto-dim--fork))
(require 'auto-dim-config)
(dolist (face test-auto-dim--flat-dimmed-org-faces)
(let ((entry (assq face auto-dim-other-buffers-affected-faces)))
(should entry)
(should (eq 'auto-dim-other-buffers (car (cdr entry))))
(should (null (cdr (cdr entry)))))))
(ert-deftest test-auto-dim-config-link-faces-flat-dim ()
"Normal: the built-in `link' and `link-visited' faces flat-dim.
Without these, links in help, info, and customize buffers stay lit while
the rest of an unfocused window fades. `org-link' is a separate face and
is covered above."
(skip-unless (file-directory-p test-auto-dim--fork))
(require 'auto-dim-config)
(dolist (face test-auto-dim--flat-dimmed-link-faces)
(let ((entry (assq face auto-dim-other-buffers-affected-faces)))
(should entry)
(should (eq 'auto-dim-other-buffers (car (cdr entry))))
(should (null (cdr (cdr entry)))))))
(ert-deftest test-auto-dim-config-link-underline-survives-the-remap ()
"Boundary: the dim face sets no `:underline', so the link cue survives.
A relative remap layers the dim face over the base face, so an underline
the dim face does not specify falls through from `link'. If the theme ever
gives `auto-dim-other-buffers' an `:underline', dimmed links stop looking
like links and this test says so."
(skip-unless (file-directory-p test-auto-dim--fork))
(require 'auto-dim-config)
(should (eq 'unspecified
(face-attribute 'auto-dim-other-buffers :underline nil nil))))
(ert-deftest test-auto-dim-config-keyword-faces-keep-dim-variants ()
"Boundary: org TODO-keyword faces keep dedicated -dim variants, not flat dim.
Keyword status is scanned across unfocused windows, so it earns a variant;
heading colour does not. Guards the flat-dim change from over-reaching."
(skip-unless (file-directory-p test-auto-dim--fork))
(require 'auto-dim-config)
(dolist (pair test-auto-dim--keyword-dim-variants)
(let ((entry (assq (car pair) auto-dim-other-buffers-affected-faces)))
(should entry)
(should (eq (cdr pair) (car (cdr entry)))))))
(ert-deftest test-auto-dim-config-todo-priority-faces-not-flat-dimmed ()
"Boundary: `org-todo' and `org-priority' are never flat-dimmed.
They are keyword class. Dimming them would erase the status colour the
-dim variants exist to preserve, so they stay out of the flat-dim set."
(skip-unless (file-directory-p test-auto-dim--fork))
(require 'auto-dim-config)
(dolist (face '(org-todo org-priority))
(should-not (memq face test-auto-dim--flat-dimmed-org-faces))
(let ((entry (assq face auto-dim-other-buffers-affected-faces)))
(should-not (and entry (eq 'auto-dim-other-buffers (car (cdr entry))))))))
(ert-deftest test-auto-dim-config-org-hide-uses-hide-face ()
"Boundary: `org-hide' remaps to the -hide face, not the flat dim face.
Flat-dimming it would give folded text a visible foreground."
(skip-unless (file-directory-p test-auto-dim--fork))
(require 'auto-dim-config)
(let ((entry (assq 'org-hide auto-dim-other-buffers-affected-faces)))
(should entry)
(should (eq 'auto-dim-other-buffers-hide (car (cdr entry))))))
(ert-deftest test-auto-dim-config-never-dim-dashboard-exempts-dashboard ()
"Normal: the *dashboard* buffer is exempt from dimming."
(skip-unless (file-directory-p test-auto-dim--fork))
(require 'auto-dim-config)
(let* ((existed (get-buffer "*dashboard*"))
(buffer (or existed (get-buffer-create "*dashboard*"))))
(unwind-protect
(should (cj/auto-dim--never-dim-dashboard-p buffer))
(unless existed (kill-buffer buffer)))))
(ert-deftest test-auto-dim-config-never-dim-dashboard-near-miss-name-dims ()
"Boundary: a buffer whose name only resembles the dashboard is not exempt."
(skip-unless (file-directory-p test-auto-dim--fork))
(require 'auto-dim-config)
(let ((buffer (get-buffer-create "dashboard")))
(unwind-protect
(should-not (cj/auto-dim--never-dim-dashboard-p buffer))
(kill-buffer buffer))))
(ert-deftest test-auto-dim-config-never-dim-dashboard-other-buffer-dims ()
"Error: an ordinary buffer is not exempt from dimming."
(skip-unless (file-directory-p test-auto-dim--fork))
(require 'auto-dim-config)
(with-temp-buffer
(should-not (cj/auto-dim--never-dim-dashboard-p (current-buffer)))))
(provide 'test-auto-dim-config)
;;; test-auto-dim-config.el ends here
|
