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

Move OS constants to core/core.el

Browse source 
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
Download patch file Download diff file Expand all files Collapse all files

23
core/core-os.el
View file

@ -1,23 +1,18 @@
;;; 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)
;; 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
;; Most of this code grokked from:
;; http://stackoverflow.com/questions/15873346/elisp-rename-macro
(advice-add #'evil-visual-update-x-selection :override #'ignore)
;; stop copying each visual state move to the clipboard:
;; https://bitbucket.org/lyro/evil/issue/336/osx-visual-state-copies-the-region-on
;; Most of this code grokked from:
;; http://stackoverflow.com/questions/15873346/elisp-rename-macro
(advice-add #'evil-visual-update-x-selection :override #'ignore)
(cond (IS-MAC
(cond (IS-MAC
(setq mac-command-modifier 'meta
mac-option-modifier 'alt
;; sane trackpad/mouse scroll settings
@ -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

2
core/core-packages.el
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)

4
core/core.el
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