Variable: hycontrol-windows-mode-map
hycontrol-windows-mode-map is a variable defined in hycontrol.el.
Value
Large value
( hycontrol-save-frame-configuration
) hycontrol-restore-frame-configuration
+ hycontrol-window-maximize-lines
- hycontrol-minus-key
. hycontrol-reset-prefix-arg
0 #<anonymous-function>
1 #<anonymous-function>
2 #<anonymous-function>
3 #<anonymous-function>
4 #<anonymous-function>
5 #<anonymous-function>
6 #<anonymous-function>
7 #<anonymous-function>
8 #<anonymous-function>
9 #<anonymous-function>
<down> #<anonymous-function>
<kp-0> #<anonymous-function>
<kp-1> #<anonymous-function>
<kp-2> #<anonymous-function>
<kp-3> #<anonymous-function>
<kp-4> #<anonymous-function>
<kp-5> #<anonymous-function>
<kp-6> #<anonymous-function>
<kp-7> #<anonymous-function>
<kp-8> #<anonymous-function>
<kp-9> #<anonymous-function>
<left> #<anonymous-function>
<right> #<anonymous-function>
<up> #<anonymous-function>
= #<anonymous-function>
? hycontrol-toggle-help
@ hycontrol-windows-grid
A hycontrol-frame-adjust-heights
C-g hycontrol-abort
C-u hycontrol-multiply-universal-arg
D hycontrol-delete-other-windows
F hycontrol-window-to-new-frame
I windmove-up
J windmove-left
K windmove-right
M windmove-down
O #<anonymous-function>
Q hycontrol-quit
SPC..~ undefined
X #<anonymous-function>
Z #<anonymous-function>
[ #<anonymous-function>
] #<anonymous-function>
a hycontrol-frame-adjust-widths
b bury-buffer
c hycontrol-frame-to-screen-edges
d delete-window
f hycontrol-clone-window-to-new-frame
h #<anonymous-function>
i #<anonymous-function>
j #<anonymous-function>
k #<anonymous-function>
m #<anonymous-function>
n #<anonymous-function>
o #<anonymous-function>
p #<anonymous-function>
q hycontrol-quit
s #<anonymous-function>
t hycontrol-enable-frames-mode
u unbury-buffer
w #<anonymous-function>
z #<anonymous-function>
~ #<anonymous-function>
Documentation
Keymap to use when in Hyperbole HyControl window mode.
Source Code
;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hycontrol.el
(defvar hycontrol-windows-mode-map
(let ((map (make-sparse-keymap)))
(suppress-keymap map t) ;; Disable self-inserting keys and prefix keys
(define-key map [up] (lambda () (interactive) (hycontrol-move-frame 'up hycontrol-arg)))
(define-key map [down] (lambda () (interactive) (hycontrol-move-frame 'down hycontrol-arg)))
(define-key map [left] (lambda () (interactive) (hycontrol-move-frame 'left hycontrol-arg)))
(define-key map [right] (lambda () (interactive) (hycontrol-move-frame 'right hycontrol-arg)))
(define-key map [kp-0] (lambda () (interactive) (hycontrol-numeric-keypad 'kp-0 hycontrol-arg)))
(define-key map [kp-1] (lambda () (interactive) (hycontrol-numeric-keypad 'kp-1 hycontrol-arg)))
(define-key map [kp-2] (lambda () (interactive) (hycontrol-numeric-keypad 'kp-2 hycontrol-arg)))
(define-key map [kp-3] (lambda () (interactive) (hycontrol-numeric-keypad 'kp-3 hycontrol-arg)))
(define-key map [kp-4] (lambda () (interactive) (hycontrol-numeric-keypad 'kp-4 hycontrol-arg)))
(define-key map [kp-5] (lambda () (interactive) (hycontrol-numeric-keypad 'kp-5 hycontrol-arg)))
(define-key map [kp-6] (lambda () (interactive) (hycontrol-numeric-keypad 'kp-6 hycontrol-arg)))
(define-key map [kp-7] (lambda () (interactive) (hycontrol-numeric-keypad 'kp-7 hycontrol-arg)))
(define-key map [kp-8] (lambda () (interactive) (hycontrol-numeric-keypad 'kp-8 hycontrol-arg)))
(define-key map [kp-9] (lambda () (interactive) (hycontrol-numeric-keypad 'kp-9 hycontrol-arg)))
;; Clear hycontrol-arg
(define-key map "." 'hycontrol-reset-prefix-arg)
(define-key map "@" 'hycontrol-windows-grid)
(define-key map "?" 'hycontrol-toggle-help)
(define-key map "a" 'hycontrol-frame-adjust-widths)
(define-key map "A" 'hycontrol-frame-adjust-heights)
(define-key map "b" 'bury-buffer)
(define-key map "c" 'hycontrol-frame-to-screen-edges)
(define-key map "d" 'delete-window)
(define-key map "D" 'hycontrol-delete-other-windows)
(define-key map "f" 'hycontrol-clone-window-to-new-frame)
(define-key map "F" 'hycontrol-window-to-new-frame)
(define-key map "\C-g" 'hycontrol-abort)
(define-key map "h" (lambda () (interactive) (enlarge-window hycontrol-arg)))
;; Move directionally among windows within current frame
(define-key map "I" 'windmove-up)
(define-key map "J" 'windmove-left)
(define-key map "K" 'windmove-right)
(define-key map "M" 'windmove-down)
;; Allow frame resizing even when in window control mode because
;; it may be used often.
(define-key map "i" (lambda () (interactive) (setq hycontrol-arg (hycontrol-frame-resize-to-top hycontrol-arg))))
(define-key map "j" (lambda () (interactive) (setq hycontrol-arg (hycontrol-frame-resize-to-left hycontrol-arg))))
(define-key map "k" (lambda () (interactive) (setq hycontrol-arg (hycontrol-frame-resize-to-right hycontrol-arg))))
(define-key map "m" (lambda () (interactive) (setq hycontrol-arg (hycontrol-frame-resize-to-bottom hycontrol-arg))))
(define-key map "n" (lambda () (interactive) (shrink-window-horizontally hycontrol-arg)))
(define-key map "o" (lambda () (interactive) (let ((w (selected-window))) (other-window hycontrol-arg) (if (eq w (selected-window)) (other-window 1)))))
(define-key map "O" (lambda () (interactive) (let ((w (selected-window))) (other-frame hycontrol-arg) (if (eq w (selected-window)) (other-frame 1)))))
;; Numeric keypad emulation for keyboards that lack one.
(define-key map "p" (lambda () (interactive) (hycontrol-virtual-numeric-keypad hycontrol-arg)))
(define-key map "q" 'hycontrol-quit)
(define-key map "Q" 'hycontrol-quit)
(define-key map "s" (lambda () (interactive) (shrink-window hycontrol-arg)))
(define-key map "t" 'hycontrol-enable-frames-mode)
(define-key map "u" 'unbury-buffer)
(define-key map "w" (lambda () (interactive) (enlarge-window-horizontally hycontrol-arg)))
(define-key map "X" (lambda () (interactive) (text-scale-increase 0)))
(define-key map "Z" (lambda () (interactive) (text-scale-increase (if (< hycontrol-arg 10) hycontrol-arg (setq hycontrol-arg 1)))))
(define-key map "z" (lambda () (interactive) (text-scale-decrease (if (< hycontrol-arg 10) hycontrol-arg (setq hycontrol-arg 1)))))
;; Don't call these interactively because a prefix arg of 1 tries
;; to make one window 1 line tall.
(define-key map "[" (lambda () (interactive) (split-window-vertically)))
(define-key map "]" (lambda () (interactive) (split-window-horizontally)))
(define-key map "(" 'hycontrol-save-frame-configuration)
(define-key map ")" 'hycontrol-restore-frame-configuration)
(define-key map "~" (lambda () (interactive)
(unless (hycontrol-window-swap-buffers)
(hycontrol-user-error hycontrol-debug "(HyControl): There must be precisely two windows within the selected frame to swap buffers."))))
(define-key map "-" 'hycontrol-minus-key)
(define-key map "+" 'hycontrol-window-maximize-lines)
(define-key map "=" (lambda () (interactive) (and (> (length (window-list)) 1)
(y-or-n-p "Resize windows evenly across this frame?")
(balance-windows))))
(define-key map "\C-u" 'hycontrol-multiply-universal-arg)
(define-key map "0" (lambda () (interactive) (hycontrol-universal-arg-digit 0)))
(define-key map "1" (lambda () (interactive) (hycontrol-universal-arg-digit 1)))
(define-key map "2" (lambda () (interactive) (hycontrol-universal-arg-digit 2)))
(define-key map "3" (lambda () (interactive) (hycontrol-universal-arg-digit 3)))
(define-key map "4" (lambda () (interactive) (hycontrol-universal-arg-digit 4)))
(define-key map "5" (lambda () (interactive) (hycontrol-universal-arg-digit 5)))
(define-key map "6" (lambda () (interactive) (hycontrol-universal-arg-digit 6)))
(define-key map "7" (lambda () (interactive) (hycontrol-universal-arg-digit 7)))
(define-key map "8" (lambda () (interactive) (hycontrol-universal-arg-digit 8)))
(define-key map "9" (lambda () (interactive) (hycontrol-universal-arg-digit 9)))
map)
"Keymap to use when in Hyperbole HyControl window mode.")