21 lines
754 B
EmacsLisp
21 lines
754 B
EmacsLisp
(when (equal system-type 'darwin)
|
|
;; Treat option as meta and command as super
|
|
(setq mac-option-key-is-meta t)
|
|
(setq mac-command-key-is-meta nil)
|
|
(setq mac-command-modifier 'super)
|
|
(setq mac-option-modifier 'meta)
|
|
|
|
;; Keybindings
|
|
(global-set-key (kbd "s-q") 'save-buffers-kill-terminal)
|
|
(global-set-key (kbd "s-v") 'yank)
|
|
(global-set-key (kbd "s-c") 'kill-ring-save)
|
|
(global-set-key (kbd "s-x") 'kill-region)
|
|
(global-set-key (kbd "s-w") 'kill-this-buffer)
|
|
(global-set-key (kbd "s-z") 'undo-tree-undo)
|
|
(global-set-key (kbd "s-s")
|
|
(lambda ()
|
|
(interactive)
|
|
(call-interactively (key-binding "\C-x\C-s"))))
|
|
(global-set-key (kbd "s-Z") 'undo-tree-redo)
|
|
(global-set-key (kbd "C-s-f") 'spacemacs/toggle-frame-fullscreen))
|