yeet

2022-01-11 18:05:13 -08:00
parent 2046befee2
commit 8e7b654716
846 changed files with 71287 additions and 4 deletions
--- a/.config/emacs/modules/lang/sh/config.el
+++ b/.config/emacs/modules/lang/sh/config.el
@@ -0,0 +1,95 @@
+;;; 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!))
+
+  (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!)))