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