2007-04-17 07:44:53 +10:00
|
|
|
function funcsave --description "Save the current definition of all specified functions to file"
|
2020-06-24 20:43:56 +02:00
|
|
|
set -l options h/help 'd/directory='
|
2018-11-22 12:43:35 +01:00
|
|
|
argparse -n funcsave $options -- $argv
|
2017-07-13 13:35:26 -07:00
|
|
|
or return
|
2006-10-28 08:50:04 +10:00
|
|
|
|
2017-07-13 13:35:26 -07:00
|
|
|
if set -q _flag_help
|
2016-11-27 21:27:22 -08:00
|
|
|
__fish_print_help funcsave
|
2017-07-13 13:35:26 -07:00
|
|
|
return 0
|
2016-11-27 21:27:22 -08:00
|
|
|
end
|
|
|
|
|
2020-06-24 20:43:56 +02:00
|
|
|
if set -q _flag_directory
|
|
|
|
set funcdir $_flag_directory
|
|
|
|
else
|
|
|
|
set funcdir $__fish_config_dir/functions
|
|
|
|
end
|
2020-05-27 20:13:44 +02:00
|
|
|
|
2018-11-22 12:43:35 +01:00
|
|
|
if not set -q argv[1]
|
|
|
|
printf (_ "%ls: Expected at least %d args, got only %d\n") funcsave 1 0
|
|
|
|
return 1
|
|
|
|
end
|
|
|
|
|
2020-05-27 20:13:44 +02:00
|
|
|
if not mkdir -p $funcdir
|
|
|
|
printf (_ "%s: Could not create configuration directory '%s'\n") funcsave $funcdir
|
2018-10-21 15:24:38 +02:00
|
|
|
return 1
|
2016-11-27 21:27:22 -08:00
|
|
|
end
|
|
|
|
|
2017-07-25 14:02:50 -07:00
|
|
|
set -l retval 0
|
2017-07-13 13:35:26 -07:00
|
|
|
for funcname in $argv
|
|
|
|
if functions -q -- $funcname
|
2020-05-27 20:13:44 +02:00
|
|
|
functions -- $funcname >$funcdir/$funcname.fish
|
2016-11-27 21:27:22 -08:00
|
|
|
else
|
2017-07-13 13:35:26 -07:00
|
|
|
printf (_ "%s: Unknown function '%s'\n") funcsave $funcname
|
2017-07-25 14:02:50 -07:00
|
|
|
set retval 1
|
2016-11-27 21:27:22 -08:00
|
|
|
end
|
|
|
|
end
|
|
|
|
|
2017-07-25 14:02:50 -07:00
|
|
|
return $retval
|
2006-10-28 08:50:04 +10:00
|
|
|
end
|