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

71 lines
2.8 KiB
EmacsLisp
Raw Normal View History

2016-08-28 11:20:44 +00:00
;;; config.el --- OSX Layer config File for Spacemacs
;;
2018-01-04 07:00:25 +00:00
;; Copyright (c) 2012-2018 Sylvain Benner & Contributors
2016-08-28 11:20:44 +00:00
;;
;; 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 macOS.
Possible values are `super', `meta', `hyper', `alt', and `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 macOS shortcuts would overshadow important keys such
;; as M-x.
(defvar osx-option-as 'meta
"Sets the key binding of the `OPTION' key on macOS.
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 nil
"Sets the key binding of the `FUNCTION' key on macOS.
Possible values are `super' `meta' `hyper' `alt' `nil'.
Default: `nil'.")
(defvar osx-control-as 'control
"Sets the key binding of the `CONTROL' key on macOS.
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 macOS.
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 macOS.
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 macOS.
Possible values are `super' `meta' `hyper' `alt' `left' `none'.
Default: `left'.")
2015-11-23 06:54:59 +00:00
(defvar osx-use-dictionary-app (spacemacs/system-is-mac)
"Use the macOS dictionary app instead of Wordnet.")
(defvar osx-swap-option-and-command nil
"If non nil swap option key and command key")
;; Use the macOS Emoji font for Emoticons.
(when (fboundp 'set-fontset-font)
(set-fontset-font "fontset-default"
'(#x1F600 . #x1F64F)
(font-spec :name "Apple Color Emoji") nil 'prepend))