;; Author: Oleh Krehel <ohwoeowho@gmail.com>
;; URL: https://github.com/abo-abo/swiper
;; Version: 0.1.0
-;; Package-Requires: ((emacs "24.1") (ivy "0.2.0"))
+;; Package-Requires: ((emacs "24.1") (swiper "0.3.0"))
;; Keywords: completion, matching
;; This file is part of GNU Emacs.
;;; Code:
-(require 'ivy)
+(require 'swiper)
(defun counsel-el ()
"Elisp completion at point."
(counsel--generic
(lambda (str) (all-completions str obarray))))
+(defvar counsel-describe-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map (kbd "C-.") 'counsel-find-symbol)
+ map))
+
+(defun counsel-find-symbol ()
+ "Jump to the definition of the current symbol."
+ (interactive)
+ (setq ivy--action 'counsel--find-symbol)
+ (setq ivy-exit 'done)
+ (exit-minibuffer))
+
+(defun counsel--find-symbol ()
+ (let ((sym (read ivy--current)))
+ (cond ((boundp sym)
+ (find-variable sym))
+ ((fboundp sym)
+ (find-function sym))
+ ((or (featurep sym)
+ (locate-library
+ (prin1-to-string sym)))
+ (find-library (prin1-to-string sym)))
+ (t
+ (error "Couldn't fild definition of %s"
+ sym)))))
+
(defun counsel-describe-variable (variable &optional buffer frame)
"Forward to (`describe-variable' VARIABLE BUFFER FRAME)."
(interactive
(let ((v (variable-at-point))
(enable-recursive-minibuffers t)
+ (preselect (thing-at-point 'symbol))
val)
+ (setq ivy--action nil)
(setq val (ivy-read
(if (symbolp v)
(format
(when (or (get vv 'variable-documentation)
(and (boundp vv) (not (keywordp vv))))
(push (symbol-name vv) cands))))
- cands)))
+ cands)
+ nil nil counsel-describe-map preselect
+ nil t))
(list (if (equal val "")
v
(intern val)))))
- (describe-variable variable buffer frame))
+ (unless (eq ivy--action 'counsel--find-symbol)
+ (describe-variable variable buffer frame)))
(defun counsel-describe-function (function)
"Forward to (`describe-function' FUNCTION) with ivy completion."
(interactive
(let ((fn (function-called-at-point))
(enable-recursive-minibuffers t)
+ (preselect (thing-at-point 'symbol))
val)
+ (setq ivy--action nil)
(setq val (ivy-read (if fn
(format "Describe function (default %s): " fn)
"Describe function: ")
(lambda (x)
(when (fboundp x)
(push (symbol-name x) cands))))
- cands)))
+ cands)
+ nil nil counsel-describe-map preselect
+ nil t))
(list (if (equal val "")
fn (intern val)))))
- (describe-function function))
+ (unless (eq ivy--action 'counsel--find-symbol)
+ (describe-function function)))
(defvar info-lookup-mode)
(declare-function info-lookup->completions "info-look")
(ucs-names)))))
(insert-char (get-text-property 0 'result char))))
+(declare-function cider-sync-request:complete "ext:cider-client")
(defun counsel-clj ()
"Clojure completion at point."
(interactive)
(lambda (str)
(mapcar
#'cl-caddr
- (with-no-warnings
- (cider-sync-request:complete str ":same"))))))
+ (cider-sync-request:complete str ":same")))))
(defun counsel-git ()
"Find file in the current Git repository."
(when file
(find-file file))))
+(defun counsel-git-grep-count (str)
+ "Quickly count the amount of git grep STR matches."
+ (let ((out (shell-command-to-string
+ (format "git grep -c '%s' | sed 's/.*:\\(.*\\)/\\1/g' | awk '{s+=$1} END {print s}'"
+ (ivy--regex str)))))
+ (string-to-number out)))
+
+(defvar counsel--git-grep-count nil
+ "Store the line count in current repository.")
+
+(defun counsel-git-grep-function (string &optional _pred &rest _unused)
+ "Grep in the current git repository for STRING."
+ (if (and (> counsel--git-grep-count 20000)
+ (< (length string) 3))
+ (progn
+ (setq ivy--full-length counsel--git-grep-count)
+ (list ""
+ (format "%d chars more" (- 3 (length ivy-text)))))
+ (let ((cmd (format "git --no-pager grep --full-name -n --no-color -i -e \"%s\""
+ (ivy--regex string t)))
+ res)
+ (if (<= counsel--git-grep-count 20000)
+ (progn
+ (setq res (shell-command-to-string cmd))
+ (setq ivy--full-length nil))
+ (setq res (shell-command-to-string (concat cmd " | head -n 5000")))
+ (setq ivy--full-length (counsel-git-grep-count ivy-text)))
+ (split-string res "\n" t))))
+
+(defun counsel-git-grep ()
+ "Grep for a string in the current git repository."
+ (interactive)
+ (unwind-protect
+ (let* ((counsel--git-grep-count (counsel-git-grep-count ""))
+ (ivy--dynamic-function (when (> counsel--git-grep-count 20000)
+ 'counsel-git-grep-function))
+ (git-dir (locate-dominating-file
+ default-directory ".git"))
+ (ivy--persistent-action (lambda (x)
+ (setq lst (split-string x ":"))
+ (find-file (expand-file-name (car lst) git-dir))
+ (goto-char (point-min))
+ (forward-line (1- (string-to-number (cadr lst))))
+ (setq swiper--window (selected-window))
+ (swiper--cleanup)
+ (swiper--add-overlays (ivy--regex ivy-text))))
+ (val (ivy-read "pattern: " 'counsel-git-grep-function))
+ lst)
+ (when val
+ (funcall ivy--persistent-action val)))
+ (swiper--cleanup)))
+
+(defun counsel-locate-function (str &rest _u)
+ (if (< (length str) 3)
+ (list ""
+ (format "%d chars more" (- 3 (length ivy-text))))
+ (split-string
+ (shell-command-to-string (concat "locate -i -l 20 --regex " (ivy--regex str))) "\n" t)))
+
+(defun counsel-locate ()
+ "Call locate."
+ (interactive)
+ (let* ((ivy--dynamic-function 'counsel-locate-function)
+ (val (ivy-read "pattern: " 'counsel-locate-function)))
+ (when val
+ (find-file val))))
+
(defun counsel--generic (completion-fn)
"Complete thing at point with COMPLETION-FN."
(let* ((bnd (bounds-of-thing-at-point 'symbol))