Make ace-jump do a two-char search (like vim-sneak)

ace-jump-two-char.el

;; Thanks to: https://github.com/winterTTr/ace-jump-mode/issues/23
(defun ace-jump-two-chars-mode (&optional query-char query-char-2)
  "AceJump two chars mode"
  (interactive)

  (evil-half-cursor)
  (setq query-char (or query-char (read-char ">")))
  (setq query-char-2 (or query-char-2 (read-char (concat ">" (string query-char)))))

  (if (eq (ace-jump-char-category query-char) 'other)
    (error "[AceJump] Non-printable character"))

  ;; others : digit , alpha, punc
  (setq ace-jump-query-char query-char)
  (setq ace-jump-current-mode 'ace-jump-char-mode)
  (ace-jump-do (regexp-quote (concat (char-to-string query-char)
                                     (char-to-string query-char-2)))))