From 4b28b3327a5ceff5b0c19e74cd1f8fb7ca4c49a6 Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Sat, 10 Jan 2004 16:16:19 +0000 Subject: a change to the faces and a fix for chess-plain-spacing > 0 and file naming, all from kanaldrache, thanks --- chess-plain.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/chess-plain.el b/chess-plain.el index c738e0c..94e3a53 100644 --- a/chess-plain.el +++ b/chess-plain.el @@ -72,14 +72,14 @@ modify `chess-plain-piece-chars' to avoid real confusion.)" :type 'integer) (defface chess-plain-black-face - '((((class color) (background light)) (:foreground "Green")) + '((((class color) (background light)) (:foreground "Black")) (((class color) (background dark)) (:foreground "Green")) (t (:bold t))) "*The face used for black pieces on the ASCII display." :group 'chess-plain) (defface chess-plain-white-face - '((((class color) (background light)) (:foreground "Yellow")) + '((((class color) (background light)) (:foreground "Blue")) (((class color) (background dark)) (:foreground "Yellow")) (t (:bold t))) "*The face used for white pieces on the ASCII display." @@ -190,7 +190,10 @@ PERSPECTIVE is t for white or nil for black." (make-string (+ 8 (* 7 chess-plain-spacing)) (nth 6 chess-plain-border-chars)) (nth 7 chess-plain-border-chars) ?\n - ? ? (if (not inverted) "abcdefgh" "hgfedcba"))) + ? ? + (let ((string (if (not inverted) "abcdefgh" "hgfedcba"))) + (mapconcat 'string (string-to-list string) + (make-string chess-plain-spacing ? ))))) (set-buffer-modified-p nil) (goto-char pos)))) -- cgit v1.2.3