Re: Trigger spell checking before sending

[Pietro]

Pietro <pulsarpietro@posteo.net> writes:

> Emanuel Berg <embe8573@student.uu.se> writes:
>
>> Pietro <pulsarpietro@posteo.net> writes:
>>
>>> run-hooks: Wrong number of arguments [...]
>>>
>>> This is what I get in my mini-buffer when I send my
>>> email, any thoughts?
>>
>> OK, I see the problem, it doesn't get
>> called interactively.
>>
>> Try this instead:
>>
>> (defun spell-before-send ()
>>   (let*((lang-input (read-from-minibuffer "Language [e or s]: "))
>>         (lang (pcase lang-input
>>                 ("e" "american-insane")
>>                 ("s" "svenska") )))
>>     (when lang
>>       (ispell-change-dictionary lang)
>>       (ispell-message) )))
How can I modify this function to skip the spell checking ? I would like to
have a third choice which directly sends the message straight away.

> Thanks a lot, it works fine now.
>> You have to change the interface at the second line,
>> as well as the dictionaries at lines four and five,
>> of course.
>>
>> Another thing - here is a hint how to do hooks without
>> the lambda stuff. It amounts to the same but gives
>> more control and more easy-to-handle code.
>>
>> First check out if you have anything in the hook
>> variable already. If you do, and you want it, put it
>> before (or after) the third line below.
>>
>> Then, evaluate the commented (first) line, then
>> evaluate the function (at the second line), then set
>> the hook to the hook function (the fourth line).
>>
>> ;; (setq message-send-hook nil)
>> (defun message-send-hook-f ()
>>   (spell-before-send) )
>> (setq message-send-hook #'message-send-hook-f)
>>
>>> I am new to Emacs Lisp therefore I could some
>>> silly mistake.
>>
>> You don't have to be new to Lisp to do that.
>>
>> Is there anything you don't understand in the code?
>> If it is, find out using the documentation (online
>> help: `C-h f', `C-h v', etc.) *or* ask here. ("Online"
>> = not on paper :))
>>
> No I fully understand it, it does not look that far from the Racket, the
> Lisp dialect I have studied
>> When you understand it move on to do other things :)
> Sure, and thanks a lot, I hope I will give something back to the
> community soon!
I am afraid I am not ready yet ... :-(