X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=demos%2Fircbot.scm;h=49b241f28f3552ebaf7815dc65826cf8d78ba0f4;hp=0aef0d5430cc93c9849973c7f33727f76f920758;hb=c931d867f132da7c45f4f22b879433e07d2b463b;hpb=39fce509440e467188270625bf728b1c57ef9e26

diff --git a/demos/ircbot.scm b/demos/ircbot.scm
index 0aef0d5..49b241f 100755
--- a/demos/ircbot.scm
+++ b/demos/ircbot.scm
@@ -2,25 +2,26 @@
 -e main -s
 !#
 
-;; Copyright (C) 2015 Christopher Allan Webber <cwebber@dustycloud.org>
+;;; 8sync --- Asynchronous programming for Guile
+;;; Copyright (C) 2015 Christopher Allan Webber <cwebber@dustycloud.org>
+;;;
+;;; This file is part of 8sync.
+;;;
+;;; 8sync is free software: you can redistribute it and/or modify it
+;;; under the terms of the GNU Lesser General Public License as
+;;; published by the Free Software Foundation, either version 3 of the
+;;; License, or (at your option) any later version.
+;;;
+;;; 8sync is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU Lesser General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU Lesser General Public
+;;; License along with 8sync.  If not, see <http://www.gnu.org/licenses/>.
 
-;; This library is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU Lesser General Public
-;; License as published by the Free Software Foundation; either
-;; version 3 of the License, or (at your option) any later version.
-;;
-;; This library is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; Lesser General Public License for more details.
-;;
-;; You should have received a copy of the GNU Lesser General Public
-;; License along with this library; if not, write to the Free Software
-;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-;; 02110-1301 USA
-
-(use-modules (eightsync systems irc)
-             (eightsync agenda)
+(use-modules (8sync systems irc)
+             (8sync agenda)
              (ice-9 match))
 
 (define (handle-message socket my-name speaker
@@ -33,11 +34,14 @@
      (match action
        ("botsnack"
         (irc-format socket "PRIVMSG ~a :Yippie! *does a dance!*" channel))
+       ((or "hello" "hello!" "hello." "greetings" "greetings." "greetings!"
+            "hei" "hei." "hei!")
+        (irc-format socket "PRIVMSG ~a :Oh hi ~a!" channel speaker))
        ;; Add yours here
        (_
         (irc-format socket "PRIVMSG ~a :*stupid puppy look*" channel))))
-    (_ 
-     (cond 
+    (_
+     (cond
       (is-action
        (format #t "~a emoted ~s in channel ~a\n"
                speaker message channel))