|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T c
Length: 755 (0x2f3)
Types: TextFile
Names: »convert.el«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─⟦this⟧ »EUUGD11/gnu-31mar87/chess/convert.el«
;; This is handy for putting in games using xchess -i, then converting
;; them over to something the gnuchess book routines can parse.
(defun convert-xchess-to-gnuchess ()
"Converts rest of buffer, containing xchess game listings, into gnuchess
format."
(interactive)
(beginning-of-line)
(while (not (eobp))
(cond ((looking-at "[ 0-9][ 0-9]\\. ")
(delete-horizontal-space)
(forward-word 1)
(delete-char 1) ; period
(forward-word 1) ; after first move
(delete-char 12) ; ?, !, +, or !!!
(if (not (looking-at " [a-h][1-8][a-h][1-8]"))
(delete-horizontal-space)
(forward-word 1)
(delete-char 6)
(delete-horizontal-space))
(forward-line 1)
(beginning-of-line))
(t (kill-line 1)))))