diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-25 22:25:55 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-25 22:25:55 +0000 |
| commit | c32bc8f78d17728ae4a8fd52eda5d60dfaa6375f (patch) | |
| tree | 510b95d3bf791fc0d9ef62e110358e6a34537656 | |
| parent | 68157cc103685e1a6dfe1ff3e970e45cc0cba068 (diff) | |
*** no comment ***
| -rw-r--r-- | PLAN | 15 | ||||
| -rw-r--r-- | TODO | 3 | ||||
| -rw-r--r-- | chess-display.el | 4 |
3 files changed, 12 insertions, 10 deletions
@@ -9,9 +9,8 @@ chess-ply - Thus there will be a mirror set of chess-pos-has-keyword, etc., functions -chess-epd -- based on chess-fen, this will also be a database module for - accessing positions within an EPD file +chess-display +- there is no way to call flag right now chess-ics - detect draw/resign/retract, etc. @@ -22,21 +21,19 @@ chess-clock user to call-flag in order to win on time; note: the user should be allowed to try anyway, in case our clock has become out-of-sync with the server's -- when the clock goes under, it starts counting up! Need a "-0". chess-images - in a generic emacs, with a light background, there are white lines in wierd places on the chessboard -The PGN chapter of the manual is not fully representative of the -original, owing to the lack of subsubsubsection in texinfo. - BEFORE FINAL RELEASE use more asserts throughout the code break my dependency on cl -* profile -* mem profile + + profile + mem profile + elint docstring/texi checkdoc @@ -4,6 +4,9 @@ These are features scheduled for future 2.x releases. General Features +- Write chess-epd.el, which is based on chess-fen, and is also a + database module for accessing positions within an EPD file + - Make ( create variations in a display, and keys to move into and out of them. At the moment, variations are supported programmatically, but not in the UI. diff --git a/chess-display.el b/chess-display.el index 6bf858b..8c95d15 100644 --- a/chess-display.el +++ b/chess-display.el @@ -182,8 +182,10 @@ also view the same game." (setq white (chess-ply-keyword last-ply :white) black (chess-ply-keyword last-ply :black)))) (if (and white black) - (format "W %02d:%02d B %02d:%02d " + (format "W %s%02d:%02d B %s%02d:%02d " + (if (and (< white 0) (= 0 (floor white))) "-" "") (/ (floor white) 60) (% (abs (floor white)) 60) + (if (and (< black 0) (= 0 (floor black))) "-" "") (/ (floor black) 60) (% (abs (floor black)) 60))))) (defun chess-display-set-index (display index) |