这对我有用,它正确地进入了选择的结尾。我刚刚在上一个答案中添加了 osascript 部分,并将其放入由 Hans-Jörg Bibiko 编写的原始 R 包中的代码中。将“范围选择器”设置为“source.r”,将“输出”设置为“丢弃”。将“输入”设置为“行”,它会做我需要的事情:如果没有选择任何内容,则发送该行,否则发送选择。
编辑:它适用于选择,但不适用于线条。当您不选择文本时,它只会从文件顶部重新运行所有内容
edit2:解决了,我写信给 Hans-Jörg Bibiko,他指给我“输入”选项。
#!/usr/bin/env bash
# input is selection or document
rawText="$(cat | sed 's/ / /g;')"
curDir=''
if [[ ${#TM_DIRECTORY} -gt 0 ]]; then
curDir="$TM_DIRECTORY"
fi
osascript -e 'on run(theCode)' \
-e ' tell application "Terminal"' \
-e ' do script theCode in window 1' \
-e ' end tell' \
-e 'end run' -- "$rawText"
if [ "$TM_LINE_NUMBER" != "" ]; then
"$TM_MATE" -l "$(($TM_LINE_NUMBER+1)):1000000"
elif [[ $TM_SELECTION =~ [1-9][0-9]*:?[0-9]*-([1-9][0-9]*):?[0-9]* ]]; then
# Regular Selection
"$TM_MATE" -l "$((${BASH_REMATCH[1]}+1)):1000000"
elif [[ $TM_SELECTION =~ [1-9][0-9]*:?[0-9]*x([1-9][0-9]*):?[0-9]* ]]; then
# Block (option) selection
"$TM_MATE" -l "$((${BASH_REMATCH[1]}+1)):1000000"
else
"$TM_MATE"
fi