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