[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[ELPA-diffs] /srv/bzr/emacs/elpa r260: Add ack
From: |
Leo Liu |
Subject: |
[ELPA-diffs] /srv/bzr/emacs/elpa r260: Add ack |
Date: |
Mon, 01 Oct 2012 22:18:19 +0800 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 260
committer: Leo Liu <address@hidden>
branch nick: elpa
timestamp: Mon 2012-10-01 22:18:19 +0800
message:
Add ack
added:
packages/ack/
packages/ack/README.rst
packages/ack/ack.el
packages/ack/pcmpl-ack.el
=== added directory 'packages/ack'
=== added file 'packages/ack/README.rst'
--- a/packages/ack/README.rst 1970-01-01 00:00:00 +0000
+++ b/packages/ack/README.rst 2012-10-01 14:18:19 +0000
@@ -0,0 +1,77 @@
+==========================================
+ Emacs Interface to command-line tool ack
+==========================================
+
+From http://betterthangrep.com/
+
+ ack is a tool like grep, designed for programmers with large trees
+ of heterogeneous source code.
+
+ ack is written purely in Perl, and takes advantage of the power of
+ Perl's regular expressions.
+
+Feature requests and bug reports are welcome. Thanks.
+
+Features
+--------
+
+- Neither ``--nogroup`` nor ``--noheading`` is required
+- Handle colors using the standard library ``ansi-color.el``
+- Completion for ack options while reading from the minibuffer
+- Support both emacs 23 and 24
+
+Screenshots
+-----------
+
+.. figure:: http://i.imgur.com/a72Ap.png
+ :width: 400 px
+ :target: http://i.imgur.com/a72Ap.png
+ :alt: ack-emacs23-1.png
+
+ ``ack --column 'ack is.*tool'``
+
+.. figure:: http://i.imgur.com/U2vFz.png
+ :width: 400 px
+ :target: http://i.imgur.com/U2vFz.png
+ :alt: ack-emacs23-2.png
+
+ ``ack --column --nogroup --nocolor 'ack is.*tool'``
+
+Install
+-------
+
+Place ``ack.el`` in the ``load-path`` and add to your init file::
+
+ (require 'ack)
+
+or::
+
+ (autoload 'ack "ack" nil t)
+
+Completion
+~~~~~~~~~~
+
+Place ``pcmpl-ack.el`` in the ``load-path`` and add::
+
+ (autoload 'pcomplete/ack "pcmpl-ack")
+ (autoload 'pcomplete/ack-grep "pcmpl-ack")
+
+to your init file. After this you will be able complete ``ack``
+options while ``M-x ack`` or in shell/eshell.
+
+Usage
+-----
+
+- ``M-x ack`` and provide a pattern to search.
+- ``C-u M-x ack`` like ``M-x ack`` but allow you to select a
+ directory to search.
+
+While reading ack command and args from the minibuffer, the following
+key bindings may be useful:
+
+- ``M-I`` => insert a template for case-insensitive file name search
+- ``TAB`` => completion for ack options
+
+Contributors
+------------
+Phillip Lord
=== added file 'packages/ack/ack.el'
--- a/packages/ack/ack.el 1970-01-01 00:00:00 +0000
+++ b/packages/ack/ack.el 2012-10-01 14:18:19 +0000
@@ -0,0 +1,279 @@
+;;; ack.el --- Emacs interface to ack
+
+;; Copyright (C) 2012 Leo Liu
+
+;; Author: Leo Liu <address@hidden>
+;; Keywords: tools, processes, convenience
+;; Created: 2012-03-24
+;; Version: 0.7
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; ack is a tool like grep, designed for programmers with large trees
+;; of heterogeneous source code - http://betterthangrep.com/.
+
+;;; Code:
+
+(require 'compile)
+(require 'ansi-color)
+(when (>= emacs-major-version 24)
+ (autoload 'shell-completion-vars "shell"))
+
+(defgroup ack nil
+ "Run `ack' and display the results."
+ :group 'tools
+ :group 'processes)
+
+(defcustom ack-project-pattern-list
+ (list (concat "\\`" (regexp-quote dir-locals-file) "\\'")
+ "\\`Project\\.ede\\'"
+ "\\.xcodeproj\\'" ; xcode
+ "\\`\\.ropeproject\\'" ; python rope
+ ;; ".git" ".svn" ".hg" ".bzr" ".CVS"
+ "\\`\\.\\(?:CVS\\|bzr\\|git\\|hg\\|svn\\)\\'")
+ "A list of regexps that match files in a project root."
+ :type '(repeat string)
+ :group 'ack)
+
+;; Used implicitly by `define-compilation-mode'
+(defcustom ack-scroll-output nil
+ "Similar to `compilation-scroll-output' but for the *Ack* buffer."
+ :type 'boolean
+ :group 'ack)
+
+(defcustom ack-command
+ ;; Note: on GNU/Linux ack may be renamed to ack-grep
+ (concat (file-name-nondirectory (or (executable-find "ack-grep")
+ (executable-find "ack")
+ "ack")) " ")
+ "The default ack command for \\[ack].
+
+Note also options to ack can be specified in ACK_OPTIONS
+environment variable and ~/.ackrc, which you can disable by the
+--noenv switch."
+ :type 'string
+ :group 'ack)
+
+;;; ======== END of USER OPTIONS ========
+
+(defvar ack-history nil "History list for ack.")
+
+(defvar ack-first-column 0
+ "Value to use for `compilation-first-column' in ack buffers.")
+
+(defvar ack-error-screen-columns nil
+ "Value to use for `compilation-error-screen-columns' in ack buffers.")
+
+(defvar ack-error "ack match"
+ "Stem of message to print when no matches are found.")
+
+(defun ack-filter ()
+ "Handle match highlighting escape sequences inserted by the ack process.
+This function is called from `compilation-filter-hook'."
+ (save-excursion
+ (let ((ansi-color-apply-face-function
+ (lambda (beg end face)
+ (when face
+ (ansi-color-apply-overlay-face beg end face)
+ (put-text-property beg end 'ack-color t)))))
+ (ansi-color-apply-on-region compilation-filter-start (point)))))
+
+(defvar ack-mode-font-lock-keywords
+ '(("^--$" 0 'shadow)
+ ;; Command output lines.
+ (": \\(.+\\): \\(?:Permission denied\\|No such \\(?:file or
directory\\|device or address\\)\\)$"
+ 1 'compilation-error)
+ ;; Remove match from ack-error-regexp-alist before fontifying
+ ("^Ack \\(?:started\\|finished\\) at.*"
+ (0 '(face nil compilation-message nil message nil help-echo nil
mouse-face nil) t))
+ ("^Ack \\(exited
abnormally\\|interrupt\\|killed\\|terminated\\)\\(?:.*with code
\\([0-9]+\\)\\)?.*"
+ (0 '(face nil compilation-message nil message nil help-echo nil
mouse-face nil) t)
+ (1 'compilation-error)
+ (2 'compilation-error nil t)))
+ "Additional things to highlight in ack output.
+This gets tacked on the end of the generated expressions.")
+
+(when (< emacs-major-version 24)
+ (defvar ack--column-start 'ack--column-start)
+ (defvar ack--column-end 'ack--column-end))
+
+(defun ack--column-start ()
+ (or (let* ((beg (match-end 0))
+ (end (save-excursion
+ (goto-char beg)
+ (line-end-position)))
+ (mbeg (text-property-any beg end 'ack-color t)))
+ (when mbeg (- mbeg beg)))
+ ;; Use column number from `ack' itself if available
+ (when (match-string 4)
+ (1- (string-to-number (match-string 4))))))
+
+(defun ack--column-end ()
+ (let* ((beg (match-end 0))
+ (end (save-excursion
+ (goto-char beg)
+ (line-end-position)))
+ (mbeg (text-property-any beg end 'ack-color t))
+ (mend (and mbeg (next-single-property-change
+ mbeg 'ack-color nil end))))
+ (when mend (- mend beg))))
+
+(defun ack--file ()
+ (let (file)
+ (save-excursion
+ (while (progn
+ (forward-line -1)
+ (looking-at-p "^--$")))
+ (setq file (or (get-text-property (line-beginning-position) 'ack-file)
+ (progn
+ (put-text-property (line-beginning-position)
+ (line-end-position)
+ 'font-lock-face
compilation-info-face)
+ (buffer-substring-no-properties
+ (line-beginning-position) (line-end-position))))))
+ (put-text-property (line-beginning-position)
+ (min (1+ (line-end-position)) (point-max)) 'ack-file
file)
+ (list file)))
+
+;;; For emacs < 24
+(when (< emacs-major-version 24)
+ (defun ack--line (file col)
+ (if (string-match-p "\\`[1-9][0-9]*\\'" (car file))
+ (let ((has-ansi-color (overlays-at (match-beginning 1))))
+ ;; See `compilation-mode-font-lock-keywords' where there is
+ ;; overriding font-locking of FILE. Thus use the display
+ ;; property here to avoid being overridden.
+ (put-text-property
+ (match-beginning 1) (match-end 1)
+ 'display
+ (propertize (match-string-no-properties 1)
+ 'face (list (and (not has-ansi-color)
+ compilation-line-face)
+ :weight 'normal :inherit 'underline)))
+ (list nil (ack--file)
+ (string-to-number (match-string 1))
+ (1- (string-to-number (match-string 3)))))
+ (put-text-property (match-beginning 3)
+ (match-end 3)
+ 'font-lock-face compilation-line-face)
+ (list nil file
+ (string-to-number (match-string 3))
+ (when (match-string 4)
+ (put-text-property (match-beginning 4)
+ (match-end 4)
+ 'font-lock-face compilation-column-face)
+ (1- (string-to-number (match-string 4))))))))
+
+;;; In emacs-24 and above, `compilation-mode-font-lock-keywords' ->
+;;; `compilation--ensure-parse' -> `compilation--parse-region' ->
+;;; `compilation-parse-errors' -> `compilation-error-properties'.
+;;; `compilation-error-properties' returns nil if a previous pattern
+;;; in the regexp alist has already been applied in a region.
+;;;
+;;; In emacs-23, `ack-regexp-alist' is a part of `font-lock-keywords'
+;;; after some transformation, so later entries can override earlier
+;;; entries.
+;;;
+;;; The output of 'ack --group --column WHATEVER' matches both regexps
+;;; in `ack-regexp-alist' and this fails emacs-23 in finding the right
+;;; file. So ack--line is used to disambiguate this case.
+
+(defconst ack-error-regexp-alist
+ `(;; grouping line (--group or --heading)
+ ("^\\([1-9][0-9]*\\)\\(:\\|-\\)\\(?:\\(?4:[1-9][0-9]*\\)\\2\\)?"
+ ack--file 1 (ack--column-start . ack--column-end)
+ nil nil (4 compilation-column-face nil t))
+ ;; none grouping line (--nogroup or --noheading)
+
("^\\(.+?\\)\\(:\\|-\\)\\([1-9][0-9]*\\)\\2\\(?:\\(?4:[1-9][0-9]*\\)\\2\\)?"
+ ,@(if (>= emacs-major-version 24)
+ '(1 3 (ack--column-start . ack--column-end)
+ nil nil (4 compilation-column-face nil t))
+ '(1 ack--line 4)))
+ ("^Binary file \\(.+\\) matches$" 1 nil nil 0 1))
+ "Ack version of `compilation-error-regexp-alist' (which see).")
+
+(defvar ack--ansi-color-last-marker)
+
+(define-compilation-mode ack-mode "Ack"
+ "A compilation mode tailored for ack."
+ (set (make-local-variable 'compilation-disable-input) t)
+ (set (make-local-variable 'compilation-error-face)
+ 'compilation-info)
+ (if (>= emacs-major-version 24)
+ (add-hook 'compilation-filter-hook 'ack-filter nil t)
+ (set (make-local-variable 'ack--ansi-color-last-marker)
+ (point-min-marker))
+ (font-lock-add-keywords
+ nil '(((lambda (limit)
+ (let ((beg (marker-position ack--ansi-color-last-marker)))
+ (move-marker ack--ansi-color-last-marker limit)
+ (ansi-color-apply-on-region beg ack--ansi-color-last-marker))
+ nil))))))
+
+(defun ack-skel-file ()
+ "Insert a template for case-insensitive filename search."
+ (interactive)
+ (delete-minibuffer-contents)
+ (let ((ack (or (car (split-string ack-command nil t)) "ack")))
+ (skeleton-insert '(nil ack " -g '(?i:" _ ")'"))))
+
+(defvar ack-minibuffer-local-map
+ (let ((map (make-sparse-keymap)))
+ (set-keymap-parent map minibuffer-local-map)
+ (define-key map "\t" (if (>= emacs-major-version 24)
+ 'completion-at-point
+ 'pcomplete))
+ (define-key map "\M-I" 'ack-skel-file)
+ (define-key map "'" 'skeleton-pair-insert-maybe)
+ map)
+ "Keymap used for reading `ack' command and args in minibuffer.")
+
+(defun ack-guess-project-root (start-directory &optional regexp)
+ (let ((regexp (or regexp
+ (mapconcat 'identity ack-project-pattern-list "\\|")))
+ (parent (file-name-directory
+ (directory-file-name (expand-file-name start-directory)))))
+ (if (directory-files start-directory nil regexp)
+ start-directory
+ (unless (equal parent start-directory)
+ (ack-guess-project-root parent regexp)))))
+
+;;;###autoload
+(defun ack (command-args &optional directory)
+ "Run ack using COMMAND-ARGS and collect output in a buffer.
+With prefix, ask for the DIRECTORY to run ack; otherwise the
+current project root is used.
+
+The following keys are available while reading from the
+minibuffer:
+
+\\{ack-minibuffer-local-map}"
+ (interactive
+ (list (minibuffer-with-setup-hook (if (>= emacs-major-version 24)
+ 'shell-completion-vars
+ 'pcomplete-shell-setup)
+ (read-from-minibuffer "Run ack (like this): "
+ ack-command ack-minibuffer-local-map
+ nil 'ack-history))
+ (if current-prefix-arg
+ (read-directory-name "In directory: " nil nil t)
+ (ack-guess-project-root default-directory))))
+ (let ((default-directory (expand-file-name
+ (or directory default-directory))))
+ (compilation-start command-args 'ack-mode)))
+
+(provide 'ack)
+;;; ack.el ends here
=== added file 'packages/ack/pcmpl-ack.el'
--- a/packages/ack/pcmpl-ack.el 1970-01-01 00:00:00 +0000
+++ b/packages/ack/pcmpl-ack.el 2012-10-01 14:18:19 +0000
@@ -0,0 +1,159 @@
+;;; pcmpl-ack.el --- completion for ack tool
+
+;; Copyright (C) 2012 Leo Liu
+
+;; Author: Leo Liu <address@hidden>
+;; Keywords: tools, processes, convenience
+;; Created: 2012-09-26
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Provide pcompletion support for the cli tool `ack' which can be
+;; downloaded from http://betterthangrep.com.
+;;
+;; Install:
+;; (autoload 'pcomplete/ack "pcmpl-ack")
+;;
+;; Usage:
+;; - To complete short options type '-' first
+;; - To complete long options type '--' first
+;; - Color name completion is also supported following
+;; --color-filename=, --color-match= and --color-lineno=.
+
+;;; Code:
+
+(require 'pcomplete)
+
+(defvar pcmpl-ack-short-options
+ (mapconcat (lambda (o) (substring o 1))
+ '("-a" "-A" "-B" "-C" "-c" "-f" "-G" "-g"
+ "-H" "-h" "-i" "-l" "-L" "-m" "-n"
+ "-o" "-Q" "-r" "-R"
+ "-u" "-v" "-w" "-1")
+ "")
+ "Short options for the `ack' command.")
+
+(defvar pcmpl-ack-long-options
+ '("--after-context="
+ "--all-types"
+ "--before-context="
+ "--break"
+ "--nobreak"
+ "--color"
+ "--nocolor"
+ "--colour"
+ "--nocolour"
+ "--color-filename="
+ "--color-match="
+ "--color-lineno="
+ "--column"
+ "--context="
+ "--count"
+ "--env"
+ "--noenv"
+ "--files-with-matches"
+ "--files-without-matches"
+ "--flush"
+ "--follow"
+ "--nofollow"
+ "--group"
+ "--nogroup"
+ "--heading"
+ "--noheading"
+ "--ignore-case"
+ "--ignore-dir="
+ "--noignore-dir="
+ "--invert-match"
+ "--line="
+ "--literal"
+ "--match"
+ "--max-count="
+ "--no-filename"
+ "--output="
+ "--pager="
+ "--nopager"
+ "--passthru"
+ "--print0"
+ "--recurse"
+ "--norecurse"
+ "--smart-case"
+ "--nosmart-case"
+ "--sort-files"
+ "--type="
+ "--type-add"
+ "--type-set"
+ "--unrestricted"
+ "--with-filename"
+ "--word-regexp"
+ "--help"
+ "--help-types"
+ "--man"
+ "--thpppt"
+ "--version")
+ "Long options for the `ack' command.")
+
+(defvar pcmpl-ack-color-options
+ '("clear"
+ "reset"
+ "dark"
+ "bold"
+ "underline"
+ "underscore"
+ "blink"
+ "reverse"
+ "concealed"
+ "black"
+ "red"
+ "green"
+ "yellow"
+ "blue"
+ "magenta"
+ "on_black"
+ "on_red"
+ "on_green"
+ "on_yellow"
+ "on_blue"
+ "on_magenta"
+ "on_cyan"
+ "on_white")
+ "Color names for the `ack' command.")
+
+;;;###autoload
+(defun pcomplete/ack ()
+ "Completion for the `ack' command.
+Start an argument with '-' to complete short options and '--' for
+long options."
+ ;; No space after =
+ (add-to-list 'pcomplete-suffix-list ?=)
+ (while t
+ (if (pcomplete-match "^-" 0)
+ (cond
+ ((pcomplete-match "^--color-\\w+=\\(\\S-*\\)" 0)
+ (pcomplete-here* pcmpl-ack-color-options
+ (pcomplete-match-string 1 0) t))
+ ((pcomplete-match "^--\\(?:no\\)?ignore-dir=\\(\\S-*\\)" 0)
+ (pcomplete-here* (pcomplete-dirs)
+ (pcomplete-match-string 1 0) t))
+ ((pcomplete-match "^--" 0)
+ (pcomplete-here* pcmpl-ack-long-options))
+ (t (pcomplete-opt pcmpl-ack-short-options)))
+ (pcomplete-here* (pcomplete-dirs-or-entries)))))
+
+;;;###autoload
+(defalias 'pcomplete/ack-grep 'pcomplete/ack)
+
+(provide 'pcmpl-ack)
+;;; pcmpl-ack.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [ELPA-diffs] /srv/bzr/emacs/elpa r260: Add ack,
Leo Liu <=