textgears-check-api

(defun textgears-check-api (text)
  (with-current-buffer
      (url-retrieve-synchronously
       (concat "https://api.textgears.com/check.php?"
               (url-build-query-string `((text ,text)
                                         (key "DEMO_KEY")))))
    (if (not (url-http-parse-headers))
        (error "network error")
      (search-forward-regexp "\n\\s-*\n" nil t)
      (json-read))))