作者 Anonymous [lisp] 2012-01-24 18:46 (点击下载)

 
(defmacro de-erc-connect (command server port nick passwd)
  "Create interactive command `command', for connecting to an IRC server. The
      command uses interactive mode if passed an argument."
  (fset command
	`(lambda (arg)
	   (interactive "p")
	   (if (not (= 1 arg))
	       (call-interactively 'erc)
	     ;; (erc-tls :server ,server :port ,port :nick ,nick :password ,passwd)))))
	     (erc :server ,server :port ,port :nick ,nick :password ,passwd)))))
 
(de-erc-connect erc-fnode "irc.freenode.net" 6666 "用户名" "密码")