From df2a90c9b8b21330def0f62526d7ea20fc089413 Mon Sep 17 00:00:00 2001
From: louie <louietan@hotmail.com>
Date: Mon, 10 Feb 2020 19:51:02 +0800
Subject: [PATCH] Remove the dependency on request.el

---
 anki-editor.el | 59 +++++++++++++++++++++++++++++++++++++++-----------
 1 file changed, 46 insertions(+), 13 deletions(-)

diff --git a/anki-editor.el b/anki-editor.el
index eddf7df..8035c9b 100644
--- a/anki-editor.el
+++ b/anki-editor.el
@@ -5,7 +5,7 @@
 ;; Description: Make Anki Cards in Org-mode
 ;; Author: Lei Tan
 ;; Version: 0.3.3
-;; Package-Requires: ((emacs "25.1") (request "0.3.0"))
+;; Package-Requires: ((emacs "25.1"))
 ;; URL: https://github.com/louietan/anki-editor
 ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -63,7 +63,6 @@
 (require 'org-element)
 (require 'ox)
 (require 'ox-html)
-(require 'request)
 
 (defconst anki-editor-prop-note-type "ANKI_NOTE_TYPE")
 (defconst anki-editor-prop-note-id "ANKI_NOTE_ID")
@@ -118,6 +117,40 @@ form entries."
 
 ;;; AnkiConnect
 
+(cl-defun anki-editor--fetch (url
+                              &rest settings
+                              &key type data success error parser
+                              &allow-other-keys)
+  "This is a simplistic little function to make http requests using cURL.
+The api is borrowed from request.el.  It exists because
+request.el's sync mode calls cURL asynchronously under the hood,
+which doesn't work on some machines (like mine) where the process
+sentinel never gets called.  After some debugging of Emacs, it
+seems that in 'process.c' the pselect syscall to the file
+descriptor of inotify used by 'autorevert' always returns a
+nonzero value and causes 'status_notify' never being called.  To
+determine whether it's a bug in Emacs and make a patch requires
+more digging."
+  (let ((tempfile (make-temp-file "emacs-anki-editor"))
+        (responsebuf (generate-new-buffer " *anki-editor-curl*")))
+    (with-temp-file tempfile
+      (setq buffer-file-coding-system 'utf-8)
+      (set-buffer-multibyte t)
+      (insert data))
+    (unwind-protect
+        (with-current-buffer responsebuf
+          (apply #'call-process "curl" nil t nil (list
+                                                  url
+                                                  "--silent"
+                                                  "-X" type
+                                                  "--data-binary"
+                                                  (concat "@" tempfile)))
+
+          (goto-char (point-min))
+          (apply success (list :data (funcall parser))))
+      (kill-buffer responsebuf)
+      (delete-file tempfile))))
+
 (defun anki-editor-api-call (action &rest params)
   "Invoke AnkiConnect with ACTION and PARAMS."
   (let ((payload (list :action action :version anki-editor-api-version))
@@ -128,17 +161,17 @@ form entries."
     (when params
       (plist-put payload :params params))
 
-    (request (format "http://%s:%s"
-                     anki-editor-api-host
-                     anki-editor-api-port)
-             :type "POST"
-             :parser 'json-read
-             :data (json-encode payload)
-             :success (cl-function (lambda (&key data &allow-other-keys)
-                                     (setq reply data)))
-             :error (cl-function (lambda (&key _ &key error-thrown &allow-other-keys)
-                                   (setq err (string-trim (cdr error-thrown)))))
-             :sync t)
+    (anki-editor--fetch (format "http://%s:%s"
+                                anki-editor-api-host
+                                anki-editor-api-port)
+                        :type "POST"
+                        :parser 'json-read
+                        :data (json-encode payload)
+                        :success (cl-function (lambda (&key data &allow-other-keys)
+                                                (setq reply data)))
+                        :error (cl-function (lambda (&key error-thrown &allow-other-keys)
+                                              (setq err (string-trim (cdr error-thrown)))))
+                        :sync t)
     (when err (error "Error communicating with AnkiConnect using cURL: %s" err))
     (or reply (error "Got empty reply from AnkiConnect"))))