awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages 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
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)