From 0fc0cec5095d8d40355e6b699b7bc25f0c31f413 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 29 Aug 2008 05:49:23 -0400 Subject: Rearranged some code just to make it easier to read. --- chess-ics.el | 21 ++++++++++++++------- 1 file 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)) " " -- cgit v1.2.3