branch: externals/kiwix
commit cf6fc329872265c8422f81d89f31219b0c0e9efe
Author: stardiviner <[email protected]>
Commit: stardiviner <[email protected]>
add :status-code handler
---
kiwix.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/kiwix.el b/kiwix.el
index 74b3619..0efe368 100644
--- a/kiwix.el
+++ b/kiwix.el
@@ -224,7 +224,9 @@ Like in function `kiwix-ajax-search-hints'.")
(setq kiwix-server-available? nil)
(warn "kiwix.el ping server error: %S"
error-thrown)))
:success (cl-function (lambda (&key data &allow-other-keys)
- (setq kiwix-server-available? t))))))
+ (setq kiwix-server-available? t)))
+ :status-code '((404 . (lambda (&rest _) (message (format "Endpoint %s
does not exist." url))))
+ (500 . (lambda (&rest _) (message (format "Error from
%s." url))))))))
(defun kiwix-ajax-search-hints (input &optional selected-library)
"Instantly AJAX request to get available Kiwix entry keywords
