a70e634ebd
Moved add-hook calls (for tree-sitter initialization) into their respective modes' config blocks, or nearby, to be consistent with how other, similar tools (like lsp!) are initialized, and does so at runtime, rather than at expansion/compile time, which eval-when! caused.
98 lines
3.3 KiB
EmacsLisp
Executable file
98 lines
3.3 KiB
EmacsLisp
Executable file
;;; lang/sh/config.el -*- lexical-binding: t; -*-
|
|
|
|
(defvar +sh-builtin-keywords
|
|
'("cat" "cd" "chmod" "chown" "cp" "curl" "date" "echo" "find" "git" "grep"
|
|
"kill" "less" "ln" "ls" "make" "mkdir" "mv" "pgrep" "pkill" "pwd" "rm"
|
|
"sleep" "sudo" "touch")
|
|
"A list of common shell commands to be fontified especially in `sh-mode'.")
|
|
|
|
|
|
;;
|
|
;;; Packages
|
|
|
|
(use-package! sh-script ; built-in
|
|
:mode ("\\.bats\\'" . sh-mode)
|
|
:mode ("\\.\\(?:zunit\\|env\\)\\'" . sh-mode)
|
|
:mode ("/bspwmrc\\'" . sh-mode)
|
|
:config
|
|
(set-docsets! 'sh-mode "Bash")
|
|
(set-electric! 'sh-mode :words '("else" "elif" "fi" "done" "then" "do" "esac" ";;"))
|
|
(set-formatter! 'shfmt
|
|
'("shfmt" "-ci"
|
|
("-i" "%d" (unless indent-tabs-mode tab-width))
|
|
("-ln" "%s" (pcase sh-shell (`bash "bash") (`mksh "mksh") (_ "posix")))))
|
|
(set-repl-handler! 'sh-mode #'+sh/open-repl)
|
|
(set-lookup-handlers! 'sh-mode :documentation #'+sh-lookup-documentation-handler)
|
|
(set-ligatures! 'sh-mode
|
|
;; Functional
|
|
:def "function"
|
|
;; Types
|
|
:true "true" :false "false"
|
|
;; Flow
|
|
:not "!"
|
|
:and "&&" :or "||"
|
|
:in "in"
|
|
:for "for"
|
|
:return "return"
|
|
;; Other
|
|
:dot "." :dot "source")
|
|
|
|
(when (featurep! +lsp)
|
|
(add-hook 'sh-mode-local-vars-hook #'lsp! 'append))
|
|
|
|
(when (featurep! +tree-sitter)
|
|
(add-hook 'sh-mode-local-vars-hook #'tree-sitter! 'append))
|
|
|
|
(setq sh-indent-after-continuation 'always)
|
|
|
|
;; [pedantry intensifies]
|
|
(setq-hook! 'sh-mode-hook mode-name "sh")
|
|
|
|
;; recognize function names with dashes in them
|
|
(add-to-list 'sh-imenu-generic-expression
|
|
'(sh (nil "^\\s-*function\\s-+\\([[:alpha:]_-][[:alnum:]_-]*\\)\\s-*\\(?:()\\)?" 1)
|
|
(nil "^\\s-*\\([[:alpha:]_-][[:alnum:]_-]*\\)\\s-*()" 1)))
|
|
|
|
;; `sh-set-shell' is chatty about setting up indentation rules
|
|
(advice-add #'sh-set-shell :around #'doom-shut-up-a)
|
|
|
|
;; 1. Fontifies variables in double quotes
|
|
;; 2. Fontify command substitution in double quotes
|
|
;; 3. Fontify built-in/common commands (see `+sh-builtin-keywords')
|
|
(add-hook! 'sh-mode-hook
|
|
(defun +sh-init-extra-fontification-h ()
|
|
(font-lock-add-keywords
|
|
nil `((+sh--match-variables-in-quotes
|
|
(1 'font-lock-constant-face prepend)
|
|
(2 'font-lock-variable-name-face prepend))
|
|
(+sh--match-command-subst-in-quotes
|
|
(1 'sh-quoted-exec prepend))
|
|
(,(regexp-opt +sh-builtin-keywords 'symbols)
|
|
(0 'font-lock-type-face append))))))
|
|
;; 4. Fontify delimiters by depth
|
|
(add-hook 'sh-mode-hook #'rainbow-delimiters-mode)
|
|
|
|
;; autoclose backticks
|
|
(sp-local-pair 'sh-mode "`" "`" :unless '(sp-point-before-word-p sp-point-before-same-p)))
|
|
|
|
(use-package! company-shell
|
|
:when (featurep! :completion company)
|
|
:unless (featurep! +lsp)
|
|
:after sh-script
|
|
:config
|
|
(set-company-backend! 'sh-mode '(company-shell company-files))
|
|
(setq company-shell-delete-duplicates t
|
|
;; whatis lookups are exceptionally slow on macOS (#5860)
|
|
company-shell-dont-fetch-meta IS-MAC))
|
|
|
|
(use-package! fish-mode
|
|
:when (featurep! +fish)
|
|
:defer t
|
|
:config (set-formatter! 'fish-mode #'fish_indent))
|
|
|
|
(use-package! powershell
|
|
:when (featurep! +powershell)
|
|
:defer t
|
|
:config
|
|
(when (featurep! +lsp)
|
|
(add-hook 'powershell-mode-local-vars-hook #'lsp! 'append)))
|