2017-06-08 11:47:56 +02:00
|
|
|
;;; lang/sh/config.el -*- lexical-binding: t; -*-
|
2015-09-28 14:22:26 -04:00
|
|
|
|
2017-06-20 15:34:10 +02:00
|
|
|
(defvar +sh-builtin-keywords
|
2017-06-20 23:33:22 +02:00
|
|
|
'("cat" "cat" "cd" "chmod" "chown" "cp" "curl" "date" "echo" "find" "git"
|
|
|
|
|
"grep" "head" "kill" "less" "ls" "make" "mkdir" "mv" "pgrep" "pkill" "pwd"
|
|
|
|
|
"rm" "sleep" "sudo" "tail" "tee" "touch")
|
2017-06-20 15:34:10 +02:00
|
|
|
"A list of common shell commands and keywords to be fontified especially in
|
|
|
|
|
`sh-mode'.")
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;
|
|
|
|
|
;; Plugins
|
|
|
|
|
;;
|
|
|
|
|
|
2017-02-23 00:06:12 -05:00
|
|
|
(def-package! sh-script ; built-in
|
2017-05-29 00:58:12 +02:00
|
|
|
:mode ("\\.zsh$" . sh-mode)
|
2017-10-06 02:35:26 +02:00
|
|
|
:mode ("\\.zunit$" . sh-mode)
|
2017-05-29 00:58:12 +02:00
|
|
|
:mode ("/bspwmrc$" . sh-mode)
|
2017-02-19 18:57:16 -05:00
|
|
|
:init
|
2017-06-20 15:34:10 +02:00
|
|
|
(add-hook! sh-mode #'(flycheck-mode highlight-numbers-mode))
|
2016-05-13 00:29:07 -04:00
|
|
|
:config
|
2017-02-23 00:06:12 -05:00
|
|
|
(set! :electric 'sh-mode :words '("else" "elif" "fi" "done" "then" "do" "esac" ";;"))
|
2017-04-17 02:17:10 -04:00
|
|
|
(set! :repl 'sh-mode #'+sh/repl)
|
2017-06-20 15:34:10 +02:00
|
|
|
|
2016-04-20 01:50:55 -04:00
|
|
|
(setq sh-indent-after-continuation 'always)
|
|
|
|
|
|
2017-06-20 15:34:10 +02:00
|
|
|
;; 1. Fontifies variables in double quotes
|
|
|
|
|
;; 2. Fontify command substitution in double quotes
|
|
|
|
|
;; 3. Fontify built-in/common commands (see `+sh-builtin-keywords')
|
|
|
|
|
(font-lock-add-keywords
|
|
|
|
|
'sh-mode `((+sh--match-variables-in-quotes
|
|
|
|
|
(1 'default prepend)
|
|
|
|
|
(2 'font-lock-variable-name-face prepend))
|
|
|
|
|
(+sh--match-command-subst-in-quotes
|
2017-10-18 18:24:25 +02:00
|
|
|
(1 'sh-quoted-exec prepend))
|
2017-06-20 23:33:22 +02:00
|
|
|
(,(regexp-opt +sh-builtin-keywords 'words)
|
|
|
|
|
(0 'font-lock-builtin-face append))))
|
2017-06-20 15:34:10 +02:00
|
|
|
|
2017-09-02 16:11:14 +02:00
|
|
|
;; autoclose backticks
|
|
|
|
|
(sp-local-pair 'sh-mode "`" nil :unless '(sp-point-before-word-p sp-point-before-same-p))
|
|
|
|
|
|
2017-05-28 16:12:28 +02:00
|
|
|
;; sh-mode has file extensions checks for other shells, but not zsh, so...
|
2017-02-19 18:57:16 -05:00
|
|
|
(defun +sh|detect-zsh ()
|
2017-06-20 16:18:27 +02:00
|
|
|
(when (or (and buffer-file-name
|
|
|
|
|
(string-match-p "\\.zsh\\'" buffer-file-name))
|
|
|
|
|
(save-excursion
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(looking-at-p "^#!.+zsh[$\\s-]")))
|
2017-02-19 18:57:16 -05:00
|
|
|
(sh-set-shell "zsh")))
|
2017-04-17 02:17:10 -04:00
|
|
|
(add-hook 'sh-mode-hook #'+sh|detect-zsh))
|
2017-02-19 18:57:16 -05:00
|
|
|
|
|
|
|
|
|
2017-02-23 00:06:12 -05:00
|
|
|
(def-package! company-shell
|
2017-03-19 22:47:50 -04:00
|
|
|
:when (featurep! :completion company)
|
2016-04-23 22:08:46 -04:00
|
|
|
:after sh-script
|
2017-03-20 16:32:29 -04:00
|
|
|
:config
|
2017-07-05 18:20:45 +02:00
|
|
|
(set! :company-backend 'sh-mode '(company-shell company-files))
|
2017-03-20 16:32:29 -04:00
|
|
|
(setq company-shell-delete-duplicates t))
|
2016-04-23 22:08:46 -04:00
|
|
|
|
