diff options
| author | Arun Isaac | 2023-10-09 20:34:44 +0100 |
|---|---|---|
| committer | Arun Isaac | 2023-10-09 22:00:00 +0100 |
| commit | d44f7188be84997f6660e6910bfadb5f7b1e9824 (patch) | |
| tree | 8120b2388b67cefb724d0f642a44a665125d35df | |
| parent | 17a76711d1f9bdaad133c9364a9bfd2ef10b8f22 (diff) | |
| download | ccwl-d44f7188be84997f6660e6910bfadb5f7b1e9824.tar.gz ccwl-d44f7188be84997f6660e6910bfadb5f7b1e9824.tar.lz ccwl-d44f7188be84997f6660e6910bfadb5f7b1e9824.zip | |
ccwl: Deprecate auto-connection of single input commands.
This seems like functionality that will be hard to support and will
almost never be used in a real-world workflow. This feature is not
even advertised in the manual. It is best to silently deprecate this
feature now.
* ccwl/ccwl.scm (collect-steps): Deprecate auto-connection of single
input commands.
| -rw-r--r-- | ccwl/ccwl.scm | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index f3d5c36..07eaeae 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -464,21 +464,6 @@ represented by <step> objects." key)) input-keys) (list))) - ;; ccwl functions with only a single input when only a single key - ;; is available at this step and when no inputs are passed to it - ((function (step-id)) - (and (function-object #'function) - (= (length input-keys) 1) - (= (length (function-input-keys - (function-object #'function))) - 1)) - (collect-steps #`(function (step-id) - #,(match (function-input-keys - (function-object #'function)) - ((command-key) (symbol->keyword command-key))) - #,(match input-keys - ((input-key) (key-name input-key)))) - input-keys)) ((function (step-id) args ...) ;; Run a whole bunch of tests so that we can produce useful error ;; messages. |