mirrors/doomemacs
1
Fork 0
mirror of https://github.com/doomemacs/doomemacs.git synced 2025-12-06 10:31:23 -08:00
Code Issues Projects Releases Wiki Activity

feat: add wsl detection

Browse source 
Can now be detected with (featurep :system 'wsl).
This commit is contained in:
Henrik Lissner 2025-03-26 07:55:16 -04:00
parent 8a2c7fe3d4
commit 5b103261f4
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/doom.el
View file

@ -132,6 +132,13 @@
(defconst doom--system-macos-p (eq 'macos (car doom-system))) (defconst doom--system-macos-p (eq 'macos (car doom-system)))
(defconst doom--system-linux-p (eq 'linux (car doom-system))) (defconst doom--system-linux-p (eq 'linux (car doom-system)))
;; Announce WSL if it is detected.
(when (and doom--system-linux-p
(if (boundp 'operating-system-release) ; is deprecated since 28.x
(string-match-p "-[Mm]icrosoft" operating-system-release)
(getenv-internal "WSLENV")))
(add-to-list 'doom-system 'wsl 'append))
;; `system-type' is esoteric, so I create a pseudo feature as a stable and ;; `system-type' is esoteric, so I create a pseudo feature as a stable and
;; consistent alternative, for use with `featurep'. ;; consistent alternative, for use with `featurep'.
(push :system features) (push :system features)