Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;; grepper: grep + named location + per-name pattern.
- ;;
- ;; Configuration:
- ;; (setq grepper-command-line-alist '(("pil" . "grep -niEHR '_re_' ~/ve/proj/lib/python2*/site-packages/PIL*")))
- (defun grepper-grep-by-name (&optional query place)
- (interactive)
- (if (not place)
- (setq place (completing-read "grep on: " grepper-command-line-alist nil t)))
- (if (not query)
- (setq query (read-from-minibuffer (replace-regexp-in-string "_place_" place "query on _place_: "))))
- (let ((command-line (cdr (assoc place grepper-command-line-alist)))
- (buffer-path (format "`dirname '%s'`" (buffer-file-name (current-buffer)))))
- (setq command-line
- (replace-regexp-in-string "_buffer_path_" buffer-path command-line t t))
- (setq command-line
- (replace-regexp-in-string "_re_" query command-line t t))
- (grep command-line)))
- (provide 'grepper)
Add Comment
Please, Sign In to add comment