4aaeeb509c
This is experimental. It will adapt the frame titlebar's theme depending on the background of the loaded theme.
81 lines
3.7 KiB
EmacsLisp
81 lines
3.7 KiB
EmacsLisp
;;; core-os.el -*- lexical-binding: t; -*-
|
|
|
|
;; clipboard
|
|
(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)
|
|
;; Use a shared clipboard
|
|
select-enable-clipboard t
|
|
select-enable-primary t)
|
|
|
|
;; stop copying each visual state move to the clipboard:
|
|
;; https://bitbucket.org/lyro/evil/issue/336/osx-visual-state-copies-the-region-on
|
|
;; grokked from: http://stackoverflow.com/questions/15873346/elisp-rename-macro
|
|
(advice-add #'evil-visual-update-x-selection :override #'ignore)
|
|
|
|
(defmacro set-env! (&rest _vars)
|
|
"Inject VARS from your shell environment into Emacs.")
|
|
|
|
(cond (IS-MAC
|
|
(setq mac-command-modifier 'super
|
|
mac-option-modifier 'meta
|
|
;; sane trackpad/mouse scroll settings
|
|
mac-redisplay-dont-reset-vscroll t
|
|
mac-mouse-wheel-smooth-scroll nil
|
|
mouse-wheel-scroll-amount '(5 ((shift) . 2)) ; one line at a time
|
|
mouse-wheel-progressive-speed nil ; don't accelerate scrolling
|
|
;; Curse Lion and its sudden but inevitable fullscreen mode!
|
|
;; NOTE Meaningless to railwaycat's emacs-mac build
|
|
ns-use-native-fullscreen nil
|
|
;; Visit files opened outside of Emacs in existing frame, rather
|
|
;; than a new one
|
|
ns-pop-up-frames nil)
|
|
|
|
;; Fix the clipboard in terminal or daemon Emacs (non-GUI)
|
|
(when (or (daemonp) (not (display-graphic-p)))
|
|
(add-hook 'doom-post-init-hook #'osx-clipboard-mode))
|
|
|
|
(when (or (daemonp) (display-graphic-p))
|
|
;; Syncs ns frame parameters with theme (and fixes mismatching text
|
|
;; colr in the frame title)
|
|
(require 'ns-auto-titlebar nil t)
|
|
|
|
;; A known problem with GUI Emacs on MacOS (or daemons started via
|
|
;; launchctl or brew services): it runs in an isolated
|
|
;; environment, so envvars will be wrong. That includes the PATH
|
|
;; Emacs picks up. `exec-path-from-shell' fixes this.
|
|
(when (require 'exec-path-from-shell nil t)
|
|
(defun set-env! (&rest vars)
|
|
"Inject VARS from your shell environment into Emacs."
|
|
(exec-path-from-shell-copy-envs vars))
|
|
(setq exec-path-from-shell-check-startup-files nil
|
|
exec-path-from-shell-arguments (delete "-i" exec-path-from-shell-arguments)
|
|
exec-path-from-shell-debug doom-debug-mode
|
|
exec-path-from-shell-variables
|
|
(nconc exec-path-from-shell-variables '("LC_CTYPE" "LC_ALL" "LANG")))
|
|
(exec-path-from-shell-initialize)))
|
|
|
|
(add-to-list 'default-frame-alist '(ns-transparent-titlebar . t))
|
|
(defun +doom|determine-ns-appearance ()
|
|
(let ((appearance (cl-destructuring-bind (r g b) (doom-name-to-rgb "#E5E9F0")
|
|
(if (> (+ (* r 0.2126)
|
|
(* g 0.7152)
|
|
(* b 0.0722))
|
|
0.45)
|
|
'light
|
|
'dark))))
|
|
(setf (alist-get 'ns-appearance default-frame-alist) appearance)
|
|
(dolist (frame (frame-list))
|
|
(set-frame-parameter frame 'ns-appearance appearance))))
|
|
(add-hook 'doom-load-theme-hook #'+doom|determine-ns-appearance))
|
|
|
|
(IS-LINUX
|
|
(setq x-gtk-use-system-tooltips nil ; native tooltips are ugly!
|
|
x-underline-at-descent-line t)) ; draw underline lower
|
|
|
|
(IS-WINDOWS
|
|
(setq w32-get-true-file-attributes nil) ; fix file io slowdowns
|
|
(when (display-graphic-p)
|
|
(setenv "GIT_ASKPASS" "git-gui--askpass"))))
|
|
|
|
(provide 'core-os)
|
|
;;; core-os.el ends here
|