Add a custom git-grep command for my site-lisp

Author: abo-abo

etc/elisp.py

@@ -0,0 +1,28 @@
+import subprocess
+import os
+import re
+
+def shell_command_to_string (cmd):
+    return subprocess.check_output (cmd.split (" "))
+
+def file_name_directory (f):
+    return os.path.dirname (f)
+
+def file_exists_p (f):
+    return os.path.exists (f)
+
+def file_directory_p (f):
+    return os.path.isdir (f)
+
+def abbreviate_file_name (f, d):
+    m = re.match (d, f)
+    if m:
+        return f[m.end () + 1:]
+
+def expand_file_name (f, directory = None):
+    if not directory:
+        directory = os.getcwd ()
+    return os.path.join (directory, f)
+
+def directory_files (d):
+    return os.listdir (d)

etc/git-grep

@@ -0,0 +1,36 @@
+#!/usr/bin/python
+"""This script will grep for a regex in ./site-lisp and ./site-lisp/git/*.
+Prints the matches relative to ./site-lisp."""
+
+import os
+import sys
+from elisp import *
+
+def git_grep (regex):
+    return "git --no-pager grep --full-name -n --no-color -i -e %s" % regex
+
+def git_p (f):
+    if file_directory_p (f):
+        return file_exists_p (expand_file_name (".git", f))
+
+def print_git (cmd, d = ''):
+    try:
+        res = shell_command_to_string (cmd)[:-1]
+        for match in res.split ("\n"):
+            print d + match
+    except:
+        pass
+
+regex = sys.argv[1]
+cmd = git_grep (regex)
+
+base_dir = "/home/oleh/Dropbox/source/site-lisp"
+git_dir = expand_file_name ("git", base_dir)
+dirs = [expand_file_name (f, git_dir) for f in directory_files (git_dir)]
+dirs = filter (git_p, dirs)
+dirs = [abbreviate_file_name (d, base_dir) for d in dirs]
+os.chdir (base_dir)
+print_git (cmd)
+for d in dirs:
+    os.chdir (expand_file_name (d, base_dir))
+    print_git (cmd, d + '/')

modes/ora-ivy.el

@@ -35,4 +35,7 @@
  t
  '(("I" ivy-insert-action "insert")))
 
+(setq counsel-git-grep-projects-alist
+      '(("/home/oleh/Dropbox/source/site-lisp/" . "/home/oleh/Dropbox/source/site-lisp/etc/git-grep %S")))
+
 (provide 'ora-ivy)