diff options
author | Pierre Neidhardt <mail@ambrevar.xyz> | 2019-05-07 09:47:38 +0200 |
---|---|---|
committer | Pierre Neidhardt <mail@ambrevar.xyz> | 2019-05-07 09:47:38 +0200 |
commit | b6804f0a27e06d45ed4417d0dbc67cc03fc588cd (patch) | |
tree | 9fdce6f3a8002e41f9711d5186c4659c0962de04 /source | |
parent | 3ad04d02f3dae8bdee40261f9c38aca1bc7124d9 (diff) |
Prefix toggle-proxy command with % and document as experimental
Diffstat (limited to 'source')
-rw-r--r-- | source/buffer.lisp | 5 | ||||
-rw-r--r-- | source/command.lisp | 1 |
2 files changed, 4 insertions, 2 deletions
diff --git a/source/buffer.lisp b/source/buffer.lisp index 510b8865e..1da56bcaa 100644 --- a/source/buffer.lisp +++ b/source/buffer.lisp @@ -144,9 +144,10 @@ item in the list, jump to the first item." (defparameter *proxy-url* "socks://127.0.0.1:9050" ) (defparameter *proxy-ignore-list* (list "localhost" "localhost:8080")) -(define-command toggle-proxy () +(define-command %toggle-proxy () "Toggle between system proxy and the proxy settings *PROXY-URL* and -*PROXY-IGNORE-LIST*." +*PROXY-IGNORE-LIST*. +Warning: This is experimental and will be removed in future versions." (let* ((active-buffer (active-buffer *interface*)) (proxy-settings (%%get-proxy *interface* active-buffer))) (if (string= (first proxy-settings) "default") diff --git a/source/command.lisp b/source/command.lisp index f4470a764..1f3845352 100644 --- a/source/command.lisp +++ b/source/command.lisp @@ -61,6 +61,7 @@ ARGLIST must be a list of optional arguments." ;; TODO: Find a reliable way to identify commands. We could use a class (we ;; used to have a COMMAND class) or some sort of symbol properties, or intern ;; the symbol into a special package (see `intern' documentation). +;; TODO: See cl:get or make a command class. (defun list-commands (&optional mode) "List commands. When MODE is a mode symbol, list only the commands that apply in this mode. |