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

remove lgreets/rgreets, add greets name specifying

master
opfez 2021-08-19 16:22:47 +00:00
parent 8f0c0d2083
commit af4763ca21
1 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
anna.scm
View File

@ -267,6 +267,14 @@
(data (string-tokenize inl)) (data (string-tokenize inl))
(chn (scar (scdr (member "PRIVMSG" data)))) (chn (scar (scdr (member "PRIVMSG" data))))
(filtered-data (map input-filter data))) (filtered-data (map input-filter data)))
(define (get-greets left-or-right)
(if (= 4 (length data))
(number->string (all-greets left-or-right))
(greets left-or-right (slist-ref data 4))))
(define (left-greets)
(get-greets *left-greets*))
(define (right-greets)
(get-greets *right-greets*))
;; debug print ;; debug print
(format #t "~s~%" data) (format #t "~s~%" data)
(let ((command (slist-ref data 3))) (let ((command (slist-ref data 3)))
@ -275,7 +283,7 @@
(pong stream)) (pong stream))
((or (equal? ":!rollcall" command) ((or (equal? ":!rollcall" command)
(equal? ":!anna" command)) (equal? ":!anna" command))
(send-message stream chn "Hello! I respond to !anna, !tz <optionally user>, !greets, !lgreets <optionally user>, !rgreets <optionally user>, !dw <optionally \"eff\"> and !eval <s-expr>. My source code is available at https://git.tilde.town/opfez/anna")) (send-message stream chn "Hello! I respond to !anna, !tz <optionally user>, !greets <optionally user>, !dw <optionally \"eff\"> and !eval <s-expr>. My source code is available at https://git.tilde.town/opfez/anna"))
((equal? ":!eval" command) ((equal? ":!eval" command)
(let ((expr (string-concatenate (intersperse " " (cdr (member ":!eval" filtered-data)))))) (let ((expr (string-concatenate (intersperse " " (cdr (member ":!eval" filtered-data))))))
(send-message stream chn (evaluate expr)))) (send-message stream chn (evaluate expr))))
@ -287,21 +295,11 @@
(send-message stream chn (if (= 4 (length data)) (send-message stream chn (if (= 4 (length data))
(timezone (get-username (car data))) (timezone (get-username (car data)))
(timezone (slist-ref data 4))))) (timezone (slist-ref data 4)))))
((equal? ":!lgreets" command)
(format #t "~s~%" *left-greets*)
(send-message stream chn (if (= 4 (length data))
(greets *left-greets* (get-username (car data)))
(greets *left-greets* (slist-ref data 4)))))
((equal? ":!rgreets" command)
(format #t "~s~%" *right-greets*)
(send-message stream chn (if (= 4 (length data))
(greets *right-greets* (get-username (car data)))
(greets *right-greets* (slist-ref data 4)))))
((equal? ":!greets" command) ((equal? ":!greets" command)
(send-message stream chn (string-append "o/ - " (send-message stream chn (string-append "o/ - "
(number->string (all-greets *right-greets*)) (right-greets)
" vs \\o - " " vs \\o - "
(number->string (all-greets *left-greets*))))) (left-greets))))
((string-contains (empty-list->string (concat-messages data 3 (length data))) "\\o/") ((string-contains (empty-list->string (concat-messages data 3 (length data))) "\\o/")
#f) #f)
((string-contains (empty-list->string (concat-messages data 3 (length data))) "\\o") ((string-contains (empty-list->string (concat-messages data 3 (length data))) "\\o")