;;; ravi-ergodox-mode.el --- Keybindings fof Ergodox keyboard

;; Copyright (C) 2014  Ravikiran Rajagopal

;; Author: Ravikiran Rajagopal <ravi@nero.lan>
;; Keywords: convenience, hardware

;; 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 of the License, 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/>.

;;; Commentary:

;; Set up keymap for ergodox bindings

;;; Code:

(defgroup ravi-ergodox-mode nil
  "Keybindings for ergodox."
  :group 'ravi-ergodox-mode)

(defvar ravi-ergodox-mode-map (make-sparse-keymap)
  "Keymaps for command `ravi-ergodox-mode-map'.")

(defcustom ravi-ergodox-mode-disable-predicates nil
  "List of predicates that disable the mode.
Each function in the list receive no argument."
  :group 'ravi-ergodox-mode)

(defcustom ravi-ergodox-mode-disabled-modes nil
  "Modes where `ravi-ergodox-mode' should not activate."
  :group 'ravi-ergodox-mode
  :type '(repeat symbol))

(define-minor-mode ravi-ergodox-mode
  "Enable Ergodox keyboard special bindings."
  :lighter " RE" :group 'convenience
  :keymap ravi-ergodox-mode-map
  :global t
  (when window-system
    (if ravi-ergodox-mode
        (progn
          (setq x-meta-keysym 'super)
          (setq x-super-keysym 'meta))
      (progn
        (setq x-meta-keysym nil)
        (setq x-super-keysym nil))
      )))

(define-key ravi-ergodox-mode-map (kbd "H-m") 'magit-status)
(when (boundp 'ravi/use-selection-system)
  (pcase ravi/use-selection-system
    ('helm (define-key ravi-ergodox-mode-map (kbd "<f1>") 'helm-multi-files)
           (define-key ravi-ergodox-mode-map (kbd "<f2>") 'helm-find-files))
    ('ido (define-key ravi-ergodox-mode-map (kbd "<f1>") 'ido-switch-buffer)
          (define-key ravi-ergodox-mode-map (kbd "<f2>") 'ido-find-file))
    ('selectrum (define-key ravi-ergodox-mode-map (kbd "<f1>") 'consult-buffer)
                (define-key ravi-ergodox-mode-map (kbd "<f2>") 'find-file))
    ('vertico (define-key ravi-ergodox-mode-map (kbd "<f1>") 'consult-buffer)
              (define-key ravi-ergodox-mode-map (kbd "<f2>") 'find-file))
    (_ nil)))

(defun ravi-ergodox-mode-enable ()
  "Turn on ergodox bindings mode."
  (and (not (memq major-mode ravi-ergodox-mode-disabled-modes))
       (not (catch 'disable
              (dolist (pred ravi-ergodox-mode-disable-predicates)
                (and (funcall pred)
                     (throw 'disable t)))))
       (ravi-ergodox-mode 1)))

(defun ravi-ergodox-mode-disable ()
  "Turn off ergodox bindings mode."
  (ravi-ergodox-mode -1))

(provide 'ravi-ergodox-mode)
;;; ravi-ergodox-mode.el ends here