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                        (delq (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              (end (progn
 341                     (goto-char riece-shrink-buffer-remove-chars)
 342                     (beginning-of-line 2)))
 343              (overlays (riece-overlays-in (point-min) end)))
 344         (while overlays
 345           (riece-delete-overlay (car overlays))
 346           (setq overlays (cdr overlays)))
 347         (delete-region (point-min) end)))))
 348
 349 (defun riece-exit ()
 350   (if riece-save-variables-are-dirty
 351       (riece-save-variables-files))
 352   (while riece-buffer-list
 353     (if (and (get-buffer (car riece-buffer-list))
 354              (buffer-live-p (car riece-buffer-list)))
 355         (funcall riece-buffer-dispose-function (car riece-buffer-list)))
 356     (setq riece-buffer-list (cdr riece-buffer-list)))
 357   (if riece-shrink-buffer-idle-timer
 358       (riece-cancel-timer riece-shrink-buffer-idle-timer))
 359   (riece-clear-signal-slots)
 360   (setq riece-server nil
 361         riece-current-channels nil
 362         riece-current-channel nil
 363         riece-channel-buffer nil
 364         riece-channel-buffer-alist nil
 365         riece-user-indicator nil
 366         riece-long-channel-indicator "None"
 367         riece-channel-list-indicator "No channel"
 368         riece-away-indicator "-"
 369         riece-operator-indicator "-"
 370         riece-channel-status-indicator "-"
 371         riece-freeze-indicator "-")
 372   (delete-other-windows)
 373   (run-hooks 'riece-exit-hook))
 374
 375 (defun riece-command-mode ()
 376   "Major mode for Riece.  Normal edit function are available.
 377 Typing Return or Linefeed enters the current line in the dialogue.
 378 The following special commands are available:
 379 For a list of the generic commands type \\[riece-command-generic] ? RET.
 380 \\{riece-command-mode-map}"
 381   (interactive)
 382   (kill-all-local-variables)
 383
 384   ;; Make `truncate-partial-width-windows' buffer local and set it to
 385   ;; nil.  This causes `truncate-lines' to directly control line
 386   ;; truncation.
 387   (make-local-variable 'truncate-partial-width-windows)
 388   (setq truncate-partial-width-windows nil)
 389
 390   (setq riece-away-indicator "-"
 391         riece-operator-indicator "-"
 392         riece-channel-status-indicator "-"
 393         major-mode 'riece-command-mode
 394         mode-name "Command"
 395         mode-line-buffer-identification
 396         (riece-mode-line-buffer-identification
 397          '("Riece: "
 398            riece-away-indicator
 399            riece-operator-indicator
 400            riece-channel-status-indicator
 401            " "
 402            riece-user-indicator
 403            " "
 404            riece-channel-indicator))
 405         truncate-lines nil)
 406   (riece-simplify-mode-line-format)
 407   (use-local-map riece-command-mode-map)
 408
 409   (unless riece-command-mode-syntax-table
 410     (setq riece-command-mode-syntax-table
 411           (copy-syntax-table (syntax-table)))
 412     (set-syntax-table riece-command-mode-syntax-table)
 413     (mapcar
 414      (lambda (c) (modify-syntax-entry c "w"))
 415      "^[]{}'`"))
 416
 417   (run-hooks 'riece-command-mode-hook))
 418
 419 (defun riece-dialogue-mode ()
 420   "Major mode for displaying the IRC dialogue.
 421 All normal editing commands are turned off.
 422 Instead, these commands are available:
 423 \\{riece-dialogue-mode-map}"
 424   (kill-all-local-variables)
 425   (make-local-variable 'riece-freeze)
 426   (make-local-variable 'riece-freeze-indicator)
 427
 428   ;; Make `truncate-partial-width-windows' buffer local and set it to
 429   ;; nil.  This causes `truncate-lines' to directly control line truncation.
 430   (make-local-variable 'truncate-partial-width-windows)
 431   (setq truncate-partial-width-windows nil)
 432
 433   (setq riece-freeze riece-default-freeze
 434         riece-away-indicator "-"
 435         riece-operator-indicator "-"
 436         riece-channel-status-indicator "-"
 437         major-mode 'riece-dialogue-mode
 438         mode-name "Dialogue"
 439         mode-line-buffer-identification
 440         (riece-mode-line-buffer-identification
 441          '("Riece: "
 442            riece-away-indicator
 443            riece-operator-indicator
 444            riece-freeze-indicator
 445            riece-channel-status-indicator
 446            " "
 447            riece-channel-list-indicator " "))
 448         truncate-lines nil
 449         buffer-read-only t)
 450   (riece-simplify-mode-line-format)
 451   (use-local-map riece-dialogue-mode-map)
 452   (buffer-disable-undo)
 453   (run-hooks 'riece-dialogue-mode-hook))
 454
 455 (define-derived-mode riece-others-mode riece-dialogue-mode
 456   "Others"
 457   "Major mode for displaying the IRC others message except current channel.
 458 All normal editing commands are turned off.
 459 Instead, these commands are available:
 460 \\{riece-others-mode-map}")
 461
 462 (define-derived-mode riece-channel-mode riece-dialogue-mode
 463   "Channel"
 464   "Major mode for displaying the IRC current channel buffer.
 465 All normal editing commands are turned off.
 466 Instead, these commands are available:
 467 \\{riece-channel-mode-map}"
 468   (make-local-variable 'riece-channel-buffer-window-point)
 469   (setq mode-line-buffer-identification
 470         (riece-mode-line-buffer-identification
 471          '("Riece: "
 472            riece-away-indicator
 473            riece-operator-indicator
 474            riece-freeze-indicator
 475            riece-channel-status-indicator
 476            " "
 477            riece-long-channel-indicator))))
 478
 479 (defun riece-channel-list-mode ()
 480   "Major mode for displaying channel list.
 481 All normal editing commands are turned off."
 482   (kill-all-local-variables)
 483   (buffer-disable-undo)
 484
 485   ;; Make `truncate-partial-width-windows' buffer local and set it to
 486   ;; nil.  This causes `truncate-lines' to directly control line truncation.
 487   (make-local-variable 'truncate-partial-width-windows)
 488   (setq truncate-partial-width-windows nil)
 489
 490   (setq major-mode 'riece-channel-list-mode
 491         mode-name "Channels"
 492         mode-line-buffer-identification
 493         (riece-mode-line-buffer-identification '("Riece: "))
 494         truncate-lines t
 495         buffer-read-only t)
 496   (make-local-hook 'riece-update-buffer-functions)
 497   (add-hook 'riece-update-buffer-functions
 498             'riece-update-channel-list-buffer nil t)
 499   (use-local-map riece-channel-list-mode-map)
 500   (run-hooks 'riece-channel-list-mode-hook))
 501
 502 (defun riece-user-list-mode ()
 503   "Major mode for displaying members in the IRC current channel buffer.
 504 All normal editing commands are turned off.
 505 Instead, these commands are available:
 506 \\{riece-user-list-mode-map}"
 507   (kill-all-local-variables)
 508   (buffer-disable-undo)
 509
 510   ;; Make `truncate-partial-width-windows' buffer local and set it to
 511   ;; nil.  This causes `truncate-lines' to directly control line truncation.
 512   (make-local-variable 'truncate-partial-width-windows)
 513   (setq truncate-partial-width-windows nil)
 514
 515   (setq major-mode 'riece-user-list-mode
 516         mode-name "Users"
 517         mode-line-buffer-identification
 518         (riece-mode-line-buffer-identification
 519          '("Riece: " riece-long-channel-indicator " "))
 520         truncate-lines t
 521         buffer-read-only t)
 522   (if (boundp 'transient-mark-mode)
 523       (set (make-local-variable 'transient-mark-mode) t))
 524   (make-local-hook 'riece-update-buffer-functions)
 525   (add-hook 'riece-update-buffer-functions
 526             'riece-update-user-list-buffer nil t)
 527   (use-local-map riece-user-list-mode-map)
 528   (run-hooks 'riece-user-list-mode-hook))
 529
 530 (defun riece-create-buffers ()
 531   (let ((alist riece-buffer-alist))
 532     (while alist
 533       (save-excursion
 534         (set-buffer (apply #'riece-get-buffer-create
 535                            (cdr (car alist))))
 536         (set (car (car alist)) (current-buffer))
 537         (unless (or (null (nth 2 (car alist)))
 538                     (eq major-mode (nth 2 (car alist))))
 539           (funcall (nth 2 (car alist))))
 540         (setq alist (cdr alist))))))
 541
 542 (defvar reporter-prompt-for-summary-p)
 543 (defun riece-submit-bug-report (&optional recent-messages recent-keys)
 544   "Submit via mail a bug report on Riece."
 545   ;; This strange form ensures that (recent-keys) is the value before
 546   ;; the bug subject string is read.
 547   (interactive (list (riece-recent-messages 20) (recent-keys)))
 548   (message "Querying server version...")
 549   (let ((pointer riece-server-process-alist)
 550         nickname)
 551     (while pointer
 552       (when (riece-server-process-opened (cdr (car pointer)))
 553         (process-send-string (cdr (car pointer)) "VERSION\r\n")
 554         (if (setq nickname
 555                   (with-current-buffer (process-buffer (cdr (car pointer)))
 556                     riece-real-nickname))
 557             (process-send-string
 558              (cdr (car pointer))
 559              (format "PRIVMSG %s :\1VERSION\1\r\n" nickname))))
 560       (setq pointer (cdr pointer))))
 561   (sit-for 3)
 562   (message "Querying server version...done")
 563   (require 'reporter)
 564   (let ((reporter-prompt-for-summary-p t))
 565     (unless riece-debug
 566       (error "Please turn on riece-debug and restart Riece."))
 567     (reporter-submit-bug-report
 568      "liece@unixuser.org"
 569      (riece-version)
 570      '(riece-debug)
 571      nil
 572      nil
 573      "This bug report will be sent to the Riece Development Team,
 574 not to your local site managers!!
 575
 576 Please write in Japanese or English, because the Riece maintainers do
 577 not have translators to read other languages for them.
 578
 579 Please describe as succinctly as possible:
 580 \t- What happened.
 581 \t- What you thought should have happened.
 582 \t- Precisely what you were doing at the time.
 583
 584 Also include a reliable recipe for triggering the bug, as well as
 585 any lisp back-traces that you may have.
 586 \(setq stack-trace-on-error t\), or \(setq debug-on-error t\) if you
 587 are familiar with the debugger, to get a lisp back-trace.")
 588     (delete-other-windows)
 589     (save-excursion
 590       (goto-char (point-max))
 591       (insert
 592        "\nAdd-on state:\n"
 593        "------------\n"
 594        (save-window-excursion
 595          (save-excursion
 596            (riece-command-list-addons)
 597            (search-forward "\n\n")
 598            (buffer-substring (point-min) (point)))))
 599       (insert "Recent messages from servers:\n"
 600               "--------------------------")
 601       (let ((pointer riece-server-process-alist))
 602         (while pointer
 603           (insert "\n- \"" (car (car pointer)) "\", \n"
 604                   (format "%S" (if (equal (car (car pointer)) "")
 605                                    riece-server
 606                                  (cdr (assoc (car (car pointer))
 607                                              riece-server-alist))))
 608                   "\n"
 609                   (if (riece-server-process-opened (cdr (car pointer)))
 610                       (save-excursion
 611                         (set-buffer (process-buffer (cdr (car pointer))))
 612                         (goto-char (point-max))
 613                         (beginning-of-line -60)
 614                         (buffer-substring (point) (point-max)))
 615                     "(closed server)"))
 616           (setq pointer (cdr pointer))))
 617       ;; Insert recent keystrokes.
 618       (insert "\n\nRecent keystrokes:\n"
 619               "-----------------\n\n")
 620       (let ((before-keys (point)))
 621         (insert (key-description recent-keys))
 622         (save-restriction
 623           (narrow-to-region before-keys (point))
 624           (goto-char before-keys)
 625           (while (progn (move-to-column 50) (not (eobp)))
 626             (search-forward " " nil t)
 627             (insert "\n"))))
 628       ;; Insert recent minibuffer messages.
 629       (insert "\n\nRecent messages (most recent first):\n"
 630               "-----------------------------------\n"
 631               recent-messages))))
 632
 633 (provide 'riece)
 634
 635 ;;; riece.el ends here