Add a number of shell utilities

1 files changed, 27 insertions, 0 deletions

diff --git a/.local/bin/kubecontext b/.local/bin/kubecontext
new file mode 100755
index 0000000..ac99869
--- /dev/null
+++ b/.local/bin/kubecontext
@@ -0,0 +1,27 @@
+#! /usr/bin/env perl6
+
+#| Show all available contexts.
+multi sub MAIN ()
+{
+	run << kubectl config get-contexts >>;
+}
+
+#| Switch to a given context.
+multi sub MAIN (
+	#| The name of the context to switch to.
+	Str:D $context,
+) {
+	run << kubectl config use-context "$context" >>;
+}
+
+#| Switch to a given namespace in a given context.
+multi sub MAIN (
+	#| The name of the context to switch to.
+	Str:D $context,
+
+	#| The name of the namespace to switch to.
+	Str:D $namespace,
+) {
+	samewith($context);
+	run << kubectl config set-context --current "--namespace=$namespace" >>;
+}