Variable: hycontrol-frames-mode-map
hycontrol-frames-mode-map is a variable defined in hycontrol.el.
Value
Large value
% #<anonymous-function>
( hycontrol-save-frame-configuration
) hycontrol-restore-frame-configuration
+ toggle-frame-maximized
- 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-frames
F hycontrol-window-to-new-frame
H #<anonymous-function>
I hycontrol-framemove-up
J hycontrol-framemove-left
K hycontrol-framemove-right
M hycontrol-framemove-down
O #<anonymous-function>
Q hycontrol-quit
SPC..~ undefined
W #<anonymous-function>
X #<anonymous-function>
Z #<anonymous-function>
[ hycontrol-make-frame
] hycontrol-make-frame
a hycontrol-frame-adjust-widths
b bury-buffer
c hycontrol-frame-to-screen-edges
d delete-frame
f hycontrol-clone-window-to-new-frame
h #<anonymous-function>
i #<anonymous-function>
j #<anonymous-function>
k #<anonymous-function>
l lower-frame
m #<anonymous-function>
n #<anonymous-function>
o #<anonymous-function>
p #<anonymous-function>
q hycontrol-quit
r raise-frame
s #<anonymous-function>
t hycontrol-enable-windows-mode
u unbury-buffer
w #<anonymous-function>
z #<anonymous-function>
~ #<anonymous-function>
Documentation
Keymap to use when in Hyperbole HyControl frames mode.
Source Code
;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hycontrol.el
;;; Frame Keys
(defvar hycontrol-frames-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-frame)
(define-key map "D" 'hycontrol-delete-other-frames)
(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 "%" (lambda () (interactive) (setq hycontrol-arg (hycontrol-frame-percentage-of-screen hycontrol-arg))))
(define-key map "H" (lambda () (interactive) (setq hycontrol-arg (hycontrol-frame-height-percentage-of-screen hycontrol-arg))))
(define-key map "W" (lambda () (interactive) (setq hycontrol-arg (hycontrol-frame-width-percentage-of-screen hycontrol-arg))))
(define-key map "h" (lambda () (interactive) (hycontrol-set-frame-height nil (+ (frame-height) hycontrol-arg))))
;; Move directionally among frames
(define-key map "I" 'hycontrol-framemove-up)
(define-key map "J" 'hycontrol-framemove-left)
(define-key map "K" 'hycontrol-framemove-right)
(define-key map "M" 'hycontrol-framemove-down)
(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 "l" 'lower-frame)
(define-key map "m" (lambda () (interactive) (setq hycontrol-arg (hycontrol-frame-resize-to-bottom hycontrol-arg))))
(define-key map "n" (lambda () (interactive) (hycontrol-set-frame-width nil (- (frame-width) 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 "r" 'raise-frame)
(define-key map "s" (lambda () (interactive) (hycontrol-set-frame-height nil (- (frame-height) hycontrol-arg))))
(define-key map "t" 'hycontrol-enable-windows-mode)
(define-key map "u" 'unbury-buffer)
(define-key map "w" (lambda () (interactive) (hycontrol-set-frame-width nil (+ (frame-width) hycontrol-arg))))
(define-key map "X" (lambda () (interactive) (hycontrol-frame-zoom-reset)))
(define-key map "Z" (lambda () (interactive) (if (> hycontrol-arg 9) (setq hycontrol-arg 1)) (hycontrol-frame-zoom hycontrol-arg)))
(define-key map "z" (lambda () (interactive) (if (> hycontrol-arg 9) (setq hycontrol-arg 1)) (hycontrol-frame-zoom (- hycontrol-arg))))
(define-key map "\[" 'hycontrol-make-frame)
(define-key map "\]" 'hycontrol-make-frame)
(define-key map "\(" 'hycontrol-save-frame-configuration)
(define-key map "\)" 'hycontrol-restore-frame-configuration)
;; Something in this command's event handling when used within HyControl's event loop slows down
;; frame iconification under macOS 100-fold, so don't enable it until this issue is resolved.
;; (define-key map "^" 'iconify-frame)
(define-key map "~" (lambda () (interactive)
(unless (hycontrol-frame-swap-buffers)
(hycontrol-user-error hycontrol-debug "(HyControl): There must be at least two frames and the frame to swap to must have only a single window."))))
(define-key map "-" 'hycontrol-minus-key)
(define-key map "+" 'toggle-frame-maximized)
(define-key map "=" (lambda () (interactive)
(and (> (length (visible-frame-list)) 1)
(y-or-n-p "Resize all other frames to the size of the selected frame?")
(mapc (lambda (f)
(hycontrol-set-frame-size
f (frame-pixel-width) (frame-pixel-height) t))
(visible-frame-list)))))
(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 frames mode.")