(use-package doom-themes :init (setq doom-themes-enable-bold t ; if nil, bold is universally disabled doom-themes-enable-italic t) ; if nil, italics is universally disabled (load-theme 'doom-one t)) (defvar mk/hyperspec-dir-locations '("d:/visua/projects/personal/lisp-docs/HyperSpec-7-0/HyperSpec/" "~/projects/personal/lisp-docs/HyperSpec-7-0/HyperSpec/" "~/lisp-docs/HyperSpec-7-0/HyperSpec/" "~/sites/HyperSpec/")) (defun mk/find-dir (x) (cond ((null x) nil) ((file-directory-p (car x)) (car x)) (t (mk/find-dir (cdr x))))) (defun mk/hyperspec-dir () (let ((dir-prefix (if (eq system-type 'windows-nt) "file:///" "file://")) (dir (mk/find-dir mk/hyperspec-dir-locations))) (if dir (concat dir-prefix (expand-file-name dir)) nil))) (setq common-lisp-hyperspec-root (mk/hyperspec-dir)) ;; OS SETTINGS (when (eq system-type 'gnu/linux) (setq custom-file "~/.emacs.d/bundle/custom_gnu.el" browse-url-secondary-browser-function 'browse-url-firefox) ;; (setq ispell-hunspell-dict-paths-alist ;; '(("de_DE_frami" "~/Library/Spelling/de_DE_frami.aff") ;; ("en_US" "/usr/share/hunspell/en_US.aff"))) ) (when (eq system-type 'windows-nt) ;; (add-to-list 'exec-path "C:/msys64/mingw64/bin") ;; (add-to-list 'exec-path "C:/msys64/usr/bin") ;; (setenv "PATH" (concat "C:\\msys64\\mingw64\\bin;" (getenv "PATH"))) ;; (when (directory-name-p "c:/msys64/") ;; (setq ispell-program-name "c:/msys64/mingw64/bin/hunspell.exe" ;; mpv-executable "c:/msys64/mingw64/bin/mpv.exe")) (setq custom-file "~/.emacs.d/bundle/custom_win32.el") (setq org-babel-python-command "python") ;; (defun powershell (&optional buffer) ;; "Launches a powershell in buffer *powershell* and switches to it." ;; (interactive) ;; (let ((buffer (or buffer "*powershell*")) ;; (powershell-prog "C:\\Program Files\\PowerShell\\7\\pwsh.exe")) ;; (make-comint-in-buffer "shell" "*powershell*" powershell-prog) ;; (switch-to-buffer buffer))) (when (string= (system-name) "EVG02667NB") (cd "d:/opt") (setq custom-file "~/.emacs.d/bundle/custom_win32_EVG02667NB.el"))) ;; CUSTOM_FILE (load custom-file :noerror)