ad6a3d0f33
featurep! will be renamed modulep! in the future, so it's been deprecated. They have identical interfaces, and can be replaced without issue. featurep! was never quite the right name for this macro. It implied that it had some connection to featurep, which it doesn't (only that it was similar in purpose; still, Doom modules are not features). To undo such implications and be consistent with its namespace (and since we're heading into a storm of breaking changes with the v3 release anyway), now was the best opportunity to begin the transition.
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 (modulep! +lsp)
|
|
(add-hook 'sh-mode-local-vars-hook #'lsp! 'append))
|
|
|
|
(when (modulep! +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 (modulep! :completion company)
|
|
:unless (modulep! +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 (modulep! +fish)
|
|
:defer t
|
|
:config (set-formatter! 'fish-mode #'fish_indent))
|
|
|
|
(use-package! powershell
|
|
:when (modulep! +powershell)
|
|
:defer t
|
|
:config
|
|
(when (modulep! +lsp)
|
|
(add-hook 'powershell-mode-local-vars-hook #'lsp! 'append)))
|