63daee4b94
Invoking +lookup/documentation in shell-script-mode will yield an "X man page formatted" in the minibuffer with no man page popup. It must be invoked a second time to see it. This commit fixes that.
52 lines
1.6 KiB
EmacsLisp
52 lines
1.6 KiB
EmacsLisp
;;; 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)
|
|
(require 'man)
|
|
(let ((input (Man-default-man-entry)))
|
|
(if (executable-find "man")
|
|
(let* ((input (Man-translate-references input))
|
|
(buffer (Man-getpage-in-background input)))
|
|
(when (buffer-live-p buffer)
|
|
(switch-to-buffer buffer)))
|
|
(woman input t)
|
|
(current-buffer))))
|