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

Redesign doom-system-os

Browse source
This commit is contained in:
Henrik Lissner 2017-05-03 21:58:39 +02:00
parent c37e679e44
commit acca0a86c7
1 changed files with 18 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

12
core/autoload/system.el
View file

@ -2,10 +2,11 @@
(provide 'core-lib-system) (provide 'core-lib-system)
;;;###autoload ;;;###autoload
(defun doom-system-os () (defun doom-system-os (&optional os)
"Returns the OS: arch, debian, macos, general linux, cygwin or windows." "Returns the OS: arch, debian, macos, general linux, cygwin or windows. If OS
(let ((gnu-linux-p (eq system-type 'gnu/linux))) is given, returns t if it matches the current system, and nil otherwise."
(cond ((and gnu-linux-p (file-exists-p "/etc/arch-release")) (let* ((gnu-linux-p (eq system-type 'gnu/linux))
(type (cond ((and gnu-linux-p (file-exists-p "/etc/arch-release"))
'arch) 'arch)
((and gnu-linux-p (file-exists-p "/etc/debian_version")) ((and gnu-linux-p (file-exists-p "/etc/debian_version"))
'debian) 'debian)
@ -16,6 +17,9 @@
((memq system-type '(windows-nt cygwin)) ((memq system-type '(windows-nt cygwin))
'windows) 'windows)
(t (error "Unknown OS: %s" system-type))))) (t (error "Unknown OS: %s" system-type)))))
(if os
(eq os type)
type)))
;;;###autoload ;;;###autoload
(defun doom-sh (command &rest args) (defun doom-sh (command &rest args)