You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
95 lines
2.6 KiB
95 lines
2.6 KiB
#!/usr/bin/env sh |
|
EDITOR=vis |
|
LOGDIR="$XDG_CONFIG_HOME"/sxmo/modem |
|
|
|
err() { |
|
echo "$1" | dmenu -fn Terminus-20 -c -l 10 |
|
kill $$ |
|
} |
|
|
|
modem_n() { |
|
MODEMS="$(mmcli -L)" |
|
echo "$MODEMS" | grep -qoE 'Modem\/([0-9]+)' || err "Couldn't find modem - is your modem enabled?" |
|
echo "$MODEMS" | grep -oE 'Modem\/([0-9]+)' | cut -d'/' -f2 |
|
} |
|
|
|
editmsg() { |
|
TMP="$(mktemp --suffix "$1_msg")" |
|
echo "$2" > "$TMP" |
|
TEXT="$(st -e $EDITOR "$TMP")" |
|
cat "$TMP" |
|
} |
|
|
|
sendmsg() { |
|
MODEM="$(modem_n)" |
|
NUMBER="$1" |
|
TEXT="$2" |
|
TEXTSIZE="${#TEXT}" |
|
|
|
SMSNO="$( |
|
mmcli -m "$MODEM" --messaging-create-sms="text='$TEXT',number=$NUMBER" | |
|
grep -o "[0-9]*$" |
|
)" |
|
mmcli -s "${SMSNO}" --send || err "Couldn't send text message" |
|
for i in $(mmcli -m "$MODEM" --messaging-list-sms | grep " (sent)" | cut -f5 -d' ') ; do |
|
mmcli -m "$MODEM" --messaging-delete-sms="$i" |
|
done |
|
|
|
TIME="$(date --iso-8601=seconds)" |
|
mkdir -p "$LOGDIR/$NUMBER" |
|
printf %b "Sent to $NUMBER at $TIME:\n$TEXT\n\n" >> "$LOGDIR/$NUMBER/sms.txt" |
|
printf %b "$TIME\tsent_txt\t$NUMBER\t$TEXTSIZE chars\n" >> "$LOGDIR/modemlog.tsv" |
|
|
|
err "Sent text message ok" |
|
} |
|
|
|
sendtextmenu() { |
|
modem_n || err "Couldn't determine modem number - is modem online?" |
|
|
|
# Prompt for number |
|
NUMBER="$( |
|
printf %b "\nCancel\n$(sxmo_contacts.sh)" | |
|
awk NF | |
|
sxmo_dmenu_with_kb.sh -p "Number" -fn "Terminus-20" -l 10 -c | |
|
cut -d: -f1 | |
|
tr -d -- '-+ ' |
|
)" |
|
echo "$NUMBER" | grep -E "^Cancel$" && exit 1 |
|
echo "$NUMBER" | grep -qE '^[+0-9]+$' || err "That doesn't seem like a valid number" |
|
|
|
# Compose first version of msg |
|
TEXT="$(editmsg "$NUMBER" 'Enter text message here')" |
|
|
|
while true |
|
do |
|
CONFIRM="$( |
|
printf %b "Edit Message ($TEXT)\nSend to → $NUMBER\nCancel" | |
|
dmenu -c -idx 1 -p "Confirm" -fn "Terminus-20" -l 10 |
|
)" |
|
echo "$CONFIRM" | grep -E "^Send" && sendmsg "$NUMBER" "$TEXT" && exit 0 |
|
echo "$CONFIRM" | grep -E "^Cancel$" && exit 1 |
|
echo "$CONFIRM" | grep -E "^Edit Message" && TEXT="$(editmsg "$NUMBER" "$TEXT")" |
|
done |
|
} |
|
|
|
tailtextlog() { |
|
st -e tail -n9999 -f "$LOGDIR/$1/sms.txt" |
|
} |
|
|
|
main() { |
|
# E.g. only display logfiles for directories that exist and join w contact name |
|
ENTRIES="$( |
|
printf %b "Close Menu\nSend a Text\n"; |
|
for TDIR in "$LOGDIR"/*; do |
|
[ -d "$TDIR" ] || continue |
|
NUM="$(basename "$TDIR")" |
|
sxmo_contacts.sh | grep -m1 "$NUM" | xargs -IL echo "L logfile" |
|
done |
|
)" |
|
CONTACTIDANDNUM="$(printf %b "$ENTRIES" | dmenu -p Texts -c -fn Terminus-20 -l 10)" |
|
echo "$CONTACTIDANDNUM" | grep "Close Menu" && exit 1 |
|
echo "$CONTACTIDANDNUM" | grep "Send a Text" && sendtextmenu && exit 1 |
|
tailtextlog "$(echo "$CONTACTIDANDNUM" | cut -d: -f1)" |
|
} |
|
|
|
main
|
|
|