xah-fly-keys-layer/funcs.el at master · gcentauri/xah-fly-keys-layer · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
(when (configuration-layer/package-usedp 'xah-fly-keys)
  (defun xah-fly-keys-command-mode-on ()
    (global-hl-line-mode 1)
    (set-cursor-color (car xah-fly-keys-command-mode-cursor))
    (setq cursor-type (cdr xah-fly-keys-command-mode-cursor))
    (xah-fly--define-keys
     xah-fly-key-map
     '(
       ("a" . xah-fly-keys-M-x)
       ("b" . xah-fly-keys-isearch)
       )))

  (defun xah-fly-keys-insert-mode-on ()
    (global-hl-line-mode 0)
    (set-cursor-color (car xah-fly-keys-insert-mode-cursor))
    (setq cursor-type (cdr xah-fly-keys-insert-mode-cursor)))

  (defun xah-fly-keys-isearch ()
    (interactive) (command-execute xah-fly-keys-search-function))

  (defun xah-fly-keys-M-x ()
    (interactive) (command-execute xah-fly-keys-M-x-function)))