166 |
face)) |
face)) |
167 |
|
|
168 |
(defun gamegrid-make-color-tty-face (color) |
(defun gamegrid-make-color-tty-face (color) |
169 |
(let* ((hex (gamegrid-color color 1.0)) |
(let* ((color-str (symbol-value color)) |
170 |
(name (intern (format "gamegrid-color-tty-face-%s" hex))) |
(name (intern (format "gamegrid-color-tty-face-%s" color-str))) |
171 |
(face (make-face name))) |
(face (make-face name))) |
172 |
(gamegrid-setup-face face color) |
(gamegrid-setup-face face color-str) |
173 |
face)) |
face)) |
174 |
|
|
175 |
(defun gamegrid-make-grid-x-face () |
(defun gamegrid-make-grid-x-face () |
190 |
(let* ((hex (gamegrid-color color 1.0)) |
(let* ((hex (gamegrid-color color 1.0)) |
191 |
(name (intern (format "gamegrid-color-x-face-%s" hex))) |
(name (intern (format "gamegrid-color-x-face-%s" hex))) |
192 |
(face (make-face name))) |
(face (make-face name))) |
193 |
(gamegrid-setup-face face (gamegrid-color color 1.0)) |
(gamegrid-setup-face face hex) |
194 |
face)) |
face)) |
195 |
|
|
196 |
(defun gamegrid-make-face (data-spec-list color-spec-list) |
(defun gamegrid-make-face (data-spec-list color-spec-list) |
257 |
(let ((window-system-p |
(let ((window-system-p |
258 |
(or (and (fboundp 'console-on-window-system-p) |
(or (and (fboundp 'console-on-window-system-p) |
259 |
(console-on-window-system-p)) |
(console-on-window-system-p)) |
260 |
|
(and (fboundp 'display-color-p) |
261 |
|
(display-color-p)) |
262 |
window-system))) |
window-system))) |
263 |
(cond ((and gamegrid-use-glyphs |
(cond ((and gamegrid-use-glyphs |
264 |
window-system-p |
window-system-p |