/
githubmirror
/
hacker-scripts
Обзор
Документация
Войти
/
githubmirror
/
hacker-scripts
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
clojure/hangover.clj
28 строк
728 B
Sam Adams
Clojure implementation (#174)
23 апр 2019, 12:16
23 апр 2019, 12:16
166cae8
Код
Авторство
О чём код?
(ns hacker-scripts.hangover (:import (com.twilio Twilio) (com.twilio.rest.api.v2010.account Message) (com.twilio.type PhoneNumber))) (def acc-sid "my twilio account SID") (def acc-tkn "my twilio secret token") (def my-num (PhoneNumber. "+10001112222")) (def boss-num (PhoneNumber. "+19998887777")) (def reasons ["Receiving delivery" "Waiting for repairman" "Nasty cold"]) (defn twilio-init [] (Twilio/init acc-sid acc-tkn)) (defn send-sms [to-num from-num message] (.. Message (creator to-num from-num message) create)) (def send-sms-boss (partial send-sms boss-num my-num)) (defn hangover [] (twilio-init) (let [message (rand-nth reasons)] (send-sms-boss message)))