diff options
| -rw-r--r-- | chess-game.el | 3 | ||||
| -rw-r--r-- | chess-link.el | 2 | ||||
| -rw-r--r-- | chess-pos.el | 3 |
3 files changed, 8 insertions, 0 deletions
diff --git a/chess-game.el b/chess-game.el index af64241..995e741 100644 --- a/chess-game.el +++ b/chess-game.el @@ -166,6 +166,9 @@ matches." (defsubst chess-game-to-string (game &optional indented) (chess-game-to-pgn game indented t)) +(defsubst chess-game-from-string (pgn) + (chess-pgn-to-game pgn)) + (defun chess-game-create (&optional position tags) "Create a new chess game object. diff --git a/chess-link.el b/chess-link.el index 13a9911..47e58e8 100644 --- a/chess-link.el +++ b/chess-link.el @@ -50,6 +50,8 @@ engine, and the computer the second engine." (game (chess-game-create))) (chess-game-set-data game 'my-color my-color) (chess-display-set-game display game) + (chess-display-set-main display) + (chess-display-disable-popup display) (condition-case err (when (and (require first-engine-type) (require second-engine-type)) diff --git a/chess-pos.el b/chess-pos.el index d24e206..fdc5f6d 100644 --- a/chess-pos.el +++ b/chess-pos.el @@ -231,6 +231,9 @@ color will do." (defsubst chess-pos-to-string (position &optional full) (chess-pos-to-fen position full)) +(defsubst chess-pos-from-string (fen) + (chess-fen-to-pos fen)) + (defconst chess-pos-piece-values '((?p . 1) (?n . 3) |