From ddd82e88a1d799d147113eba08b85f289ed940ba Mon Sep 17 00:00:00 2001
From: gpwclark <gpwclark@gmail.com>
Date: Fri, 24 Jan 2025 05:43:16 -0500
Subject: [PATCH] might as well get rid of this

---
 legacy/contrib/gpwclark/bash-completions.lisp | 99 -------------------
 1 file changed, 99 deletions(-)
 delete mode 100644 legacy/contrib/gpwclark/bash-completions.lisp

diff --git a/legacy/contrib/gpwclark/bash-completions.lisp b/legacy/contrib/gpwclark/bash-completions.lisp
deleted file mode 100644
index 0c751dabc3..0000000000
--- a/legacy/contrib/gpwclark/bash-completions.lisp
+++ /dev/null
@@ -1,99 +0,0 @@
-;; This is a sl-sh file for people named price, you would put it in ~/.config/slsh/bash-completions.lisp to use it.
-
-(ns-import 'shell)
-
-;; completions {{{
-
-(defn get-completions-src
-	"Script used to get bash completions.
-	Section: bash-completions"
-	()
-	(str "
-		#
-		# Author: Brian Beffa <brbsix@gmail.com>
-		# Original source: https://brbsix.github.io/2015/11/29/accessing-tab-completion-programmatically-in-bash/
-		# License: LGPLv3 (http://www.gnu.org/licenses/lgpl-3.0.txt)
-		#
-
-		load_extra_completions_only() {
-            set -x
-			declare -i COMP_CWORD=0 COMP_POINT=0
-			declare -x completion="" COMP_LINE=""
-			declare -a COMP_WORDS COMPREPLY
-
-			# load bash-completion if necessary
-			declare -F _completion_loader &>/dev/null || {
-				source /usr/share/bash-completion/bash_completion
-			}
-
-			COMP_LINE=\"\$*\"
-			COMP_POINT=\"\${#COMP_LINE}\"
-
-			eval set -- \"\$@\"
-
-			COMP_WORDS=(\"\$@\")
-
-			# add '' to COMP_WORDS if the last character of the command line is a space
-			[[ \"\${COMP_LINE[@]: -1}\" = ' ' ]] && COMP_WORDS+=('')
-
-			# index of the last word
-			COMP_CWORD=\"\$(( \${#COMP_WORDS[@]} - 1 ))\"
-
-			# determine completion function
-			completion=\$(complete -p \"\$1\" 2>/dev/null | awk '{print \$(NF-1)}')
-
-			# only return if loading completion from _completion_loader was
-			# necessary. We are only interested in returning these completions
-			# sl-sh already has completions for things like cd
-			[[ -n \"\$completion\" ]] || {
-
-				# load completion
-				_completion_loader \"\$1\"
-
-				# detect completion
-				completion=\$(complete -p \"\$1\" 2>/dev/null | awk '{print \$(NF-1)}')
-
-				# ensure completion was detected
-				[[ -n \"\$completion\" ]] || return 1
-
-				# execute completion function
-				\"\$completion\"
-
-				# print completions to stdout
-				printf '%s\\n' \"\${COMPREPLY[@]}\" | LC_ALL=C sort
-			}
-		}
-	"))
-
-(defn get-bash-completion
-	"given a string, (theoretically one taken from the repl) list possible completions
-	Section: bash-completions"
-	(to-complete)
-	(str-split
-		"\n"
-		(str-trim
-			(str
-				(bash -c (str (get-completions-src) "
-					load_extra_completions_only \"" to-complete "\""))))))
-
-(defn check-bash-completion
-	"
-	Take args vec from repl and get list of completions that match.
-	Section: bash-completions"
-	(args)
-	(let ((arg-str (str-cat-list " " args)))
-		((fn (completions)
-			(if (and
-					(= 1 (length completions))
-					(str-empty? (first completions)))
-				:default
-				completions)) (get-bash-completion arg-str))))
-
-;; Completion hooks, the match is for the command and then custom completions can be returned.
-(defn __completion_hook (&rest args)
-	(match (first args)
-		("cd" :path)
-		("ls" :default)
-		(nil (check-bash-completion args))))
-
-;; }}}