From 71f674efd29b57885f63cc96f00c6e0aa8422ac8 Mon Sep 17 00:00:00 2001 From: rubikitch Date: Thu, 30 Apr 2015 04:47:36 +0900 Subject: [PATCH] * contrib/anything-grep.el: abbreviate buffer-file-name in $buffers --- contrib/anything-grep.el | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/contrib/anything-grep.el b/contrib/anything-grep.el index 3982d96..e0d6e75 100644 --- a/contrib/anything-grep.el +++ b/contrib/anything-grep.el @@ -427,12 +427,22 @@ It asks COMMAND for grep command line and PWD for current directory." (when (search-forward "$buffers" nil t) (delete-region (match-beginning 0) (match-end 0)) (insert (mapconcat 'shell-quote-argument - (delq nil (mapcar 'buffer-file-name (buffer-list))) " "))) + (delq nil (mapcar 'agrep-abbreviated-buffer-file-name + (buffer-list))) " "))) (when anything-grep-filter-command (goto-char (point-max)) (insert "|" anything-grep-filter-command)) (buffer-string))) +(defun agrep-abbreviated-buffer-file-name (b) + "Abbreviated buffer-file-name by `default-directory'" + (let ((dir-re (concat "^" (regexp-quote default-directory)))) + (anything-aif (buffer-file-name b) + (and (file-exists-p it) + (if (string-match dir-re it) + (substring it (match-end 0)) + it))))) + ;; (@* "grep in predefined files") (defvar agbn-last-name nil "The last used name by `anything-grep-by-name'.") -- 2.11.4.GIT