yeet

.config/emacs/modules/lang/sh/autoload.el

@@ -0,0 +1,48 @@
+;;; lang/sh/autoload.el -*- lexical-binding: t; -*-
+
+;;;###autoload
+(defun +sh--match-variables-in-quotes (limit)
+  "Search for variables in double-quoted strings bounded by LIMIT."
+  (with-syntax-table sh-mode-syntax-table
+    (let (res)
+      (while
+          (and (setq res
+                     (re-search-forward
+                      "[^\\]\\(\\$\\)\\({.+?}\\|\\<[a-zA-Z0-9_]+\\|[@*#!]\\)"
+                      limit t))
+               (not (eq (nth 3 (syntax-ppss)) ?\"))))
+      res)))
+
+;;;###autoload
+(defun +sh--match-command-subst-in-quotes (limit)
+  "Search for variables in double-quoted strings bounded by LIMIT."
+  (with-syntax-table sh-mode-syntax-table
+    (let (res)
+      (while
+          (and (setq res
+                     (re-search-forward "[^\\]\\(\\$(.+?)\\|`.+?`\\)"
+                                        limit t))
+               (not (eq (nth 3 (syntax-ppss)) ?\"))))
+      res)))
+
+(defvar sh-shell-file)
+;;;###autoload
+(defun +sh/open-repl ()
+  "Open a shell REPL."
+  (interactive)
+  (let* ((dest-sh (symbol-name sh-shell))
+         (sh-shell-file dest-sh))
+    (sh-shell-process t)
+    (with-current-buffer "*shell*"
+      (rename-buffer (format "*shell [%s]*" dest-sh))
+      (current-buffer))))
+
+;;;###autoload
+(defun +sh-lookup-documentation-handler ()
+  "Look up documentation in `man' or `woman'."
+  (interactive)
+  (call-interactively
+   (if (executable-find "man")
+       #'man
+     #'woman))
+  (current-buffer))