From cf44b525c25a41bae238f129d00647cbdafb7591 Mon Sep 17 00:00:00 2001
From: Cthulhux <git@tuxproject.de>
Date: Sun, 10 Mar 2019 17:03:36 +0100
Subject: [PATCH] Trying to fix #16

---
 src/main.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/main.lisp b/src/main.lisp
index 67bbde6..412fe85 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -2,6 +2,7 @@
 (defclass mediawiki ()
   ((url :accessor url :initarg :url :initform nil)
    (auth :accessor auth :initarg :auth :initform nil)
+   (proxy :accessor proxy :initarg :proxy :initform nil)
    (cookie-jar :accessor cookie-jar :initarg cookie-jar :initform (make-instance 'drakma:cookie-jar))))
 
 (defvar *mediawiki*)
@@ -36,6 +37,7 @@
           (drakma:http-request
            full-url
            :method method
+           :proxy (if (proxy *mediawiki*) (proxy *mediawiki*) drakma:*default-http-proxy*)
            :basic-authorization basic-authorization
            :force-ssl force-ssl
            :parameters api-params