49 lines
2.1 KiB
EmacsLisp
49 lines
2.1 KiB
EmacsLisp
;; ++++++++++++++++++++ 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)
|