2006-10-27 22:50:04 +00:00
|
|
|
|
2007-04-16 21:44:53 +00:00
|
|
|
function funcsave --description "Save the current definition of all specified functions to file"
|
2006-10-27 22:50:04 +00:00
|
|
|
|
2006-11-17 16:24:38 +00:00
|
|
|
if count $argv >/dev/null
|
|
|
|
switch $argv[1]
|
|
|
|
case -h --h --he --hel --help
|
2010-11-20 06:42:11 +00:00
|
|
|
__fish_print_help funcsave
|
2006-11-17 16:24:38 +00:00
|
|
|
return 0
|
|
|
|
end
|
2007-01-19 13:15:38 +00:00
|
|
|
else
|
2010-11-20 06:42:11 +00:00
|
|
|
printf (_ "%s: Expected function name\n") funcsave
|
|
|
|
__fish_print_help funcsave
|
|
|
|
return 1
|
2006-11-17 16:24:38 +00:00
|
|
|
end
|
|
|
|
|
2006-10-27 22:50:04 +00:00
|
|
|
set -l res 0
|
|
|
|
|
|
|
|
set -l configdir ~/.config
|
|
|
|
if set -q XDG_CONFIG_HOME
|
|
|
|
set configdir $XDG_CONFIG_HOME
|
|
|
|
end
|
|
|
|
|
|
|
|
for i in $configdir $configdir/fish $configdir/fish/functions
|
2006-11-29 14:02:29 +00:00
|
|
|
if not test -d $i
|
2006-12-14 18:24:09 +00:00
|
|
|
if not command mkdir $i >/dev/null
|
2010-11-20 06:42:11 +00:00
|
|
|
printf (_ "%s: Could not create configuration directory\n") funcsave
|
2006-10-27 22:50:04 +00:00
|
|
|
return 1
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
for i in $argv
|
2012-06-30 02:22:41 +00:00
|
|
|
if functions -q -- $i
|
|
|
|
functions -- $i > $configdir/fish/functions/$i.fish
|
2006-10-27 22:50:04 +00:00
|
|
|
else
|
2010-11-20 06:42:11 +00:00
|
|
|
printf (_ "%s: Unknown function '%s'\n") funcsave $i
|
2006-10-27 22:50:04 +00:00
|
|
|
set res 1
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
return $res
|
|
|
|
end
|
|
|
|
|