38 lines
1.2 KiB
EmacsLisp
38 lines
1.2 KiB
EmacsLisp
|
;;; zoekt.el --- AMACS -*- lexical-binding: t -*-
|
||
|
|
;;
|
||
|
|
;; Copyright 2021 Practically.io All rights reserved
|
||
|
|
;;
|
||
|
|
;; Use of this source is governed by a BSD-style
|
||
|
|
;; licence that can be found in the LICENCE file or at
|
||
|
|
;; https://www.practically.io/copyright/
|
||
|
|
;;
|
||
|
|
;; Zoekt code search integration. Allows you to search the zoekt index with a
|
||
|
|
;; search term and display the results in ivy. This will work the same as
|
||
|
|
;; `counsel-ag` but over the
|
||
|
|
;;
|
||
|
|
;; See: https://github.com/google/zoekt
|
||
|
|
|
||
|
|
(defun zoekt--function (query)
|
||
|
|
"The internal search function that will be run by `ivy-read`"
|
||
|
|
(or
|
||
|
|
(let ((ivy-text query))
|
||
|
|
(ivy-more-chars))
|
||
|
|
(progn
|
||
|
|
(counsel--async-command
|
||
|
|
(concat "zoekt -r " (shell-quote-argument query) " 2> /dev/null"))
|
||
|
|
'("" "Searching..."))))
|
||
|
|
|
||
|
|
(defun zoekt (&optional initial-input)
|
||
|
|
"Zoekt code search integration. Allows you to search the zoekt index with a
|
||
|
|
search term and display the results in ivy. This will work the same as
|
||
|
|
`counsel-ag` but over the zoeket index"
|
||
|
|
(interactive)
|
||
|
|
(let ((default-directory "~/Code/src"))
|
||
|
|
(ivy-read "zoekt: " #'zoekt--function
|
||
|
|
:initial-input initial-input
|
||
|
|
:dynamic-collection t
|
||
|
|
:keymap counsel-ag-map
|
||
|
|
:action #'counsel-git-grep-action
|
||
|
|
:caller 'zoekt
|
||
|
|
:require-match t)))
|