diff options
| author | Mario Lang <mlang@delysid.org> | 2014-04-17 08:28:32 +0200 |
|---|---|---|
| committer | Mario Lang <mlang@delysid.org> | 2014-04-17 08:28:32 +0200 |
| commit | 6f61ce560a5c6fc1e8845640e7b073000d181e9e (patch) | |
| tree | ab5153589f82d86bb1e274ef476fe2756ff2ccc4 /chess-ics.el | |
| parent | 9fd14288538d25613070e5bdd8c5e0ef8818eba9 (diff) | |
chess-ics.el: Add guest login support for chess.net.
Diffstat (limited to 'chess-ics.el')
| -rw-r--r-- | chess-ics.el | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/chess-ics.el b/chess-ics.el index aa1afff..e3eed02 100644 --- a/chess-ics.el +++ b/chess-ics.el @@ -38,8 +38,8 @@ (defcustom chess-ics-server-list '(("freechess.org" 5000) ("chess.unix-ag.uni-kl.de" 5000) - ("chess.mds.mdh.se" 5000) - ("chessclub.com" 5000)) + ("chessclub.com" 5000) + ("chess.net" 5000)) "A list of servers to connect to. The format of each entry is: @@ -238,6 +238,12 @@ standard position). In those cases, this variable should be set to nil.") (lambda () (chess-ics-send "") 'once))) + (cons "Press return to enter chess.net as \"\\([^\"]+\\)\":" + (function + (lambda () + (setq chess-ics-handle (match-string 1)) + (chess-ics-send "") + 'once))) (cons "%\\s-*$" (function (lambda () @@ -755,10 +761,12 @@ This function should be put on `comint-preoutput-filter-functions'." (inhibit-redisplay t)) (when (buffer-live-p buf) (with-current-buffer buf - (setq tabulated-list-entries - (cl-remove-if (lambda (entry) (member (car entry) ids)) - tabulated-list-entries)) - (tabulated-list-revert)))))) + (let ((old-length (length tabulated-list-entries))) + (setq tabulated-list-entries + (cl-remove-if (lambda (entry) (member (car entry) ids)) + tabulated-list-entries)) + (when (/= (length tabulated-list-entries) old-length) + (tabulated-list-revert)))))))) string) (make-variable-buffer-local 'comint-preoutput-filter-functions) |