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     (while files
 243       (condition-case nil
 244           (load (expand-file-name (car files)))
 245         (file-error nil))
 246       (setq files (cdr files)))))
 247
 248 (defvar print-quoted)
 249 (defvar print-escape-multibyte)
 250 (defun riece-save-variables-files ()
 251   "Save current settings to `riece-saved-variables-file'."
 252   (message (riece-mcat "Saving %s...") riece-saved-variables-file)
 253   (with-temp-file riece-saved-variables-file
 254     (insert ";;; This file is generated automatically by " riece-version ".\n"
 255             ";;; Do not edit this file!\n\n")
 256     (let ((print-quoted t)
 257           (print-readably t)
 258           print-escape-multibyte
 259           print-level
 260           print-length
 261           (variables riece-saved-forms))
 262       (insert "(custom-set-variables\n")
 263       (while variables
 264         (insert " '")
 265         (prin1 `(,(car variables) ,(symbol-value (car variables)))
 266                (current-buffer))
 267         (insert "\n")
 268         (setq variables (cdr variables)))
 269       (insert ")")))
 270   (message (riece-mcat "Saving %s...done") riece-saved-variables-file)
 271   (setq riece-save-variables-are-dirty nil))
 272
 273 ;;;###autoload
 274 (defun riece (&optional confirm)
 275   "Connect to the IRC server and start chatting.
 276 If optional argument CONFIRM is non-nil, ask which IRC server to connect."
 277   (interactive "P")
 278   (riece-read-variables-files (if noninteractive
 279                                   (car command-line-args-left)))
 280   (run-hooks 'riece-after-load-startup-hook)
 281   (if (riece-server-opened)
 282       (riece-command-configure-windows)
 283     (modify-frame-parameters (selected-frame)
 284                              (list (cons 'riece-window-configuration
 285                                          (current-window-configuration))))
 286     (setq riece-addon-dependencies (riece-resolve-addons
 287                                     (copy-sequence riece-addons)))
 288     (let ((pointer riece-addon-dependencies))
 289       (while pointer
 290         (riece-insinuate-addon (car (car pointer)) riece-debug)
 291         (setq pointer (cdr pointer))))
 292     (if (or confirm (null riece-server))
 293         (setq riece-server (completing-read (riece-mcat "Server: ")
 294                                             riece-server-alist)))
 295     (if (stringp riece-server)
 296         (setq riece-server (riece-server-name-to-server riece-server)))
 297     (riece-create-buffers)
 298     (switch-to-buffer riece-command-buffer)
 299     (riece-display-connect-signals)
 300     (riece-redisplay-buffers)
 301     (riece-open-server riece-server "")
 302     ;; If no server process is available, exit.
 303     (if (null riece-server-process-alist)
 304         (riece-exit)
 305       (let ((server-list riece-startup-server-list))
 306         (while server-list
 307           (riece-command-open-server (car server-list))
 308           (setq server-list (cdr server-list))))
 309       (let ((channel-list riece-startup-channel-list)
 310             server)
 311         (while channel-list
 312           (setq server (riece-identity-server
 313                         (riece-parse-identity (car channel-list))))
 314           (unless (riece-server-opened server)
 315             (riece-command-open-server server))
 316           (setq channel-list (cdr channel-list))))
 317       (let ((pointer riece-addon-dependencies))
 318         (while pointer
 319           (unless (get (car (car pointer)) 'riece-addon-default-disabled)
 320             (riece-enable-addon (car (car pointer)) riece-debug))
 321           (setq pointer (cdr pointer))))
 322       (run-hooks 'riece-startup-hook)
 323       (message "%s" (substitute-command-keys
 324                      (riece-mcat "Type \\[describe-mode] for help"))))))
 325
 326 (defun riece-exit ()
 327   (if riece-save-variables-are-dirty
 328       (riece-save-variables-files))
 329   (while riece-buffer-list
 330     (if (and (get-buffer (car riece-buffer-list))
 331              (buffer-live-p (car riece-buffer-list)))
 332         (funcall riece-buffer-dispose-function (car riece-buffer-list)))
 333     (setq riece-buffer-list (cdr riece-buffer-list)))
 334   (riece-clear-signal-slots)
 335   (setq riece-server nil
 336         riece-current-channels nil
 337         riece-current-channel nil
 338         riece-channel-buffer nil
 339         riece-channel-buffer-alist nil
 340         riece-user-indicator nil
 341         riece-long-channel-indicator (riece-mcat "None")
 342         riece-channel-list-indicator (riece-mcat "No channel")
 343         riece-away-indicator "-"
 344         riece-operator-indicator "-"
 345         riece-channel-status-indicator "-"
 346         riece-freeze-indicator "-")
 347   (modify-frame-parameters (selected-frame)
 348                            (list (list 'riece-window-configuration)))
 349   (delete-other-windows)
 350   (run-hooks 'riece-exit-hook))
 351
 352 (defun riece-command-mode ()
 353   "Major mode for Riece.  Normal edit function are available.
 354 Typing Return or Linefeed enters the current line in the dialogue.
 355 The following special commands are available:
 356 For a list of the generic commands type \\[riece-command-generic] ? RET.
 357 \\{riece-command-mode-map}"
 358   (interactive)
 359   (kill-all-local-variables)
 360
 361   ;; Make `truncate-partial-width-windows' buffer local and set it to
 362   ;; nil.  This causes `truncate-lines' to directly control line
 363   ;; truncation.
 364   (make-local-variable 'truncate-partial-width-windows)
 365   (setq truncate-partial-width-windows nil)
 366
 367   (make-local-variable 'riece-mode-line-buffer-identification)
 368   (setq riece-away-indicator "-"
 369         riece-operator-indicator "-"
 370         riece-channel-status-indicator "-"
 371         major-mode 'riece-command-mode
 372         mode-name "Command"
 373         riece-mode-line-buffer-identification
 374         '("Riece: "
 375           riece-away-indicator
 376           riece-operator-indicator
 377           riece-channel-status-indicator
 378           " "
 379           riece-user-indicator
 380           " "
 381           riece-channel-indicator)
 382         mode-line-buffer-identification
 383         (riece-mode-line-buffer-identification
 384          riece-mode-line-buffer-identification)
 385         truncate-lines nil)
 386   (riece-simplify-mode-line-format)
 387   (use-local-map riece-command-mode-map)
 388
 389   (unless riece-command-mode-syntax-table
 390     (setq riece-command-mode-syntax-table
 391           (copy-syntax-table (syntax-table)))
 392     (set-syntax-table riece-command-mode-syntax-table)
 393     (mapcar
 394      (lambda (c) (modify-syntax-entry c "w"))
 395      "^[]{}'`"))
 396
 397   (run-hooks 'riece-command-mode-hook))
 398
 399 (defun riece-dialogue-mode ()
 400   "Major mode for displaying the IRC dialogue.
 401 All normal editing commands are turned off.
 402 Instead, these commands are available:
 403 \\{riece-dialogue-mode-map}"
 404   (kill-all-local-variables)
 405   (make-local-variable 'riece-freeze)
 406   (make-local-variable 'riece-freeze-indicator)
 407
 408   ;; Make `truncate-partial-width-windows' buffer local and set it to
 409   ;; nil.  This causes `truncate-lines' to directly control line truncation.
 410   (make-local-variable 'truncate-partial-width-windows)
 411   (setq truncate-partial-width-windows nil)
 412
 413   (make-local-variable 'riece-mode-line-buffer-identification)
 414   (setq riece-freeze riece-default-freeze
 415         riece-away-indicator "-"
 416         riece-operator-indicator "-"
 417         riece-channel-status-indicator "-"
 418         major-mode 'riece-dialogue-mode
 419         mode-name "Dialogue"
 420         riece-mode-line-buffer-identification
 421         '("Riece: "
 422           riece-away-indicator
 423           riece-operator-indicator
 424           riece-freeze-indicator
 425           riece-channel-status-indicator
 426           " "
 427           riece-channel-list-indicator " ")
 428         mode-line-buffer-identification
 429         (riece-mode-line-buffer-identification
 430          riece-mode-line-buffer-identification)
 431         truncate-lines nil
 432         buffer-read-only t)
 433   (riece-simplify-mode-line-format)
 434   (use-local-map riece-dialogue-mode-map)
 435   (buffer-disable-undo)
 436   (run-hooks 'riece-dialogue-mode-hook))
 437
 438 (define-derived-mode riece-others-mode riece-dialogue-mode
 439   "Others"
 440   "Major mode for displaying the IRC others message except current channel.
 441 All normal editing commands are turned off.
 442 Instead, these commands are available:
 443 \\{riece-others-mode-map}")
 444
 445 (define-derived-mode riece-channel-mode riece-dialogue-mode
 446   "Channel"
 447   "Major mode for displaying the IRC current channel buffer.
 448 All normal editing commands are turned off.
 449 Instead, these commands are available:
 450 \\{riece-channel-mode-map}"
 451   (make-local-variable 'riece-channel-buffer-window-point)
 452   (make-local-variable 'riece-mode-line-buffer-identification)
 453   (setq riece-mode-line-buffer-identification
 454         '("Riece: "
 455           riece-away-indicator
 456           riece-operator-indicator
 457           riece-freeze-indicator
 458           riece-channel-status-indicator
 459           " "
 460           riece-long-channel-indicator)
 461         mode-line-buffer-identification
 462         (riece-mode-line-buffer-identification
 463          riece-mode-line-buffer-identification)))
 464
 465 (defun riece-channel-list-mode ()
 466   "Major mode for displaying channel list.
 467 All normal editing commands are turned off."
 468   (kill-all-local-variables)
 469   (buffer-disable-undo)
 470
 471   ;; Make `truncate-partial-width-windows' buffer local and set it to
 472   ;; nil.  This causes `truncate-lines' to directly control line truncation.
 473   (make-local-variable 'truncate-partial-width-windows)
 474   (setq truncate-partial-width-windows nil)
 475
 476   (make-local-variable 'riece-mode-line-buffer-identification)
 477   (setq major-mode 'riece-channel-list-mode
 478         mode-name "Channels"
 479         riece-mode-line-buffer-identification '("Riece: ")
 480         mode-line-buffer-identification
 481         (riece-mode-line-buffer-identification
 482          riece-mode-line-buffer-identification)
 483         truncate-lines t
 484         buffer-read-only t)
 485   (make-local-hook 'riece-update-buffer-functions)
 486   (add-hook 'riece-update-buffer-functions
 487             'riece-update-channel-list-buffer nil t)
 488   (use-local-map riece-channel-list-mode-map)
 489   (run-hooks 'riece-channel-list-mode-hook))
 490
 491 (defun riece-user-list-mode ()
 492   "Major mode for displaying members in the IRC current channel buffer.
 493 All normal editing commands are turned off.
 494 Instead, these commands are available:
 495 \\{riece-user-list-mode-map}"
 496   (kill-all-local-variables)
 497   (buffer-disable-undo)
 498
 499   ;; Make `truncate-partial-width-windows' buffer local and set it to
 500   ;; nil.  This causes `truncate-lines' to directly control line truncation.
 501   (make-local-variable 'truncate-partial-width-windows)
 502   (setq truncate-partial-width-windows nil)
 503
 504   (make-local-variable 'riece-mode-line-buffer-identification)
 505   (setq major-mode 'riece-user-list-mode
 506         mode-name "Users"
 507         riece-mode-line-buffer-identification
 508         '("Riece: " riece-long-channel-indicator " ")
 509         mode-line-buffer-identification
 510         (riece-mode-line-buffer-identification
 511          riece-mode-line-buffer-identification)
 512         truncate-lines t
 513         buffer-read-only t)
 514   (if (boundp 'transient-mark-mode)
 515       (set (make-local-variable 'transient-mark-mode) t))
 516   (make-local-hook 'riece-update-buffer-functions)
 517   (add-hook 'riece-update-buffer-functions
 518             'riece-update-user-list-buffer nil t)
 519   (use-local-map riece-user-list-mode-map)
 520   (run-hooks 'riece-user-list-mode-hook))
 521
 522 (defun riece-create-buffers ()
 523   (let ((alist riece-buffer-alist))
 524     (while alist
 525       (save-excursion
 526         (set-buffer (apply #'riece-get-buffer-create
 527                            (cdr (car alist))))
 528         (set (car (car alist)) (current-buffer))
 529         (unless (or (null (nth 2 (car alist)))
 530                     (eq major-mode (nth 2 (car alist))))
 531           (funcall (nth 2 (car alist))))
 532         (setq alist (cdr alist))))))
 533
 534 (defvar reporter-prompt-for-summary-p)
 535 (defun riece-submit-bug-report (&optional recent-messages recent-keys)
 536   "Submit via mail a bug report on Riece."
 537   ;; This strange form ensures that (recent-keys) is the value before
 538   ;; the bug subject string is read.
 539   (interactive (list (riece-recent-messages 20) (recent-keys)))
 540   (message "Querying server version...")
 541   (let ((pointer riece-server-process-alist)
 542         nickname)
 543     (while pointer
 544       (when (riece-server-process-opened (cdr (car pointer)))
 545         (process-send-string (cdr (car pointer)) "VERSION\r\n")
 546         (if (setq nickname
 547                   (with-current-buffer (process-buffer (cdr (car pointer)))
 548                     riece-real-nickname))
 549             (process-send-string
 550              (cdr (car pointer))
 551              (format "PRIVMSG %s :\1VERSION\1\r\n" nickname))))
 552       (setq pointer (cdr pointer))))
 553   (sit-for 3)
 554   (message "Querying server version...done")
 555   (require 'reporter)
 556   (let ((reporter-prompt-for-summary-p t))
 557     (unless riece-debug
 558       (error "Please turn on riece-debug and restart Riece."))
 559     (reporter-submit-bug-report
 560      "liece@unixuser.org"
 561      (riece-version)
 562      '(riece-debug)
 563      nil
 564      nil
 565      "This bug report will be sent to the Riece Development Team,
 566 not to your local site managers!!
 567
 568 Please write in Japanese or English, because the Riece maintainers do
 569 not have translators to read other languages for them.
 570
 571 Please describe as succinctly as possible:
 572 \t- What happened.
 573 \t- What you thought should have happened.
 574 \t- Precisely what you were doing at the time.
 575
 576 Also include a reliable recipe for triggering the bug, as well as
 577 any lisp back-traces that you may have.
 578 \(setq stack-trace-on-error t\), or \(setq debug-on-error t\) if you
 579 are familiar with the debugger, to get a lisp back-trace.")
 580     (delete-other-windows)
 581     (save-excursion
 582       (goto-char (point-max))
 583       (insert
 584        "\nAdd-on state:\n"
 585        "------------\n"
 586        (save-window-excursion
 587          (save-excursion
 588            (riece-command-list-addons)
 589            (search-forward "\n\n")
 590            (buffer-substring (point-min) (point)))))
 591       (insert "Recent messages from servers:\n"
 592               "--------------------------")
 593       (let ((pointer riece-server-process-alist))
 594         (while pointer
 595           (insert "\n- \"" (car (car pointer)) "\", \n"
 596                   (format "%S" (if (equal (car (car pointer)) "")
 597                                    riece-server
 598                                  (cdr (assoc (car (car pointer))
 599                                              riece-server-alist))))
 600                   "\n"
 601                   (if (riece-server-process-opened (cdr (car pointer)))
 602                       (save-excursion
 603                         (set-buffer (process-buffer (cdr (car pointer))))
 604                         (goto-char (point-max))
 605                         (beginning-of-line -60)
 606                         (buffer-substring (point) (point-max)))
 607                     "(closed server)"))
 608           (setq pointer (cdr pointer))))
 609       (insert "\n\nRecent debug messages:\n"
 610               "-----------------------------------\n"
 611               (with-current-buffer riece-debug-buffer
 612                 (buffer-string)))
 613       ;; Insert recent keystrokes.
 614       (insert "\n\nRecent keystrokes:\n"
 615               "-----------------\n\n")
 616       (let ((before-keys (point)))
 617         (insert (key-description recent-keys))
 618         (save-restriction
 619           (narrow-to-region before-keys (point))
 620           (goto-char before-keys)
 621           (while (progn (move-to-column 50) (not (eobp)))
 622             (search-forward " " nil t)
 623             (insert "\n"))))
 624       ;; Insert recent minibuffer messages.
 625       (insert "\n\nRecent messages (most recent first):\n"
 626               "-----------------------------------\n"
 627               recent-messages))))
 628
 629 (provide 'riece)
 630
 631 ;;; riece.el ends here