Variable: socks-server

socks-server is a customizable variable defined in socks.el.gz.

Value

("Default server" "socks" 1080 5)

Documentation

Socks server.

Probably introduced at or before Emacs version 30.1.

Source Code

;; Defined in /usr/src/emacs/lisp/net/socks.el.gz
;; (defcustom socks-server-aliases nil
;;   "A list of server aliases for use in access control and filtering rules."
;;   :type '(repeat (list :format "%v"
;;                     :value ("" "" 1080 5)
;;                     (string :tag "Alias")
;;                     (string :tag "Hostname/IP Address")
;;                     (integer :tag "Port #")
;;                     (choice :tag "SOCKS Version"
;;                             (integer :tag "SOCKS v4" :value 4)
;;                             (integer :tag "SOCKS v5" :value 5)))))
;;
;; (defcustom socks-network-aliases
;;   '(("Anywhere" (netmask "0.0.0.0" "0.0.0.0")))
;;   "A list of network aliases for use in subsequent rules."
;;   :type '(repeat (list :format "%v"
;;                     :value (netmask "" "255.255.255.0")
;;                     (string :tag "Alias")
;;                     (radio-button-choice
;;                      :format "%v"
;;                      (list :tag  "IP address range"
;;                            (const :format "" :value range)
;;                            (string :tag "From")
;;                            (string :tag "To"))
;;                      (list :tag  "IP address/netmask"
;;                            (const :format "" :value netmask)
;;                            (string :tag "IP Address")
;;                            (string :tag "Netmask"))
;;                      (list :tag  "Domain Name"
;;                            (const :format "" :value domain)
;;                            (string :tag "Domain name"))
;;                      (list :tag  "Unique hostname/IP address"
;;                            (const :format "" :value exact)
;;                            (string :tag "Hostname/IP Address"))))))
;;
;; (defun s5-servers-filter ()
;;   (if socks-server-aliases
;;       (mapcar (lambda (x) (list 'const :tag (car x) :value (car x))) s5-server-aliases)
;;     '((const :tag "No aliases defined" :value nil))))
;;
;; (defun s5-network-aliases-filter ()
;;   (mapcar (lambda (x) (list 'const :tag (car x) :value (car x)))
;;        socks-network-aliases))
;;
;; (defcustom socks-redirection-rules
;;    nil
;;    "A list of redirection rules."
;;    :type '(repeat (list :format "%v"
;;                      :value ("Anywhere" nil)
;;                      (dynamic-choice :choice-function s5-network-aliases-filter
;;                                      :tag "Destination network")
;;                      (radio-button-choice
;;                       :tag "Connection type"
;;                       (const :tag "Direct connection" :value nil)
;;                       (dynamic-choice :format "%t: %[%v%]"
;;                                       :choice-function s5-servers-filter
;;                                       :tag "Proxy chain via")))))

(defcustom socks-server
  (list "Default server" "socks" 1080 5)
  "Socks server."
  :type '(list
	  (string :format "" :value "Default server")
	  (string :tag "Server")
	  (integer :tag "Port")
	  (radio-button-choice :tag "SOCKS Version"
			       :format "%t: %v"
			       (const :tag "SOCKS v4  " :format "%t" :value 4)
                               (const :tag "SOCKS v4a"  :format "%t" :value 4a)
			       (const :tag "SOCKS v5"   :format "%t" :value 5))))