From 62c13bcfa1933274be856ac5840a933bbaca5f27 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Mon, 22 Apr 2002 19:23:45 +0000 Subject: Bug fixes and reducing the TODO list. --- chess-ics1.el | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) (limited to 'chess-ics1.el') diff --git a/chess-ics1.el b/chess-ics1.el index 4d0d35c..6b2aa9c 100644 --- a/chess-ics1.el +++ b/chess-ics1.el @@ -29,11 +29,16 @@ "Face to use for highlighting pieces that have been selected." :group 'chess-ics1) -(defcustom chess-ics1-popup-function 'chess-display-popup-in-window +(defcustom chess-ics1-popup-function 'chess-ics1-popup "The function used to popup a chess-ics1 display." :type 'function :group 'chess-ics1) +(defcustom chess-ics1-separate-frame nil + "If non-nil, display the chessboard in its own frame." + :type 'boolean + :group 'chess-ics1) + ;;; Code: (defun chess-ics1-handler (event &rest args) @@ -53,6 +58,11 @@ ((eq event 'highlight) (apply 'chess-ics1-highlight args)))) +(defun chess-ics1-popup () + (if chess-ics1-separate-frame + (chess-display-popup-in-frame 21 43 nil t) + (chess-display-popup-in-window))) + (defsubst chess-ics1-piece-text (piece) (let ((p (char-to-string piece))) (add-text-properties 0 1 (list 'face (if (> piece ?a) @@ -66,7 +76,8 @@ (let ((inhibit-redisplay t)) (goto-char pos) (delete-char 3) - (insert ? (chess-ics1-piece-text piece) ? )))) + (insert ? (chess-ics1-piece-text piece) ? ) + (add-text-properties pos (point) (list 'chess-coord index))))) (defun chess-ics1-draw (position perspective) "Draw the given POSITION from PERSPECTIVE's point of view. -- cgit v1.2.3