;;; exwm-holyK-firefox --- Emacs keybinding implemention of exwm-firefox-core
;; Author: Thanos Apollo
;; URL: --
;; Version: 1.0
;; Package-Requires: ((emacs "24.4") (exwm "0.16") (exwm-firefox-core "1.0"))
;; Keywords: extensions

;;; Commentary:

;; This package implements exwm-firefox-core to allow navigation and editing in firefox
;; using default-like Emacs keybindings

;;; Code:

;(require 'exwm-firefox-core)

(defvar exwm-firefox-class-names
  '("firefox-default" "firefox" "Firefox"
    "Nightly" "Icecat" "icecat-default" "Iceweasel")
    "The class name used for detecting if current buffer is a firefox browser.")

(define-minor-mode exwm-firefox-holyK-mode
  "Get Emacs keybindings in Firefox with EXWM."
  :lighter " Firefox/EXWM"
  :keymap (let
	      ((map (make-sparse-keymap)))
	    (define-key map (kbd "C-n") 'exwm-firefox-core-down)
	    (define-key map (kbd "C-p") 'exwm-firefox-core-up)
	    (define-key map (kbd "C-f") 'exwm-firefox-core-right)
	    (define-key map (kbd "C-b") 'exwm-firefox-core-left)
	    (define-key map (kbd "C-y") 'exwm-firefox-core-paste)
	    (define-key map (kbd "C-s") 'exwm-firefox-core-quick-find)
	    (define-key map (kbd "M-f") 'exwm-firefox-core-tab-next)
	    (define-key map (kbd "M-b") 'exwm-firefox-core-tab-previous)
	    (define-key map (kbd "C-c C-c") 'exwm-firefox-core-copy)
	    (define-key map (kbd "C-c n") 'exwm-firefox-core-tab-new)
	    (define-key map (kbd "C-c d") 'exwm-firefox-core-tab-close)
	    (define-key map (kbd "C-c b") 'exwm-firefox-core-history-back)
	    (define-key map (kbd "C-c f") 'exwm-firefox-core-history-forward)
	    (define-key map (kbd "C-l") 'exwm-firefox-core-focus-search-bar)
	    (define-key map (kbd "C-/") 'exwm-firefox-core-undo)
	    (define-key map (kbd "M-<") 'exwm-firefox-core-top)
	    (define-key map (kbd "M->") 'exwm-firefox-core-bottom)
	    (define-key map (kbd "C-c C-b") 'exwm-firefox-core-bookmark-new)
	    map))

(defun holyK-activate-if-firefox ()
  "Activates firefox-holyK-mode mode when buffer is firefox.
Firefox variant can be assigned in 'exwm-firefox-class-names`"
  (interactive)
  (if (member exwm-class-name exwm-firefox-class-names)
      (list (exwm-firefox-holyK-mode 1)
	    (setq-local exwm-input-line-mode-passthrough nil)
	    ;;if exwm-input-line-mode-passthroug t mouse will stop working properly
	    )))

(add-hook 'exwm-mode 'holyK-activate-if-firefox)