diff options
| author | John Wiegley <johnw@newartisans.com> | 2008-08-29 05:49:23 -0400 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2008-08-29 05:49:23 -0400 |
| commit | 0fc0cec5095d8d40355e6b699b7bc25f0c31f413 (patch) | |
| tree | f7b18dec9b5030c621ed8f165d215d70b15f90d7 /chess-ics.el | |
| parent | 6eb126762c0032dc795facf0d319bebbc5641f6c (diff) | |
Rearranged some code just to make it easier to read.
Diffstat (limited to 'chess-ics.el')
| -rw-r--r-- | chess-ics.el | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/chess-ics.el b/chess-ics.el index 733793e..e5c2ccb 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -161,7 +161,8 @@ standard position). In those cases, this variable should be set to nil.") (failed-ics-parse . "Failed to parse ICS move string (%s): "))) (defconst chess-ics-style12-regexp - (rx (and "<12> " (group (repeat 8 (in "-pnbrqkPNBRQK"))) " " + (rx (and "<12> " + (group (repeat 8 (in "-pnbrqkPNBRQK"))) " " (group (repeat 8 (in "-pnbrqkPNBRQK"))) " " (group (repeat 8 (in "-pnbrqkPNBRQK"))) " " (group (repeat 8 (in "-pnbrqkPNBRQK"))) " " @@ -169,15 +170,21 @@ standard position). In those cases, this variable should be set to nil.") (group (repeat 8 (in "-pnbrqkPNBRQK"))) " " (group (repeat 8 (in "-pnbrqkPNBRQK"))) " " (group (repeat 8 (in "-pnbrqkPNBRQK"))) " " - (group (in "BW")) ? (group (and (? ?-) (in "0-7"))) ? - (group (and (? ?-) digit)) ? (group (and (? ?-) digit)) ? - (group (and (? ?-) digit)) ? (group (and (? ?-) digit)) ? + (group (in "BW")) ? + (group (and (? ?-) (in "0-7"))) ? + (group (and (? ?-) digit)) ? + (group (and (? ?-) digit)) ? + (group (and (? ?-) digit)) ? + (group (and (? ?-) digit)) ? (group (+ digit)) " " (group (+ digit)) " " - (group (+ (not (in " ")))) " " (group (+ (not (in " ")))) " " + (group (+ (not (in " ")))) " " + (group (+ (not (in " ")))) " " (group (and (? ?-) digit)) " " - (group (+ digit)) " " (group (+ digit)) " " - (group (+ digit)) " " (group (+ digit)) " " + (group (+ digit)) " " + (group (+ digit)) " " + (group (+ digit)) " " + (group (+ digit)) " " (group (and (? ?-) (+ digit))) " " (group (and (? ?-) (+ digit))) " " (group (+ digit)) " " |