init-prog.el (1885B)
1 ;;; init-prog.el --- programming -*- lexical-binding: t -*- 2 3 ;;; Commentary: 4 ;; I don't realy do any programming. 5 6 ;;; Code: 7 8 ;; hideshow 9 (use-package hideshow 10 :straight nil 11 :hook 12 (prog-mode . hs-minor-mode)) 13 14 ;; xref 15 (use-package xref 16 :straight nil 17 :autoload xref-show-definitions-completing-read 18 :init 19 (when (executable-find "rg") 20 (setq xref-search-program 'ripgrep)) 21 22 (setq xref-show-definitions-function #'xref-show-definitions-completing-read 23 xref-show-xrefs-function #'xref-show-definitions-completing-read)) 24 25 ;; syntax checking 26 (use-package flycheck) 27 28 (use-package flycheck-guile 29 :hook 30 (scheme-mode . (lambda () 31 (require 'flycheck-guile)))) 32 33 (use-package consult-flycheck) 34 35 ;; tree-sitter 36 (use-package treesit-auto 37 :config 38 (setq treesit-auto-install 'prompt) 39 (setq treesit-font-lock-level 4) 40 (delete 'markdown treesit-auto-langs)) 41 42 ;; scheme 43 (use-package geiser 44 :config 45 (setq geiser-default-implementation 'guile)) 46 47 (use-package geiser-guile) 48 49 ;; common-lisp 50 (use-package sly 51 :config 52 (setq sly-lisp-implementations nil)) 53 54 ;; markdown 55 (use-package markdown-mode 56 :bind 57 (:map markdown-mode-map 58 ("C-c C-e" . markdown-do)) 59 :hook 60 (markdown-mode . visual-line-mode) 61 :init 62 (setq markdown-command "multimarkdown" 63 markdown-fontify-code-blocks-natively t)) 64 65 (use-package edit-indirect) 66 67 ;; html 68 (use-package shr 69 :straight nil 70 :config 71 (setq shr-inhibit-images nil 72 shr-use-fonts nil)) 73 74 (use-package htmlize 75 :config 76 (setq org-html-htmlize-output-type 'css)) 77 78 ;; caddy 79 (use-package caddyfile-mode 80 :mode 81 (("Caddyfile\\'" . caddyfile-mode) 82 ("caddy\\.conf\\'" . caddyfile-mode))) 83 84 ;; some modes 85 (add-to-list 'auto-mode-alist '("\\.service\\'" . conf-unix-mode)) 86 (add-to-list 'auto-mode-alist '("\\.timer\\'" . conf-unix-mode)) 87 88 (provide 'init-prog) 89 ;;; init-prog.el ends here