mailto 441 B

12345678910111213141516
  1. #!/bin/sh
  2. #### HELP MESSAGE ##############################################
  3. hlp='Usage: mailto
  4. Handle "mailto:..." argument to compose a mail in emacs.'
  5. if [ "$1" = "-h" ] || [ "$1" = "--help" ]; then
  6. echo "$hlp"
  7. exit 0
  8. fi
  9. ################################################################
  10. emacsclient --no-wait --socket-name=server-emms \
  11. --eval "(compose-mail (url-unhex-string \"${1#mailto:}\"))"
  12. wmctrl -x -a "emacs"