emacs.d/bundle/os.el

25 lines
877 B
EmacsLisp
Raw Normal View History

2019-11-14 13:00:42 +01:00
(defun evo-load-paths ()
(unless (file-directory-p (expand-file-name "~/Documents"))
2019-11-17 11:15:18 +01:00
(defvar *docs-path* (getenv "DOCS_PATH"))))
2019-11-14 13:00:42 +01:00
2019-11-14 10:23:03 +01:00
(when (eq system-type 'darwin)
(when (display-graphic-p)
(add-to-list 'default-frame-alist '(ns-transparent-titlebar . t))
(add-to-list 'default-frame-alist '(ns-appearance . dark))))
(when (eq system-type 'windows-nt)
(setq python-shell-interpreter "python")
(add-to-list 'load-path (expand-file-name "~/AppData/Roaming/__secrets"))
(cd "~/opt")
(when (string= (system-name) "EVG02667NB")
2019-11-15 08:00:54 +01:00
(evo-load-paths))
2019-11-14 10:23:03 +01:00
(when (string= (system-name) "XPS-8930")
(setq python-shell-interpreter "ipython")))
(when (eq system-type 'gnu/linux)
(setq slime-lisp-implementations '((sbcl ("/usr/bin/sbcl"))))
(setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")
(when (string= (system-name) "XPS-13-9380")))
2019-11-14 13:00:42 +01:00
2019-11-14 10:23:03 +01:00
(provide 'os)