;;; ergoemacs-advice.el --- Ergoemacs advices -*- lexical-binding: t -*-

;; Copyright © 2013-2021  Free Software Foundation, Inc.

;; Filename: ergoemacs-advice.el
;; Description:
;; Author: Matthew L. Fidler
;; Maintainer: Matthew L. Fidler
;; Created: Sat Sep 28 20:10:56 2013 (-0500)
;;
;;; Commentary:
;;  Advices for `ergoemacs-mode'.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 
;; 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, 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/>.
;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 
;;; Code:
(require 'cl-lib)

(eval-when-compile
  (require 'ergoemacs-macros))

(require 'mouse)
(require 'nadvice)

(defvar ergoemacs-mode)
(defvar ergoemacs-keymap)
(defvar ergoemacs-map--unbound-keys)
(defvar ergoemacs-user-keymap)

(declare-function ergoemacs-key-description--substitute-command-keys "ergoemacs-key-description")

(declare-function ergoemacs-translate--define-key "ergoemacs-translate")
(declare-function ergoemacs-translate--apply-key "ergoemacs-translate")
(declare-function ergoemacs-major-mode-menu-map "ergoemacs-lib")
(declare-function ergoemacs-translate--get "ergoemacs-translate")
(declare-function ergoemacs-translate--keymap "ergoemacs-translate")
(declare-function ergoemacs-command-loop--modal-p "ergoemacs-command-loop")
(declare-function ergoemacs-translation-struct-keymap-modal "ergoemacs-translate")
(declare-function ergoemacs-command-loop--internal "ergoemacs-command-loop")
(declare-function ergoemacs-command-loop--temp-message "ergoemacs-command-loop")
(declare-function ergoemacs-key-description "ergoemacs-key-description")

(defun ergoemacs-advice-substitute-command-keys (orig-fun &rest args)
  "Use `ergoemacs-substitute-command-keys' when `ergoemacs-mode' is enabled"
  (if ergoemacs-mode
      (ergoemacs-key-description--substitute-command-keys (nth 0 args))
    (funcall orig-fun args)))


(defun ergoemacs-mode--undefined-advice (&optional type)
  "Advice for undefined.

TYPE is the type of translation installed."
  (let* ((keys (this-single-command-keys))
	     (type (or type :normal))
	     (translation (ergoemacs-translate--get type))
	     (local-keymap (ergoemacs-translate--keymap translation))
	     (local-key (substring keys -1))
	     modal-p)
    (when (setq modal-p (ergoemacs :modal-p))
      (setq local-keymap (ergoemacs-translation-struct-keymap-modal modal-p)))
    ;; This starts the command loop when DEL or MENU is replaced in the proper place.
    (if (and (not (eq ergoemacs-command-loop-type :emacs)) (lookup-key local-keymap local-key))
	    (let ((i 1)) ;; Setup history
	      (setq ergoemacs-command-loop--history nil)
	      (while (<= i (- (length keys) 1))
	        (push (list (substring keys 0 i) :normal nil
			            current-prefix-arg (aref (substring keys (- i 1) i) 0))
		          ergoemacs-command-loop--history)
	        (setq i (+ 1 i)))
	      (ergoemacs-command-loop--internal keys nil nil nil ergoemacs-command-loop--history))
      (ding)
      (ergoemacs-command-loop--temp-message "%s does not do anything!"
                                            (ergoemacs-key-description (this-single-command-keys)))
      (setq defining-kbd-macro nil)
      (force-mode-line-update)
      ;; If this is a down-mouse event, don't reset prefix-arg;
      ;; pass it to the command run by the up event.
      (setq prefix-arg
            (when (memq 'down (event-modifiers last-command-event))
              current-prefix-arg)))))

(defun ergoemacs-advice-undefined (orig-fun)
  "Allow `ergoemacs-mode' to display keys, and intercept ending <apps> keys."
  (if (and ergoemacs-mode (not ergoemacs--temporary-disable))
      (ergoemacs-mode--undefined-advice)
    (call-interactively orig-fun)))

(defun ergoemacs-read-key (orig-fun &rest args)
  "Allow `ergoemacs-mode' to add put prompt into original keys."
  (if (not (and ergoemacs-mode (not ergoemacs--temporary-disable)))
      (apply orig-fun args)
    (if (not (= 1 (length args)))
        (apply orig-fun args)
      (setq ergoemacs-command-loop--read-key-prompt
            (nth 0 args))
      (unwind-protect
          (apply orig-fun args)
        (setq ergoemacs-command-loop--read-key-prompt "")))))

(provide 'ergoemacs-advice)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ergoemacs-advice.el ends here
;; Local Variables:
;; coding: utf-8-emacs
;; End: