71 lines
2.9 KiB
EmacsLisp
71 lines
2.9 KiB
EmacsLisp
(setq-default tab-width 4)
|
|
|
|
(setq doom-font (font-spec :family "Maple Mono" :size 20))
|
|
(add-to-list 'default-frame-alist '(height . 53))
|
|
(add-to-list 'default-frame-alist '(width . 120))
|
|
(setq catppuccin-flavor 'mocha)
|
|
(setq doom-theme 'catppuccin)
|
|
(setq display-line-numbers-type 'relative)
|
|
(setq org-directory "~/org/")
|
|
|
|
(use-package! yasnippet
|
|
:config
|
|
(defun my-yas-try-expanding-auto-snippets ()
|
|
(when yas-minor-mode
|
|
(let ((yas-buffer-local-condition ''(require-snippet-condition . auto)))
|
|
(yas-expand))))
|
|
(add-hook 'post-command-hook #'my-yas-try-expanding-auto-snippets)
|
|
)
|
|
|
|
;; accept completion from copilot and fallback to company
|
|
(use-package! copilot
|
|
:hook (prog-mode . copilot-mode)
|
|
:bind (:map copilot-completion-map
|
|
("<tab>" . 'copilot-accept-completion)
|
|
("TAB" . 'copilot-accept-completion)
|
|
("C-TAB" . 'copilot-accept-completion-by-word)
|
|
("C-<tab>" . 'copilot-accept-completion-by-word)
|
|
("C-n" . 'copilot-next-completion)
|
|
("C-p" . 'copilot-previous-completion))
|
|
|
|
:config
|
|
(add-to-list 'copilot-indentation-alist '(prog-mode 2))
|
|
(add-to-list 'copilot-indentation-alist '(org-mode 2))
|
|
(add-to-list 'copilot-indentation-alist '(text-mode 2))
|
|
(add-to-list 'copilot-indentation-alist '(clojure-mode 2))
|
|
(add-to-list 'copilot-indentation-alist '(emacs-lisp-mode 2)))
|
|
|
|
(use-package! typst-ts-mode
|
|
:init
|
|
(add-hook 'typst-ts-mode-hook #'eglot-ensure)
|
|
:custom
|
|
;; (typst-ts-watch-options "--open")
|
|
(typst-ts-mode-grammar-location (expand-file-name "tree-sitter/libtree-sitter-typst.so" user-emacs-directory))
|
|
(typst-ts-mode-enable-raw-blocks-highlight t)
|
|
:config
|
|
(keymap-set typst-ts-mode-map "C-c C-c" #'typst-ts-tmenu))
|
|
|
|
(with-eval-after-load 'eglot
|
|
(with-eval-after-load 'typst-ts-mode
|
|
(add-to-list 'eglot-server-programs
|
|
`((typst-ts-mode) .
|
|
,(eglot-alternatives `(,"tinymist"
|
|
"typst-lsp"))))))
|
|
|
|
(use-package! websocket)
|
|
(use-package! typst-preview
|
|
;; :load-path "path/to/typst-preview.el" ;; if installed manually
|
|
:init
|
|
(setq typst-preview-autostart t) ; start preview automatically when typst-preview-mode is activated
|
|
;; (setq typst-preview-open-browser-automatically t) ; open browser automatically when typst-preview-start is run
|
|
|
|
:custom
|
|
(typst-preview-browser "default") ; this is the default option; other options are `eaf-browser' or `xwidget'.
|
|
(typst-preview-invert-colors "auto") ; invert colors depending on system theme
|
|
(typst-preview-executable "tinymist") ; path to tinymist binary (relative or absolute)
|
|
(typst-preview-partial-rendering t) ; enable partial rendering
|
|
|
|
:config
|
|
(define-key typst-preview-mode-map (kbd "C-c C-j") 'typst-preview-send-position)
|
|
(define-key typst-ts-mode-map (kbd "C-c C-l") #'typst-preview-mode))
|