code.delx.au - gnu-emacs-elpa/blob - chess-log.el

   1 ;;; chess-log.el --- Log chess events, as an aid to debugging
   2
   3 ;; Copyright (C) 2014 Free Software Foundation, Inc.
   4
   5 ;; This is free software; you can redistribute it and/or modify it under
   6 ;; the terms of the GNU General Public License as published by the Free
   7 ;; Software Foundation; either version 3, or (at your option) any later
   8 ;; version.
   9 ;;
  10 ;; This is distributed in the hope that it will be useful, but WITHOUT
  11 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  12 ;; FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  13 ;; for more details.
  14 ;;
  15 ;; You should have received a copy of the GNU General Public License
  16 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  17
  18 ;;; Commentary:
  19
  20 ;;; Code:
  21
  22 (require 'chess-module)
  23
  24 (defgroup chess-log nil
  25   "Code for logging chess events."
  26   :group 'chess)
  27
  28 (defun chess-log (&rest args)
  29   (with-current-buffer (get-buffer-create "*Chess Log*")
  30     (insert (apply 'format args) ?\n)))
  31
  32 (provide 'chess-log)
  33
  34 ;;; chess-log.el ends here