50 lines
2.3 KiB
EmacsLisp
50 lines
2.3 KiB
EmacsLisp
;; OS SETTINGS
|
|
(when (eq system-type 'gnu/linux)
|
|
(load "bundle--email")
|
|
(setq custom-file "~/.emacs.d/bundle/custom_gnu.el"
|
|
browse-url-secondary-browser-function 'browse-url-firefox
|
|
ispell-dictionary "german"
|
|
ispell-program-name "hunspell")
|
|
(setq ispell-local-dictionary-alist
|
|
'(("german" "[[:alpha:]]" "[^[:alpha:]]" "[']" t ("-d" "de_DE_frami,de_AT_frami,de_CH_frami") nil utf-8)
|
|
("english" "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-d" "en_US") nil utf-8))
|
|
ispell-hunspell-dictionary-alist ispell-local-dictionary-alist))
|
|
|
|
(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"
|
|
org-babel-python-command "python"
|
|
ispell-program-name "c:/msys64/mingw64/bin/hunspell.exe"
|
|
ispell-dictionary "german,english"
|
|
ispell-local-dictionary-alist
|
|
;; Copy de_DE_frami* files from ~/.emacs.d/dicts/ to c:/msys64/mingw64/share/dict/ooo/
|
|
'(("german" "[[:alpha:]]" "[^[:alpha:]]" "[']" t ("-d" "de_DE_frami") nil utf-8)
|
|
("english" "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-d" "en_US") nil utf-8)
|
|
("german,english" "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-d" "de_DE_frami,en_US") nil utf-8))
|
|
ispell-hunspell-dictionary-alist ispell-local-dictionary-alist)
|
|
|
|
(use-package powershell)
|
|
|
|
(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")
|
|
(let ((feeds (expand-file-name "~/feeds.el")))
|
|
(if (file-exists-p feeds)
|
|
(load-file feeds)))))
|
|
|
|
;; CUSTOM_FILE
|
|
(load custom-file :noerror)
|