Comment déterminer le système d'exploitation en elisp ?

Question

Comment déterminer de manière programmatique sous quel système d'exploitation Emacs fonctionne dans ELisp ?

Je voudrais exécuter un code différent dans .emacs selon le système d'exploitation.

Answer 1

El system-type variable :

system-type is a variable defined in `C source code'.
Its value is darwin

Documentation:
Value is symbol indicating type of operating system you are using.
Special values:
  `gnu'         compiled for a GNU Hurd system.
  `gnu/linux'   compiled for a GNU/Linux system.
  `darwin'      compiled for Darwin (GNU-Darwin, Mac OS X, ...).
  `ms-dos'      compiled as an MS-DOS application.
  `windows-nt'  compiled as a native W32 application.
  `cygwin'      compiled using the Cygwin library.
Anything else indicates some sort of Unix system.

Answer 2

Pour les personnes qui ne connaissent pas elisp, un exemple d'utilisation :

(if (eq system-type 'darwin)
  ; something for OS X if true
  ; optional something if not
)

Answer 3

J'ai créé une macro simple pour exécuter facilement le code en fonction du type de système :

(defmacro with-system (type &rest body)
  "Evaluate BODY if `system-type' equals TYPE."
  (declare (indent defun))
  `(when (eq system-type ',type)
     ,@body))

(with-system gnu/linux
  (message "Free as in Beer")
  (message "Free as in Freedom!"))

Answer 4

Dans un .emacs, il n'y a pas seulement l'élément system-type mais aussi le window-system variable. C'est utile lorsque vous voulez choisir entre une option x uniquement, ou un paramètre terminal, ou macos.

Answer 5

Maintenant, il existe également un sous-système Linux pour Windows (bash sous Windows 10) où system-type est gnu/linux . Pour détecter ce type de système, utilisez :

(if
    (string-match "Microsoft"
         (with-temp-buffer (shell-command "uname -r" t)
                           (goto-char (point-max))
                           (delete-char -1)
                           (buffer-string)))
    (message "Running under Linux subsystem for Windows")
    (message "Not running under Linux subsystem for Windows")
  )