77e4cc4d58
:feature was a "catch-all" category. Many of its modules fit better in other categories, so they've been moved: - feature/debugger -> tools/debugger - feature/evil -> editor/evil - feature/eval -> tools/eval - feature/lookup -> tools/lookup - feature/snippets -> editor/snippets - feature/file-templates -> editor/file-templates - feature/workspaces -> ui/workspaces More potential changes in the future: - A new :term category for terminal emulation modules (eshell, term and vterm). - A new :os category for modules dedicated to os-specific functionality. The :tools macos module would fit here, but so would modules for nixos and arch. - A new :services category for web-service integration, like wakatime, twitter, elfeed, gist and pastebin services.
83 lines
3 KiB
EmacsLisp
83 lines
3 KiB
EmacsLisp
;;; completion/helm/autoload/evil.el -*- lexical-binding: t; -*-
|
|
;;;###if (featurep! :editor evil)
|
|
|
|
;;
|
|
;; Project searching
|
|
|
|
;;;###autoload (autoload '+helm:pt "completion/helm/autoload/evil" nil t)
|
|
(evil-define-command +helm:pt (all-files-p query)
|
|
"Ex interface for `+helm/pt'"
|
|
(interactive "<!><a>")
|
|
(+helm/pt all-files-p query))
|
|
|
|
;;;###autoload (autoload '+helm:grep "completion/helm/autoload/evil" nil t)
|
|
(evil-define-command +helm:grep (all-files-p query)
|
|
"Ex interface for `+helm/grep'"
|
|
(interactive "<!><a>")
|
|
(+helm/grep all-files-p query))
|
|
|
|
;;;###autoload (autoload '+helm:ag "completion/helm/autoload/evil" nil t)
|
|
(evil-define-command +helm:ag (all-files-p query)
|
|
"Ex interface for `+helm/ag'"
|
|
(interactive "<!><a>")
|
|
(+helm/ag all-files-p query))
|
|
|
|
;;;###autoload (autoload '+helm:rg "completion/helm/autoload/evil" nil t)
|
|
(evil-define-command +helm:rg (all-files-p query)
|
|
"Ex interface for `+helm/rg'"
|
|
(interactive "<!><a>")
|
|
(+helm/rg all-files-p query))
|
|
|
|
|
|
;;;###autoload (autoload '+helm:pt-from-cwd "completion/helm/autoload/evil" nil t)
|
|
(evil-define-command +helm:pt-from-cwd (query &optional recurse-p)
|
|
"Ex interface for `+helm/pt-from-cwd'."
|
|
(interactive "<a><!>")
|
|
(+helm/pt-from-cwd (not recurse-p) query))
|
|
|
|
;;;###autoload (autoload '+helm:grep-from-cwd "completion/helm/autoload/evil" nil t)
|
|
(evil-define-command +helm:grep-from-cwd (query &optional recurse-p)
|
|
"Ex interface for `+helm/grep-from-cwd'."
|
|
(interactive "<a><!>")
|
|
(+helm/grep-from-cwd (not recurse-p) query))
|
|
|
|
;;;###autoload (autoload '+helm:ag-from-cwd "completion/helm/autoload/evil" nil t)
|
|
(evil-define-command +helm:ag-from-cwd (query &optional recurse-p)
|
|
"Ex interface for `+helm/ag-from-cwd'."
|
|
(interactive "<a><!>")
|
|
(+helm/ag-from-cwd (not recurse-p) query))
|
|
|
|
;;;###autoload (autoload '+helm:rg-from-cwd "completion/helm/autoload/evil" nil t)
|
|
(evil-define-command +helm:rg-from-cwd (query &optional recurse-p)
|
|
"Ex interface for `+helm/rg-from-cwd'."
|
|
(interactive "<a><!>")
|
|
(+helm/rg-from-cwd (not recurse-p) query))
|
|
|
|
|
|
;;;###autoload
|
|
(defun +helm--set-prompt-display (pos)
|
|
"TODO"
|
|
(let (beg state region-active m)
|
|
(with-selected-window (minibuffer-window)
|
|
(setq beg (save-excursion (vertical-motion 0 (helm-window)) (point))
|
|
state evil-state
|
|
region-active (region-active-p)
|
|
m (mark t)))
|
|
(when region-active
|
|
(setq m (- m beg))
|
|
;; Increment pos to handle the space before prompt (i.e `pref').
|
|
(put-text-property (1+ (min m pos)) (+ 2 (max m pos))
|
|
'face
|
|
(list :background (face-background 'region))
|
|
header-line-format))
|
|
(put-text-property
|
|
;; Increment pos to handle the space before prompt (i.e `pref').
|
|
(+ 1 pos) (+ 2 pos)
|
|
'face
|
|
(if (eq state 'insert)
|
|
'underline
|
|
;; Don't just use 'cursor, this can hide the current character.
|
|
(list :inverse-video t
|
|
:foreground (face-background 'cursor)
|
|
:background (face-background 'default)))
|
|
header-line-format)))
|