From: ueno Date: Thu, 23 Oct 2003 09:02:16 +0000 (+0000) Subject: * riece-naming.el (riece-naming-assert-rename): Follow the X-Git-Tag: riece-0_1_5~6 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=414cf24f3addbde619bbe9b646f5e8d1eef4136d;p=elisp%2Friece.git * riece-naming.el (riece-naming-assert-rename): Follow the change of riece-channel.el. * riece-message.el (riece-message-external-p): Follow the change of riece-channel.el. * riece-display.el (riece-update-user-list-buffer): Follow the change of riece-channel.el. * riece-commands.el (riece-command-kick): Follow the change of riece-channel.el. (riece-command-set-operators): Ditto. (riece-command-set-speakers): Ditto. * riece-button.el (riece-user-button-set-operators): Follow the change of riece-channel.el. (riece-user-button-set-speakers): Ditto. * riece-channel.el (riece-make-channel): Abolish 2nd and 3rd arguments. (riece-get-channel): Follow the change of riece-make-channel. (riece-channel-operators): Abolish. (riece-channel-speakers): Abolish. (riece-channel-set-operators): Abolish. (riece-channel-set-speakers): Abolish. (riece-channel-get-operators): Abolish. (riece-channel-get-speakers): Abolish. (riece-channel-toggle-user): Follow the change of the return type of riece-channel-users. (riece-channel-toggle-operator): Ditto. (riece-channel-toggle-speaker): Ditto. (riece-channel-operator-p): Abolish. (riece-channel-speaker-p): Abolish. (riece-channel-intern-user): Abolish. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 87bb64b..5590284 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,42 @@ 2003-10-23 Daiki Ueno + * riece-naming.el (riece-naming-assert-rename): Follow the + change of riece-channel.el. + + * riece-message.el (riece-message-external-p): Follow the + change of riece-channel.el. + + * riece-display.el (riece-update-user-list-buffer): Follow the + change of riece-channel.el. + + * riece-commands.el (riece-command-kick): Follow the change of + riece-channel.el. + (riece-command-set-operators): Ditto. + (riece-command-set-speakers): Ditto. + + * riece-button.el (riece-user-button-set-operators): Follow the + change of riece-channel.el. + (riece-user-button-set-speakers): Ditto. + + * riece-channel.el (riece-make-channel): Abolish 2nd and 3rd + arguments. + (riece-get-channel): Follow the change of riece-make-channel. + (riece-channel-operators): Abolish. + (riece-channel-speakers): Abolish. + (riece-channel-set-operators): Abolish. + (riece-channel-set-speakers): Abolish. + (riece-channel-get-operators): Abolish. + (riece-channel-get-speakers): Abolish. + (riece-channel-toggle-user): Follow the change of the return type + of riece-channel-users. + (riece-channel-toggle-operator): Ditto. + (riece-channel-toggle-speaker): Ditto. + (riece-channel-operator-p): Abolish. + (riece-channel-speaker-p): Abolish. + (riece-channel-intern-user): Abolish. + +2003-10-23 Daiki Ueno + * riece-identity.el (riece-identity-member): Take an optional 3rd argument to instruct to use riece-identity-equal-no-server. (riece-identity-assoc): Ditto. diff --git a/lisp/riece-button.el b/lisp/riece-button.el index 6a112c2..384d1aa 100644 --- a/lisp/riece-button.el +++ b/lisp/riece-button.el @@ -113,7 +113,7 @@ This function is used as a callback for a channel button." (defun riece-user-button-set-operators () (interactive) - (let (group) + (let (group users) (if (riece-region-active-p) (save-excursion (riece-scan-property-region @@ -123,24 +123,25 @@ This function is used as a callback for a channel button." (setq group (cons (get-text-property start 'riece-identity) group))))) (setq group (list (get-text-property (point) 'riece-identity)))) + (setq users (riece-with-server-buffer + (riece-identity-server riece-current-channel) + (riece-channel-get-users (riece-identity-prefix + riece-current-channel)))) (if (setq group (delq nil (mapcar (lambda (identity) - (unless (riece-channel-operator-p - (riece-with-server-buffer - (riece-identity-server - riece-current-channel) - (riece-get-channel (riece-identity-prefix - riece-current-channel))) - (riece-identity-prefix identity)) + (unless (memq ?o (cdr (riece-identity-assoc + (riece-identity-prefix identity) + users + t))) identity)) group))) (riece-command-set-operators (mapcar #'riece-identity-prefix group))))) (defun riece-user-button-set-speakers () (interactive) - (let (group) + (let (group users) (if (riece-region-active-p) (save-excursion (riece-scan-property-region @@ -150,26 +151,18 @@ This function is used as a callback for a channel button." (setq group (cons (get-text-property start 'riece-identity) group))))) (setq group (list (get-text-property (point) 'riece-identity)))) + (setq users (riece-with-server-buffer + (riece-identity-server riece-current-channel) + (riece-channel-get-users (riece-identity-prefix + riece-current-channel)))) (if (setq group (delq nil (mapcar (lambda (identity) - (unless (or (riece-channel-operator-p - (riece-with-server-buffer - (riece-identity-server - riece-current-channel) - (riece-get-channel - (riece-identity-prefix - riece-current-channel))) - (riece-identity-prefix identity)) - (riece-channel-speaker-p - (riece-with-server-buffer - (riece-identity-server - riece-current-channel) - (riece-get-channel - (riece-identity-prefix - riece-current-channel))) - (riece-identity-prefix identity))) + (unless (memq ?v (cdr (riece-identity-assoc + (riece-identity-prefix identity) + users + t))) identity)) group))) (riece-command-set-speakers (mapcar #'riece-identity-prefix group))))) diff --git a/lisp/riece-channel.el b/lisp/riece-channel.el index 3602dea..86ed2ac 100644 --- a/lisp/riece-channel.el +++ b/lisp/riece-channel.el @@ -43,14 +43,12 @@ (makunbound symbol) (unintern (symbol-name symbol) riece-obarray)))) -(defun riece-make-channel (users operators speakers - topic modes banned invited uninvited - key) +(defun riece-make-channel (users topic modes banned invited uninvited key) "Make an instance of channel object. -Arguments are appropriate to channel users, operators, speakers -\(+v), topic, modes, banned users, invited users, uninvited users, and -the channel key, respectively." - (vector users operators speakers topic modes banned invited uninvited)) +Arguments are appropriate to channel users, topic, modes, banned +users, invited users, uninvited users, and the channel key, +respectively." + (vector users topic modes banned invited uninvited)) (defun riece-get-channel (name) (let ((symbol (intern-soft (riece-identity-canonicalize-prefix name) @@ -59,92 +57,68 @@ the channel key, respectively." (symbol-value symbol) (set (intern (riece-identity-canonicalize-prefix name) riece-obarray) - (riece-make-channel nil nil nil nil nil nil nil nil nil))))) + (riece-make-channel nil nil nil nil nil nil nil))))) (defun riece-channel-users (channel) "Return the users of CHANNEL." (aref channel 0)) -(defun riece-channel-operators (channel) - "Return the operators of CHANNEL." - (aref channel 1)) - -(defun riece-channel-speakers (channel) - "Return the speakers of CHANNEL." - (aref channel 2)) - (defun riece-channel-topic (channel) "Return the topic of CHANNEL." - (aref channel 3)) + (aref channel 1)) (defun riece-channel-modes (channel) "Return the modes of CHANNEL." - (aref channel 4)) + (aref channel 2)) (defun riece-channel-banned (channel) "Return the banned users of CHANNEL." - (aref channel 5)) + (aref channel 3)) (defun riece-channel-invited (channel) "Return the invited users of CHANNEL." - (aref channel 6)) + (aref channel 4)) (defun riece-channel-uninvited (channel) "Return the uninvited users of CHANNEL." - (aref channel 7)) + (aref channel 5)) (defun riece-channel-key (channel) "Return the key of CHANNEL." - (aref channel 8)) + (aref channel 6)) (defun riece-channel-set-users (channel value) "Set the users of CHANNEL to VALUE." (aset channel 0 value)) -(defun riece-channel-set-operators (channel value) - "Set the operators of CHANNEL to VALUE." - (aset channel 1 value)) - -(defun riece-channel-set-speakers (channel value) - "Set the speakers of CHANNEL to VALUE." - (aset channel 2 value)) - (defun riece-channel-set-topic (channel value) "Set the topic of CHANNEL to VALUE." - (aset channel 3 value)) + (aset channel 1 value)) (defun riece-channel-set-modes (channel value) "Set the modes of CHANNEL to VALUE." - (aset channel 4 value)) + (aset channel 2 value)) (defun riece-channel-set-banned (channel value) "Set the banned users of CHANNEL to VALUE." - (aset channel 5 value)) + (aset channel 3 value)) (defun riece-channel-set-invited (channel value) "Set the invited users of CHANNEL to VALUE." - (aset channel 6 value)) + (aset channel 4 value)) (defun riece-channel-set-uninvited (channel value) "Set the uninvited users of CHANNEL to VALUE." - (aset channel 7 value)) + (aset channel 5 value)) (defun riece-channel-set-key (channel value) "Set the key of CHANNEL to VALUE." - (aset channel 8 value)) + (aset channel 6 value)) (defun riece-channel-get-users (name) "Return channel's users as list." (riece-channel-users (riece-get-channel name))) -(defun riece-channel-get-operators (name) - "Return channel's operators as list." - (riece-channel-operators (riece-get-channel name))) - -(defun riece-channel-get-speakers (name) - "Return channel's speakers as list." - (riece-channel-speakers (riece-get-channel name))) - (defun riece-channel-get-topic (name) "Return channel's topic." (riece-channel-topic (riece-get-channel name))) @@ -216,48 +190,34 @@ the channel key, respectively." (let* ((channel (riece-get-channel name)) (users (riece-channel-users channel))) (if flag - (unless (member user users) - (riece-channel-set-users channel (cons user users))) - (if (setq user (car (member user users))) + (unless (riece-identity-assoc user users t) + (riece-channel-set-users channel (cons (list user) users))) + (if (setq user (car (riece-identity-assoc user users t))) (riece-channel-set-users channel (delq user users)))))) -(defun riece-channel-intern-user (channel user) - (unless (setq user (car (member user (riece-channel-users channel)))) - (if riece-debug - (message "%s is not a member of channel" user))) - user) - (defun riece-channel-toggle-operator (name user flag) "Add or remove an operator to channel." (let* ((channel (riece-get-channel name)) - (operators (riece-channel-operators channel))) - (setq user (riece-channel-intern-user channel user)) + (users (riece-channel-users channel))) + (setq user (riece-identity-assoc user users t)) (if flag - (unless (memq user operators) - (riece-channel-set-operators channel (cons user operators))) - (if (setq user (car (memq user operators))) - (riece-channel-set-operators channel (delq user operators)))))) + (if user + (setcdr user (cons ?o (cdr user))) + (riece-channel-set-users channel (cons (list user ?o) users))) + (if user + (setcdr user (delq ?o (cdr user))))))) (defun riece-channel-toggle-speaker (name user flag) "Add or remove an speaker to channel." (let* ((channel (riece-get-channel name)) - (speakers (riece-channel-speakers channel))) - (setq user (riece-channel-intern-user channel user)) + (users (riece-channel-users channel))) + (setq user (riece-identity-assoc user users t)) (if flag - (unless (memq user speakers) - (riece-channel-set-speakers channel (cons user speakers))) - (if (setq user (car (memq user speakers))) - (riece-channel-set-speakers channel (delq user speakers)))))) - -(defun riece-channel-operator-p (channel user) - "Return non-nil, if USER has operator privileges in channel." - (memq (riece-channel-intern-user channel user) - (riece-channel-operators channel))) - -(defun riece-channel-speaker-p (channel user) - "Return non-nil, if USER is allowed to speak in channel." - (memq (riece-channel-intern-user channel user) - (riece-channel-speakers channel))) + (if user + (setcdr user (cons ?v (cdr user))) + (riece-channel-set-users channel (cons (list user ?v) users))) + (if user + (setcdr user (delq ?v (cdr user))))))) (provide 'riece-channel) diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el index 0d42b6c..124a1cd 100644 --- a/lisp/riece-commands.el +++ b/lisp/riece-commands.el @@ -189,11 +189,10 @@ the layout to the selected layout-name." (riece-check-channel-commands-are-usable t) (list (completing-read "User: " - (mapcar #'list - (riece-with-server-buffer - (riece-identity-server riece-current-channel) - (riece-channel-get-users - (riece-identity-prefix riece-current-channel))))) + (riece-with-server-buffer + (riece-identity-server riece-current-channel) + (riece-channel-get-users (riece-identity-prefix + riece-current-channel)))) (if current-prefix-arg (read-string "Message: "))))) (riece-send-string @@ -278,30 +277,19 @@ the layout to the selected layout-name." (interactive (progn (riece-check-channel-commands-are-usable t) - (let ((operators - (riece-with-server-buffer - (riece-identity-server riece-current-channel) - (riece-channel-get-operators - (riece-identity-prefix riece-current-channel)))) - (completion-ignore-case t) - users) - (if current-prefix-arg - (setq users (riece-completing-read-multiple - "Users" - (mapcar #'list operators))) - (setq users (riece-completing-read-multiple - "Users" - (delq nil (mapcar - (lambda (user) - (unless (member user operators) - (list user))) - (riece-with-server-buffer - (riece-identity-server - riece-current-channel) - (riece-channel-get-users - (riece-identity-prefix - riece-current-channel)))))))) - (list users current-prefix-arg)))) + (let ((completion-ignore-case t)) + (list (riece-completing-read-multiple + "Users" + (riece-with-server-buffer + (riece-identity-server riece-current-channel) + (riece-channel-get-users (riece-identity-prefix + riece-current-channel))) + (if current-prefix-arg + (lambda (user) + (memq ?o (cdr user))) + (lambda (user) + (not (memq ?o (cdr user)))))) + current-prefix-arg)))) (let (group) (while users (setq group (cons (car users) group) @@ -321,30 +309,19 @@ the layout to the selected layout-name." (interactive (progn (riece-check-channel-commands-are-usable t) - (let ((speakers - (riece-with-server-buffer - (riece-identity-server riece-current-channel) - (riece-channel-get-speakers - (riece-identity-prefix riece-current-channel)))) - (completion-ignore-case t) - users) - (if current-prefix-arg - (setq users (riece-completing-read-multiple - "Users" - (mapcar #'list speakers))) - (setq users (riece-completing-read-multiple - "Users" - (delq nil (mapcar - (lambda (user) - (unless (member user speakers) - (list user))) - (riece-with-server-buffer - (riece-identity-server - riece-current-channel) - (riece-channel-get-users - (riece-identity-prefix - riece-current-channel)))))))) - (list users current-prefix-arg)))) + (let ((completion-ignore-case t)) + (list (riece-completing-read-multiple + "Users" + (riece-with-server-buffer + (riece-identity-server riece-current-channel) + (riece-channel-get-users (riece-identity-prefix + riece-current-channel))) + (if current-prefix-arg + (lambda (user) + (memq ?v (cdr user))) + (lambda (user) + (not (memq ?v (cdr user)))))) + current-prefix-arg)))) (let (group) (while users (setq group (cons (car users) group) diff --git a/lisp/riece-display.el b/lisp/riece-display.el index fd1e827..dcb834e 100644 --- a/lisp/riece-display.el +++ b/lisp/riece-display.el @@ -50,24 +50,23 @@ Local to the buffer in `riece-buffer-list'.") (set-buffer riece-user-list-buffer) (if (and riece-current-channel (riece-channel-p (riece-identity-prefix riece-current-channel))) - (let* ((channel + (let* ((users (with-current-buffer (process-buffer (riece-server-process (riece-identity-server riece-current-channel))) - (riece-get-channel (riece-identity-prefix - riece-current-channel)))) - (users (riece-channel-users channel)) + (riece-channel-get-users (riece-identity-prefix + riece-current-channel)))) (inhibit-read-only t) buffer-read-only) (erase-buffer) (while users - (insert (if (riece-channel-operator-p channel (car users)) + (insert (if (memq ?o (cdr (car users))) "@" - (if (riece-channel-speaker-p channel (car users)) + (if (memq ?v (cdr (car users))) "+" " ")) (riece-format-identity - (riece-make-identity (car users) + (riece-make-identity (car (car users)) (riece-identity-server riece-current-channel)) t) diff --git a/lisp/riece-message.el b/lisp/riece-message.el index 60702eb..c50aa1d 100644 --- a/lisp/riece-message.el +++ b/lisp/riece-message.el @@ -230,7 +230,7 @@ Currently possible values are `action' and `notice'." (riece-with-server-buffer (riece-identity-server target) (mapcar (lambda (user) - (riece-make-identity user riece-server-name)) + (riece-make-identity (car user) riece-server-name)) (riece-channel-get-users (riece-identity-prefix target)))))))) (provide 'riece-message) diff --git a/lisp/riece-naming.el b/lisp/riece-naming.el index 4c1a91f..5295b8d 100644 --- a/lisp/riece-naming.el +++ b/lisp/riece-naming.el @@ -54,20 +54,12 @@ riece-real-nickname new-name)) (let* ((old (riece-get-user old-name)) (channels (riece-user-channels old)) - users pointer) + users user) (while channels (setq users (riece-channel-get-users (car channels)) - pointer (member old-name users)) - (if pointer - (setcar pointer new-name)) - (setq users (riece-channel-get-operators (car channels)) - pointer (member old-name users)) - (if pointer - (setcar pointer new-name)) - (setq users (riece-channel-get-speakers (car channels)) - pointer (member old-name users)) - (if pointer - (setcar pointer new-name)) + user (car (riece-identity-assoc old-name users t))) + (if user + (setcar user new-name)) (setq channels (cdr channels))) (riece-rename-user old-name new-name)) ;; Rename the channel buffer.