How to disable some rules of an input method?

Question

I use purescript-unicode-input-method in Purescript. However, I want the input method not to translate ->, ~> and => because their Unicode characters look very similar. Is there a way to disable certain rules of an input method?

Answer 1

You can try something like the following:

(defvar my-quail-activate-hook-done nil)

(defun my-quail-activate-hook ()
  (unless (member (quail-name) my-quail-activate-hook-done)
    (push (quail-name) my-quail-activate-hook-done)
    (when (member (quail-name) '("purescript-unicode"))
      ;; Remove the "->" binding.
      (setf (alist-get ?> (cdr (alist-get ?- (quail-map)))) nil)
      ...
      )))
(add-hook 'quail-activate-hook #'my-quail-activate-hook)