X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Friece.el;h=f4077f6f651c3941c55a991bc9f9e0c1aed6bab3;hb=fe0b24ee8ff72ec70f44d4b435506987701f3a0c;hp=064fa8e9535646aec218ee3bb6e5865b1b9d908d;hpb=c1f8a6aab764d5aaf4316deea1af815d835419c6;p=riece diff --git a/lisp/riece.el b/lisp/riece.el index 064fa8e..f4077f6 100644 --- a/lisp/riece.el +++ b/lisp/riece.el @@ -24,12 +24,6 @@ ;;; Code: -(eval-when-compile (require 'riece-inlines)) - -(if (featurep 'xemacs) - (require 'riece-xemacs) - (require 'riece-emacs)) - (require 'riece-filter) (require 'riece-display) (require 'riece-server) @@ -57,8 +51,10 @@ (put 'riece-others-mode 'derived-mode-parent 'riece-dialogue-mode) (defvar riece-buffer-mode-alist - '((riece-dialogue-buffer . riece-dialogue-mode) + '((riece-command-buffer . riece-command-mode) + (riece-dialogue-buffer . riece-dialogue-mode) (riece-others-buffer . riece-others-mode) + (riece-user-list-buffer . riece-user-list-mode) (riece-channel-list-buffer . riece-channel-list-mode) (riece-private-buffer . riece-dialogue-mode) (riece-wallops-buffer))) @@ -146,6 +142,7 @@ If optional argument SAFE is nil, overwrite previous definitions." "\C-tu" riece-command-toggle-user-list-buffer-mode "\C-tc" riece-command-toggle-channel-buffer-mode "\C-tC" riece-command-toggle-channel-list-buffer-mode + "\C-tl" riece-command-change-layout "i" riece-command-invite "j" riece-command-join "\C-k" riece-command-kick @@ -199,7 +196,6 @@ If optional argument SAFE is nil, overwrite previous definitions." (riece-define-keys riece-channel-list-mode-map ">" riece-command-next-channel "<" riece-command-previous-channel - "u" riece-command-unread-channel "o" other-window "c" riece-command-select-command-buffer) @@ -242,41 +238,43 @@ If optional argument SAFE is nil, overwrite previous definitions." ;;;###autoload (defun riece (&optional confirm) "Connect to the IRC server and start chatting. -If optional argument CONFIRM is non-nil, ask which IRC server to connect. -If already connected, just pop up the windows." +If optional argument CONFIRM is non-nil, ask which IRC server to connect." (interactive "P") (riece-read-variables-files (if noninteractive (car command-line-args-left))) (riece-insinuate-addons riece-addons) (run-hooks 'riece-after-load-startup-hook) (if (riece-server-opened) - (riece-configure-windows) - (switch-to-buffer (riece-get-buffer-create riece-command-buffer)) - (unless (eq major-mode 'riece-command-mode) - (riece-command-mode)) - (if (or confirm (null riece-server)) - (setq riece-server (completing-read "Server: " riece-server-alist))) - (if (stringp riece-server) - (setq riece-server (riece-server-name-to-server riece-server))) - (riece-open-server riece-server) - (riece-create-buffers) - (riece-configure-windows) - (let ((channel-list riece-startup-channel-list)) - (while channel-list - (if (listp (car channel-list)) - (riece-command-join (car (car channel-list)) - (cadr (car channel-list))) - (riece-command-join (car channel-list))) - (setq channel-list (cdr channel-list)))) - (run-hooks 'riece-startup-hook) - (message "%s" (substitute-command-keys - "Type \\[describe-mode] for help")))) + (error "Already running")) + (if (or confirm (null riece-server)) + (setq riece-server (completing-read "Server: " riece-server-alist))) + (if (stringp riece-server) + (setq riece-server (riece-server-name-to-server riece-server))) + (riece-create-buffers) + (switch-to-buffer riece-command-buffer) + (riece-redisplay-buffers) + (riece-open-server riece-server "") + (run-hooks 'riece-startup-hook) + (message "%s" (substitute-command-keys "Type \\[describe-mode] for help"))) (defun riece-exit () - (setq riece-server nil) (if riece-save-variables-are-dirty (riece-save-variables-files)) - (riece-clear-system) + (while riece-buffer-list + (if (and (get-buffer (car riece-buffer-list)) + (buffer-live-p (car riece-buffer-list))) + (funcall riece-buffer-dispose-function (car riece-buffer-list))) + (setq riece-buffer-list (cdr riece-buffer-list))) + (setq riece-server nil + riece-current-channels nil + riece-current-channel nil + riece-user-indicator nil + riece-channel-indicator "None" + riece-channel-list-indicator "No channel" + riece-away-indicator "-" + riece-operator-indicator "-" + riece-freeze-indicator "-") + (delete-other-windows) (run-hooks 'riece-exit-hook)) (defun riece-command-mode () @@ -295,14 +293,13 @@ For a list of the generic commands type \\[riece-command-generic] ? RET. mode-line-buffer-identification (riece-mode-line-buffer-identification '("Riece: " - "{" riece-away-indicator riece-operator-indicator riece-freeze-indicator - "} " + " " riece-user-indicator " " - riece-channel-indicator))) + riece-short-channel-indicator))) (riece-simplify-mode-line-format) (use-local-map riece-command-mode-map) @@ -322,10 +319,8 @@ All normal editing commands are turned off. Instead, these commands are available: \\{riece-dialogue-mode-map}" (kill-all-local-variables) - (make-local-variable 'riece-freeze) (make-local-variable 'tab-stop-list) - (setq riece-freeze riece-default-freeze riece-away-indicator "-" riece-operator-indicator "-" @@ -334,15 +329,13 @@ Instead, these commands are available: mode-line-buffer-identification (riece-mode-line-buffer-identification '("Riece: " - "{" riece-away-indicator riece-operator-indicator riece-freeze-indicator - "} " + " " riece-channel-list-indicator " ")) buffer-read-only t tab-stop-list riece-tab-stop-list) - (riece-update-status-indicators) (riece-simplify-mode-line-format) (use-local-map riece-dialogue-mode-map) (buffer-disable-undo) @@ -364,12 +357,9 @@ Instead, these commands are available: (setq mode-line-buffer-identification (riece-mode-line-buffer-identification '("Riece: " - "{" riece-away-indicator riece-operator-indicator riece-freeze-indicator - "} " - riece-user-indicator " " riece-channel-indicator)))) @@ -377,6 +367,8 @@ Instead, these commands are available: "Major mode for displaying channel list. All normal editing commands are turned off." (kill-all-local-variables) + (buffer-disable-undo) + (make-local-variable 'riece-redisplay-buffer) (setq major-mode 'riece-channel-list-mode mode-name "Channels" mode-line-buffer-identification @@ -392,6 +384,8 @@ All normal editing commands are turned off. Instead, these commands are available: \\{riece-user-list-mode-map}" (kill-all-local-variables) + (buffer-disable-undo) + (make-local-variable 'riece-redisplay-buffer) (setq major-mode 'riece-user-list-mode mode-name "User list" mode-line-buffer-identification @@ -475,9 +469,12 @@ Instead, these commands are available: (setq queue (cdr queue))) (if dependencies (error "Circular add-on dependency found")) + (setq addons (nreverse addons)) (while addons (require (car addons)) ;implicit dependency (funcall (intern (concat (symbol-name (car addons)) "-insinuate"))) + (if riece-debug + (message "Add-on %S is loaded" (car addons))) (setq addons (cdr addons))))) (provide 'riece)