# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1378722690 -10800
# Node ID 93381cc4a63d1ecf71a182b315cd35bb9d600cae
# Parent  493ae377ca5d0a44fa050bfe4eff6811efb12eed
Implement lzgrep and rzgrep commands.

diff -r 493ae377ca5d -r 93381cc4a63d .emacs-my
--- a/.emacs-my	Mon Sep 09 09:42:25 2013 +0300
+++ b/.emacs-my	Mon Sep 09 13:31:30 2013 +0300
@@ -77,6 +77,8 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "my defun, defmacro, defvar")
 
+(require 'cl)
+
 (defmacro my-filter (pred list)
   "Construct list with elements from LIST which satisfy PRED."
   (let ( (r (make-symbol "r_")) )
@@ -609,6 +611,18 @@
 (global-set-key [f7] 'rgrep)
 (global-set-key [M-f7] 'rgrep)
 
+(defun lzgrep ()
+  (interactive)
+  (let ( (grep-template "zgrep <C> -nH -e <R> <F>") (grep-find-ignored-files nil) )
+    (flet ( (grep-compute-defaults () nil) )
+      (call-interactively #'lgrep))))
+
+(defun rzgrep ()
+  (interactive)
+  (let ( (grep-find-template "find . -type f <F> -exec zgrep <C> -nH -e <R> {} +") (grep-find-ignored-files nil) )
+    (flet ( (grep-compute-defaults () nil) )
+      (call-interactively #'rgrep))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "highlighting")