blob: 27219f24b5efbb103f3819452a1338cb882987ca (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(defpackage :shell-echo-bot
(:use #:cl #:granolin))
(in-package :shell-echo-bot)
(defclass shell-echo-bot (client
message-log
server-directory
auto-joiner)
())
(defun login-and-run (user pw homeserver)
(let ((bot (make-instance 'shell-echo-bot :homeserver homeserver)))
(login bot user pw)
(start bot)))
|
