I’ve developed this, translate as needed: 1/3
#! /usr/bin/sh
if test $(echo $1 | wc -c) -le 140; then
/usr/bin/toot post "$1" &&
/home/oceane/.local/bin/twtxt tweet "$1" ||
echo "Je n’ai pas pu poster sur ActivityPub, je ne posterai donc pas non plus sur twtxt !";
else echo "Ce message dépasse 140 signes et ne peut pas être posté !";
fi
2/3
(defun microblog ()
"Microbloguer avec toot(1) et twtxt !"
(interactive)
(let ((message (read-from-minibuffer "Message : ")))
(shell-command
(concat "sh ~/.emacs.d/microblog/microblog.sh "
(shell-quote-argument message)
))))