作者 Anonymous [scheme] 2012-01-13 20:17 (点击下载)

 (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))))
 
  (defun erc-cmd-SHOW (&rest form)
    "Eval FORM and send the result and the original form as:
 FORM => (eval FORM)."
    (let* ((form-string (mapconcat 'identity form " "))
           (result
            (condition-case err
                (eval (read-from-whole-string form-string))
              (error
               (format "Error: %s" error)))))
      (erc-send-message (format "%s => %S" form-string result))))