X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=notmuch-emacs-mua;h=1f088c42feb90d16e5933083789819aac3edf794;hp=13f67bee4417f78569916e147e4610ffa39899c4;hb=cb4e73b73664147404fbb835d1749b2c9326da24;hpb=5240c438f5f6212fbce811ea4fd55ae964c97d99 diff --git a/notmuch-emacs-mua b/notmuch-emacs-mua index 13f67bee..1f088c42 100755 --- a/notmuch-emacs-mua +++ b/notmuch-emacs-mua @@ -22,17 +22,21 @@ set -eu +# escape: "expand" '\' as '\\' and '"' as '\"' +# calling convention: escape -v var "$arg" (like in bash printf). escape () { - echo "${1//\"/\\\"}" + local __escape_arg__=${3//\\/\\\\} + printf -v $2 '%s' "${__escape_arg__//\"/\\\"}" } EMACS=${EMACS-emacs} EMACSCLIENT=${EMACSCLIENT-emacsclient} PRINT_ONLY= +NO_WINDOW= USE_EMACSCLIENT= -CLIENT_TYPE="-c" +CREATE_FRAME="-c" # The crux of it all: construct an elisp progn and eval it. ELISP="(prog1 'done (require 'notmuch) (notmuch-mua-new-mail)" @@ -72,17 +76,12 @@ while getopts :s:c:b:i:h opt; do ;; esac - - OPTARG="${OPTARG-none}" - OPTARG="$(escape "${OPTARG}")" + escape -v OPTARG "${OPTARG-none}" case "${opt}" in --help|h) exec man notmuch-emacs-mua ;; - --client) - USE_EMACSCLIENT="yes" - ;; --subject|s) ELISP="${ELISP} (message-goto-subject) (insert \"${OPTARG}\")" ;; @@ -102,7 +101,11 @@ while getopts :s:c:b:i:h opt; do PRINT_ONLY=1 ;; --no-window-system) - CLIENT_TYPE="-t" + NO_WINDOW="-nw" + CREATE_FRAME= + ;; + --client) + USE_EMACSCLIENT="yes" ;; *) # We should never end up here. @@ -117,7 +120,7 @@ done # Positional parameters. for arg; do - arg="$(escape "${arg}")" + escape -v arg "${arg}" ELISP="${ELISP} (message-goto-to) (insert \"${arg}, \")" done @@ -131,7 +134,7 @@ fi if [ -n "$USE_EMACSCLIENT" ]; then # Evaluate the progn. - exec ${EMACSCLIENT} ${CLIENT_TYPE} -a '' --eval "${ELISP}" + exec ${EMACSCLIENT} ${NO_WINDOW} ${CREATE_FRAME} -a '' --eval "${ELISP}" else - exec ${EMACS} --eval "${ELISP}" + exec ${EMACS} ${NO_WINDOW} --eval "${ELISP}" fi