;; add /alias

(defun erc-cmd-ALIAS (command &rest words)
  (fset (intern (concat "erc-cmd-" (upcase command)))
	(list 'lambda '(&rest ignore)
	      (list 'erc-send-command (mapconcat 'identity words " ")))))

;; conference mode
(setq erc-conference-p nil)

(defun erc-cmd-CONFERENCE (&optional force)
  (if (and (boundp 'erc-conference-p)
           erc-conference-p)
      (progn
        (setq erc-conference-p nil
              erc-hide-list (default-value erc-hide-list))
        (erc-display-line (erc-make-notice "Conference mode is OFF.")
                          'active))
      (progn
        (make-local-variable 'erc-hide-list)
        (make-local-variable 'erc-conference-p) 
        (setq erc-conference-p t
              erc-hide-list '("JOIN" "PART" "QUIT"))
        (erc-display-line (erc-make-notice "Conference mode is ON.")
                          'active)))
  t)

;; manually refill text in current buffer after window size change

(defun erc-cmd-REFILL (&rest ignore)
      "Refill the ERC messages in the current buffer.
       Useful after window size changes."
        (erc-fill))

;; add /showoff command

  (defun erc-cmd-SHOWOFF (&rest ignore)
    "Show off implementation"
    (let* ((chnl (erc-buffer-list))
           (srvl (erc-buffer-list 'erc-server-buffer-p))
           (memb (apply '+ (mapcar (lambda (chn)
                                     (with-current-buffer chn
                                       (1- (length (erc-get-channel-user-list)))))
                                   chnl)))
           (show (format "is connected to %i networks and talks in %i chans to %i ppl overall :>"
                         (length srvl)
                         (- (length chnl) (length srvl))
                         memb)))
      (erc-send-action (erc-default-target) show)))
  (defalias 'erc-cmd-SO 'erc-cmd-SHOWOFF)

;; add /wii

(defun erc-cmd-WII (user)
  "Display whois information for USER, with idle time."
  (let ((send (format "WHOIS %s %s" user user)))
                    (erc-log (format "cmd: %s" send))
    (erc-server-send send)
  t))

;; add /howmany

(defun erc-cmd-HOWMANY (&rest ignore)
  "Display how many users (and ops) the current channel has."
  (erc-display-message
   nil 'notice (current-buffer)
   (let ((hash-table (with-current-buffer
                         (erc-server-buffer)
                       erc-server-users))
         (users 0)
         (ops 0))
     (maphash (lambda (k v)
                (when (member (current-buffer)
                              (erc-server-user-buffers v))
                  (incf users))
                (when (erc-channel-user-op-p k)
                  (incf ops)))
              hash-table)
     (format
      "There are %s users (%s ops) on the current channel"
      users ops))))