;; ++++++++++++++++++++ OS

(defun win-set-sbcl ()
  ;; %USERPROFILE%\AppData\Local\Programs\emacs-26.2-x86_64\bin\emacsclientw.exe -c -n -a runemacs.exe
  ;; (setq inferior-lisp-program (executable-find "sbcl"))
  (setq sbcl-exe (expand-file-name "~/AppData/Local/Programs/Steel Bank Common Lisp/1.4.14/sbcl.exe"))
  (setq sbcl-core (expand-file-name "~/AppData/Local/Programs/Steel Bank Common Lisp/1.4.14/sbcl.core"))
  (setq inferior-lisp-program "sbcl")
  (setq slime-lisp-implementations `((sbcl (,sbcl-exe "--core" ,sbcl-core)))))

(defun evo-load-paths ()
  (add-to-list 'load-path (expand-file-name "~/.emacs.d/__evo"))
  (unless (file-directory-p (expand-file-name "~/Documents"))
    (let ((docs-path (getenv "DOCS_PATH")))
      (setq org-agenda-files `(,(concat docs-path "\\Journal")))
      (setq org-default-notes-file (concat docs-path "\\Journal\\notes.org"))
      (setq cal-html-directory (concat docs-path "\\Diary"))
      (setq diary-file (concat docs-path "\\Diary\\diary"))
      (setq timeclock-file (concat docs-path "\\Diary\\timelog")))))

(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)
  (win-set-sbcl)
  (setq python-shell-interpreter "python")
  (add-to-list 'load-path (expand-file-name "~/AppData/Roaming/__secrets"))
  (cd "~/opt")
  (when (display-graphic-p)
    (add-to-list 'default-frame-alist '(undecorated . nil))
    (add-to-list 'default-frame-alist '(font . "Iosevka Term-12")))
  (when (string= (system-name) "EVG02667NB")
    (evo-load-paths))
  (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 (display-graphic-p)
    ;;    (toggle-frame-fullscreen)
    (setq-default line-spacing 3)
    (add-to-list 'default-frame-alist '(font . "Iosevka Term-14")))
  (when (string= (system-name) "XPS-13-9380")))

;; ++++++++++++++++++++ OS
(provide 'os)