.emacs

(require 'package)

(setq package-archives '(("elpa" . "https://elpa.gnu.org/packages/")
                         ("melpa" . "https://melpa.org/packages/")))

(package-initialize)

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(column-number-mode t)
 '(current-language-environment "UTF-8")
 '(custom-enabled-themes '(solarized-selenized-dark))
 '(custom-safe-themes
   '("57a29645c35ae5ce1660d5987d3da5869b048477a7801ce7ab57bfb25ce12d3e" "51ec7bfa54adf5fff5d466248ea6431097f5a18224788d0bd7eb1257a4f7b773" "00445e6f15d31e9afaa23ed0d765850e9cd5e929be5e8e63b114a3346236c44c" "285d1bf306091644fb49993341e0ad8bafe57130d9981b680c1dbd974475c5c7" "4cf3221feff536e2b3385209e9b9dc4c2e0818a69a1cdb4b522756bcdf4e00a4" "4c56af497ddf0e30f65a7232a8ee21b3d62a8c332c6b268c81e9ea99b11da0d3" "830877f4aab227556548dc0a28bf395d0abe0e3a0ab95455731c9ea5ab5fe4e1" "4aee8551b53a43a883cb0b7f3255d6859d766b6c5e14bcb01bed572fcbef4328" "833ddce3314a4e28411edf3c6efde468f6f2616fc31e17a62587d6a9255f4633" "7f1d414afda803f3244c6fb4c2c64bea44dac040ed3731ec9d75275b9e831fe5" "fee7287586b17efbfda432f05539b58e86e059e78006ce9237b8732fde991b4c" "3e200d49451ec4b8baa068c989e7fba2a97646091fd555eca0ee5a1386d56077" "f5b6be56c9de9fd8bdd42e0c05fecb002dedb8f48a5f00e769370e4517dde0e8" default))
 '(default-input-method "thai-kesmanee")
 '(delete-selection-mode nil)
 '(display-battery-mode t)
 '(package-selected-packages
   '(ein python-mode solarized-theme color-theme-sanityinc-solarized vterm json-reformat eglot lsp-mode rustic restclient go-mode crystal-mode julia-repl julia-mode cider dockerfile-mode docker golden-ratio paredit minimap sly company magit))
 '(scroll-bar-mode nil)
 '(tab-bar-mode t)
 '(tool-bar-mode nil)
 '(tooltip-mode nil))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(default ((t (:family "Source Code Pro" :foundry "ADBO" :slant normal :weight semi-bold :height 143 :width normal)))))

(add-hook 'lisp-mode-hook 'global-company-mode)
(add-hook 'lisp-mode-hook 'enable-paredit-mode)

(setq inferior-lisp-program "/usr/bin/sbcl --dynamic-space-size 12000")
(setq column-number-mode t)

(add-to-list 'load-path "/home/vee/pkg/julia-1.7.2/bin/julia")
(require 'julia-repl)
(add-hook 'julia-mode-hook 'julia-repl-mode)
(set-language-environment "UTF-8")

(setq rustic-analyzer-command '("~/.local/bin/rust-analyzer"))
(setq rustic-lsp-client 'eglot)
(add-hook 'rustic-mode-hook 'global-company-mode)

(savehist-mode 1)
(setq inferior-lisp-program "/usr/bin/sbcl --dynamic-space-size 10000")

(set-language-environment "utf-8")

(defun kill-all-sly-buffers ()
  (interactive)
  (cl-loop for buffer in (buffer-list)
           when (string-match-p "sly" (buffer-name buffer))
           do (kill-buffer buffer)))

(put 'print-unreadable-object 'lisp-indent-function 'defun)
(put 'update-alist-values 'lisp-indent-function 'defun)
(put 'upcase-region 'disabled nil)

(setq indent-tabs-mode nil)