31 lines
1.4 KiB
EmacsLisp
31 lines
1.4 KiB
EmacsLisp
|
;; -*- lexical-binding: t; -*-
|
||
|
|
(defun set-proxy (proxy)
|
||
|
|
(setq url-proxy-services
|
||
|
|
`(("https" . ,proxy)
|
||
|
|
("http" . ,proxy)
|
||
|
|
("no_proxy" . "^\\(127\\.0\\.0\\.1\\|localhost\\|.*local\\|169\\.254\\.169\\.254\\|.*kdc\\.capitalone\\.com\\|.*cloud\\.capitalone\\.com\\|.*clouddqt\\.capitalone.com\\)")))
|
||
|
|
(setenv "https_proxy" proxy)
|
||
|
|
(setenv "http_proxy" proxy)
|
||
|
|
(setenv "no_proxy" "127.0.0.1,localhost,.local,.internal,169.254.169.254,.kdc.capitalone.com,.cloud.capitalone.com,.clouddqt.capitalone.com,.cloud.uk.capitalone.com,.clouddqt.uk.capitalone.com"))
|
||
|
|
|
||
|
|
(defun cofproxy ()
|
||
|
|
(interactive)
|
||
|
|
(request "http://127.0.0.1:44444/proxy.pac"
|
||
|
|
:sync t
|
||
|
|
:success (cl-function
|
||
|
|
(lambda (&key data &allow-other-keys)
|
||
|
|
(let ((line))
|
||
|
|
(with-temp-buffer
|
||
|
|
(insert data)
|
||
|
|
(search-backward "return \"PROXY")
|
||
|
|
(setq line (string-trim (thing-at-point 'line t))))
|
||
|
|
(setq line (string-trim-right
|
||
|
|
(string-trim-left line "return \"PROXY ") "\";"))
|
||
|
|
(setq line (concat "http://" line))
|
||
|
|
(set-proxy line)
|
||
|
|
(message "Proxy Set: %s" line))))))
|
||
|
|
|
||
|
|
(add-hook 'after-init-hook #'cofproxy)
|
||
|
|
|
||
|
|
(provide 'init-cof)
|