Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 9 lines (7 sloc) 204 Bytes
#!/bin/sh
find . -type f \
| sort \
| perl -MFile::LsColor=ls_color_internal -lne \
'if($_ =~ m{^([.]/)([^/]+)/(.+)}) {
printf "\e[1;3m$1\e[m\e[38;5;30m$2/\e[m%s\n", ls_color_internal($3)
}'