Clojure：两步发送iOS推送通知（apns）

首先在project.clj中，添加对notnoop 类库的引用：[com.notnoop.apns/apns "0.2.3"]

然后使用如下方法就可以发送推送消息了：

 (ns demo.apns
   (:import (com.notnoop.apns APNS)))

 (defn send-push-notification
   [device-tokens message]
   (loop [rest-device-tokens device-tokens
          sent-count 0]
     (if (empty? rest-device-tokens)
       sent-count
       (do
         (let [service (.build (.withSandboxDestination
                                 (.withCert (APNS/newService)
                                            "resources/demo.p12"
                                            "password")))
               payload (.build (.alertBody (APNS/newPayload) message))]
           (.push service (first rest-device-tokens) payload))
         (recur (rest rest-device-tokens) (inc sent-count))))))

调用方法如下：

(send-push-notification [“token1” “token2” …] “test message”)

需要注意证书必须为p12格式（可以通过KeyChain Access软件转换）