(setq org-format-latex-options (plist-put org-format-latex-options :scale 1.8))
(let ((png (cdr (assoc 'dvipng org-preview-latex-process-alist))))
  (plist-put png :latex-compiler '("latex -interaction nonstopmode -output-directory %o %F"))
  (plist-put png :image-converter '("dvipng -D %D -T tight -o %O %F"))
  (plist-put png :transparent-image-converter '("dvipng -D %D -T tight -bg Transparent -o %O %F")))

(when (executable-find "guile")
  (add-to-list 'load-path (concat elchemy/elchemy-root "extras/"))
  (require 'guile-interaction))

(put 'narrow-to-region 'disabled nil)
(put 'downcase-region 'disabled nil)

(add-to-list 'major-mode-remap-alist '(python-mode . python-ts-mode))
(add-to-list 'major-mode-remap-alist '(rust-mode . rust-ts-mode))
(add-to-list 'major-mode-remap-alist '(toml-mode . toml-ts-mode))

(require 'eglot)
(define-key eglot-mode-map (kbd "C-c l r") 'eglot-rename)
(define-key eglot-mode-map (kbd "C-c l f") 'eglot-format)
(define-key eglot-mode-map (kbd "C-c l d") 'eldoc)

(add-hook 'org-mode-hook 'elchemy/personal/ignore-angle-brackets)

(add-to-list 'load-path "~/.emacs.d/extras/")
(when (require 'writegood-mode nil t)
  (global-set-key (kbd "C-c g") 'writegood-mode))

(with-eval-after-load 'python
  (defun python-shell-completion-native-try ()
    "Return non-nil if can trigger native completion."
    (let ((python-shell-completion-native-enable t)
          (python-shell-completion-native-output-timeout
           python-shell-completion-native-try-output-timeout))
      (python-shell-completion-native-get-completions
       (get-buffer-process (current-buffer))
       nil "_"))))


(when (require 'elchemy-dashboard nil t)
  (elchemy/create-dashboard))

;; Face Color Customizations
(unless elchemy/user/dark-theme
  (add-hook 'minibuffer-setup-hook
            (lambda ()
              (make-local-variable 'face-remapping-alist)
              (add-to-list 'face-remapping-alist '(default (:background "#DECEAF")))))
  (custom-set-faces
   '(mode-line ((t (:box (:line-width (1 . 1) :color "grey75" :style flat-button)))))
   '(mode-line-inactive ((t (:foreground "gray20"))))
   '(org-document-info-keyword ((t (:foreground "gray100" :height 0.1))))))

(provide 'elchemy-personal)