mirror of
https://github.com/fish-shell/fish-shell
synced 2024-11-15 09:27:38 +00:00
28 lines
1,018 B
Fish
28 lines
1,018 B
Fish
|
function __fish_preview_current_file --description "Open the file at the cursor in a pager"
|
||
|
set -l pager less --
|
||
|
set -q PAGER && echo $PAGER | read -at pager
|
||
|
|
||
|
# commandline -t will never return an empty list. However, the token
|
||
|
# could comprise multiple lines, so join them into a single string.
|
||
|
set -l file (commandline -t | string collect)
|
||
|
|
||
|
if test -z $file
|
||
|
# $backslash will parsed as regex which may need additional escaping.
|
||
|
set -l backslash '\\\\'
|
||
|
not status test-feature regex-easyesc && set backslash $backslash$backslash
|
||
|
set file (string replace -ra -- '([ ;#^<>&|()"\'])' "$backslash\$1" (commandline -oc)[-1])
|
||
|
end
|
||
|
|
||
|
set -q file[1] || return
|
||
|
|
||
|
# strip -option= from token if present
|
||
|
set file (string replace -r -- '^-[^\s=]*=' '' $file | string collect)
|
||
|
|
||
|
eval set -l files $file || return # Bail if $file does not tokenize.
|
||
|
|
||
|
if set -q files[1] && test -f $files[1]
|
||
|
$pager $files
|
||
|
commandline -f repaint
|
||
|
end
|
||
|
end
|