chatikbot/vk.lisp

(in-package #:chatikbot)

(defparameter +vk-api-url+ "https://api.vk.com/method/~A?v=5.34" "VK.com API endpoint")

(defun %vk-api-call (method &optional args)
  (handler-case
      (bordeaux-threads:with-timeout (5)
	(let* ((params (loop for (k . v) in args
			  when v
			  collect (cons
				   (princ-to-string k)
				   (princ-to-string v))))
	       (response (yason:parse
			  (flexi-streams:octets-to-string
			   (drakma:http-request (format nil +vk-api-url+ method)
						:method :post
						:parameters params
						:external-format-out :utf8)
			   :external-format :utf8)
			  :object-as :alist)))
	  (when (aget "error" response)
	    (error (aget "error_msg" (aget "error" response))))
	  (aget "response" response)))
    (bordeaux-threads:timeout (e)
      (declare (ignore e))
      (error "Timeout"))))

(defun vk-wall-get (&key owner-id domain offset count filter extended)
  (%vk-api-call "wall.get"
                (list (cons "owner_id" owner-id)
                      (cons "domain" domain)
                      (cons "offset" offset)
                      (cons "count" count)
                      (cons "filter" filter)
                      (cons "extended" extended))))