blob: c8be98f4d8083d01302497379673f0ab6d9bac9b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
;;; 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
(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)
(if (and (boundp 'ravi/use-helm-instead-of-ido) ravi/use-helm-instead-of-ido)
(progn
(define-key ravi-ergodox-mode-map (kbd "<f1>") 'helm-multi-files)
(define-key ravi-ergodox-mode-map (kbd "<f2>") 'helm-find-files))
(progn
(define-key ravi-ergodox-mode-map (kbd "<f1>") 'ido-switch-buffer)
(define-key ravi-ergodox-mode-map (kbd "<f2>") 'ido-find-file)))
(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
|
