gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
efe8d476bc
doomemacs/lisp/lib/system.el

115 lines
4.2 KiB
EmacsLisp
Raw Normal View History

refactor!: restructure Doom core BREAKING CHANGE: This restructures the project in preparation for Doom to be split into two repos. Users that have reconfigured Doom's CLI stand a good chance of seeing breakage, especially if they've referred to any core-* feature, e.g. (after! core-cli-ci ...) To fix it, simply s/core-/doom-/, i.e. (after! doom-cli-ci ...) What this commit specifically changes is: - Renames all core features from core-* to doom-* - Moves core/core-* -> lisp/doom-* - Moves core/autoloads/* -> lisp/lib/* - Moves core/templates -> templates/ Ref: #4273
2022-07-31 03:49:00 +08:00
;;; lisp/lib/system.el -*- lexical-binding: t; -*-
New autoload/system.el core library
2021-03-02 00:02:07 +08:00
;;;###autoload
(defun doom-system-distro ()
"Return a symbol representing the installed distro."
refactor(lib): use with-memoization Ref: 2b01166d1d8d
2022-09-07 05:18:49 +08:00
(with-memoization (get 'doom-system-distro 'cached-value)
(cond (IS-WINDOWS 'windows)
(IS-MAC 'macos)
refactor(lib): use new file API Ref: 8d4b6b30287d Ref: 83f18402e30d
2022-09-07 05:22:01 +08:00
((ignore-errors
(with-file-contents! "/etc/os-release"
fix(lib): leave point at bob in with-file-contents! with-file-contents!'s docstring promises that point will end up at the beginning of the buffer, but this promise wasn't kept until now.
2022-09-08 06:24:16 +08:00
(when (re-search-forward "^ID=\"?\\([^\"\n]+\\)\"?" nil t)
refactor(lib): use new file API Ref: 8d4b6b30287d Ref: 83f18402e30d
2022-09-07 05:22:01 +08:00
(intern (downcase (match-string 1)))))))
refactor(lib): use with-memoization Ref: 2b01166d1d8d
2022-09-07 05:18:49 +08:00
;; A few redundancies in case os-release fails us
((file-exists-p "/etc/debian_version")
'debian)
((executable-find "nixos-version")
'nixos)
((and (or (file-exists-p "/etc/config.scm")
(file-directory-p "/run/current-system"))
(executable-find "guix"))
'guix)
('linux))))
New autoload/system.el core library
2021-03-02 00:02:07 +08:00
;;;###autoload
(defun doom-system-distro-version ()
"Return a distro name and version string."
(letf! (defun sh (&rest args) (cdr (apply #'doom-call-process args)))
refactor(lib): use new file API Ref: 8d4b6b30287d Ref: 83f18402e30d
2022-09-07 05:22:01 +08:00
(let ((distro (doom-system-distro)))
New autoload/system.el core library
2021-03-02 00:02:07 +08:00
(cond
((eq distro 'windows)
(format "Windows %s" "Unknown")) ; TODO
((eq distro 'macos)
(format "MacOS %s" (sh "sw_vers" "-productVersion")))
((executable-find "nixos-version")
(format "NixOS %s" (sh "nixos-version")))
fix(lib): doom-system-distro-version: check nixos-version first Even if a NixOS machine has lsb_release in its PATH, lsb_release will be used instead of nixos-version to determine the distro version.
2023-07-22 22:16:09 +08:00
((executable-find "lsb_release")
(sh "lsb_release" "-s" "-d"))
refactor(lib): use new file API Ref: 8d4b6b30287d Ref: 83f18402e30d
2022-09-07 05:22:01 +08:00
((ignore-errors
(with-file-contents! "/etc/os-release"
fix(lib): leave point at bob in with-file-contents! with-file-contents!'s docstring promises that point will end up at the beginning of the buffer, but this promise wasn't kept until now.
2022-09-08 06:24:16 +08:00
(when (re-search-forward "^PRETTY_NAME=\"?\\([^\"\n]+\\)\"?" nil t)
refactor(lib): use new file API Ref: 8d4b6b30287d Ref: 83f18402e30d
2022-09-07 05:22:01 +08:00
(match-string 1)))))
New autoload/system.el core library
2021-03-02 00:02:07 +08:00
((when-let (files (doom-glob "/etc/*-release"))
(truncate-string-to-width
fix(lib): vestigial call to missing cat function This was brought over from `doom-info` in f33d8e7, but one of the lexical function calls wasn't refactored out. Ref: https://github.com/doomemacs/doomemacs/blob/a5c80fcb4b487b929681f1cb4fd64e5b5a2ae473/lisp/lib/debug.el#L216-L219 Fix: #6698 Amend: c5e3f4d632c1 Co-authored-by: ivanbrennan <ivanbrennan@users.noreply.github.com>
2022-08-19 17:11:33 +08:00
(replace-regexp-in-string
refactor(lib): use new file API Ref: 8d4b6b30287d Ref: 83f18402e30d
2022-09-07 05:22:01 +08:00
"\n" " " (doom-file-read (car files) :end 73) nil t)
New autoload/system.el core library
2021-03-02 00:02:07 +08:00
64 nil nil "...")))
((concat "Unknown " (sh "uname" "-v")))))))
;;;###autoload
(defun doom-system-distro-icon ()
"Display icon for the installed distro."
refactor(lib): use with-memoization Ref: 2b01166d1d8d
2022-09-07 05:18:49 +08:00
(with-memoization (get 'doom-system-distro-icon 'cached-value)
(propertize
(pcase (doom-system-distro)
refactor!: replace all-the-icons with nerd-icons BREAKING CHANGE: This commit replaces all-the-icons with nerd-fonts. Any all-the-icons-* function calls or variable references in your private config will break and should be replaced with their nerd-icons-* equivalent. That said, Doom will continue to install all-the-icons for a while, so feel free to load it if you don't want to fully commit to the change yet. This change is happening because nerd-icon has wider support for GUI and TUI Emacs; has a larger, more consistent selection of symbols; plus unicode coverage. Fix: #7368 Close: #6675 Close: #7364
2023-09-14 07:03:55 +08:00
(`windows (nerd-icons-faicon "nf-fa-windows"))
(`macos (nerd-icons-faicon "nf-fa-apple"))
refactor(lib): use with-memoization Ref: 2b01166d1d8d
2022-09-07 05:18:49 +08:00
(`arch "\uF303")
(`debian "\uF306")
(`raspbian "\uF315")
(`ubuntu "\uF31b")
(`elementary "\uF309")
(`fedora "\uF30a")
(`coreos "\uF305")
(`gentoo "\uF30d")
(`mageia "\uF310")
(`centos "\uF304")
((or `opensuse `tumbleweed) "\uF314")
(`sabayon "\uF317")
(`slackware "\uF319")
(`linuxmint "\uF30e")
(`alpine "\uF300")
(`aosc "\uF301")
(`nixos "\uF313")
(`devuan "\uF307")
(`manjaro "\uF312")
((or `void `artix) "\uF17c")
refactor!: replace all-the-icons with nerd-icons BREAKING CHANGE: This commit replaces all-the-icons with nerd-fonts. Any all-the-icons-* function calls or variable references in your private config will break and should be replaced with their nerd-icons-* equivalent. That said, Doom will continue to install all-the-icons for a while, so feel free to load it if you don't want to fully commit to the change yet. This change is happening because nerd-icon has wider support for GUI and TUI Emacs; has a larger, more consistent selection of symbols; plus unicode coverage. Fix: #7368 Close: #6675 Close: #7364
2023-09-14 07:03:55 +08:00
(_ (nerd-icons-faicon "nf-fa-linux")))
refactor(lib): use with-memoization Ref: 2b01166d1d8d
2022-09-07 05:18:49 +08:00
'face '(:height 1)
'display '(raise 0))))
New autoload/system.el core library
2021-03-02 00:02:07 +08:00
;;;###autoload
(defun doom-system-cpus ()
"Return the max number of processing units on this system.
Tries to be portable. Returns 1 if cannot be determined."
nit: comment revision, spellcheck, & reformatting Close: #7262 Co-authored-by: emergenz <emergenz@users.noreply.github.com>
2023-07-23 00:12:19 +08:00
;; REVIEW: Replace with `num-processors' once 27.x support is dropped.
refactor(lib): use with-memoization Ref: 2b01166d1d8d
2022-09-07 05:18:49 +08:00
(with-memoization (get 'doom-system-cpus 'cached-value)
refactor(lib): use num-processors This C function was introduced in Emacs 28.1.
2022-09-08 19:35:14 +08:00
(if (fboundp 'num-processors)
(num-processors) ; added in Emacs 28.1
(let ((cpus
(cond ((fboundp 'w32-get-nproc)
(w32-get-nproc))
((getenv "NUMBER_OF_PROCESSORS"))
((executable-find "nproc")
(doom-call-process "nproc"))
((executable-find "sysctl")
(doom-call-process "sysctl" "-n" "hw.ncpu")))))
(max
1 (or (cl-typecase cpus
(integer cpus)
(string
(condition-case _
(string-to-number cpus)
(wrong-type-argument
(user-error "NUMBER_OF_PROCESSORS contains an invalid value: %S"
cpus))))
(cons
(if (zerop (car cpus))
(string-to-number (cdr cpus))
(user-error "Failed to look up number of processors, because:\n\n%s"
(cdr cpus)))))
1))))))
refactor(lib): provide doom-libs as subfeatures This allows us to load them via doom-require. Why not use normal features? Because Doom's libraries are designed to be loaded as part of Doom, and will openly rely on Doom state if needed; this is a contract I want to enforce by ensuring their only entry points are through `doom-require` or autoloading. I will add them to the rest of the libraries later. Site-node: this also adds Commentary+Code to the comment headings, as I want a space to use that space to describe the library, when I get around to it.
2022-09-08 06:08:54 +08:00
(provide 'doom-lib '(system))
;;; system.el ends here
Reference in New Issue Copy Permalink