;ELC ;;; Compiled ;;; in Emacs version 24.5.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@65 Return non-nil if the current project is git revision controled (defalias 'simp-project-is-git #[nil "\300\301!\207" [simp-project-has-paths (\.git)] 2 (#$ . 410)]) #@35 Git command to generate file list (defalias 'simp-project-find-files-generate-git-files-command #[nil "\300\301 P\207" ["git ls-files --full-name --cached --others --exclude-standard " simp-project-root] 2 (#$ . 581)]) #@44 Use git-grep and grep mode to find matches (defalias 'simp-project-git-grep-dwim #[nil "\301 \302P\303\304 \305\")\207" [default-directory simp-project-root "/" simp-project-git-grep-compilation simp-project-rgrep-dwim-thing "*"] 3 (#$ . 806)]) #@44 Use git-grep and grep mode to find matches (defalias 'simp-project-git-grep #[(&optional regexp pathspec dir) "\304 \305 !\n\206\306\307\310 \311$\312 \"+\207" [regexp pathspec dir default-directory grep-read-regexp grep-read-files read-directory-name "Base directory: " nil t simp-project-git-grep-compilation] 5 (#$ . 1058)]) (defalias 'simp-project-git-grep-compilation #[(regexp pathspec) "\304\305\306\307\n\"\204 \310P\311\312 \313\314\n!\315 \316\260\317\"*\207" [case-fold-search flags regexp pathspec "-InH --untracked" nil posix-string-match "[A-Z]" " -i" compilation-start "git --no-pager grep " " -e " shell-quote-argument " -- '" "'" grep-mode] 8]) (byte-code "\300\301\302\303\304$\210\305\301\304\"\210\300\306\307\303\304$\210\305\306\304\"\210\300\310\311\303\304$\210\305\310\304\"\210\312\313!\207" [ad-add-advice simp-project-find-files-generate-find-command (simp-project-git-files nil t (advice lambda nil "Make simp-project-files to use git to find files for git projects." (if (simp-project-is-git) (setq ad-return-value (simp-project-find-files-generate-git-files-command)) ad-do-it))) around nil ad-activate simp-project-rgrep (simp-project-git-grep nil t (advice lambda nil "Make simp-project-rgrep to use git to do the grepping for git projects." (if (simp-project-is-git) (simp-project-git-grep) ad-do-it))) simp-project-rgrep-dwim (simp-project-git-grep-dwim nil t (advice lambda nil "Make simp-project-rgrep-dwim to use git to do the grepping for git projects." (if (simp-project-is-git) (simp-project-git-grep-dwim) ad-do-it))) provide simp-project-git] 5)