I have a Bash script my.sh with commands such as:
jup () {
conda activate
cd
jupyter notebook
}
I source this file in .bash_profile with source my.sh and then I can run the command with jup.
I would like to prefix all functions included in the script with the basename of the script, so that in bash I would write my-jup instead.
Is that possible?
You could do something like:
source <(
env -i bash -o noglob -c '
source path/to/my.sh &&
for f in $(compgen -A function); do
printf my-
typeset -f -- "$f"
done'
)
Which starts a new bash instance (so without any function defined as long as there's no $BASH_ENV or exported function in the environment which we make sure of with env -i), loops over the functions that are defined after sourcing the file and outputs their definition with my- prefixed to the name.
The result is fed via a pipe to source using process substitution.
A zsh equivalent could be something like:
source <(
zsh -fc '
source path/to/my.sh &&
(( $#functions )) &&
printf "my-%q() {\n%s\n}\n" "${(@kv)functions}"'
)
($functions is the special associative array that maps function names to their definition, ${(kv)functions} expands to both keys and values of that associative array, @ and double quotes are to preserve empty elements (a function name can be any string including the empty string in zsh)).
You could create a list of all functions before and after sourcing the file with something like this:
compgen -A function
create the difference and create a kind of alias or a real alias for all functions:
function my-foo () { foo "$@"; }
alias my-foo=foo
pre="$( compgen -A function )"
source my.sh
post="$( compgen -A function )"
grep -v -x -f <(echo "$pre") <(echo "$post") |
while read funcname; do
echo alias "${funcname}=my-funcname"
done
This just shows what it would to. Remove the echo to activate the change.
compgen -A function would be a more reliable way to get a list of functions in bash.
my- prefix so the my-jupyter function calls the jupyter command (itself possibly being an already defined separate function), so that wrapping of foo as my-foo approach would not work.
has to be enabled in a script with shopt -s expand_aliases`, though.
shopt not necessary.
perl -i.bak -pe 's/^\s*(\S+)(\s*\(\)\s*\{)/my-$1$2/' my.sh. Or does this have to happen on the fly?