mirror of
https://github.com/fish-shell/fish-shell.git
synced 2024-12-03 16:44:00 +08:00
79 lines
3.3 KiB
Fish
79 lines
3.3 KiB
Fish
|
# ht Bob B@Clojurians Slack
|
||
|
|
# https://raw.githubusercontent.com/bobisageek/bb-scripts/main/clj-alils.clj
|
||
|
|
#
|
||
|
|
# Babashka code for listing all aliases and tools available from the current context
|
||
|
|
# based on :config-files from `clojure -Sdescribe`
|
||
|
|
|
||
|
|
set -l bb_helper '
|
||
|
|
(require \'[babashka.fs :as fs])
|
||
|
|
|
||
|
|
(def config (->> (with-out-str (babashka.tasks/clojure "-Sdescribe"))
|
||
|
|
clojure.edn/read-string))
|
||
|
|
|
||
|
|
(defn configs []
|
||
|
|
(reverse (:config-files config)))
|
||
|
|
|
||
|
|
(defn aliases-from-config [path]
|
||
|
|
(->> (clojure.edn/read-string (slurp path))
|
||
|
|
:aliases
|
||
|
|
keys
|
||
|
|
(map name)
|
||
|
|
sort))
|
||
|
|
|
||
|
|
(defn installed-tools
|
||
|
|
[]
|
||
|
|
(as-> config $
|
||
|
|
(:config-dir $)
|
||
|
|
(str $ "/tools/")
|
||
|
|
(fs/match $ "regex:.*\\\\.edn")
|
||
|
|
(map fs/file-name $)
|
||
|
|
(map #(fs/strip-ext % {:ext "edn"}) $)))
|
||
|
|
|
||
|
|
(defn aliases []
|
||
|
|
(->> (configs)
|
||
|
|
(mapcat aliases-from-config)
|
||
|
|
dedupe))
|
||
|
|
|
||
|
|
(run! println
|
||
|
|
(case (first *command-line-args*)
|
||
|
|
"tools" (installed-tools)
|
||
|
|
(aliases)))'
|
||
|
|
|
||
|
|
function __fish_clj_aliases -V bb_helper
|
||
|
|
command -q bb ; or return
|
||
|
|
bb -e "$bb_helper"
|
||
|
|
end
|
||
|
|
|
||
|
|
function __fish_clj_tools -V bb_helper
|
||
|
|
command -q bb ; or return
|
||
|
|
bb -e "$bb_helper" tools
|
||
|
|
end
|
||
|
|
|
||
|
|
complete -c clj -s X -x -r -k -a "(__fish_complete_list : __fish_clj_aliases)" -d "Use concatenated aliases to modify classpath or supply exec fn/args"
|
||
|
|
complete -c clj -s A -x -r -k -a "(__fish_complete_list : __fish_clj_aliases)" -d "Use concatenated aliases to modify classpath"
|
||
|
|
complete -c clj -s M -x -r -k -a "(__fish_complete_list : __fish_clj_aliases)" -d "Use concatenated aliases to modify classpath or supply main opts"
|
||
|
|
complete -c clj -s T -x -r -k -a "(__fish_complete_list : __fish_clj_tools)" -d "Invoke tool by name or via aliases ala -X"
|
||
|
|
|
||
|
|
complete -c clj -f -o Sdeps -r -d "Deps data to use as the last deps file to be merged"
|
||
|
|
complete -c clj -f -o Spath -d "Compute classpath and echo to stdout only"
|
||
|
|
complete -c clj -f -o Spom -d "Generate (or update) pom.xml with deps and paths"
|
||
|
|
complete -c clj -f -o Stree -d "Print dependency tree"
|
||
|
|
complete -c clj -f -o Scp -r -d "Do NOT compute or cache classpath, use this one instead"
|
||
|
|
complete -c clj -f -o Srepro -d "Ignore the ~/.clojure/deps.edn config file"
|
||
|
|
complete -c clj -f -o Sforce -d "Force recomputation of the classpath (don't use the cache)"
|
||
|
|
complete -c clj -f -o Sverbose -d "Print important path info to console"
|
||
|
|
complete -c clj -f -o Sdescribe -d "Print environment and command parsing info as data"
|
||
|
|
complete -c clj -f -o Sthreads -d "Set specific number of download threads"
|
||
|
|
complete -c clj -f -o Strace -d "Write a trace.edn file that traces deps expansion"
|
||
|
|
|
||
|
|
complete -c clj -k -f -s h -l help -d "Show help"
|
||
|
|
complete -c clj -f -s P -d "Prepare deps - download libs, cache classpath, but don't exec"
|
||
|
|
complete -c clj -s J -d "Pass opt through in java_opts, ex: -J-Xmx512m"
|
||
|
|
complete -c clj -s i -l init -r -d "Load a file or resource"
|
||
|
|
complete -c clj -f -s e -l eval -r -d "Eval exprs in string; print non-nil values"
|
||
|
|
complete -c clj -f -l report -d "Report uncaught exception to \"file\" (default), \"stderr\", or \"none\""
|
||
|
|
complete -c clj -f -o version -l version -d "Print the version to stdout and exit"
|
||
|
|
complete -c clj -f -s m -l main -d "Call the -main function from namespace w/args"
|
||
|
|
complete -c clj -f -s r -l repl -d "Run a repl"
|
||
|
|
complete -c clj -r -d "Run a script from a file or resource"
|