cgit.sxemacs.org Git - riece/blob - lisp/riece.el

   1 ;;; riece.el --- IRC client for Emacsen
   2 ;; Copyright (C) 1998-2003 Daiki Ueno
   3
   4 ;; Author: Daiki Ueno <ueno@unixuser.org>
   5 ;; Created: 1998-09-28
   6 ;; Keywords: IRC, riece
   7
   8 ;; This file is part of Riece.
   9
  10 ;; This program is free software; you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation; either version 2, or (at your option)
  13 ;; any later version.
  14
  15 ;; This program is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  23 ;; Boston, MA 02110-1301, USA.
  24
  25 ;;; Code:
  26
  27 (require 'riece-display)
  28 (require 'riece-server)
  29 (require 'riece-compat)
  30 (require 'riece-commands)
  31 (require 'riece-addon)
  32 (require 'riece-signal)
  33
  34 (defvar riece-channel-list-mode-map (make-sparse-keymap))
  35 (defvar riece-user-list-mode-map (make-sparse-keymap))
  36
  37 (defvar riece-dialogue-mode-map
  38   (let ((keymap (make-keymap)))
  39     (suppress-keymap keymap 'nodigit)
  40     keymap))
  41
  42 (defvar riece-command-mode-map (make-keymap))
  43 (defvar riece-command-map (make-sparse-keymap))
  44
  45 (defvar riece-command-mode-syntax-table nil)
  46
  47 (put 'riece-command-mode 'mode-class 'special)
  48 (put 'riece-dialogue-mode 'mode-class 'special)
  49 (put 'riece-others-mode 'derived-mode-parent 'riece-dialogue-mode)
  50 (put 'riece-channel-list-mode 'mode-class 'special)
  51 (put 'riece-user-list-mode 'mode-class 'special)
  52 (put 'riece-channel-mode 'derived-mode-parent 'riece-dialogue-mode)
  53
  54 (defvar riece-buffer-alist
  55   '((riece-command-buffer "*Command*" riece-command-mode)
  56     (riece-dialogue-buffer "*Dialogue*" riece-dialogue-mode)
  57     (riece-others-buffer "*Others*" riece-others-mode)
  58     (riece-channel-list-buffer "*Channels*" riece-channel-list-mode)
  59     (riece-user-list-buffer " *Users*" riece-user-list-mode)
  60     (riece-temp-buffer " *Temp*")
  61     (riece-debug-buffer "*Debug*")))
  62
  63 (defvar riece-select-keys
  64   `("#" riece-command-switch-to-channel-by-number
  65     "1" riece-command-switch-to-channel-by-number-1
  66     "2" riece-command-switch-to-channel-by-number-2
  67     "3" riece-command-switch-to-channel-by-number-3
  68     "4" riece-command-switch-to-channel-by-number-4
  69     "5" riece-command-switch-to-channel-by-number-5
  70     "6" riece-command-switch-to-channel-by-number-6
  71     "7" riece-command-switch-to-channel-by-number-7
  72     "8" riece-command-switch-to-channel-by-number-8
  73     "9" riece-command-switch-to-channel-by-number-9
  74     "0" riece-command-switch-to-channel-by-number-10
  75     ,(concat riece-command-prefix "1")
  76     riece-command-switch-to-channel-by-number-11
  77     ,(concat riece-command-prefix "2")
  78     riece-command-switch-to-channel-by-number-12
  79     ,(concat riece-command-prefix "3")
  80     riece-command-switch-to-channel-by-number-13
  81     ,(concat riece-command-prefix "4")
  82     riece-command-switch-to-channel-by-number-14
  83     ,(concat riece-command-prefix "5")
  84     riece-command-switch-to-channel-by-number-15
  85     ,(concat riece-command-prefix "6")
  86     riece-command-switch-to-channel-by-number-16
  87     ,(concat riece-command-prefix "7")
  88     riece-command-switch-to-channel-by-number-17
  89     ,(concat riece-command-prefix "8")
  90     riece-command-switch-to-channel-by-number-18
  91     ,(concat riece-command-prefix "9")
  92     riece-command-switch-to-channel-by-number-19
  93     ,(concat riece-command-prefix "0")
  94     riece-command-switch-to-channel-by-number-20))
  95
  96 ;;; Keymap macros. -- borrowed from `gnus-util.el'.
  97 (defmacro riece-local-set-keys (&rest plist)
  98   "Set the keys in PLIST in the current keymap."
  99   `(riece-define-keys-1 (current-local-map) ',plist))
 100
 101 (defmacro riece-define-keys (keymap &rest plist)
 102   "Assign KEYMAP keys from PLIST."
 103   `(riece-define-keys-1 ',keymap ',plist))
 104
 105 (defmacro riece-define-keys-safe (keymap &rest plist)
 106   "Assign KEYMAP keys from PLIST without overwriting previous definitions."
 107   `(riece-define-keys-1 ',keymap ',plist t))
 108
 109 (put 'riece-define-keys 'lisp-indent-function 1)
 110 (put 'riece-define-keys-safe 'lisp-indent-function 1)
 111 (put 'riece-local-set-keys 'lisp-indent-function 1)
 112
 113 (defun riece-define-keys-1 (keymap plist &optional safe)
 114   "Assign KEYMAP keys from PLIST.
 115 If optional argument SAFE is nil, overwrite previous definitions."
 116   (unless keymap
 117     (error "Can't set keys in a null keymap"))
 118   (cond
 119    ((symbolp keymap)
 120     (setq keymap (symbol-value keymap)))
 121    ((keymapp keymap))
 122    ((listp keymap)
 123     (set (car keymap) nil)
 124     (define-prefix-command (car keymap))
 125     (define-key (symbol-value (nth 2 keymap))
 126       (if (symbolp (nth 1 keymap))
 127           (symbol-value (nth 1 keymap))
 128         (nth 1 keymap))
 129       (car keymap))
 130     (setq keymap (symbol-value (car keymap)))))
 131   (let (key)
 132     (while plist
 133       (if (symbolp (setq key (car plist)))
 134           (setq key (symbol-value key)))
 135       (setq plist (cdr plist))
 136       (if (or (not safe)
 137               (eq (lookup-key keymap key) 'undefined))
 138           (define-key keymap key (car plist))
 139         (car plist))
 140       (setq plist (cdr plist)))))
 141
 142 (when t
 143   (riece-define-keys riece-dialogue-mode-map
 144     "\177" scroll-down
 145     [delete] scroll-down
 146     [backspace] scroll-down
 147     [return] scroll-up
 148     " " scroll-up
 149     [home] beginning-of-buffer
 150     "$" end-of-buffer
 151     [end] end-of-buffer
 152     "/" riece-command-raw
 153     ">" end-of-buffer
 154     "<" beginning-of-buffer
 155     "^" riece-command-list-addons
 156     "\C-ta" riece-command-toggle-away
 157     "c" riece-command-select-command-buffer
 158     "f" riece-command-finger
 159     "\C-tf" riece-command-toggle-freeze
 160     "\C-to" riece-command-toggle-own-freeze
 161     "\C-tO" riece-command-toggle-others-buffer-mode
 162     "\C-tu" riece-command-toggle-user-list-buffer-mode
 163     "\C-tc" riece-command-toggle-channel-buffer-mode
 164     "\C-tC" riece-command-toggle-channel-list-buffer-mode
 165     "\C-tl" riece-command-change-layout
 166     "i" riece-command-invite
 167     "j" riece-command-join
 168     "\C-k" riece-command-kick
 169     "l" riece-command-list
 170     "M" riece-command-change-mode
 171     "n" riece-command-change-nickname
 172     "N" riece-command-names
 173     "o" other-window
 174     "O" riece-command-open-server
 175     "C" riece-command-close-server
 176     "M" riece-command-universal-server-name-argument
 177     "p" riece-command-enter-message-to-user
 178     "q" riece-command-quit
 179     "r" riece-command-configure-windows
 180     "s" riece-command-save-variables
 181     "x" riece-command-copy-region
 182     "t" riece-command-topic
 183     "w" riece-command-who
 184     "z" riece-command-suspend-resume)
 185
 186   (riece-define-keys riece-command-mode-map
 187     "\r" riece-command-enter-message
 188     [(control return)] riece-command-enter-message-as-notice
 189     [tab] riece-command-complete-user)
 190
 191   (riece-define-keys (riece-command-map riece-command-prefix
 192                                         riece-command-mode-map)
 193     "\177" riece-command-scroll-down
 194     [delete] riece-command-scroll-down
 195     [backspace] riece-command-scroll-down
 196     " " riece-command-scroll-up
 197     [home] riece-command-beginning-of-buffer
 198     "$" riece-command-end-of-buffer
 199     [end] riece-command-end-of-buffer
 200     ">" riece-command-next-channel
 201     "<" riece-command-previous-channel
 202     "\C-j" riece-command-next-channel
 203     "\C-n" riece-command-names
 204     "l" riece-command-list
 205     "\C-m" riece-command-change-mode
 206     "o" riece-command-set-operators
 207     "\C-p" riece-command-part
 208     "r" riece-command-configure-windows
 209     "v" riece-command-set-speakers
 210     "V" riece-version)
 211   (set-keymap-parent riece-command-map riece-dialogue-mode-map)
 212
 213   (riece-define-keys riece-user-list-mode-map
 214     "o" riece-command-set-operators
 215     "v" riece-command-set-voices
 216     "f" riece-command-finger
 217     " " riece-command-user-list-scroll-up
 218     "\177" riece-command-user-list-scroll-down
 219     [delete] riece-command-user-list-scroll-down
 220     [backspace] riece-command-user-list-scroll-down
 221     "c" riece-command-select-command-buffer)
 222
 223   (riece-define-keys riece-channel-list-mode-map
 224     ">" riece-command-next-channel
 225     "<" riece-command-previous-channel
 226     "o" other-window
 227     "c" riece-command-select-command-buffer)
 228
 229   (riece-define-keys-1 riece-dialogue-mode-map riece-select-keys)
 230   (riece-define-keys-1 riece-channel-list-mode-map riece-select-keys))
 231
 232 (defun riece-read-variables-files (&optional file)
 233   "Read variables FILEs."
 234   (or (file-directory-p riece-directory)
 235       (make-directory riece-directory))
 236   (let ((files (if file
 237                    (setq riece-variables-file file
 238                          riece-variables-files (list file))
 239                  riece-variables-files))
 240         (variables riece-saved-forms))
 241     (while files
 242       (condition-case nil
 243           (load (expand-file-name (car files)))
 244         (file-error nil))
 245       (setq files (cdr files)))
 246     (while variables
 247       (if (fboundp 'custom-reevaluate-setting)
 248           (custom-reevaluate-setting (car variables))
 249         (funcall (or (get (car variables) 'custom-set) 'set-default)
 250                  (car variables)
 251                  (eval (car (or (get (car variables) 'saved-value)
 252                                 (get (car variables) 'standard-value))))))
 253       (setq variables (cdr variables)))))
 254
 255 (defvar print-quoted)
 256 (defvar print-escape-multibyte)
 257 (defun riece-save-variables-files ()
 258   "Save current settings to `riece-saved-variables-file'."
 259   (message (riece-mcat "Saving %s...") riece-saved-variables-file)
 260   (with-temp-file riece-saved-variables-file
 261     (insert ";;; This file is generated automatically by " riece-version ".\n"
 262             ";;; Do not edit this file!\n\n")
 263     (let ((print-quoted t)
 264           (print-readably t)
 265           print-escape-multibyte
 266           print-level
 267           print-length
 268           (variables riece-saved-forms))
 269       (insert "(custom-set-variables\n")
 270       (while variables
 271         (insert " '")
 272         (prin1 `(,(car variables) ',(symbol-value (car variables)))
 273                (current-buffer))
 274         (insert "\n")
 275         (setq variables (cdr variables)))
 276       (insert ")")))
 277   (message (riece-mcat "Saving %s...done") riece-saved-variables-file)
 278   (setq riece-save-variables-are-dirty nil))
 279
 280 ;;;###autoload
 281 (defun riece (&optional confirm)
 282   "Connect to the IRC server and start chatting.
 283 If optional argument CONFIRM is non-nil, ask which IRC server to connect."
 284   (interactive "P")
 285   (riece-read-variables-files (if noninteractive
 286                                   (car command-line-args-left)))
 287   (run-hooks 'riece-after-load-startup-hook)
 288   (if (riece-server-opened)
 289       (riece-command-configure-windows)
 290     (modify-frame-parameters (selected-frame)
 291                              (list (cons 'riece-window-configuration
 292                                          (current-window-configuration))))
 293     (setq riece-addon-dependencies (riece-resolve-addons
 294                                     (copy-sequence riece-addons)))
 295     (let ((pointer riece-addon-dependencies))
 296       (while pointer
 297         (riece-insinuate-addon (car (car pointer)) riece-debug)
 298         (setq pointer (cdr pointer))))
 299     (if (or confirm (null riece-server))
 300         (setq riece-server (completing-read (riece-mcat "Server: ")
 301                                             riece-server-alist)))
 302     (if (stringp riece-server)
 303         (setq riece-server (riece-server-name-to-server riece-server)))
 304     (riece-create-buffers)
 305     (switch-to-buffer riece-command-buffer)
 306     (riece-display-connect-signals)
 307     (riece-redisplay-buffers)
 308     (riece-open-server riece-server "")
 309     ;; If no server process is available, exit.
 310     (if (null riece-server-process-alist)
 311         (riece-exit)
 312       (let ((server-list riece-startup-server-list))
 313         (while server-list
 314           (riece-command-open-server (car server-list))
 315           (setq server-list (cdr server-list))))
 316       (let ((channel-list riece-startup-channel-list)
 317             server)
 318         (while channel-list
 319           (setq server (riece-identity-server
 320                         (riece-parse-identity (car channel-list))))
 321           (unless (riece-server-opened server)
 322             (riece-command-open-server server))
 323           (setq channel-list (cdr channel-list))))
 324       (let ((pointer riece-addon-dependencies))
 325         (while pointer
 326           (unless (get (car (car pointer)) 'riece-addon-default-disabled)
 327             (riece-enable-addon (car (car pointer)) riece-debug))
 328           (setq pointer (cdr pointer))))
 329       (run-hooks 'riece-startup-hook)
 330       (message "%s" (substitute-command-keys
 331                      (riece-mcat "Type \\[describe-mode] for help"))))))
 332
 333 (defun riece-exit ()
 334   (if riece-save-variables-are-dirty
 335       (riece-save-variables-files))
 336   (while riece-buffer-list
 337     (if (and (get-buffer (car riece-buffer-list))
 338              (buffer-live-p (car riece-buffer-list)))
 339         (funcall riece-buffer-dispose-function (car riece-buffer-list)))
 340     (setq riece-buffer-list (cdr riece-buffer-list)))
 341   (riece-clear-signal-slots)
 342   (setq riece-server nil
 343         riece-current-channels nil
 344         riece-current-channel nil
 345         riece-channel-buffer nil
 346         riece-channel-buffer-alist nil
 347         riece-user-indicator nil
 348         riece-long-channel-indicator (riece-mcat "None")
 349         riece-channel-list-indicator (riece-mcat "No channel")
 350         riece-away-indicator "-"
 351         riece-operator-indicator "-"
 352         riece-channel-status-indicator "-"
 353         riece-freeze-indicator "-")
 354   (modify-frame-parameters (selected-frame)
 355                            (list (list 'riece-window-configuration)))
 356   (delete-other-windows)
 357   (run-hooks 'riece-exit-hook))
 358
 359 (defun riece-command-mode ()
 360   "Major mode for Riece.  Normal edit function are available.
 361 Typing Return or Linefeed enters the current line in the dialogue.
 362 The following special commands are available:
 363 For a list of the generic commands type \\[riece-command-generic] ? RET.
 364 \\{riece-command-mode-map}"
 365   (interactive)
 366   (kill-all-local-variables)
 367
 368   ;; Make `truncate-partial-width-windows' buffer local and set it to
 369   ;; nil.  This causes `truncate-lines' to directly control line
 370   ;; truncation.
 371   (make-local-variable 'truncate-partial-width-windows)
 372   (setq truncate-partial-width-windows nil)
 373
 374   (make-local-variable 'riece-mode-line-buffer-identification)
 375   (setq riece-away-indicator "-"
 376         riece-operator-indicator "-"
 377         riece-channel-status-indicator "-"
 378         major-mode 'riece-command-mode
 379         mode-name "Command"
 380         riece-mode-line-buffer-identification
 381         '("Riece: "
 382           riece-away-indicator
 383           riece-operator-indicator
 384           riece-channel-status-indicator
 385           " "
 386           riece-user-indicator
 387           " "
 388           riece-channel-indicator)
 389         mode-line-buffer-identification
 390         (riece-mode-line-buffer-identification
 391          riece-mode-line-buffer-identification)
 392         truncate-lines nil)
 393   (riece-simplify-mode-line-format)
 394   (use-local-map riece-command-mode-map)
 395
 396   (unless riece-command-mode-syntax-table
 397     (setq riece-command-mode-syntax-table
 398           (copy-syntax-table (syntax-table)))
 399     (set-syntax-table riece-command-mode-syntax-table)
 400     (let* ((chars "^[]{}'`")
 401            (length (length chars))
 402            (index 0))
 403       (while (< index length)
 404         (modify-syntax-entry (aref chars index) "w")
 405         (setq index (1+ index)))))
 406
 407   (run-hooks 'riece-command-mode-hook))
 408
 409 (defun riece-dialogue-mode ()
 410   "Major mode for displaying the IRC dialogue.
 411 All normal editing commands are turned off.
 412 Instead, these commands are available:
 413 \\{riece-dialogue-mode-map}"
 414   (kill-all-local-variables)
 415   (make-local-variable 'riece-freeze)
 416   (make-local-variable 'riece-freeze-indicator)
 417
 418   ;; Make `truncate-partial-width-windows' buffer local and set it to
 419   ;; nil.  This causes `truncate-lines' to directly control line truncation.
 420   (make-local-variable 'truncate-partial-width-windows)
 421   (setq truncate-partial-width-windows nil)
 422
 423   (make-local-variable 'riece-mode-line-buffer-identification)
 424   (setq riece-freeze riece-default-freeze
 425         riece-away-indicator "-"
 426         riece-operator-indicator "-"
 427         riece-channel-status-indicator "-"
 428         major-mode 'riece-dialogue-mode
 429         mode-name "Dialogue"
 430         riece-mode-line-buffer-identification
 431         '("Riece: "
 432           riece-away-indicator
 433           riece-operator-indicator
 434           riece-freeze-indicator
 435           riece-channel-status-indicator
 436           " "
 437           riece-channel-list-indicator " ")
 438         mode-line-buffer-identification
 439         (riece-mode-line-buffer-identification
 440          riece-mode-line-buffer-identification)
 441         truncate-lines nil
 442         buffer-read-only t)
 443   (riece-simplify-mode-line-format)
 444   (use-local-map riece-dialogue-mode-map)
 445   (buffer-disable-undo)
 446   (run-hooks 'riece-dialogue-mode-hook))
 447
 448 (define-derived-mode riece-others-mode riece-dialogue-mode
 449   "Others"
 450   "Major mode for displaying the IRC others message except current channel.
 451 All normal editing commands are turned off.
 452 Instead, these commands are available:
 453 \\{riece-others-mode-map}")
 454
 455 (define-derived-mode riece-channel-mode riece-dialogue-mode
 456   "Channel"
 457   "Major mode for displaying the IRC current channel buffer.
 458 All normal editing commands are turned off.
 459 Instead, these commands are available:
 460 \\{riece-channel-mode-map}"
 461   (make-local-variable 'riece-channel-buffer-window-point)
 462   (make-local-variable 'riece-mode-line-buffer-identification)
 463   (setq riece-mode-line-buffer-identification
 464         '("Riece: "
 465           riece-away-indicator
 466           riece-operator-indicator
 467           riece-freeze-indicator
 468           riece-channel-status-indicator
 469           " "
 470           riece-long-channel-indicator)
 471         mode-line-buffer-identification
 472         (riece-mode-line-buffer-identification
 473          riece-mode-line-buffer-identification)))
 474
 475 (defun riece-channel-list-mode ()
 476   "Major mode for displaying channel list.
 477 All normal editing commands are turned off."
 478   (kill-all-local-variables)
 479   (buffer-disable-undo)
 480
 481   ;; Make `truncate-partial-width-windows' buffer local and set it to
 482   ;; nil.  This causes `truncate-lines' to directly control line truncation.
 483   (make-local-variable 'truncate-partial-width-windows)
 484   (setq truncate-partial-width-windows nil)
 485
 486   (make-local-variable 'riece-mode-line-buffer-identification)
 487   (setq major-mode 'riece-channel-list-mode
 488         mode-name "Channels"
 489         riece-mode-line-buffer-identification '("Riece: ")
 490         mode-line-buffer-identification
 491         (riece-mode-line-buffer-identification
 492          riece-mode-line-buffer-identification)
 493         truncate-lines t
 494         buffer-read-only t)
 495   (riece-make-local-hook 'riece-update-buffer-functions)
 496   (add-hook 'riece-update-buffer-functions
 497             'riece-update-channel-list-buffer nil t)
 498   (use-local-map riece-channel-list-mode-map)
 499   (run-hooks 'riece-channel-list-mode-hook))
 500
 501 (defun riece-user-list-mode ()
 502   "Major mode for displaying members in the IRC current channel buffer.
 503 All normal editing commands are turned off.
 504 Instead, these commands are available:
 505 \\{riece-user-list-mode-map}"
 506   (kill-all-local-variables)
 507   (buffer-disable-undo)
 508
 509   ;; Make `truncate-partial-width-windows' buffer local and set it to
 510   ;; nil.  This causes `truncate-lines' to directly control line truncation.
 511   (make-local-variable 'truncate-partial-width-windows)
 512   (setq truncate-partial-width-windows nil)
 513
 514   (make-local-variable 'riece-mode-line-buffer-identification)
 515   (setq major-mode 'riece-user-list-mode
 516         mode-name "Users"
 517         riece-mode-line-buffer-identification
 518         '("Riece: " riece-long-channel-indicator " ")
 519         mode-line-buffer-identification
 520         (riece-mode-line-buffer-identification
 521          riece-mode-line-buffer-identification)
 522         truncate-lines t
 523         buffer-read-only t)
 524   (if (boundp 'transient-mark-mode)
 525       (set (make-local-variable 'transient-mark-mode) t))
 526   (riece-make-local-hook 'riece-update-buffer-functions)
 527   (add-hook 'riece-update-buffer-functions
 528             'riece-update-user-list-buffer nil t)
 529   (use-local-map riece-user-list-mode-map)
 530   (run-hooks 'riece-user-list-mode-hook))
 531
 532 (defun riece-create-buffers ()
 533   (let ((alist riece-buffer-alist))
 534     (while alist
 535       (save-excursion
 536         (set-buffer (apply #'riece-get-buffer-create
 537                            (cdr (car alist))))
 538         (set (car (car alist)) (current-buffer))
 539         (unless (or (null (nth 2 (car alist)))
 540                     (eq major-mode (nth 2 (car alist))))
 541           (funcall (nth 2 (car alist))))
 542         (setq alist (cdr alist))))))
 543
 544 (defvar reporter-prompt-for-summary-p)
 545 (defun riece-submit-bug-report (&optional recent-messages recent-keys)
 546   "Submit via mail a bug report on Riece."
 547   ;; This strange form ensures that (recent-keys) is the value before
 548   ;; the bug subject string is read.
 549   (interactive (list (riece-recent-messages 20) (recent-keys)))
 550   (message "Querying server version...")
 551   (let ((pointer riece-server-process-alist)
 552         nickname)
 553     (while pointer
 554       (when (riece-server-process-opened (cdr (car pointer)))
 555         (process-send-string (cdr (car pointer)) "VERSION\r\n")
 556         (if (setq nickname
 557                   (with-current-buffer (process-buffer (cdr (car pointer)))
 558                     riece-real-nickname))
 559             (process-send-string
 560              (cdr (car pointer))
 561              (format "PRIVMSG %s :\1VERSION\1\r\n" nickname))))
 562       (setq pointer (cdr pointer))))
 563   (sit-for 3)
 564   (message "Querying server version...done")
 565   (require 'reporter)
 566   (let ((reporter-prompt-for-summary-p t))
 567     (unless riece-debug
 568       (error "Please turn on riece-debug and restart Riece."))
 569     (reporter-submit-bug-report
 570      "liece@unixuser.org"
 571      (riece-version)
 572      '(riece-debug)
 573      nil
 574      nil
 575      "This bug report will be sent to the Riece Development Team,
 576 not to your local site managers!!
 577
 578 Please write in Japanese or English, because the Riece maintainers do
 579 not have translators to read other languages for them.
 580
 581 Please describe as succinctly as possible:
 582 \t- What happened.
 583 \t- What you thought should have happened.
 584 \t- Precisely what you were doing at the time.
 585
 586 Also include a reliable recipe for triggering the bug, as well as
 587 any lisp back-traces that you may have.
 588 \(setq stack-trace-on-error t\), or \(setq debug-on-error t\) if you
 589 are familiar with the debugger, to get a lisp back-trace.")
 590     (delete-other-windows)
 591     (save-excursion
 592       (goto-char (point-max))
 593       (insert
 594        "\nAdd-on state:\n"
 595        "------------\n"
 596        (save-window-excursion
 597          (save-excursion
 598            (riece-command-list-addons)
 599            (search-forward "\n\n")
 600            (buffer-substring (point-min) (point)))))
 601       (insert "Recent messages from servers:\n"
 602               "--------------------------")
 603       (let ((pointer riece-server-process-alist))
 604         (while pointer
 605           (insert "\n- \"" (car (car pointer)) "\", \n"
 606                   (format "%S" (if (equal (car (car pointer)) "")
 607                                    riece-server
 608                                  (cdr (assoc (car (car pointer))
 609                                              riece-server-alist))))
 610                   "\n"
 611                   (if (riece-server-process-opened (cdr (car pointer)))
 612                       (save-excursion
 613                         (set-buffer (process-buffer (cdr (car pointer))))
 614                         (goto-char (point-max))
 615                         (beginning-of-line -60)
 616                         (buffer-substring (point) (point-max)))
 617                     "(closed server)"))
 618           (setq pointer (cdr pointer))))
 619       (insert "\n\nRecent debug messages:\n"
 620               "-----------------------------------\n"
 621               (with-current-buffer riece-debug-buffer
 622                 (buffer-string)))
 623       ;; Insert recent keystrokes.
 624       (insert "\n\nRecent keystrokes:\n"
 625               "-----------------\n\n")
 626       (let ((before-keys (point)))
 627         (insert (key-description recent-keys))
 628         (save-restriction
 629           (narrow-to-region before-keys (point))
 630           (goto-char before-keys)
 631           (while (progn (move-to-column 50) (not (eobp)))
 632             (search-forward " " nil t)
 633             (insert "\n"))))
 634       ;; Insert recent minibuffer messages.
 635       (insert "\n\nRecent messages (most recent first):\n"
 636               "-----------------------------------\n"
 637               recent-messages))))
 638
 639 (provide 'riece)
 640
 641 ;;; riece.el ends here