opfez
/
anna
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix eval, prepare for multiple channels

master
opfez 2021-04-08 14:46:41 +00:00
parent 75f1f2f0a1
commit 022a90254f
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
anna.scm
View File

@ -6,6 +6,7 @@
(ice-9 format)) (ice-9 format))
(define +channel+ "#bots") (define +channel+ "#bots")
(define +channels+ '("#tildetown" "#bots"))
(define (scdr lst) (define (scdr lst)
"Safe CDR which will return the empty list if it is passed the empty list instead of throwing an error." "Safe CDR which will return the empty list if it is passed the empty list instead of throwing an error."
@ -56,8 +57,11 @@
(define (send-user stream) (define (send-user stream)
(format stream "USER anna 0.0.0.0 anna :Anna\r\n")) (format stream "USER anna 0.0.0.0 anna :Anna\r\n"))
(define (join-channel stream) (define (join-channels stream)
(format stream "JOIN ~a\r\n" +channel+)) ;; (for-each (lambda (chn)
;; (format stream "JOIN ~a\r\n" chn))
;; +channels+))
(format stream "JOIN ~a\r\n" "#bots"))
(define (send-message stream chn msg) (define (send-message stream chn msg)
(format stream "PRIVMSG ~a :~a\r\n" chn msg)) (format stream "PRIVMSG ~a :~a\r\n" chn msg))
@ -77,7 +81,7 @@
(equal? ":!anna" (slist-ref data 3))) (equal? ":!anna" (slist-ref data 3)))
(send-message stream +channel+ "Hello! I respond to !rollcall, !anna, and !eval <s-expr>.")) (send-message stream +channel+ "Hello! I respond to !rollcall, !anna, and !eval <s-expr>."))
((equal? ":!eval" (slist-ref data 3)) ((equal? ":!eval" (slist-ref data 3))
(let* ((expr (string-concatenate (intersperse " " (cdr (member ":eval" data)))))) (let* ((expr (string-concatenate (intersperse " " (cdr (member ":!eval" data))))))
(send-message stream +channel+ (eval (read (open-input-string expr)) (send-message stream +channel+ (eval (read (open-input-string expr))
(interaction-environment))))) (interaction-environment)))))
((and (= 7 (length data)) ((and (= 7 (length data))
@ -90,6 +94,6 @@
(let* ((io (make-connection "127.0.0.1" 6667))) (let* ((io (make-connection "127.0.0.1" 6667)))
(send-nick io) (send-nick io)
(send-user io) (send-user io)
(join-channel io) (join-channels io)
(main-loop io)) (main-loop io))