diff options
Diffstat (limited to 'chess-ply.el')
| -rw-r--r-- | chess-ply.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/chess-ply.el b/chess-ply.el index 1bfbfcf..750e8b2 100644 --- a/chess-ply.el +++ b/chess-ply.el @@ -44,6 +44,7 @@ ;;; Code: (require 'chess-pos) +(require 'chess-algebraic) (defgroup chess-ply nil "Routines for manipulating chess plies." @@ -98,6 +99,12 @@ (apply 'chess-pos-move (chess-pos-copy (chess-ply-pos ply)) (chess-ply-changes ply))) +(defsubst chess-ply-to-string (ply &optional long) + (chess-ply-to-algebraic ply long)) + +(defsubst chess-ply-from-string (position move) + (chess-algebraic-to-ply position move)) + (defconst chess-piece-name-table '(("queen" . ?q) ("rook" . ?r) |