Add mblaze related files
This commit is contained in:
parent
96862e6556
commit
69e00b6f58
34
mblaze/Makefile
Normal file
34
mblaze/Makefile
Normal file
@ -0,0 +1,34 @@
|
||||
# mblaze.env
|
||||
# Written in 2020 by Lucas
|
||||
# CC0 1.0 Universal/Public domain - No rights reserved
|
||||
#
|
||||
# To the extent possible under law, the author(s) have dedicated all
|
||||
# copyright and related and neighboring rights to this software to the
|
||||
# public domain worldwide. This software is distributed without any
|
||||
# warranty. You should have received a copy of the CC0 Public Domain
|
||||
# Dedication along with this software. If not, see
|
||||
# <http://creativecommons.org/publicdomain/zero/1.0/>.
|
||||
.POSIX:
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .sh
|
||||
|
||||
PREFIX = ${HOME}/.mblaze
|
||||
|
||||
BIN = m mless
|
||||
|
||||
all: ${BIN}
|
||||
|
||||
clean:
|
||||
rm -f ${BIN}
|
||||
|
||||
install: all env mlesskey mless-key-handler
|
||||
mkdir -pm 700 ${PREFIX}
|
||||
lesskey -o ${PREFIX}/mless mlesskey
|
||||
cp -f env mless-key-handler ${PREFIX}
|
||||
mkdir -p ${PREFIX}/bin
|
||||
cp -f ${BIN} ${PREFIX}/bin
|
||||
cd ${PREFIX}/bin && chmod 555 ${BIN}
|
||||
|
||||
uninstall:
|
||||
cd ${PREFIX}/bin && rm -f ${BIN}
|
||||
rm -f ${PREFIX}/env ${PREFIX}/mless ${PREFIX}/mless-key-handler
|
||||
72
mblaze/env
Normal file
72
mblaze/env
Normal file
@ -0,0 +1,72 @@
|
||||
# mblaze.env
|
||||
# Written in 2020 by Lucas
|
||||
# CC0 1.0 Universal/Public domain - No rights reserved
|
||||
#
|
||||
# To the extent possible under law, the author(s) have dedicated all
|
||||
# copyright and related and neighboring rights to this software to the
|
||||
# public domain worldwide. This software is distributed without any
|
||||
# warranty. You should have received a copy of the CC0 Public Domain
|
||||
# Dedication along with this software. If not, see
|
||||
# <http://creativecommons.org/publicdomain/zero/1.0/>.
|
||||
|
||||
if [ -z "$mblaze_account" ]; then
|
||||
printf "Usage: mblaze_account=example.com . ~/.mblaze/env\n" >&2
|
||||
return 1
|
||||
fi
|
||||
MBLAZE=~/.mblaze/$mblaze_account
|
||||
|
||||
if [ ! -d "$MBLAZE" ]; then
|
||||
printf "Unknown account \"%s\"\n" "$mblaze_account" >&2
|
||||
return 1
|
||||
fi
|
||||
export MBLAZE
|
||||
|
||||
if [ -d ~/.mblaze/bin ]; then
|
||||
PATH=~/.mblaze/bin:$PATH
|
||||
export PATH
|
||||
fi
|
||||
|
||||
# account in prompt
|
||||
PS1='@$mblaze_account \$ '
|
||||
export PS1
|
||||
# mless colors
|
||||
MCOLOR_CUR=10
|
||||
MCOLOR_MISS=1
|
||||
export MCOLOR_CUR MCOLOR_MISS
|
||||
# mcolor colors
|
||||
MCOLOR_SEP=7
|
||||
MCOLOR_FROM=14
|
||||
MCOLOR_HEADER=6
|
||||
MCOLOR_FOOTER=7
|
||||
MCOLOR_SIG=5
|
||||
MCOLOR_QQQUOTE=3
|
||||
MCOLOR_QQUOTE=3
|
||||
MCOLOR_QUOTE=3
|
||||
export MCOLOR_SEP MCOLOR_FROM MCOLOR_HEADER MCOLOR_FOOTER MCOLOR_SIG
|
||||
export MCOLOR_QQQUOTE MCOLOR_QQUOTE MCOLOR_QUOTE
|
||||
|
||||
if [ -f "$MBLAZE/private.env" ]; then
|
||||
. "$MBLAZE/private.env"
|
||||
fi
|
||||
|
||||
mfetch()
|
||||
{
|
||||
command -v _account_mfetch >/dev/null 2>&1 &&
|
||||
_account_mfetch "$mblaze_account"
|
||||
|
||||
lockfile=%h/mail/.fdm-$mblaze_account-lock
|
||||
fdm -qa "$mblaze_account" -D "\$lockfile=$lockfile" fetch || return 1
|
||||
mcount=$(mdirs ~/mail/"$mblaze_account" | xargs minc | wc -l)
|
||||
mcount=$(printf "%u\n" "$mcount")
|
||||
prefix="$(date "+%a %d %b %T") [$mblaze_account]"
|
||||
case $mcount in
|
||||
0) printf "%s: no new emails.\n" "$prefix"
|
||||
;;
|
||||
1) printf "%s: 1 new email.\n" "$prefix"
|
||||
;;
|
||||
*) printf "%s: %u new emails.\n" "$prefix" "$mcount"
|
||||
;;
|
||||
esac
|
||||
}
|
||||
|
||||
cd ~/mail/"$mblaze_account"
|
||||
117
mblaze/m.sh
Normal file
117
mblaze/m.sh
Normal file
@ -0,0 +1,117 @@
|
||||
#!/bin/sh
|
||||
# mblaze.env
|
||||
# Written in 2020 by Lucas
|
||||
# CC0 1.0 Universal/Public domain - No rights reserved
|
||||
#
|
||||
# To the extent possible under law, the author(s) have dedicated all
|
||||
# copyright and related and neighboring rights to this software to the
|
||||
# public domain worldwide. This software is distributed without any
|
||||
# warranty. You should have received a copy of the CC0 Public Domain
|
||||
# Dedication along with this software. If not, see
|
||||
# <http://creativecommons.org/publicdomain/zero/1.0/>.
|
||||
|
||||
usage()
|
||||
{
|
||||
cat - <<. >&2
|
||||
Usage:
|
||||
${0##*/} f|fetch
|
||||
${0##*/} l|list [dirs...]
|
||||
${0##*/} r|read dir [dirs...]
|
||||
${0##*/} s|scan [-a] dir [dirs...]
|
||||
.
|
||||
exit 1
|
||||
}
|
||||
|
||||
_mdirs()
|
||||
{
|
||||
mdirs "$@" | sort -t /
|
||||
}
|
||||
|
||||
m_fetch_usage()
|
||||
{
|
||||
printf "Usage: %s f|fetch\n" "${0##*/}" >&2
|
||||
exit 1
|
||||
}
|
||||
|
||||
m_read_usage()
|
||||
{
|
||||
printf "Usage: %s r|read dir [dirs...]\n" "${0##*/}" >&2
|
||||
exit 1
|
||||
}
|
||||
|
||||
m_scan_usage()
|
||||
{
|
||||
printf "Usage: %s s|scan [-a] dir [dirs...]\n" "${0##*/}" >&2
|
||||
exit 1
|
||||
}
|
||||
|
||||
m_fetch()
|
||||
{
|
||||
if [ $# -ne 0 ]; then
|
||||
m_fetch_usage
|
||||
fi
|
||||
printf "%s: fetch TBD.\n" >&2
|
||||
exit 1
|
||||
}
|
||||
|
||||
m_list()
|
||||
{
|
||||
pwd=$(pwd)
|
||||
# cut(1) lists are 1-based, and +1 for leading slash
|
||||
_mdirs "${@:-.}" | cut -c $((${#pwd} + 2))- | mlist -i
|
||||
}
|
||||
|
||||
m_read()
|
||||
{
|
||||
if [ $# -eq 0 ]; then
|
||||
m_read_usage
|
||||
fi
|
||||
|
||||
_mdirs "$@" | mlist -s | msort -d | mthread | mless
|
||||
}
|
||||
|
||||
m_scan()
|
||||
{
|
||||
mlist_flags=-s
|
||||
while getopts a flag; do
|
||||
case $flag in
|
||||
a)
|
||||
mlist_flags=
|
||||
;;
|
||||
*)
|
||||
m_scan_usage
|
||||
;;
|
||||
esac
|
||||
done
|
||||
shift $(($OPTIND - 1))
|
||||
|
||||
if [ $# -eq 0 ]; then
|
||||
m_scan_usage
|
||||
fi
|
||||
|
||||
_mdirs "$@" | mlist $mlist_flags | msort -d | mthread | mseq -S | mscan
|
||||
}
|
||||
|
||||
if [ $# -lt 1 ]; then
|
||||
usage
|
||||
fi
|
||||
cmd=$1
|
||||
shift
|
||||
|
||||
case $cmd in
|
||||
f|fetch)
|
||||
m_fetch "$@"
|
||||
;;
|
||||
l|list)
|
||||
m_list "$@"
|
||||
;;
|
||||
r|read)
|
||||
m_read "$@"
|
||||
;;
|
||||
s|scan)
|
||||
m_scan "$@"
|
||||
;;
|
||||
*)
|
||||
usage
|
||||
;;
|
||||
esac
|
||||
41
mblaze/mless-key-handler
Normal file
41
mblaze/mless-key-handler
Normal file
@ -0,0 +1,41 @@
|
||||
#!/bin/sh
|
||||
# mblaze.env
|
||||
# Written in 2020 by Lucas
|
||||
# CC0 1.0 Universal/Public domain - No rights reserved
|
||||
#
|
||||
# To the extent possible under law, the author(s) have dedicated all
|
||||
# copyright and related and neighboring rights to this software to the
|
||||
# public domain worldwide. This software is distributed without any
|
||||
# warranty. You should have received a copy of the CC0 Public Domain
|
||||
# Dedication along with this software. If not, see
|
||||
# <http://creativecommons.org/publicdomain/zero/1.0/>.
|
||||
|
||||
keyhandler()
|
||||
{
|
||||
case "$1" in
|
||||
0|1)
|
||||
exit $1
|
||||
;;
|
||||
70) # F flag
|
||||
mflag -F .
|
||||
mseq -f : | mseq -S
|
||||
mseq -C +
|
||||
;;
|
||||
82) # R mark read
|
||||
mflag -S .
|
||||
mseq -f : | mseq -S
|
||||
mseq -C +
|
||||
;;
|
||||
94) # ^ goto parent
|
||||
mseq -C '.^' 2>/dev/null
|
||||
;;
|
||||
123) # { prev thread
|
||||
prev=$(mseq .-1 | sed 's/^ *//')
|
||||
prev_root=$(mseq -c "$prev" = | head -n 1 | sed 's/^ *//')
|
||||
mseq -C "$prev_root" 2>/dev/null
|
||||
;;
|
||||
125) # } next thread
|
||||
mseq -C "$(mseq .+1: | sed -n '/^[^ <]/{p;q;}')"
|
||||
;;
|
||||
esac
|
||||
}
|
||||
114
mblaze/mless.sh
Normal file
114
mblaze/mless.sh
Normal file
@ -0,0 +1,114 @@
|
||||
#!/bin/sh
|
||||
# mless [MSG] - less(1)-wrapper around mshow
|
||||
|
||||
colorscan() {
|
||||
awk '
|
||||
function co(n, c) { e = ENVIRON["MCOLOR_" n]; return e ? e : c }
|
||||
function fg(c, s) { return sprintf("\033[38;5;%03dm%s\033[0m", c, s) }
|
||||
function so(s) { return sprintf("\033[1m%s\033[0m", s) }
|
||||
/^>/ { print so(fg(co("CUR",119), $0)); next }
|
||||
/^ *\\_/ { print fg(co("MISS",242), $0); next }
|
||||
{ print }'
|
||||
}
|
||||
|
||||
keyhandler() {
|
||||
case "$?" in
|
||||
0|1) exit $?;;
|
||||
36) # $ goto end
|
||||
mseq -C '$' 2>/dev/null
|
||||
;;
|
||||
78) # N go to next unseen message
|
||||
nu=$(magrep -v -m1 :S .:) && mseq -C "$nu"
|
||||
;;
|
||||
107) # k next thread
|
||||
mseq -C "$(mseq .+1: | sed -n '/^[^ <]/{p;q;}')"
|
||||
;;
|
||||
100) # d mark read
|
||||
mflag -S .
|
||||
mseq -f : | mseq -S
|
||||
mseq -C +
|
||||
;;
|
||||
82) # R toggle raw mode
|
||||
MLESS_RAW=$((1-$MLESS_RAW))
|
||||
;;
|
||||
72) # H toggle HTML mode
|
||||
MLESS_HTML=$((1-$MLESS_HTML))
|
||||
;;
|
||||
94) # ^ goto parent
|
||||
mseq -C '.^' 2>/dev/null
|
||||
;;
|
||||
esac
|
||||
}
|
||||
|
||||
if [ -n "${NO_COLOR+set}" ]; then
|
||||
colorscan() { cat -; }
|
||||
fi
|
||||
|
||||
if [ "$1" = --filter ]; then
|
||||
if [ "$2" = //scan ]; then
|
||||
mscan : 2>/dev/null | colorscan
|
||||
exit $?
|
||||
fi
|
||||
|
||||
mseq -C "$2"
|
||||
mscan .-2:.+3 2>/dev/null | colorscan
|
||||
echo
|
||||
|
||||
if ! [ -f "$(mseq -r "$2")" ]; then
|
||||
mseq "$2"
|
||||
exit
|
||||
fi
|
||||
|
||||
if [ $MLESS_RAW -eq 0 ]; then
|
||||
if [ $MLESS_HTML -eq 1 ]; then
|
||||
mshow -A text/html "$2"
|
||||
else
|
||||
mshow "$2"
|
||||
fi | mcolor
|
||||
else
|
||||
mseq -r "$2"
|
||||
echo
|
||||
cat "$(mseq -r "$2")"
|
||||
fi
|
||||
exit $?
|
||||
fi
|
||||
|
||||
if [ "$#" -eq 0 ] && ! [ -t 0 ]; then
|
||||
mseq -S >/dev/null
|
||||
set -- :
|
||||
fi
|
||||
|
||||
if ! [ -t 1 ]; then
|
||||
exec mseq :
|
||||
fi
|
||||
|
||||
[ "$#" -eq 1 ] && set -- ${1:-.}
|
||||
|
||||
if [ "$#" -ge 1 ]; then
|
||||
mseq -C "$1"
|
||||
fi
|
||||
|
||||
nl="
|
||||
"
|
||||
export MLESS_RAW=0
|
||||
export MLESS_HTML=0
|
||||
if [ -f "$MBLAZE/mless" ]; then
|
||||
export LESSKEY="$MBLAZE/mless"
|
||||
elif [ -f "$HOME/.mblaze/mless" ]; then
|
||||
export LESSKEY="$HOME/.mblaze/mless"
|
||||
elif [ -f "$HOME/.mless" ]; then
|
||||
export LESSKEY="$HOME/.mless"
|
||||
fi
|
||||
if [ -f "$MBLAZE/mless-key-handler" ]; then
|
||||
. "$MBLAZE/mless-key-handler"
|
||||
elif [ -f "$HOME/.mblaze/mless-key-handler" ]; then
|
||||
. "$HOME/.mblaze/mless-key-handler"
|
||||
elif [ -f "$HOME/.mless-key-handler" ]; then
|
||||
. "$HOME/.mless-key-handler"
|
||||
fi
|
||||
while :; do
|
||||
LESSOPEN="|$0 --filter %s" \
|
||||
less -Ps"mless %f?m (message %i of %m).." -R \
|
||||
"+:e $(mscan -n .)$nl" //scan $(mscan -n :)
|
||||
keyhandler $?
|
||||
done
|
||||
20
mblaze/mlesskey
Normal file
20
mblaze/mlesskey
Normal file
@ -0,0 +1,20 @@
|
||||
# mblaze.env
|
||||
# Written in 2020 by Lucas
|
||||
# CC0 1.0 Universal/Public domain - No rights reserved
|
||||
#
|
||||
# To the extent possible under law, the author(s) have dedicated all
|
||||
# copyright and related and neighboring rights to this software to the
|
||||
# public domain worldwide. This software is distributed without any
|
||||
# warranty. You should have received a copy of the CC0 Public Domain
|
||||
# Dedication along with this software. If not, see
|
||||
# <http://creativecommons.org/publicdomain/zero/1.0/>.
|
||||
Q quit \1
|
||||
[ prev-file
|
||||
] next-file
|
||||
S noaction E//scan\n
|
||||
` noaction E\#\n
|
||||
F quit F
|
||||
R quit R
|
||||
{ quit {
|
||||
} quit }
|
||||
\^ quit \^
|
||||
Loading…
Reference in New Issue
Block a user