388 lines
12 KiB
Plaintext
388 lines
12 KiB
Plaintext
shell_patterns=0
|
|
|
|
##############################################################################
|
|
# %% The % character
|
|
# %f The current file (if non-local vfs, file will be copied locally and
|
|
# %f will be full path to it)
|
|
# %p The current file
|
|
# %d The current working directory
|
|
# %s "Selected files"; the tagged files if any, otherwise the current file
|
|
# %t Tagged files
|
|
# %u Tagged files (and they are untagged on return from expand_format)
|
|
# %view Runs the commands and pipes standard output to the view command
|
|
# If %view is immediately followed by '{', recognize keywords
|
|
# ascii, hex, nroff and unform
|
|
#
|
|
# If the format letter is in uppercase, it refers to the other panel
|
|
#
|
|
# With a number followed the % character you can turn quoting on (default)
|
|
# and off. For example:
|
|
# %f quote expanded macro
|
|
# %1f ditto
|
|
# %0f don't quote expanded macro
|
|
##############################################################################
|
|
|
|
+ ! t t
|
|
@ Do something on the current file
|
|
CMD=%{Enter command}
|
|
$CMD %f
|
|
|
|
+ t t
|
|
@ Do something on the tagged files
|
|
CMD=%{Enter command}
|
|
for i in %t ; do
|
|
$CMD "$i"
|
|
done
|
|
|
|
0 Edit a bug report and send it to root
|
|
I=`mktemp "${MC_TMPDIR:-/tmp}/mail.XXXXXX"` || exit 1
|
|
${EDITOR-vi} "$I"
|
|
test -r "$I" && mail root < "$I"
|
|
rm -f "$I"
|
|
|
|
=+ f \.1$ | f \.3$ | f \.4$ | f \.5$ | f \.6$ | f \.7$ | f \.8$ | f \.man$ & t r
|
|
1 Display the file with roff -man
|
|
%view{ascii,nroff} roff -c -Tlatin1 -mandoc %f
|
|
|
|
2 Call the info hypertext browser
|
|
info
|
|
|
|
= t d
|
|
3 Compress the current subdirectory (tar.gz)
|
|
Pwd=`basename %d /`
|
|
echo -n "Name of the compressed file (without extension) [$Pwd]: "
|
|
read tar
|
|
[ "$tar"x = x ] && tar="$Pwd"
|
|
cd .. && \
|
|
tar cf - "$Pwd" | gzip -f9 > "$tar.tar.gz" && \
|
|
echo "../$tar.tar.gz created."
|
|
|
|
4 Compress the current subdirectory (tar.bz2)
|
|
Pwd=`basename %d /`
|
|
echo -n "Name of the compressed file (without extension) [$Pwd]: "
|
|
read tar
|
|
[ "$tar"x = x ] && tar="$Pwd"
|
|
cd .. && \
|
|
tar cf - "$Pwd" | bzip2 -f > "$tar.tar.bz2" && \
|
|
echo "../$tar.tar.bz2 created."
|
|
|
|
5 Compress the current subdirectory (tar.7z)
|
|
Pwd=`basename %d /`
|
|
echo -n "Name of the compressed file (without extension) [$Pwd]: "
|
|
read tar
|
|
[ "$tar"x = x ] && tar="$Pwd"
|
|
cd .. && \
|
|
tar cf - "$Pwd" | 7za a -si "$tar.tar.7z" && \
|
|
echo "../$tar.tar.7z created."
|
|
|
|
6 Compress the current subdirectory (tar.xz)
|
|
Pwd=`basename %d /`
|
|
echo -n "Name of the compressed file (without extension) [$Pwd]: "
|
|
read tar
|
|
[ "$tar"x = x ] && tar="$Pwd"
|
|
cd .. && \
|
|
tar cf - "$Pwd" | xz -f > "$tar.tar.xz" && \
|
|
echo "../$tar.tar.xz created."
|
|
|
|
7 Compress the current subdirectory (tar.zst)
|
|
Pwd=`basename %d /`
|
|
echo -n "Name of the compressed file (without extension) [$Pwd]: "
|
|
read tar
|
|
[ "$tar"x = x ] && tar="$Pwd"
|
|
cd .. && \
|
|
tar cf - "$Pwd" | zstd -f > "$tar.tar.zst" && \
|
|
echo "../$tar.tar.zst created."
|
|
|
|
I Open directory with image viewer
|
|
sxiv %d
|
|
|
|
V Open directory with video player
|
|
mpv %d
|
|
|
|
= f \.c$ & t r
|
|
+ f \.c$ & t r & ! t t
|
|
c Compile and link current .c file
|
|
make "`basename %f .c`" 2>/dev/null || cc -O -o "`basename %f .c`" %f
|
|
|
|
+ t r & ! t t
|
|
a Append file to opposite
|
|
cat %f >> %D/%f
|
|
|
|
+ t t
|
|
A Append files to opposite files
|
|
for i in %t ; do
|
|
cat "$i" >> %D/"$i"
|
|
done
|
|
|
|
+ t r & ! t t
|
|
d Delete file if a copy exists in the other directory.
|
|
if [ %d = %D ]; then
|
|
echo "The two directories must be different."
|
|
exit 1
|
|
fi
|
|
if [ -f %D/%f ]; then # if two of them, then
|
|
if cmp -s %D/%f %f; then
|
|
rm %f && echo %f": DELETED."
|
|
else
|
|
echo %f" and "%D/%f" differ: NOT deleted."
|
|
echo -n "Press RETURN "
|
|
read key
|
|
fi
|
|
else
|
|
echo %f": No copy in "%D/%f": NOT deleted."
|
|
fi
|
|
|
|
+ t t
|
|
D Delete tagged files if a copy exists in the other directory.
|
|
if [ %d = %D ]; then
|
|
echo "The two directores must be different."
|
|
exit 1
|
|
fi
|
|
for i in %t ; do
|
|
if [ -f %D/"$i" ]; then
|
|
SUM1=`sum "$i"`
|
|
SUM2=`sum %D/"$i"`
|
|
if [ "$SUM1" = "$SUM2" ]; then
|
|
rm "$i" && echo "${i}: DELETED."
|
|
else
|
|
echo "$i and "%D"/$i differ: NOT deleted."
|
|
fi
|
|
else
|
|
echo "$i has no copy in "%D": NOT deleted."
|
|
fi
|
|
done
|
|
|
|
m View manual page
|
|
MAN=%{Enter manual name}
|
|
%view{ascii,nroff} MANROFFOPT='-c -Tlatin1' MAN_KEEP_FORMATTING=1 man -P cat "$MAN"
|
|
|
|
= f \.gz$ & t r
|
|
+ ! t t
|
|
n Inspect gzip'ed newsbatch file
|
|
dd if=%f bs=1 skip=12 | zcat | ${PAGER-more}
|
|
# assuming the cunbatch header is 12 bytes long.
|
|
|
|
= t r &
|
|
+ ! t t
|
|
h Strip headers from current newsarticle
|
|
CHECK=`awk '{print $1 ; exit}' %f` 2>/dev/null
|
|
case "$CHECK" in
|
|
Newsgroups:|Path:)
|
|
I=`mktemp "${MC_TMPDIR:-/tmp}/news.XXXXXX"` || exit 1
|
|
cp %f "$I" && sed '/^'"$CHECK"' /,/^$/d' "$I" > %f
|
|
[ "$?" = "0" ] && rm "$I"
|
|
echo %f": header removed."
|
|
;;
|
|
*)
|
|
echo %f" is not a news article."
|
|
;;
|
|
esac
|
|
|
|
+ t t
|
|
H Strip headers from the marked newsarticles
|
|
for i in %t ; do
|
|
CHECK=`awk '{print $1 ; exit}' "$i"` 2>/dev/null
|
|
WFILE=`mktemp "${MC_TMPDIR:-/tmp}/news.XXXXXX"` || exit 1
|
|
case "$CHECK" in
|
|
Newsgroups:|Path:)
|
|
cp "$i" "$WFILE" && sed '/^'"$CHECK"' /,/^$/d' "$WFILE" > "$i"
|
|
if [ "$?" = "0" ]; then
|
|
rm "$WFILE"; echo "$i header removed. OK."
|
|
else
|
|
echo "Oops! Please check $i against $WFILE."
|
|
fi
|
|
;;
|
|
*)
|
|
echo "$i skipped: Not a news article."
|
|
;;
|
|
esac
|
|
done
|
|
|
|
=+ f \.jpg$ | f \.JPG$ | \.png$ | \.PNG$ & (t r | t l)
|
|
i Open with image viewer
|
|
sxiv %f
|
|
|
|
=+ f \.pdf$ | f \.PDF$ & (t r | t l)
|
|
p Open with PDF viewer
|
|
zathura %f
|
|
|
|
=+ f \.mp4$ | f \.MP4$ | \.m4v$ | \.M4V$ | \.mkv$ | \.MKV$ | \.avi$ | \.AVI$ | \.mpg$ | \.MPG$ | \.webm$ & (t r | t l)
|
|
v Open with video player
|
|
mpv %f
|
|
|
|
= t r
|
|
+ ! t t
|
|
r Copy file to remote host
|
|
echo -n "To which host?: "
|
|
read Host
|
|
echo -n "To which directory on $Host?: "
|
|
read Dir
|
|
rcp -p %f "${Host}:${Dir}"
|
|
|
|
+ t t
|
|
R Copy files to remote host (no error checking)
|
|
echo -n "Copy files to which host?: "
|
|
read Host
|
|
echo -n "To which directory on $Host? :"
|
|
read Dir
|
|
rcp -pr %u "${Host}:${Dir}"
|
|
|
|
= f \.tex$ & t r
|
|
+ f \.tex$ & t r & ! t t
|
|
t Run latex on file and show it with xdvi
|
|
latex %f && xdvi "`basename %f .tex`".dvi
|
|
|
|
=+ f ^part | f ^Part | f uue & t r
|
|
+ t t
|
|
U Uudecode marked news articles (needs work)
|
|
(
|
|
for i in %t ; do # strip headers
|
|
FIRST=`awk '{print $1 ; exit}' "$i"`
|
|
cat "$i" | sed '/^'"$FIRST"' /,/^$/d'
|
|
done
|
|
) | sed '/^$/d' | sed -n '/^begin 6/,/^end$/p' | uudecode
|
|
if [ "$?" != "0" ]; then
|
|
echo "Cannot decode "%t"."
|
|
fi
|
|
echo "Please test the output file before deleting anything."
|
|
|
|
=+ f \.tar\.gz$ | f \.tar\.z$ | f \.tgz$ | f \.tpz$ | f \.tar\.lz$ | f \.tar\.lz4$ | f \.tar\.lzma$ | f \.tar\.7z$ | f \.tar\.xz$ | f \.tar\.zst | f \.tar\.Z$ | f \.tar\.bz2$ & t rl
|
|
x Extract the contents of a compressed tar file
|
|
unset PRG
|
|
case %f in
|
|
*.tar.7z) PRG="7za e -so";;
|
|
*.tar.bz2) PRG="bunzip2 -c";;
|
|
*.tar.gz|*.tar.z|*.tgz|*.tpz|*.tar.Z) PRG="gzip -dc";;
|
|
*.tar.lz) PRG="lzip -dc";;
|
|
*.tar.lz4) PRG="lz4 -dc";;
|
|
*.tar.lzma) PRG="lzma -dc";;
|
|
*.tar.xz) PRG="xz -dc";;
|
|
*.tar.zst) PRG="zstd -dc";;
|
|
*) exit 1;;
|
|
esac
|
|
$PRG %f | tar xvf -
|
|
|
|
= t r
|
|
+ ! t t
|
|
y Gzip or gunzip current file
|
|
unset DECOMP
|
|
case %f in
|
|
*.gz|*.[zZ]) DECOMP=-d;;
|
|
esac
|
|
# Do *not* add quotes around $DECOMP!
|
|
gzip $DECOMP -v %f
|
|
|
|
+ t t
|
|
Y Gzip or gunzip tagged files
|
|
for i in %t ; do
|
|
unset DECOMP
|
|
case "$i" in
|
|
*.gz|*.[zZ]) DECOMP=-d;;
|
|
esac
|
|
gzip $DECOMP -v "$i"
|
|
done
|
|
|
|
+ ! t t
|
|
b Bzip2 or bunzip2 current file
|
|
unset DECOMP
|
|
case %f in
|
|
*.bz2) DECOMP=-d;;
|
|
esac
|
|
bzip2 $DECOMP -v %f
|
|
|
|
+ t t
|
|
B Bzip2 or bunzip2 tagged files
|
|
for i in %t ; do
|
|
unset DECOMP
|
|
case "$i" in
|
|
*.bz2) DECOMP=-d;;
|
|
esac
|
|
bzip2 $DECOMP -v "$i"
|
|
done
|
|
|
|
+ f \.tar.gz$ | f \.tgz$ | f \.tpz$ | f \.tar.Z$ | f \.tar.z$ | f \.tar.bz2$ | f \.tar.F$ & t r & ! t t
|
|
z Extract compressed tar file to subdirectory
|
|
unset D
|
|
set gzip -cd
|
|
case %f in
|
|
*.tar.F) D=`basename %f .tar.F`; set freeze -dc;;
|
|
*.tar.Z) D=`basename %f .tar.Z`;;
|
|
*.tar.bz2) D=`basename %f .tar.bz2`; set bunzip2 -c;;
|
|
*.tar.gz) D=`basename %f .tar.gz`;;
|
|
*.tar.z) D=`basename %f .tar.z`;;
|
|
*.tgz) D=`basename %f .tgz`;;
|
|
*.tpz) D=`basename %f .tpz`;;
|
|
esac
|
|
mkdir "$D"; cd "$D" && ("$1" "$2" ../%f | tar xvf -)
|
|
|
|
+ t t
|
|
Z Extract compressed tar files to subdirectories
|
|
for i in %t ; do
|
|
set gzip -dc
|
|
unset D
|
|
case "$i" in
|
|
*.tar.F) D=`basename "$i" .tar.F`; set freeze -dc;;
|
|
*.tar.Z) D=`basename "$i" .tar.Z`;;
|
|
*.tar.bz2) D=`basename "$i" .tar.bz2`; set bunzip2 -c;;
|
|
*.tar.gz) D=`basename "$i" .tar.gz`;;
|
|
*.tar.z) D=`basename "$i" .tar.z`;;
|
|
*.tgz) D=`basename "$i" .tgz`;;
|
|
*.tpz) D=`basename "$i" .tpz`;;
|
|
esac
|
|
mkdir "$D"; (cd "$D" && "$1" "$2" "../$i" | tar xvf -)
|
|
done
|
|
|
|
+ f \.gz$ | f \.tgz$ | f \.tpz$ | f \.Z$ | f \.z$ | f \.bz2$ & t r & ! t t
|
|
c Convert gz<->bz2, tar.gz<->tar.bz2 & tgz->tar.bz2
|
|
unset D
|
|
unset EXT
|
|
case %f in
|
|
*.Z) EXT=Z;;
|
|
*.bz2) EXT=bz2;;
|
|
*.gz) EXT=gz;;
|
|
*.tgz) EXT=tgz;;
|
|
*.tpz) EXT=tpz;;
|
|
*.z) EXT=z;;
|
|
esac
|
|
case "$EXT" in
|
|
bz2|Z|gz|z) D=`basename %f ."$EXT"`;;
|
|
tgz|tpz) D=`basename %f ."$EXT"`.tar;;
|
|
esac
|
|
if [ "$EXT" = "bz2" ]; then
|
|
bunzip2 -v %f
|
|
gzip -f9 -v "$D"
|
|
else
|
|
gunzip -v %f
|
|
bzip2 -v "$D"
|
|
fi
|
|
|
|
+ t t
|
|
C Convert gz<->bz2, tar.gz<->tar.bz2 & tgz->tar.bz2
|
|
for i in %t ; do
|
|
unset D
|
|
unset EXT
|
|
case "$i" in
|
|
*.Z) EXT=Z;;
|
|
*.bz2) EXT=bz2;;
|
|
*.gz) EXT=gz;;
|
|
*.tgz) EXT=tgz;;
|
|
*.tpz) EXT=tpz;;
|
|
*.z) EXT=z;;
|
|
esac
|
|
case "$EXT" in
|
|
bz2|Z|gz|z) D=`basename "$i" ."$EXT"`;;
|
|
tgz|tpz) D=`basename "$i" ."$EXT"`.tar;;
|
|
esac
|
|
if [ "$EXT" = "bz2" ]; then
|
|
bunzip2 -v "$i"
|
|
gzip -f9 -v "$D"
|
|
else
|
|
gunzip -v "$i"
|
|
bzip2 -v "$D"
|
|
fi
|
|
done
|
|
|
|
+ x /usr/bin/open | x /usr/local/bin/open & x /bin/sh
|
|
o Open next a free console
|
|
open -s -- sh
|