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

New autoload/system.el core library

Browse source
This commit is contained in:
Henrik Lissner 2021-03-01 11:02:07 -05:00
parent 49c3c84d7f
commit c5e3f4d632
4 changed files with 108 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

21
core/autoload/debug.el
View file

@ -125,26 +125,7 @@ ready to be pasted in a bug report on github."
(concat " -> " (file-truename file))
""))))
`((system
(info . ,(cons
(cond
(IS-WINDOWS "Windows")
(IS-MAC (format "MacOS "(sh "sw_vers" "-productVersion")))
((executable-find "lsb_release")
(sh "lsb_release" "-s" "-d"))
((executable-find "nixos-version")
(format "NixOS %s" (sh "nixos-version")))
((file-exists-p "/etc/os-release")
(let ((release (cat "/etc/os-release")))
(when (string-match "^PRETTY_NAME=\"\\([^\"]+\\)\"" release)
(match-string 1 release))))
((file-exists-p "/etc/debian_version")
(format "Debian %s" (car "/etc/debian_version")))
((when-let (files (doom-glob "/etc/*-release"))
(truncate-string-to-width
(replace-regexp-in-string "\n" " " (cat (car files) 73) nil t)
64 nil nil "...")))
((concat "Unknown " (sh "uname" "-v"))))
(sh "uname" "-msr")))
(info . ,(cons (doom-system-distro-version) (sh "uname" "-msr")))
(shell . ,(abbrev-path shell-file-name))
(path . ,(mapcar #'abbrev-path exec-path)))
(emacs