* riece.el (riece-dialogue-mode-map): Bind riece-command-change-layout.
authorDaiki Ueno <ueno@unixuser.org>
Mon, 25 Aug 2003 00:12:26 +0000 (00:12 +0000)
committerDaiki Ueno <ueno@unixuser.org>
Mon, 25 Aug 2003 00:12:26 +0000 (00:12 +0000)
(riece): Switch to riece-command-buffer before riece-redisplay-buffers.

* riece-unread.el: Require 'riece-commands.

* riece-server.el: Require 'riece-identity and 'riece-compat.

* riece-ndcc.el: Require 'riece-globals, 'riece-options,
'riece-display.
(riece-handle-dcc-request): Use riece-channel-buffer-name.

* riece-identity.el: Don't require 'riece-server.

* riece-doctor.el: Require 'riece-globals, 'riece-identity,
'riece-message, and 'riece-server.

* riece-ctcp.el: Require 'riece-display.

* riece-commands.el: Require 'riece-layout.
(riece-command-change-layout): New command.

* riece-alias.el: Require 'riece-identity.

lisp/COMPILE
lisp/ChangeLog
lisp/riece-alias.el
lisp/riece-commands.el
lisp/riece-ctcp.el
lisp/riece-doctor.el
lisp/riece-identity.el
lisp/riece-ndcc.el
lisp/riece-server.el
lisp/riece-unread.el
lisp/riece.el

index f529579..4b79abc 100644 (file)
@@ -18,6 +18,8 @@
                riece-user
 
                riece-misc
                riece-user
 
                riece-misc
+               ;; riece-layout ---> riece-display
+               riece-layout
                riece-display
                riece-server
 
                riece-display
                riece-server
 
@@ -48,7 +50,6 @@
                riece-unread
                riece-doctor
                riece-alias
                riece-unread
                riece-doctor
                riece-alias
