profile
viewpoint
If you are wondering where the data of this site comes from, please visit https://api.github.com/users/holomorph/events. GitMemory does not store any data, but only uses NGINX to cache data for a period of time. The idea behind GitMemory is simply to give users a better reading experience.

holomorph/transmission 76

Emacs interface to a Transmission session

holomorph/systemd-mode 50

Major mode for editing systemd units

holomorph/emacs-zenburn 3

A port of the high contrast mode of Zenburn

holomorph/dwmstatus 2

A dwm status line, forked from the suckless project

holomorph/freefem 1

Build scripts for FreeFem++

holomorph/afdko 0

Adobe Font Development Kit for OpenType

holomorph/company-mode 0

Modular in-buffer completion framework for Emacs

holomorph/darktable 0

darktable is an open source photography workflow application and raw developer

issue commentholomorph/transmission

Freezing when used with HTTP proxy

Thanks. Since transmission doesn't use url.el (eww does), it has no notion of proxy handling, and it will have to be implemented. I wonder if this very naive, untested patch will work for your case :)

diff --git a/transmission.el b/transmission.el
index 8624a40..6e27411 100644
--- a/transmission.el
+++ b/transmission.el
@@ -401,7 +401,10 @@ defun transmission-http-post (process content)
     (let ((auth (transmission--auth-string)))
       (when auth (push (cons "Authorization" auth) headers)))
     (with-temp-buffer
-      (insert (concat "POST " transmission-rpc-path " HTTP/1.1\r\n"))
+      ;; assuming a proxy, ignoring local/sockets
+      (let ((uri (format "http://%s:%s%s" transmission-host transmission-service
+                         transmission-rpc-path)))
+        (insert (concat "POST " uri " HTTP/1.1\r\n")))
       (dolist (elt headers)
         (insert (format "%s: %s\r\n" (car elt) (cdr elt))))
       (insert "\r\n" content)
@@ -437,6 +440,8 @@ defun transmission-make-network-process ()
 custom variables `transmission-host' and `transmission-service'."
   (let ((socket (when (file-name-absolute-p transmission-host)
                   (expand-file-name transmission-host)))
+        (proxy (let ((s (getenv "http_proxy")))
+                 (when s (url-generic-parse-url s))))
         buffer process)
     (unwind-protect
         (prog1
@@ -444,8 +449,10 @@ defun transmission-make-network-process ()
                   process
                   (make-network-process
                    :name "transmission" :buffer buffer
-                   :host (when (null socket) transmission-host)
-                   :service (or socket transmission-service)
+                   :host (if proxy (url-host proxy)
+                           (when (null socket) transmission-host))
+                   :service (if proxy (url-port proxy)
+                              (or socket transmission-service))
                    :family (when socket 'local) :noquery t
                    :coding 'binary :filter-multibyte nil))
           (setq buffer nil process nil))
arifer612

comment created time in 2 months

push eventholomorph/transmission

Mark Oteiza

commit sha 2378a2653831e0c07de41202127bd35e89b4f259

don't bother calculating this list length

view details

Mark Oteiza

commit sha 299bed8bb4d03cfad6b8f759d52eb01d8927e3ad

add a sorter for wanted files * sorting on this column now puts "yes" first instead of second

view details

Mark Oteiza

commit sha a03a6f5c7b133e0a37896b6d993dd6d6d4532cc2

remove unused key

view details

push time in 2 months