659f7bfc71
BREAKING CHANGE: This deprecates the IS-(MAC|WINDOWS|LINUX|BSD) family of global constants in favor of a native `featurep` check: IS-MAC -> (featurep :system 'macos) IS-WINDOWS -> (featurep :system 'windows) IS-LINUX -> (featurep :system 'linux) IS-BSD -> (featurep :system 'bsd) The constants will stick around until the v3 release so folks can still use it -- and there are still some modules that use it, but I'll phase those uses out gradually. Fix: #7479
53 lines
1.6 KiB
EmacsLisp
53 lines
1.6 KiB
EmacsLisp
;;; os/macos/config.el -*- lexical-binding: t; -*-
|
|
|
|
;;
|
|
;;; Reasonable defaults for macOS
|
|
|
|
;; Use spotlight search backend as a default for M-x locate (and helm/ivy
|
|
;; variants thereof), since it requires no additional setup.
|
|
(setq locate-command "mdfind")
|
|
|
|
|
|
;;
|
|
;;; Compatibilty fixes
|
|
|
|
;; Curse Lion and its sudden but inevitable fullscreen mode!
|
|
;; This is meaningless to railwaycat's emacs-mac build though.
|
|
(setq ns-use-native-fullscreen nil)
|
|
|
|
;; Visit files opened outside of Emacs in existing frame, not a new one
|
|
(setq ns-pop-up-frames nil)
|
|
|
|
;; sane trackpad/mouse scroll settings
|
|
(setq mac-redisplay-dont-reset-vscroll t
|
|
mac-mouse-wheel-smooth-scroll nil)
|
|
|
|
;; Sets `ns-transparent-titlebar' and `ns-appearance' frame parameters so window
|
|
;; borders will match the enabled theme.
|
|
(and (or (daemonp)
|
|
(display-graphic-p))
|
|
(require 'ns-auto-titlebar nil t)
|
|
(ns-auto-titlebar-mode +1))
|
|
|
|
;; Integrate with Keychain
|
|
(after! auth-source
|
|
(pushnew! auth-sources 'macos-keychain-internet 'macos-keychain-generic))
|
|
|
|
|
|
;;
|
|
;;; Packages
|
|
|
|
(use-package! osx-trash
|
|
:commands osx-trash-move-file-to-trash
|
|
:init
|
|
;; Delete files to trash on macOS, as an extra layer of precaution against
|
|
;; accidentally deleting wanted files.
|
|
(setq delete-by-moving-to-trash t)
|
|
|
|
;; Lazy load `osx-trash'
|
|
(when (not (fboundp 'system-move-file-to-trash))
|
|
(defun system-move-file-to-trash (file)
|
|
"Move FILE to trash."
|
|
(when (and (not (featurep :system 'linux))
|
|
(not (file-remote-p default-directory)))
|
|
(osx-trash-move-file-to-trash file)))))
|