-               riece-layout
                riece-skk-kakutei))))
 
 (defun riece-compile-modules (modules)
                riece-skk-kakutei))))
 
 (defun riece-compile-modules (modules)
index b34a40f..e38a90c 100644 (file)
@@ -1,5 +1,28 @@
 2003-08-25  Daiki Ueno  <ueno@unixuser.org>
 
 2003-08-25  Daiki Ueno  <ueno@unixuser.org>
 
+       * riece.el (riece-dialogue-mode-map): Bind riece-command-change-layout.
+       (riece): Switch to riece-command-buffer before riece-redisplay-buffers.
+
+       * riece-unread.el: Require 'riece-commands.
+
+       * riece-server.el: Require 'riece-identity and 'riece-compat.
+
+       * riece-ndcc.el: Require 'riece-globals, 'riece-options,
+       'riece-display.
+       (riece-handle-dcc-request): Use riece-channel-buffer-name.
+
+       * riece-identity.el: Don't require 'riece-server.
+
+       * riece-doctor.el: Require 'riece-globals, 'riece-identity,
+       'riece-message, and 'riece-server.
+
+       * riece-ctcp.el: Require 'riece-display.
+
+       * riece-commands.el: Require 'riece-layout.
+       (riece-command-change-layout): New command.
+
+       * riece-alias.el: Require 'riece-identity.
+
        * riece-layout.el: No longer provided as an add-on.
        * riece-display.el: Remove window configuration stuff.
 
        * riece-layout.el: No longer provided as an add-on.
        * riece-display.el: Remove window configuration stuff.
 
index dae97f5..4755310 100644 (file)
@@ -32,6 +32,8 @@
 
 ;;; Code:
 
 
 ;;; Code:
 
+(require 'riece-identity)
+
 (defgroup riece-alias nil
   "Define aliases of names"
   :prefix "riece-"
 (defgroup riece-alias nil
   "Define aliases of names"
   :prefix "riece-"
index 8303504..a4c0cf2 100644 (file)
@@ -26,6 +26,7 @@
 
 (require 'riece-channel)
 (require 'riece-complete)
 
 (require 'riece-channel)
 (require 'riece-complete)
+(require 'riece-layout)
 (require 'riece-display)
 (require 'riece-version)
 (require 'riece-server)
 (require 'riece-display)
 (require 'riece-version)
 (require 'riece-server)
   (interactive)
   (riece-redisplay-buffers t))
 
   (interactive)
   (riece-redisplay-buffers t))
 
+(defun riece-command-change-layout (name)
+  "Select a layout-name from all current available layouts and change
+the layout to the selected layout-name."
+  (interactive (list (completing-read "Layout: " riece-layout-alist)))
+  (customize-set-variable 'riece-layout name))
+
 (defun riece-command-toggle-channel-buffer-mode ()
   (interactive)
   (setq riece-channel-buffer-mode
 (defun riece-command-toggle-channel-buffer-mode ()
   (interactive)
   (setq riece-channel-buffer-mode
index 78a4dae..804b705 100644 (file)
@@ -26,6 +26,7 @@
 
 (require 'riece-version)
 (require 'riece-misc)
 
 (require 'riece-version)
 (require 'riece-misc)
+(require 'riece-display)
 
 (defvar riece-ctcp-ping-time nil)
 (defvar riece-ctcp-additional-clientinfo nil)
 
 (defvar riece-ctcp-ping-time nil)
 (defvar riece-ctcp-additional-clientinfo nil)
index c922c9e..bd9ef47 100644 (file)
 
 ;;; Code:
 
 
 ;;; Code:
 
+(require 'riece-globals)
+(require 'riece-identity)
+(require 'riece-message)
+(require 'riece-server)
+
 (defgroup riece-doctor nil
   "Interface to doctor.el"
   :prefix "riece-"
 (defgroup riece-doctor nil
   "Interface to doctor.el"
   :prefix "riece-"
index 0def749..6b6eedf 100644 (file)
@@ -26,7 +26,6 @@
 
 (require 'riece-globals)
 (require 'riece-coding)
 
 (require 'riece-globals)
 (require 'riece-coding)
-(require 'riece-server)
 (require 'riece-compat)                        ;riece-set-case-syntax-pair
 
 (defvar riece-abbrev-identity-string-function nil)
 (require 'riece-compat)                        ;riece-set-case-syntax-pair
 
 (defvar riece-abbrev-identity-string-function nil)
index ca9244c..a5a9ae8 100644 (file)
 
 ;;; Code:
 
 
 ;;; Code:
 
+(require 'riece-globals)
+(require 'riece-options)
+(require 'riece-display)
+
 (require 'calc)
 
 (defgroup riece-ndcc nil
 (require 'calc)
 
 (defgroup riece-ndcc nil
@@ -169,7 +173,7 @@ Only used for sending files."
                   "DCC" " *DCC*"
                   (riece-ndcc-decode-address (nth 2 request))
                   (nth 3 request))))
                   "DCC" " *DCC*"
                   (riece-ndcc-decode-address (nth 2 request))
                   (nth 3 request))))
-    (setq riece-rdcc-requests (delq request riece-rdcc-requests))
+    (setq riece-ndcc-requests (delq request riece-ndcc-requests))
     (with-current-buffer (process-buffer process)
       (set-buffer-multibyte nil)
       (buffer-disable-undo)
     (with-current-buffer (process-buffer process)
       (set-buffer-multibyte nil)
       (buffer-disable-undo)
@@ -191,9 +195,8 @@ Only used for sending files."
            (port (string-to-number (match-string 3 message)))
            (size (string-to-number (match-string 4 message)))
            (buffer (if (riece-channel-p target)
            (port (string-to-number (match-string 3 message)))
            (size (string-to-number (match-string 4 message)))
            (buffer (if (riece-channel-p target)
-                       (cdr (riece-identity-assoc
-                             (riece-make-identity target)
-                             riece-channel-buffer-alist))))
+                       (riece-channel-buffer-name
+                        (riece-make-identity target riece-server-name))))
            (user (riece-prefix-nickname prefix)))
        (setq riece-ndcc-requests
              (cons (list user file address port size)
            (user (riece-prefix-nickname prefix)))
        (setq riece-ndcc-requests
              (cons (list user file address port size)
index 3d6e366..756598b 100644 (file)
@@ -27,6 +27,8 @@
 (require 'riece-options)
 (require 'riece-globals)               ;for server local variables.
 (require 'riece-coding)                        ;riece-default-coding-system
 (require 'riece-options)
 (require 'riece-globals)               ;for server local variables.
 (require 'riece-coding)                        ;riece-default-coding-system
+(require 'riece-identity)
+(require 'riece-compat)
 
 (eval-and-compile
   (defvar riece-server-keyword-map
 
 (eval-and-compile
   (defvar riece-server-keyword-map
index 21a8771..8f42ddc 100644 (file)
@@ -31,7 +31,8 @@
 
 ;;; Code:
 
 
 ;;; Code:
 
-(eval-when-compile (require 'riece-message))
+(require 'riece-message)
+(require 'riece-commands)
 
 (defvar riece-unread-channels nil)
 
 
 (defvar riece-unread-channels nil)
 
index ade5273..4de3a8b 100644 (file)
@@ -142,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-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
     "i" riece-command-invite
     "j" riece-command-join
     "\C-k" riece-command-kick
@@ -250,6 +251,7 @@ If optional argument CONFIRM is non-nil, ask which IRC server to connect."
   (if (stringp riece-server)
       (setq riece-server (riece-server-name-to-server riece-server)))
   (riece-create-buffers)
   (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)
   (riece-redisplay-buffers)
   (riece-open-server riece-server "")
   (run-hooks 'riece-startup-hook)