;;; Code:
-(require 'riece-filter)
(require 'riece-display)
(require 'riece-server)
(require 'riece-compat)
(require 'riece-commands)
(require 'riece-addon)
+(require 'riece-signal)
(autoload 'derived-mode-class "derived")
[backspace] scroll-down
[return] scroll-up
" " scroll-up
+ [home] beginning-of-buffer
"$" end-of-buffer
+ [end] end-of-buffer
"/" riece-command-raw
">" end-of-buffer
"<" beginning-of-buffer
[delete] riece-command-scroll-down
[backspace] riece-command-scroll-down
" " riece-command-scroll-up
+ [home] riece-command-beginning-of-buffer
"$" riece-command-end-of-buffer
+ [end] riece-command-end-of-buffer
">" riece-command-next-channel
"<" riece-command-previous-channel
"\C-j" riece-command-next-channel
(riece-display-connect-signals)
(riece-redisplay-buffers)
(riece-open-server riece-server "")
- (let ((server-list riece-startup-server-list))
- (while server-list
- (riece-command-open-server (car server-list))
- (setq server-list (cdr server-list))))
- (let ((pointer riece-addons))
- (while pointer
- (unless (get (car pointer) 'riece-addon-default-disabled)
- (riece-enable-addon (car pointer) riece-debug))
- (setq pointer (cdr pointer))))
- (run-hooks 'riece-startup-hook)
- (message "%s" (substitute-command-keys
- "Type \\[describe-mode] for help"))))
+ ;; If no server process is available, exit.
+ (if (null riece-server-process-alist)
+ (riece-exit)
+ (let ((server-list riece-startup-server-list))
+ (while server-list
+ (riece-command-open-server (car server-list))
+ (setq server-list (cdr server-list))))
+ (let ((pointer riece-addons))
+ (while pointer
+ (unless (get (car pointer) 'riece-addon-default-disabled)
+ (riece-enable-addon (car pointer) riece-debug))
+ (setq pointer (cdr pointer))))
+ (run-hooks 'riece-startup-hook)
+ (message "%s" (substitute-command-keys
+ "Type \\[describe-mode] for help")))))
(defun riece-shrink-buffer (buffer)
(save-excursion
(delete-region start end)))))
(defun riece-exit ()
- (let ((pointer riece-addons))
- (while pointer
- (riece-disable-addon (car pointer) riece-debug)
- (setq pointer (cdr pointer))))
(if riece-save-variables-are-dirty
(riece-save-variables-files))
(while riece-buffer-list
(setq riece-buffer-list (cdr riece-buffer-list)))
(if riece-shrink-buffer-idle-timer
(riece-cancel-timer riece-shrink-buffer-idle-timer))
+ (riece-clear-signal-slots)
(setq riece-server nil
riece-current-channels nil
riece-current-channel nil
(interactive)
(kill-all-local-variables)
+ (make-local-variable 'truncate-partial-width-windows)
(setq riece-away-indicator "-"
riece-operator-indicator "-"
major-mode 'riece-command-mode
" "
riece-user-indicator
" "
- riece-channel-indicator)))
+ riece-channel-indicator))
+ truncate-partial-width-windows nil)
(riece-simplify-mode-line-format)
(use-local-map riece-command-mode-map)
"^[]{}'`"))
(run-hooks 'riece-command-mode-hook))
-
+
(defun riece-dialogue-mode ()
"Major mode for displaying the IRC dialogue.
All normal editing commands are turned off.
(kill-all-local-variables)
(make-local-variable 'riece-freeze)
(make-local-variable 'riece-freeze-indicator)
+ (make-local-variable 'truncate-partial-width-windows)
(setq riece-freeze riece-default-freeze
riece-away-indicator "-"
riece-operator-indicator "-"
riece-freeze-indicator
" "
riece-channel-list-indicator " "))
- buffer-read-only t)
+ buffer-read-only t
+ truncate-partial-width-windows nil)
(riece-simplify-mode-line-format)
(use-local-map riece-dialogue-mode-map)
(buffer-disable-undo)
All normal editing commands are turned off.
Instead, these commands are available:
\\{riece-channel-mode-map}"
+ (make-local-variable 'riece-channel-buffer-window-point)
(setq mode-line-buffer-identification
(riece-mode-line-buffer-identification
'("Riece: "
(kill-all-local-variables)
(buffer-disable-undo)
(setq major-mode 'riece-channel-list-mode
- mode-name "Channels"
+ mode-name "Channels"
mode-line-buffer-identification
(riece-mode-line-buffer-identification '("Riece: "))
truncate-lines t
(kill-all-local-variables)
(buffer-disable-undo)
(setq major-mode 'riece-user-list-mode
- mode-name "Users"
+ mode-name "Users"
mode-line-buffer-identification
(riece-mode-line-buffer-identification
'("Riece: " riece-long-channel-indicator " "))
(eq major-mode (nth 2 (car alist))))
(funcall (nth 2 (car alist))))
(setq alist (cdr alist))))))
-
+
(provide 'riece)
;;; riece.el ends here