#
# Find directories that complete $argv[1], output them as completions
# with description $argv[2] if defined, otherwise use 'Directory'.
# If no arguments are provided, attempts to complete current commandline token.
#
function __fish_complete_directories -d "Complete directory prefixes" --argument comp desc
    if not set -q desc[1]
        set desc (_ "Directory")
    end

    if not set -q comp[1]
        set comp (commandline -ct)
    end

    set -l dirs $comp*/
    if set -q dirs[1]
        printf "%s\t$desc\n" $dirs
    end
end