This repository has been archived on 2024-10-22. You can view files and clone it, but cannot push or open issues or pull requests.
spacemacs/layers/+os/osx/config.el
Aaron Culich 2215ffe68d change osx-command-as default for ⌘ to hyper instead of super
The purpose of this PR is to set the default for ⌘ to `hyper' and to provide the
function `kbd-mac-command` to replace `kbd' when defining keybindings for ⌘ in
case someone decides to explicitly set osx-command-as to `super' or `alt'.

There are problems setting osx-command-as to `alt' and `super',
so we use `hyper' as a default instead because, for example:
  - Using `alt':   Command-x or Command-m inserts, respectively: × µ
  - Using `super': Control-Command-f produces keycode: <C-s-268632078>
Setting to `hyper' seems to avoid both types of the above problems.
Also, while it is possible, it is not recommended to set to `meta'
since standard OSX shortcuts would overshadow important keys such
as M-x.

Two other small changes include:

  - Commenting out the code that defines <C-s-268632078> (C-s-f) since it is
    unnecessary if we use `hyper' as the default; and if we really want to use
    `super' then we should figure out how to solve the weird keycode issue.

  - add keybinding for ⌘` (Command-backtick) to `other-window'.
    Emacs usually swallows this keystroke, so other-window basically restores
    the default behavior that most Mac OSX users would expect.
2017-05-14 21:54:06 -04:00

67 lines
2.7 KiB
EmacsLisp
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

;;; config.el --- OSX Layer config File for Spacemacs
;;
;; Copyright (c) 2012-2017 Sylvain Benner & Contributors
;;
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3
(defvar osx-use-option-as-meta 'deprecated
"DEPRECATED. See README for OSX layer for new variables. If this
variable is set it will take precedence (for backwards compatibility).
If non nil the option key is mapped to meta. Set to `nil` if you need the
option key to type common characters.
Default: `deprecated'")
(defvar osx-command-as 'hyper
"Sets the key binding of the `COMMAND' key on OSX.
Possible values are `super' `meta' `hyper' `alt' `none'.
Default: `hyper'.")
;; There are problems setting osx-command-as to `alt' and `super',
;; so we use `hyper' as a default instead because, for example:
;; - Using `alt': Command-x or Command-m inserts, respectively: × µ
;; - Using `super': Control-Command-f produces keycode: <C-s-268632078>
;; Setting to `hyper' seems to avoid both types of the above problems.
;; Also, while it is possible, it is not recommended to set to `meta'
;; since standard OSX shortcuts would overshadow important keys such
;; as M-x.
(defvar osx-option-as 'meta
"Sets the key binding of the `OPTION' key on OSX.
Possible values are `super' `meta' `hyper' `alt' `none'.
Default: `meta'.
For backwards compatibility the variable `osx-use-option-as-meta'
takes precedence is set to t.")
(defvar osx-function-as 'none
"Sets the key binding of the `FUCTION' key on OSX.
Possible values are `super' `meta' `hyper' `alt' `none'.
Default: `none'.")
(defvar osx-control-as 'control
"Sets the key binding of the `CONTROL' key on OSX.
Possible values are `super' `meta' `hyper' `alt' `none'.
Default: `control'.")
(defvar osx-right-control-as 'left
"Sets the key binding of the `RIGHT CONTROL' key on OSX.
Possible values are `super' `meta' `hyper' `alt' `left' `none'.
Default: `left'.")
(defvar osx-right-command-as 'left
"Sets the key binding of the `RIGHT COMMAND' key on OSX.
Possible values are `super' `meta' `hyper' `alt' `left' `none'.
Default: `left'.")
(defvar osx-right-option-as 'left
"Sets the key binding of the `RIGHT OPTION' key on OSX.
Possible values are `super' `meta' `hyper' `alt' `left' `none'.
Default: `left'.")
(defvar osx-use-dictionary-app t
"If non nil use osx dictionary app instead of wordnet")
;; Use the OS X Emoji font for Emoticons
(when (fboundp 'set-fontset-font)
(set-fontset-font "fontset-default"
'(#x1F600 . #x1F64F)
(font-spec :name "Apple Color Emoji") nil 'prepend))