blob: a94504140e3b7f21711629519bdc81e6bc388ce5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
(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
(add-hook 'minibuffer-setup-hook
(lambda ()
(make-local-variable 'face-remapping-alist)
(add-to-list 'face-remapping-alist '(default (:background "gray90")))))
(custom-set-faces
'(mode-line ((t (:background "grey95" :foreground "gray20"))))
'(org-document-info-keyword ((t (:foreground "gray100" :height 0.1)))))
(provide 'elchemy-personal)
|
