Move OS constants to core/core.el

So it is universally available to all of Doom, rather than excluding
sessions that haven't called doom-initialize interactively.
This commit is contained in:
Henrik Lissner 2018-06-08 13:31:45 +02:00
parent bc2f8a0ec9
commit 81c465a545
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 47 additions and 48 deletions

View file

@ -1,10 +1,5 @@
;;; core-os.el -*- lexical-binding: t; -*-
(defconst IS-MAC (eq system-type 'darwin))
(defconst IS-LINUX (eq system-type 'gnu/linux))
(defconst IS-WINDOWS (memq system-type '(cygwin windows-nt ms-dos)))
(unless noninteractive
;; clipboard
(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)
;; Use a shared clipboard
@ -51,7 +46,7 @@
(IS-WINDOWS
(setq w32-get-true-file-attributes nil) ; fix file io slowdowns
)))
))
(provide 'core-os)
;;; core-os.el ends here

View file

@ -286,10 +286,10 @@ to least)."
(unless (or force-p noninteractive)
(doom//reload-package-autoloads))))
;; Initialize Doom core
(require 'core-os)
(unless noninteractive
(add-hook! 'emacs-startup-hook
#'(doom|post-init doom|display-benchmark))
(require 'core-os)
(require 'core-ui)
(require 'core-editor)
(require 'core-projects)

View file

@ -16,6 +16,10 @@ line or use --debug-init to enable this.")
(eval-when-compile (not (version< emacs-version "26"))))
(defconst EMACS27+
(eval-when-compile (not (version< emacs-version "27"))))
(defconst IS-MAC (eq system-type 'darwin))
(defconst IS-LINUX (eq system-type 'gnu/linux))
(defconst IS-WINDOWS (memq system-type '(cygwin windows-nt ms-dos)))
;;
(defvar doom-emacs-dir