From: filebat Mark <filebat.mark@gmail.com>
To: help-gnu-emacs@gnu.org
Subject: Re: When grep-find, show the count of matches
Date: Mon, 28 Jun 2010 23:57:05 +0800 [thread overview]
Message-ID: <AANLkTimJkv619lE9tYQYnl3wqJiHxp4BX8-wZTZOMsTF@mail.gmail.com> (raw)
In-Reply-To: <m3r5jrb707.fsf@passepartout.tim-landscheidt.de>
[-- Attachment #1: Type: text/plain, Size: 2866 bytes --]
Thank you very much, Tim. Sorry for my confusing illustration.
You have point a good way to solve my problem. Changing grep-process-setup
seems don't work, so I change the function of grep-find.
One slight problem is that, since the grep command takes some time, even
though we define an after-defadive, the function is executed before *grep*
buffer is stable.
My workaround is to sleep for some while. No idea whether we have better
solution.
(defadvice grep-find (after show-grep())
(save-excursion
(setq SLEEP_INTERVAL 2)
(set-buffer "*grep*")
(sleep-for SLEEP_INTERVAL)
(message
"%d matches found"
(- (count-lines (point-min) (point-max)) 6))
)
)
(ad-activate 'grep-find)
On Mon, Jun 28, 2010 at 9:51 PM, Tim Landscheidt <tim@tim-landscheidt.de>wrote:
> filebat Mark <filebat.mark@gmail.com> wrote:
>
> >> > I am wondering how to show the count of matches when grep-find. Like
> the
> >> > following.
> >> > ,-----------
> >> > | -*- mode: grep; default-directory:
> >> > "d:/ntemacs23/myemacs/private_data/out_of_svn/" -*-
> >> > | Grep started at Mon Jun 28 17:46:18
> >> > |
> >> > | find . -name ".svn" -prune -o -type f -print0 | xargs -0 -e grep
> -inH
> >> -e
> >> > emacs
> >> > | ./#tmp.txt#:7:#+TAGS: ARCHIVE(a) WEBPAGE(w) LIFE(l) EMACS(e)
> >> IMPORTANT(i)
> >> > HARD(h) COMPUTER(c) RECOMMENDATE(r) Tool(t)
> >> > | ./#tmp.txt#:47438:* TODO log4j-mode in emacs
> >> > | ./#tmp.txt#:47529:Hi emacsers
> >> > | ./tmp.html:554:<p class="creator">HTML generated by org-mode 6.35i
> in
> >> > emacs 23</p>
> >> > | ./tmp.html~:153:<p class="creator">HTML generated by org-mode 6.35i
> in
> >> > emacs 23</p>
> >> > | ./tmp.txt:7:#+TAGS: ARCHIVE(a) WEBPAGE(w) LIFE(l) EMACS(e)
> IMPORTANT(i)
> >> > HARD(h) COMPUTER(c) RECOMMENDATE(r) Tool(t)
> >> > | ./tmp.txt:47438:* TODO log4j-mode in emacs
> >> > |
> >> > | Grep finished (7 matches found) at Mon Jun 28 17:46:20
> >> > `-----------
>
> >> > IMHO, one feasible way may be counting the output of *grep* buffer.
> >> > Before moving any further, I am very willing to hear your ideas,
> comment
> >> or
> >> > codesnipet for this?
>
> >> - "find ... | xargs -0r grep ... | wc -l"?
> >> - "find ... | xargs -0r cat | grep -c"?
> >> - Read "(7 matches found)"?
>
> > Your commands can help to count the matches, however my point is to get
> both
> > the matches and the count of how many matches. ^-^
>
> Your point /was/ "how to show the count of matches". For
> your current point, you could:
>
> a) put something like:
>
> | (save-excursion
> | (set-buffer "*grep*")
> | (message
> | "%d matches found"
> | (- (count-lines (point-min) (point-max))
> | 6)))
>
> on a hot key,
>
> b) defadvice grep-process-setup/set grep-setup-hook so that
> the above will be executed when grep finishes.
>
> Tim
>
>
>
--
Thanks & Regards
Denny Zhang
[-- Attachment #2: Type: text/html, Size: 3990 bytes --]
next prev parent reply other threads:[~2010-06-28 15:57 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-06-28 9:59 When grep-find, show the count of matches filebat Mark
2010-06-28 11:33 ` Tim Landscheidt
2010-06-28 13:23 ` filebat Mark
2010-06-28 13:51 ` Tim Landscheidt
2010-06-28 15:57 ` filebat Mark [this message]
2010-06-28 17:59 ` Tim Landscheidt
2010-06-29 5:04 ` Kevin Rodgers
[not found] ` <mailman.1.1277747970.703.help-gnu-emacs@gnu.org>
2010-06-28 18:40 ` Andreas Politz
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=AANLkTimJkv619lE9tYQYnl3wqJiHxp4BX8-wZTZOMsTF@mail.gmail.com \
--to=filebat.mark@gmail.com \
--cc=help-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.