#! /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

(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)
	     ))))