X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Friece.el;h=f4077f6f651c3941c55a991bc9f9e0c1aed6bab3;hb=fe0b24ee8ff72ec70f44d4b435506987701f3a0c;hp=11303ef2a967e455cd03a350b3547dc2970d8214;hpb=8681e882ee84d005db2144fd3f03ad692fbf1202;p=riece diff --git a/lisp/riece.el b/lisp/riece.el index 11303ef..f4077f6 100644 --- a/lisp/riece.el +++ b/lisp/riece.el @@ -24,10 +24,6 @@ ;;; Code: -(if (featurep 'xemacs) - (require 'riece-xemacs) - (require 'riece-emacs)) - (require 'riece-filter) (require 'riece-display) (require 'riece-server) @@ -55,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))) @@ -144,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 @@ -239,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 () @@ -298,7 +299,7 @@ For a list of the generic commands type \\[riece-command-generic] ? RET. " " riece-user-indicator " " - riece-current-channel))) + riece-short-channel-indicator))) (riece-simplify-mode-line-format) (use-local-map riece-command-mode-map) @@ -318,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 "-" @@ -337,7 +336,6 @@ Instead, these commands are available: 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) @@ -369,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 @@ -384,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 @@ -467,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)