3 ##############################################################################
5 # %f The current file (if non-local vfs, file will be copied locally and
6 # %f will be full path to it)
8 # %d The current working directory
9 # %s "Selected files"; the tagged files if any, otherwise the current file
11 # %u Tagged files (and they are untagged on return from expand_format)
12 # %view Runs the commands and pipes standard output to the view command
13 # If %view is immediately followed by '{', recognize keywords
14 # ascii, hex, nroff and unform
16 # If the format letter is in uppercase, it refers to the other panel
18 # With a number followed the % character you can turn quoting on (default)
19 # and off. For example:
20 # %f quote expanded macro
22 # %0f don't quote expanded macro
23 ##############################################################################
26 @ Do something on the current file
31 @ Do something on the tagged files
37 0 Edit a bug report and send it to root
38 I=`mktemp "${MC_TMPDIR:-/tmp}/mail.XXXXXX"` || exit 1
40 test -r "$I" && mail root < "$I"
43 =+ f \.1$ | f \.3$ | f \.4$ | f \.5$ | f \.6$ | f \.7$ | f \.8$ | f \.man$ & t r
44 1 Display the file with roff -man
45 %view{ascii,nroff} roff @MAN_FLAGS@ @MANDOC@ %f
47 2 Call the info hypertext browser
51 3 Compress the current subdirectory (tar.gz)
53 echo -n "Name of the compressed file (without extension) [$Pwd]: "
55 [ "$tar"x = x ] && tar="$Pwd"
57 tar cf - "$Pwd" | gzip -f9 > "$tar.tar.gz" && \
58 echo "../$tar.tar.gz created."
60 4 Compress the current subdirectory (tar.bz2)
62 echo -n "Name of the compressed file (without extension) [$Pwd]: "
64 [ "$tar"x = x ] && tar="$Pwd"
66 tar cf - "$Pwd" | bzip2 -f > "$tar.tar.bz2" && \
67 echo "../$tar.tar.bz2 created."
69 5 Compress the current subdirectory (tar.7z)
71 echo -n "Name of the compressed file (without extension) [$Pwd]: "
73 [ "$tar"x = x ] && tar="$Pwd"
75 tar cf - "$Pwd" | 7za a -si "$tar.tar.7z" && \
76 echo "../$tar.tar.7z created."
78 6 Compress the current subdirectory (tar.xz)
80 echo -n "Name of the compressed file (without extension) [$Pwd]: "
82 [ "$tar"x = x ] && tar="$Pwd"
84 tar cf - "$Pwd" | xz -f > "$tar.tar.xz" && \
85 echo "../$tar.tar.xz created."
87 7 Compress the current subdirectory (tar.zst)
89 echo -n "Name of the compressed file (without extension) [$Pwd]: "
91 [ "$tar"x = x ] && tar="$Pwd"
93 tar cf - "$Pwd" | zstd -f > "$tar.tar.zst" && \
94 echo "../$tar.tar.zst created."
97 + f \.c$ & t r & ! t t
98 c Compile and link current .c file
99 make "`basename %f .c`" 2>/dev/null || cc -O -o "`basename %f .c`" %f
102 a Append file to opposite
106 A Append files to opposite files
112 d Delete file if a copy exists in the other directory.
114 echo "The two directories must be different."
117 if [ -f %D/%f ]; then # if two of them, then
118 if cmp -s %D/%f %f; then
119 rm %f && echo %f": DELETED."
121 echo %f" and "%D/%f" differ: NOT deleted."
122 echo -n "Press RETURN "
126 echo %f": No copy in "%D/%f": NOT deleted."
130 D Delete tagged files if a copy exists in the other directory.
132 echo "The two directories must be different."
136 if [ -f %D/"$i" ]; then
139 if [ "$SUM1" = "$SUM2" ]; then
140 rm "$i" && echo "${i}: DELETED."
142 echo "$i and "%D"/$i differ: NOT deleted."
145 echo "$i has no copy in "%D": NOT deleted."
150 MAN=%{Enter manual name}
151 %view{ascii,nroff} MANROFFOPT='@MAN_FLAGS@' MAN_KEEP_FORMATTING=1 man -P cat "$MAN"
155 n Inspect gzip'ed newsbatch file
156 dd if=%f bs=1 skip=12 | zcat | ${PAGER-more}
157 # assuming the cunbatch header is 12 bytes long.
161 h Strip headers from current newsarticle
162 CHECK=`awk '{print $1 ; exit}' %f` 2>/dev/null
165 I=`mktemp "${MC_TMPDIR:-/tmp}/news.XXXXXX"` || exit 1
166 cp %f "$I" && sed '/^'"$CHECK"' /,/^$/d' "$I" > %f
167 [ "$?" = "0" ] && rm "$I"
168 echo %f": header removed."
171 echo %f" is not a news article."
176 H Strip headers from the marked newsarticles
178 CHECK=`awk '{print $1 ; exit}' "$i"` 2>/dev/null
179 WFILE=`mktemp "${MC_TMPDIR:-/tmp}/news.XXXXXX"` || exit 1
182 cp "$i" "$WFILE" && sed '/^'"$CHECK"' /,/^$/d' "$WFILE" > "$i"
183 if [ "$?" = "0" ]; then
184 rm "$WFILE"; echo "$i header removed. OK."
186 echo "Oops! Please check $i against $WFILE."
190 echo "$i skipped: Not a news article."
197 r Copy file to remote host
198 echo -n "To which host?: "
200 echo -n "To which directory on $Host?: "
202 rcp -p %f "${Host}:${Dir}"
205 R Copy files to remote host (no error checking)
206 echo -n "Copy files to which host?: "
208 echo -n "To which directory on $Host? :"
210 rcp -pr %u "${Host}:${Dir}"
213 + f \.tex$ & t r & ! t t
214 t Run latex on file and show it with xdvi
215 latex %f && xdvi "`basename %f .tex`".dvi
217 =+ f ^part | f ^Part | f uue & t r
219 U Uudecode marked news articles (needs work)
221 for i in %t ; do # strip headers
222 FIRST=`awk '{print $1 ; exit}' "$i"`
223 cat "$i" | sed '/^'"$FIRST"' /,/^$/d'
225 ) | sed '/^$/d' | sed -n '/^begin 6/,/^end$/p' | uudecode
226 if [ "$?" != "0" ]; then
227 echo "Cannot decode "%t"."
229 echo "Please test the output file before deleting anything."
231 =+ 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
232 x Extract the contents of a compressed tar file
235 *.tar.7z) PRG="7za e -so";;
236 *.tar.bz2) PRG="bunzip2 -c";;
237 *.tar.gz|*.tar.z|*.tgz|*.tpz|*.tar.Z) PRG="gzip -dc";;
238 *.tar.lz) PRG="lzip -dc";;
239 *.tar.lz4) PRG="lz4 -dc";;
240 *.tar.lzma) PRG="lzma -dc";;
241 *.tar.xz) PRG="xz -dc";;
242 *.tar.zst) PRG="zstd -dc";;
249 y Gzip or gunzip current file
252 *.gz|*.[zZ]) DECOMP=-d;;
254 # Do *not* add quotes around $DECOMP!
258 Y Gzip or gunzip tagged files
262 *.gz|*.[zZ]) DECOMP=-d;;
268 b Bzip2 or bunzip2 current file
276 B Bzip2 or bunzip2 tagged files
282 bzip2 $DECOMP -v "$i"
285 + f \.tar.gz$ | f \.tgz$ | f \.tpz$ | f \.tar.Z$ | f \.tar.z$ | f \.tar.bz2$ | f \.tar.F$ & t r & ! t t
286 z Extract compressed tar file to subdirectory
290 *.tar.F) D=`basename %f .tar.F`; set freeze -dc;;
291 *.tar.Z) D=`basename %f .tar.Z`;;
292 *.tar.bz2) D=`basename %f .tar.bz2`; set bunzip2 -c;;
293 *.tar.gz) D=`basename %f .tar.gz`;;
294 *.tar.z) D=`basename %f .tar.z`;;
295 *.tgz) D=`basename %f .tgz`;;
296 *.tpz) D=`basename %f .tpz`;;
298 mkdir "$D"; cd "$D" && ("$1" "$2" ../%f | tar xvf -)
301 Z Extract compressed tar files to subdirectories
306 *.tar.F) D=`basename "$i" .tar.F`; set freeze -dc;;
307 *.tar.Z) D=`basename "$i" .tar.Z`;;
308 *.tar.bz2) D=`basename "$i" .tar.bz2`; set bunzip2 -c;;
309 *.tar.gz) D=`basename "$i" .tar.gz`;;
310 *.tar.z) D=`basename "$i" .tar.z`;;
311 *.tgz) D=`basename "$i" .tgz`;;
312 *.tpz) D=`basename "$i" .tpz`;;
314 mkdir "$D"; (cd "$D" && "$1" "$2" "../$i" | tar xvf -)
317 + f \.gz$ | f \.tgz$ | f \.tpz$ | f \.Z$ | f \.z$ | f \.bz2$ & t r & ! t t
318 c Convert gz<->bz2, tar.gz<->tar.bz2 & tgz->tar.bz2
330 bz2|Z|gz|z) D=`basename %f ."$EXT"`;;
331 tgz|tpz) D=`basename %f ."$EXT"`.tar;;
333 if [ "$EXT" = "bz2" ]; then
342 C Convert gz<->bz2, tar.gz<->tar.bz2 & tgz->tar.bz2
355 bz2|Z|gz|z) D=`basename "$i" ."$EXT"`;;
356 tgz|tpz) D=`basename "$i" ."$EXT"`.tar;;
358 if [ "$EXT" = "bz2" ]; then
367 + x /usr/bin/open | x /usr/local/bin/open & x /bin/sh
368 o Open next a free console