From 2ace5fa1648b530f5cf0b19ad32c9a4fe44334fc Mon Sep 17 00:00:00 2001
From: Profpatsch <mail@profpatsch.de>
Date: Mon, 9 Sep 2019 01:54:51 +0200
Subject: `abc foo --bar` can be completed

---
 pkgs/profpatsch/dhallsh/main.dhall | 25 +++++++++++++++++++++++--
 1 file changed, 23 insertions(+), 2 deletions(-)

(limited to 'pkgs/profpatsch/dhallsh')

diff --git a/pkgs/profpatsch/dhallsh/main.dhall b/pkgs/profpatsch/dhallsh/main.dhall
index 36be6142..86300b79 100644
--- a/pkgs/profpatsch/dhallsh/main.dhall
+++ b/pkgs/profpatsch/dhallsh/main.dhall
@@ -125,7 +125,7 @@ in  let fishSeenSubcommandFn = "__fish_seen_subcommand_from"
 
 	let fishUseSubcommandFn = "__fish_use_subcommand"
 
-	let foo
+	let fooSubcommand
 		: Command Argument
 		= completeToCommand
 		  (   complete { cmd = "abc", description = "this is foo option" }
@@ -136,5 +136,26 @@ in  let fishSeenSubcommandFn = "__fish_seen_subcommand_from"
 			  }
 		  )
 
-	in    [ argCommandToList foo, [ "complete", "--do-complete=abc " ] ]
+	let fooSubcommandBarOption
+		: Command Argument
+		= completeToCommand
+		  (   complete { cmd = "abc", description = "will bar the baz" }
+			⫽ { condition =
+				  Some
+				  { cmd =
+					  fishSeenSubcommandFn
+				  , args =
+					  [ Argument.Plain "foo" ]
+				  }
+			  , long-option =
+				  Some "bar"
+			  , short-option =
+				  Some "b"
+			  }
+		  )
+
+	in    [ argCommandToList fooSubcommand
+		  , argCommandToList fooSubcommandBarOption
+		  , [ "complete", "--do-complete=abc foo -" ]
+		  ]
 		: List (List Text)
-- 
cgit 1.4.1