17 lines
675 B
EmacsLisp
17 lines
675 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") 'save-buffer)
|
|
(global-set-key (kbd "s-Z") 'undo-tree-redo)
|
|
(global-set-key (kbd "C-s-f") 'toggle-frame-fullscreen))
|