[file_previewer.sh]: Add Perl-specific previews

This commit is contained in:
2024-09-03 01:17:06 +01:00
parent 5a6a66f08a
commit 3a33fc9208

View File

@ -26,6 +26,9 @@ case "$(mimetype --brief -- "$file")" in
application/x-pcapng) application/x-pcapng)
tshark -r "$file" | bat --theme='base16' --terminal-width "$(($width-4))" --force-colorization;; # the --read-file option does not seem to work tshark -r "$file" | bat --theme='base16' --terminal-width "$(($width-4))" --force-colorization;; # the --read-file option does not seem to work
application/x-perl)
bat --theme='base16' --terminal-width "$(($width-4))" --force-colorization "$file";;
application/x-shellscript) application/x-shellscript)
bat --theme='base16' --terminal-width "$(($width-4))" --force-colorization "$file";; bat --theme='base16' --terminal-width "$(($width-4))" --force-colorization "$file";;