diff options
Diffstat (limited to 'emacsmail.sh.in')
-rw-r--r-- | emacsmail.sh.in | 74 |
1 files changed, 74 insertions, 0 deletions
diff --git a/emacsmail.sh.in b/emacsmail.sh.in new file mode 100644 index 0000000..3ccaef3 --- /dev/null +++ b/emacsmail.sh.in @@ -0,0 +1,74 @@ +#!@bash@ + +# Copyright (C) 2014 Luke Shumaker <lukeshu@sbcglobal.net> +# +# This file is not considered part of GNU Emacs. +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation, either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see <http://www.gnu.org/licenses/>. + +m4_include(common.sh) + +usage() { + print 'Usage: %q [OPTIONS] MAILTO_URL' "$0" + print 'Use Emacs to open RFC 2368 "mailto:" URLs' + echo + print 'Yes, I know that RFC 2368 is obsoleted by RFC 6068.' + print 'emacs-devel@gnu.org would *love* a patch to browse-url.el' + echo + print 'The following OPTIONS are accepted:' + emacs_usage +} + +main() { + declare -a flags=() + declare error=false + declare mode=normal + + emacs_getopt_init + declare args + args="$(emacs_getopt '' '' "$@")" || error=true + eval set -- "$args" + while true; do + case "$1" in + -V|--version) shift; mode=version;; + -H|--help) shift; mode=usage;; + --) shift; break;; + *) + if [[ $1 =~ $emacs_getopt_2 ]]; then + flags+=("$1" "$2"); shift 2 + else + flags+=("$1"); shift 1 + fi + ;; + esac + done + urls=("$@") + if [[ $mode == normal ]]; then + [[ ${#urls[@]} = 1 ]] || error=true + fi + + if $error; then + usage >&2 + return 1 + fi + case "$mode" in + usage) usage; return 0;; + version) version; return 0;; + esac + + emacsclient "${flags[@]}" --eval \ + "(browse-url-mail $(emacs_quote "${urls[@]}"))" +} + +main "$@" |