emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix ns-auto-titlebar not correctly being activated

Browse source 
Makes +doom|determine-ns-appearance redundant.
This commit is contained in:
Henrik Lissner 2019-02-25 00:26:08 -05:00
parent b7228fdfad
commit fed0a51f9e
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 3 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

19
core/core-os.el
View file

@ -36,7 +36,8 @@
(when (or (daemonp) (display-graphic-p)) (when (or (daemonp) (display-graphic-p))
;; Syncs ns frame parameters with theme (and fixes mismatching text ;; Syncs ns frame parameters with theme (and fixes mismatching text
;; colr in the frame title) ;; colr in the frame title)
(require 'ns-auto-titlebar nil t) (when (require 'ns-auto-titlebar nil t)
(add-hook 'doom-load-theme-hook #'ns-auto-titlebar-mode))
;; A known problem with GUI Emacs on MacOS (or daemons started via ;; A known problem with GUI Emacs on MacOS (or daemons started via
;; launchctl or brew services): it runs in an isolated ;; launchctl or brew services): it runs in an isolated
@ -51,21 +52,7 @@
exec-path-from-shell-debug doom-debug-mode exec-path-from-shell-debug doom-debug-mode
exec-path-from-shell-variables exec-path-from-shell-variables
(nconc exec-path-from-shell-variables '("LC_CTYPE" "LC_ALL" "LANG"))) (nconc exec-path-from-shell-variables '("LC_CTYPE" "LC_ALL" "LANG")))
(exec-path-from-shell-initialize))) (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 (IS-LINUX
(setq x-gtk-use-system-tooltips nil ; native tooltips are ugly! (setq x-gtk-use-system-tooltips nil ; native tooltips are ugly!