fish-shell/share/functions/funced.fish
maxfl 792e246262 Add emacs to 'funced -e'
The order is also changed.
2012-06-29 16:42:34 -07:00

79 lines
2.2 KiB
Fish

function funced --description 'Edit function definition'
set -l external
if test (count $argv) = 2
for i in (seq 2)
switch $argv[$i]
case -e --editor
if set -q EDITOR
set external $EDITOR
end
if not type -f "$external" >/dev/null
for e in edit emacs vim joe mcedit nano pico vi
if type -f $e >/dev/null
set external $e
break
end
end
end
set -e argv[$i]
break
end
end
end
if test (count $argv) = 1
switch $argv
case '-h' '--h' '--he' '--hel' '--help'
__fish_print_help funced
return 0
case '-*'
printf (_ "%s: Unknown option %s\n") funced $argv
return 1
case '*'
set -l init ''
set -l tmp
if set -q external[1]
set -l tmpname (mktemp --suffix=.fish)
if functions -q $argv
functions $argv > $tmpname
else
echo "function $argv
end
" > $tmpname
end
eval $external $tmpname
. $tmpname
set -l stat $status
rm $tmpname >/dev/null
return $stat
end
set -l IFS
if functions -q $argv
# Shadow IFS here to avoid array splitting in command substitution
set init (functions $argv | fish_indent --no-indent)
else
set init function $argv\nend
end
set -l prompt 'printf "%s%s%s> " (set_color green) '$argv' (set_color normal)'
# Unshadow IFS since the fish_title breaks otherwise
set -e IFS
if read -p $prompt -c "$init" -s cmd
# Shadow IFS _again_ to avoid array splitting in command substitution
set -l IFS
eval (echo -n $cmd | fish_indent)
end
return 0
end
else
printf (_ '%s: Expected exactly one argument, got %s.\n\nSynopsis:\n\t%sfunced%s FUNCTION\n') funced (count $argv) (set_color $fish_color_command) (set_color $fish_color_normal)
end
end