Taylor Bockman
10 years ago
37 changed files with 0 additions and 20905 deletions
@ -1 +0,0 @@ |
|||||||
(define-package "ag" "20150814.1655" "A front-end for ag ('the silver searcher'), the C ack replacement." '((dash "2.8.0") (s "1.9.0") (cl-lib "0.5"))) |
|
||||||
@ -1,617 +0,0 @@ |
|||||||
;;; ag.el --- A front-end for ag ('the silver searcher'), the C ack replacement. |
|
||||||
|
|
||||||
;; Copyright (C) 2013-2014 Wilfred Hughes <me@wilfred.me.uk> |
|
||||||
;; |
|
||||||
;; Author: Wilfred Hughes <me@wilfred.me.uk> |
|
||||||
;; Created: 11 January 2013 |
|
||||||
;; Version: 0.47 |
|
||||||
;; Package-Version: 20150814.1655 |
|
||||||
;; Package-Requires: ((dash "2.8.0") (s "1.9.0") (cl-lib "0.5")) |
|
||||||
;;; Commentary: |
|
||||||
|
|
||||||
;; Please see README.md for documentation, or read it online at |
|
||||||
;; https://github.com/Wilfred/ag.el/#agel |
|
||||||
|
|
||||||
;;; License: |
|
||||||
|
|
||||||
;; This file is not part of GNU Emacs. |
|
||||||
;; However, it is distributed under the same license. |
|
||||||
|
|
||||||
;; GNU Emacs 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, or (at your option) |
|
||||||
;; any later version. |
|
||||||
|
|
||||||
;; GNU Emacs 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 GNU Emacs; see the file COPYING. If not, write to the |
|
||||||
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
|
||||||
;; Boston, MA 02110-1301, USA. |
|
||||||
|
|
||||||
;;; Code: |
|
||||||
(eval-when-compile (require 'cl)) ;; dolist, defun*, flet |
|
||||||
(require 'cl-lib) ;; cl-letf |
|
||||||
(require 'dired) ;; dired-sort-inhibit |
|
||||||
(require 'dash) |
|
||||||
(require 's) |
|
||||||
(require 'find-dired) ;; find-dired-filter |
|
||||||
|
|
||||||
(defcustom ag-executable |
|
||||||
"ag" |
|
||||||
"Name of the ag executable to use." |
|
||||||
:type 'string |
|
||||||
:group 'ag) |
|
||||||
|
|
||||||
(defcustom ag-arguments |
|
||||||
(list "--line-number" "--smart-case" "--nogroup" "--column" "--stats" "--") |
|
||||||
"Default arguments passed to ag. |
|
||||||
|
|
||||||
Ag.el requires --nogroup and --column, so we recommend you add any |
|
||||||
additional arguments to the start of this list. |
|
||||||
|
|
||||||
--line-number is required on Window, as otherwise ag will not |
|
||||||
print line numbers when the input is a stream." |
|
||||||
:type '(repeat (string)) |
|
||||||
:group 'ag) |
|
||||||
|
|
||||||
(defcustom ag-highlight-search nil |
|
||||||
"Non-nil means we highlight the current search term in results. |
|
||||||
|
|
||||||
This requires the ag command to support --color-match, which is only in v0.14+" |
|
||||||
:type 'boolean |
|
||||||
:group 'ag) |
|
||||||
|
|
||||||
(defcustom ag-reuse-buffers nil |
|
||||||
"Non-nil means we reuse the existing search results buffer or |
|
||||||
dired results buffer, rather than creating one buffer per unique |
|
||||||
search." |
|
||||||
:type 'boolean |
|
||||||
:group 'ag) |
|
||||||
|
|
||||||
(defcustom ag-reuse-window nil |
|
||||||
"Non-nil means we open search results in the same window, |
|
||||||
hiding the results buffer." |
|
||||||
:type 'boolean |
|
||||||
:group 'ag) |
|
||||||
|
|
||||||
(defcustom ag-project-root-function nil |
|
||||||
"A function to determine the project root for `ag-project'. |
|
||||||
|
|
||||||
If set to a function, call this function with the name of the |
|
||||||
file or directory for which to determine the project root |
|
||||||
directory. |
|
||||||
|
|
||||||
If set to nil, fall back to finding VCS root directories." |
|
||||||
:type '(choice (const :tag "Default (VCS root)" nil) |
|
||||||
(function :tag "Function")) |
|
||||||
:group 'ag) |
|
||||||
|
|
||||||
(defcustom ag-ignore-list nil |
|
||||||
"A list of patterns to ignore when searching." |
|
||||||
:type '(repeat (string)) |
|
||||||
:group 'ag) |
|
||||||
|
|
||||||
(require 'compile) |
|
||||||
|
|
||||||
;; Although ag results aren't exactly errors, we treat them as errors |
|
||||||
;; so `next-error' and `previous-error' work. However, we ensure our |
|
||||||
;; face inherits from `compilation-info-face' so the results are |
|
||||||
;; styled appropriately. |
|
||||||
(defface ag-hit-face '((t :inherit compilation-info)) |
|
||||||
"Face name to use for ag matches." |
|
||||||
:group 'ag) |
|
||||||
|
|
||||||
(defface ag-match-face '((t :inherit match)) |
|
||||||
"Face name to use for ag matches." |
|
||||||
:group 'ag) |
|
||||||
|
|
||||||
(defvar ag-search-finished-hook nil |
|
||||||
"Hook run when ag completes a search in a buffer.") |
|
||||||
|
|
||||||
(defun ag/run-finished-hook (buffer how-finished) |
|
||||||
"Run the ag hook to signal that the search has completed." |
|
||||||
(with-current-buffer buffer |
|
||||||
(run-hooks 'ag-search-finished-hook))) |
|
||||||
|
|
||||||
(defmacro ag/with-patch-function (fun-name fun-args fun-body &rest body) |
|
||||||
"Temporarily override the definition of FUN-NAME whilst BODY is executed. |
|
||||||
|
|
||||||
Assumes FUNCTION is already defined (see http://emacs.stackexchange.com/a/3452/304)." |
|
||||||
`(cl-letf (((symbol-function ,fun-name) |
|
||||||
(lambda ,fun-args ,fun-body))) |
|
||||||
,@body)) |
|
||||||
|
|
||||||
(defun ag/next-error-function (n &optional reset) |
|
||||||
"Open the search result at point in the current window or a |
|
||||||
different window, according to `ag-reuse-window'." |
|
||||||
(if ag-reuse-window |
|
||||||
;; prevent changing the window |
|
||||||
(ag/with-patch-function |
|
||||||
'pop-to-buffer (buffer &rest args) (switch-to-buffer buffer) |
|
||||||
(compilation-next-error-function n reset)) |
|
||||||
|
|
||||||
;; just navigate to the results as normal |
|
||||||
(compilation-next-error-function n reset))) |
|
||||||
|
|
||||||
;; Note that we want to use as tight a regexp as we can to try and |
|
||||||
;; handle weird file names (with colons in them) as well as possible. |
|
||||||
;; E.g. we use [1-9][0-9]* rather than [0-9]+ so as to accept ":034:" |
|
||||||
;; in file names. |
|
||||||
(defvar ag/file-column-pattern |
|
||||||
"^\\(.+?\\):\\([1-9][0-9]*\\):\\([1-9][0-9]*\\):" |
|
||||||
"A regexp pattern that groups output into filename, line number and column number.") |
|
||||||
|
|
||||||
(define-compilation-mode ag-mode "Ag" |
|
||||||
"Ag results compilation mode" |
|
||||||
(set (make-local-variable 'compilation-error-regexp-alist) |
|
||||||
(list 'compilation-ag-nogroup)) |
|
||||||
(set (make-local-variable 'compilation-error-regexp-alist-alist) |
|
||||||
(list (cons 'compilation-ag-nogroup (list ag/file-column-pattern 1 2 3)))) |
|
||||||
(set (make-local-variable 'compilation-error-face) 'ag-hit-face) |
|
||||||
(set (make-local-variable 'next-error-function) #'ag/next-error-function) |
|
||||||
(set (make-local-variable 'compilation-finish-functions) |
|
||||||
#'ag/run-finished-hook) |
|
||||||
(add-hook 'compilation-filter-hook 'ag-filter nil t)) |
|
||||||
|
|
||||||
(define-key ag-mode-map (kbd "p") #'compilation-previous-error) |
|
||||||
(define-key ag-mode-map (kbd "n") #'compilation-next-error) |
|
||||||
(define-key ag-mode-map (kbd "k") '(lambda () (interactive) |
|
||||||
(let (kill-buffer-query-functions) (kill-buffer)))) |
|
||||||
|
|
||||||
(defun ag/buffer-name (search-string directory regexp) |
|
||||||
"Return a buffer name formatted according to ag.el conventions." |
|
||||||
(cond |
|
||||||
(ag-reuse-buffers "*ag search*") |
|
||||||
(regexp (format "*ag search regexp:%s dir:%s*" search-string directory)) |
|
||||||
(:else (format "*ag search text:%s dir:%s*" search-string directory)))) |
|
||||||
|
|
||||||
(defun ag/format-ignore (ignores) |
|
||||||
"Prepend '--ignore' to every item in IGNORES." |
|
||||||
(apply #'append |
|
||||||
(mapcar (lambda (item) (list "--ignore" item)) ignores))) |
|
||||||
|
|
||||||
(defun* ag/search (string directory |
|
||||||
&key (regexp nil) (file-regex nil) (file-type nil)) |
|
||||||
"Run ag searching for the STRING given in DIRECTORY. |
|
||||||
If REGEXP is non-nil, treat STRING as a regular expression." |
|
||||||
(let ((default-directory (file-name-as-directory directory)) |
|
||||||
(arguments ag-arguments) |
|
||||||
(shell-command-switch "-c")) |
|
||||||
(unless regexp |
|
||||||
(setq arguments (cons "--literal" arguments))) |
|
||||||
(if ag-highlight-search |
|
||||||
(setq arguments (append '("--color" "--color-match" "30;43") arguments)) |
|
||||||
(setq arguments (append '("--nocolor") arguments))) |
|
||||||
(when (char-or-string-p file-regex) |
|
||||||
(setq arguments (append `("--file-search-regex" ,file-regex) arguments))) |
|
||||||
(when file-type |
|
||||||
(setq arguments (cons (format "--%s" file-type) arguments))) |
|
||||||
(when ag-ignore-list |
|
||||||
(setq arguments (append (ag/format-ignore ag-ignore-list) arguments))) |
|
||||||
(unless (file-exists-p default-directory) |
|
||||||
(error "No such directory %s" default-directory)) |
|
||||||
(let ((command-string |
|
||||||
(mapconcat #'shell-quote-argument |
|
||||||
(append (list ag-executable) arguments (list string ".")) |
|
||||||
" "))) |
|
||||||
;; If we're called with a prefix, let the user modify the command before |
|
||||||
;; running it. Typically this means they want to pass additional arguments. |
|
||||||
(when current-prefix-arg |
|
||||||
;; Make a space in the command-string for the user to enter more arguments. |
|
||||||
(setq command-string (ag/replace-first command-string " -- " " -- ")) |
|
||||||
;; Prompt for the command. |
|
||||||
(let ((adjusted-point (- (length command-string) (length string) 5))) |
|
||||||
(setq command-string |
|
||||||
(read-from-minibuffer "ag command: " |
|
||||||
(cons command-string adjusted-point))))) |
|
||||||
;; Call ag. |
|
||||||
(compilation-start |
|
||||||
command-string |
|
||||||
#'ag-mode |
|
||||||
`(lambda (mode-name) ,(ag/buffer-name string directory regexp)))))) |
|
||||||
|
|
||||||
(defun ag/dwim-at-point () |
|
||||||
"If there's an active selection, return that. |
|
||||||
Otherwise, get the symbol at point, as a string." |
|
||||||
(cond ((use-region-p) |
|
||||||
(buffer-substring-no-properties (region-beginning) (region-end))) |
|
||||||
((symbol-at-point) |
|
||||||
(substring-no-properties |
|
||||||
(symbol-name (symbol-at-point)))))) |
|
||||||
|
|
||||||
(defun ag/buffer-extension-regex () |
|
||||||
"If the current buffer has an extension, return |
|
||||||
a PCRE pattern that matches files with that extension. |
|
||||||
Returns an empty string otherwise." |
|
||||||
(let ((file-name (buffer-file-name))) |
|
||||||
(if (stringp file-name) |
|
||||||
(format "\\.%s$" (ag/escape-pcre (file-name-extension file-name))) |
|
||||||
""))) |
|
||||||
|
|
||||||
(defun ag/longest-string (&rest strings) |
|
||||||
"Given a list of strings and nils, return the longest string." |
|
||||||
(let ((longest-string nil)) |
|
||||||
(dolist (string strings) |
|
||||||
(cond ((null longest-string) |
|
||||||
(setq longest-string string)) |
|
||||||
((stringp string) |
|
||||||
(when (< (length longest-string) |
|
||||||
(length string)) |
|
||||||
(setq longest-string string))))) |
|
||||||
longest-string)) |
|
||||||
|
|
||||||
(defun ag/replace-first (string before after) |
|
||||||
"Replace the first occurrence of BEFORE in STRING with AFTER." |
|
||||||
(replace-regexp-in-string |
|
||||||
(concat "\\(" (regexp-quote before) "\\)" ".*\\'") |
|
||||||
after string |
|
||||||
nil nil 1)) |
|
||||||
|
|
||||||
(autoload 'vc-git-root "vc-git") |
|
||||||
|
|
||||||
(require 'vc-svn) |
|
||||||
;; Emacs 23.4 doesn't provide vc-svn-root. |
|
||||||
(unless (functionp 'vc-svn-root) |
|
||||||
(defun vc-svn-root (file) |
|
||||||
(vc-find-root file vc-svn-admin-directory))) |
|
||||||
|
|
||||||
(autoload 'vc-hg-root "vc-hg") |
|
||||||
|
|
||||||
(defun ag/project-root (file-path) |
|
||||||
"Guess the project root of the given FILE-PATH. |
|
||||||
|
|
||||||
Use `ag-project-root-function' if set, or fall back to VCS |
|
||||||
roots." |
|
||||||
(if ag-project-root-function |
|
||||||
(funcall ag-project-root-function file-path) |
|
||||||
(or (ag/longest-string |
|
||||||
(vc-git-root file-path) |
|
||||||
(vc-svn-root file-path) |
|
||||||
(vc-hg-root file-path)) |
|
||||||
file-path))) |
|
||||||
|
|
||||||
(defun ag/dired-align-size-column () |
|
||||||
(beginning-of-line) |
|
||||||
(when (looking-at "^ ") |
|
||||||
(forward-char 2) |
|
||||||
(search-forward " " nil t 4) |
|
||||||
(let* ((size-start (point)) |
|
||||||
(size-end (search-forward " " nil t)) |
|
||||||
(width (and size-end (- size-end size-start)))) |
|
||||||
(when (and size-end |
|
||||||
(< width 12) |
|
||||||
(> width 1)) |
|
||||||
(goto-char size-start) |
|
||||||
(insert (make-string (- 12 width) ? )))))) |
|
||||||
|
|
||||||
(defun ag/dired-filter (proc string) |
|
||||||
"Filter the output of ag to make it suitable for `dired-mode'." |
|
||||||
(let ((buf (process-buffer proc)) |
|
||||||
(inhibit-read-only t)) |
|
||||||
(if (buffer-name buf) |
|
||||||
(with-current-buffer buf |
|
||||||
(save-excursion |
|
||||||
(save-restriction |
|
||||||
(widen) |
|
||||||
(let ((beg (point-max))) |
|
||||||
(goto-char beg) |
|
||||||
(insert string) |
|
||||||
(goto-char beg) |
|
||||||
(or (looking-at "^") |
|
||||||
(progn |
|
||||||
(ag/dired-align-size-column) |
|
||||||
(forward-line 1))) |
|
||||||
(while (looking-at "^") |
|
||||||
(insert " ") |
|
||||||
(ag/dired-align-size-column) |
|
||||||
(forward-line 1)) |
|
||||||
(goto-char beg) |
|
||||||
(beginning-of-line) |
|
||||||
|
|
||||||
;; Remove occurrences of default-directory. |
|
||||||
(while (search-forward (concat " " default-directory) nil t) |
|
||||||
(replace-match " " nil t)) |
|
||||||
|
|
||||||
(goto-char (point-max)) |
|
||||||
(if (search-backward "\n" (process-mark proc) t) |
|
||||||
(progn |
|
||||||
(dired-insert-set-properties (process-mark proc) |
|
||||||
(1+ (point))) |
|
||||||
(move-marker (process-mark proc) (1+ (point))))))))) |
|
||||||
(delete-process proc)))) |
|
||||||
|
|
||||||
(defun ag/dired-sentinel (proc state) |
|
||||||
"Update the status/modeline after the process finishes." |
|
||||||
(let ((buf (process-buffer proc)) |
|
||||||
(inhibit-read-only t)) |
|
||||||
(if (buffer-name buf) |
|
||||||
(with-current-buffer buf |
|
||||||
(let ((buffer-read-only nil)) |
|
||||||
(save-excursion |
|
||||||
(goto-char (point-max)) |
|
||||||
(insert "\n ag " state) |
|
||||||
(forward-char -1) ;Back up before \n at end of STATE. |
|
||||||
(insert " at " (substring (current-time-string) 0 19)) |
|
||||||
(forward-char 1) |
|
||||||
(setq mode-line-process |
|
||||||
(concat ":" (symbol-name (process-status proc)))) |
|
||||||
;; Since the buffer and mode line will show that the |
|
||||||
;; process is dead, we can delete it now. Otherwise it |
|
||||||
;; will stay around until M-x list-processes. |
|
||||||
(delete-process proc) |
|
||||||
(force-mode-line-update))) |
|
||||||
(run-hooks 'dired-after-readin-hook) |
|
||||||
(message "%s finished." (current-buffer)))))) |
|
||||||
|
|
||||||
(defun ag/kill-process () |
|
||||||
"Kill the `ag' process running in the current buffer." |
|
||||||
(interactive) |
|
||||||
(let ((ag (get-buffer-process (current-buffer)))) |
|
||||||
(and ag (eq (process-status ag) 'run) |
|
||||||
(eq (process-filter ag) (function find-dired-filter)) |
|
||||||
(condition-case nil |
|
||||||
(delete-process ag) |
|
||||||
(error nil))))) |
|
||||||
|
|
||||||
(defun ag/escape-pcre (regexp) |
|
||||||
"Escape the PCRE-special characters in REGEXP so that it is |
|
||||||
matched literally." |
|
||||||
(let ((alphanum "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789")) |
|
||||||
(apply #'concat |
|
||||||
(mapcar |
|
||||||
(lambda (c) |
|
||||||
(cond |
|
||||||
((not (string-match-p (regexp-quote c) alphanum)) |
|
||||||
(concat "\\" c)) |
|
||||||
(t c))) |
|
||||||
(mapcar #'char-to-string (string-to-list regexp)))))) |
|
||||||
|
|
||||||
;;;###autoload |
|
||||||
(defun ag (string directory) |
|
||||||
"Search using ag in a given DIRECTORY for a given search STRING, |
|
||||||
with STRING defaulting to the symbol under point. |
|
||||||
|
|
||||||
If called with a prefix, prompts for flags to pass to ag." |
|
||||||
(interactive (list (ag/read-from-minibuffer "Search string") |
|
||||||
(read-directory-name "Directory: "))) |
|
||||||
(ag/search string directory)) |
|
||||||
|
|
||||||
;;;###autoload |
|
||||||
(defun ag-files (string file-type directory) |
|
||||||
"Search using ag in a given DIRECTORY for a given search STRING, |
|
||||||
limited to files that match FILE-TYPE. STRING defaults to |
|
||||||
the symbol under point. |
|
||||||
|
|
||||||
If called with a prefix, prompts for flags to pass to ag." |
|
||||||
(interactive (list (ag/read-from-minibuffer "Search string") |
|
||||||
(ag/read-file-type) |
|
||||||
(read-directory-name "Directory: "))) |
|
||||||
(apply #'ag/search string directory file-type)) |
|
||||||
|
|
||||||
;;;###autoload |
|
||||||
(defun ag-regexp (string directory) |
|
||||||
"Search using ag in a given directory for a given regexp. |
|
||||||
The regexp should be in PCRE syntax, not Emacs regexp syntax. |
|
||||||
|
|
||||||
If called with a prefix, prompts for flags to pass to ag." |
|
||||||
(interactive "sSearch regexp: \nDDirectory: ") |
|
||||||
(ag/search string directory :regexp t)) |
|
||||||
|
|
||||||
;;;###autoload |
|
||||||
(defun ag-project (string) |
|
||||||
"Guess the root of the current project and search it with ag |
|
||||||
for the given string. |
|
||||||
|
|
||||||
If called with a prefix, prompts for flags to pass to ag." |
|
||||||
(interactive (list (ag/read-from-minibuffer "Search string"))) |
|
||||||
(ag/search string (ag/project-root default-directory))) |
|
||||||
|
|
||||||
;;;###autoload |
|
||||||
(defun ag-project-files (string file-type) |
|
||||||
"Search using ag for a given search STRING, |
|
||||||
limited to files that match FILE-TYPE. STRING defaults to the |
|
||||||
symbol under point. |
|
||||||
|
|
||||||
If called with a prefix, prompts for flags to pass to ag." |
|
||||||
(interactive (list (ag/read-from-minibuffer "Search string") |
|
||||||
(ag/read-file-type))) |
|
||||||
(apply 'ag/search string (ag/project-root default-directory) file-type)) |
|
||||||
|
|
||||||
(defun ag/read-from-minibuffer (prompt) |
|
||||||
"Read a value from the minibuffer with PROMPT. |
|
||||||
If there's a string at point, offer that as a default." |
|
||||||
(let* ((suggested (ag/dwim-at-point)) |
|
||||||
(final-prompt |
|
||||||
(if suggested |
|
||||||
(format "%s (default %s): " prompt suggested) |
|
||||||
(format "%s: " prompt))) |
|
||||||
;; Ask the user for input, but add `suggested' to the history |
|
||||||
;; so they can use M-n if they want to modify it. |
|
||||||
(user-input (read-from-minibuffer |
|
||||||
final-prompt |
|
||||||
nil nil nil nil suggested))) |
|
||||||
;; Return the input provided by the user, or use `suggested' if |
|
||||||
;; the input was empty. |
|
||||||
(if (> (length user-input) 0) |
|
||||||
user-input |
|
||||||
suggested))) |
|
||||||
|
|
||||||
;;;###autoload |
|
||||||
(defun ag-project-regexp (regexp) |
|
||||||
"Guess the root of the current project and search it with ag |
|
||||||
for the given regexp. The regexp should be in PCRE syntax, not |
|
||||||
Emacs regexp syntax. |
|
||||||
|
|
||||||
If called with a prefix, prompts for flags to pass to ag." |
|
||||||
(interactive (list (ag/read-from-minibuffer "Search regexp"))) |
|
||||||
(ag/search regexp (ag/project-root default-directory) :regexp t)) |
|
||||||
|
|
||||||
(autoload 'symbol-at-point "thingatpt") |
|
||||||
|
|
||||||
;;;###autoload |
|
||||||
(defalias 'ag-project-at-point 'ag-project) |
|
||||||
(make-obsolete 'ag-project-at-point 'ag-project "0.19") |
|
||||||
|
|
||||||
;;;###autoload |
|
||||||
(defalias 'ag-regexp-project-at-point 'ag-project-regexp) |
|
||||||
(make-obsolete 'ag-regexp-project-at-point 'ag-project-regexp "0.46") |
|
||||||
|
|
||||||
;;;###autoload |
|
||||||
(defun ag-dired (dir pattern) |
|
||||||
"Recursively find files in DIR matching PATTERN. |
|
||||||
|
|
||||||
The PATTERN is matched against the full path to the file, not |
|
||||||
only against the file name. |
|
||||||
|
|
||||||
The results are presented as a `dired-mode' buffer with |
|
||||||
`default-directory' being DIR. |
|
||||||
|
|
||||||
See also `ag-dired-regexp'." |
|
||||||
(interactive "DDirectory: \nsFile pattern: ") |
|
||||||
(ag-dired-regexp dir (ag/escape-pcre pattern))) |
|
||||||
|
|
||||||
;;;###autoload |
|
||||||
(defun ag-dired-regexp (dir regexp) |
|
||||||
"Recursively find files in DIR matching REGEXP. |
|
||||||
REGEXP should be in PCRE syntax, not Emacs regexp syntax. |
|
||||||
|
|
||||||
The REGEXP is matched against the full path to the file, not |
|
||||||
only against the file name. |
|
||||||
|
|
||||||
Results are presented as a `dired-mode' buffer with |
|
||||||
`default-directory' being DIR. |
|
||||||
|
|
||||||
See also `find-dired'." |
|
||||||
(interactive "DDirectory: \nsFile regexp: ") |
|
||||||
(let* ((dired-buffers dired-buffers) ;; do not mess with regular dired buffers |
|
||||||
(orig-dir dir) |
|
||||||
(dir (file-name-as-directory (expand-file-name dir))) |
|
||||||
(buffer-name (if ag-reuse-buffers |
|
||||||
"*ag dired*" |
|
||||||
(format "*ag dired pattern:%s dir:%s*" regexp dir))) |
|
||||||
(cmd (concat ag-executable " --nocolor -g '" regexp "' " |
|
||||||
(shell-quote-argument dir) |
|
||||||
" | grep -v '^$' | sed s/\\'/\\\\\\\\\\'/ | xargs -I '{}' ls " |
|
||||||
dired-listing-switches " '{}' &"))) |
|
||||||
(with-current-buffer (get-buffer-create buffer-name) |
|
||||||
(switch-to-buffer (current-buffer)) |
|
||||||
(widen) |
|
||||||
(kill-all-local-variables) |
|
||||||
(if (fboundp 'read-only-mode) |
|
||||||
(read-only-mode -1) |
|
||||||
(setq buffer-read-only nil)) |
|
||||||
(let ((inhibit-read-only t)) (erase-buffer)) |
|
||||||
(setq default-directory dir) |
|
||||||
(run-hooks 'dired-before-readin-hook) |
|
||||||
(shell-command cmd (current-buffer)) |
|
||||||
(insert " " dir ":\n") |
|
||||||
(insert " " cmd "\n") |
|
||||||
(dired-mode dir) |
|
||||||
(let ((map (make-sparse-keymap))) |
|
||||||
(set-keymap-parent map (current-local-map)) |
|
||||||
(define-key map "\C-c\C-k" 'ag/kill-process) |
|
||||||
(use-local-map map)) |
|
||||||
(set (make-local-variable 'dired-sort-inhibit) t) |
|
||||||
(set (make-local-variable 'revert-buffer-function) |
|
||||||
`(lambda (ignore-auto noconfirm) |
|
||||||
(ag-dired-regexp ,orig-dir ,regexp))) |
|
||||||
(if (fboundp 'dired-simple-subdir-alist) |
|
||||||
(dired-simple-subdir-alist) |
|
||||||
(set (make-local-variable 'dired-subdir-alist) |
|
||||||
(list (cons default-directory (point-min-marker))))) |
|
||||||
(let ((proc (get-buffer-process (current-buffer)))) |
|
||||||
(set-process-filter proc #'ag/dired-filter) |
|
||||||
(set-process-sentinel proc #'ag/dired-sentinel) |
|
||||||
;; Initialize the process marker; it is used by the filter. |
|
||||||
(move-marker (process-mark proc) 1 (current-buffer))) |
|
||||||
(setq mode-line-process '(":%s"))))) |
|
||||||
|
|
||||||
;;;###autoload |
|
||||||
(defun ag-project-dired (pattern) |
|
||||||
"Recursively find files in current project matching PATTERN. |
|
||||||
|
|
||||||
See also `ag-dired'." |
|
||||||
(interactive "sFile pattern: ") |
|
||||||
(ag-dired-regexp (ag/project-root default-directory) (ag/escape-pcre pattern))) |
|
||||||
|
|
||||||
;;;###autoload |
|
||||||
(defun ag-project-dired-regexp (regexp) |
|
||||||
"Recursively find files in current project matching REGEXP. |
|
||||||
|
|
||||||
See also `ag-dired-regexp'." |
|
||||||
(interactive "sFile regexp: ") |
|
||||||
(ag-dired-regexp (ag/project-root default-directory) regexp)) |
|
||||||
|
|
||||||
;;;###autoload |
|
||||||
(defun ag-kill-buffers () |
|
||||||
"Kill all `ag-mode' buffers." |
|
||||||
(interactive) |
|
||||||
(dolist (buffer (buffer-list)) |
|
||||||
(when (eq (buffer-local-value 'major-mode buffer) 'ag-mode) |
|
||||||
(kill-buffer buffer)))) |
|
||||||
|
|
||||||
;;;###autoload |
|
||||||
(defun ag-kill-other-buffers () |
|
||||||
"Kill all `ag-mode' buffers other than the current buffer." |
|
||||||
(interactive) |
|
||||||
(let ((current-buffer (current-buffer))) |
|
||||||
(dolist (buffer (buffer-list)) |
|
||||||
(when (and |
|
||||||
(eq (buffer-local-value 'major-mode buffer) 'ag-mode) |
|
||||||
(not (eq buffer current-buffer))) |
|
||||||
(kill-buffer buffer))))) |
|
||||||
|
|
||||||
;; Taken from grep-filter, just changed the color regex. |
|
||||||
(defun ag-filter () |
|
||||||
"Handle match highlighting escape sequences inserted by the ag process. |
|
||||||
This function is called from `compilation-filter-hook'." |
|
||||||
(when ag-highlight-search |
|
||||||
(save-excursion |
|
||||||
(forward-line 0) |
|
||||||
(let ((end (point)) beg) |
|
||||||
(goto-char compilation-filter-start) |
|
||||||
(forward-line 0) |
|
||||||
(setq beg (point)) |
|
||||||
;; Only operate on whole lines so we don't get caught with part of an |
|
||||||
;; escape sequence in one chunk and the rest in another. |
|
||||||
(when (< (point) end) |
|
||||||
(setq end (copy-marker end)) |
|
||||||
;; Highlight ag matches and delete marking sequences. |
|
||||||
(while (re-search-forward "\033\\[30;43m\\(.*?\\)\033\\[[0-9]*m" end 1) |
|
||||||
(replace-match (propertize (match-string 1) |
|
||||||
'face nil 'font-lock-face 'ag-match-face) |
|
||||||
t t)) |
|
||||||
;; Delete all remaining escape sequences |
|
||||||
(goto-char beg) |
|
||||||
(while (re-search-forward "\033\\[[0-9;]*[mK]" end 1) |
|
||||||
(replace-match "" t t))))))) |
|
||||||
|
|
||||||
(defun ag/get-supported-types () |
|
||||||
"Query the ag executable for which file types it recognises." |
|
||||||
(let* ((ag-output (shell-command-to-string (format "%s --list-file-types" ag-executable))) |
|
||||||
(lines (-map #'s-trim (s-lines ag-output))) |
|
||||||
(types (--keep (when (s-starts-with? "--" it) (s-chop-prefix "--" it )) lines)) |
|
||||||
(extensions (--map (s-split " " it) (--filter (s-starts-with? "." it) lines)))) |
|
||||||
(-zip types extensions))) |
|
||||||
|
|
||||||
(defun ag/read-file-type () |
|
||||||
"Prompt the user for a known file type, or let them specify a PCRE regex." |
|
||||||
(let* ((all-types-with-extensions (ag/get-supported-types)) |
|
||||||
(all-types (mapcar 'car all-types-with-extensions)) |
|
||||||
(file-type |
|
||||||
(completing-read "Select file type: " |
|
||||||
(append '("custom (provide a PCRE regex)") all-types))) |
|
||||||
(file-type-extensions |
|
||||||
(cdr (assoc file-type all-types-with-extensions)))) |
|
||||||
(if file-type-extensions |
|
||||||
(list :file-type file-type) |
|
||||||
(list :file-regex |
|
||||||
(read-from-minibuffer "Filenames which match PCRE: " |
|
||||||
(ag/buffer-extension-regex)))))) |
|
||||||
|
|
||||||
(provide 'ag) |
|
||||||
;;; ag.el ends here |
|
||||||
@ -1,777 +0,0 @@ |
|||||||
(1 |
|
||||||
(ace-window . |
|
||||||
[(0 9 0) |
|
||||||
((avy |
|
||||||
(0 2 0))) |
|
||||||
"Quickly switch windows." single |
|
||||||
((:url . "https://github.com/abo-abo/ace-window") |
|
||||||
(:keywords "window" "location"))]) |
|
||||||
(ack . |
|
||||||
[(1 5) |
|
||||||
nil "interface to ack-like tools" tar |
|
||||||
((:keywords "tools" "processes" "convenience") |
|
||||||
(:url . "https://github.com/leoliu/ack-el"))]) |
|
||||||
(ada-mode . |
|
||||||
[(5 1 8) |
|
||||||
((wisi |
|
||||||
(1 1 1)) |
|
||||||
(cl-lib |
|
||||||
(0 4)) |
|
||||||
(emacs |
|
||||||
(24 2))) |
|
||||||
"major-mode for editing Ada sources" tar |
|
||||||
((:keywords "languages" "ada") |
|
||||||
(:url . "http://stephe-leake.org/emacs/ada-mode/emacs-ada-mode.html"))]) |
|
||||||
(ada-ref-man . |
|
||||||
[(2012 0) |
|
||||||
nil "Ada Reference Manual 2012" tar |
|
||||||
((:keywords "languages" "ada") |
|
||||||
(:url . "http://stephe-leake.org/ada/arm.html"))]) |
|
||||||
(adaptive-wrap . |
|
||||||
[(0 5) |
|
||||||
nil "Smart line-wrapping with wrap-prefix" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/adaptive-wrap.html") |
|
||||||
(:keywords))]) |
|
||||||
(adjust-parens . |
|
||||||
[(3 0) |
|
||||||
nil "Indent and dedent Lisp code, automatically adjust close parens" tar |
|
||||||
((:url . "http://elpa.gnu.org/packages/adjust-parens.html"))]) |
|
||||||
(aggressive-indent . |
|
||||||
[(1 4) |
|
||||||
((emacs |
|
||||||
(24 1)) |
|
||||||
(cl-lib |
|
||||||
(0 5))) |
|
||||||
"Minor mode to aggressively keep your code always indented" single |
|
||||||
((:url . "http://github.com/Malabarba/aggressive-indent-mode") |
|
||||||
(:keywords "indent" "lisp" "maint" "tools"))]) |
|
||||||
(ahungry-theme . |
|
||||||
[(1 0 12) |
|
||||||
((emacs |
|
||||||
(24))) |
|
||||||
"Ahungry color theme for Emacs. Make sure to (load-theme 'ahungry)." tar |
|
||||||
((:keywords "ahungry" "palette" "color" "theme" "emacs" "color-theme" "deftheme") |
|
||||||
(:url . "https://github.com/ahungry/color-theme-ahungry"))]) |
|
||||||
(all . |
|
||||||
[(1 0) |
|
||||||
nil "Edit all lines matching a given regexp" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/all.html") |
|
||||||
(:keywords "matching"))]) |
|
||||||
(ascii-art-to-unicode . |
|
||||||
[(1 9) |
|
||||||
nil "a small artist adjunct" single |
|
||||||
((:url . "http://www.gnuvola.org/software/aa2u/") |
|
||||||
(:keywords "ascii" "unicode" "box-drawing"))]) |
|
||||||
(auctex . |
|
||||||
[(11 88 9) |
|
||||||
nil "Integrated environment for *TeX*" tar |
|
||||||
((:url . "http://www.gnu.org/software/auctex/"))]) |
|
||||||
(aumix-mode . |
|
||||||
[(7) |
|
||||||
nil "run the aumix program in a buffer" single |
|
||||||
((:url . "http://user42.tuxfamily.org/aumix-mode/index.html") |
|
||||||
(:keywords "multimedia" "mixer" "aumix"))]) |
|
||||||
(auto-overlays . |
|
||||||
[(0 10 9) |
|
||||||
nil "Automatic regexp-delimited overlays" tar |
|
||||||
((:keywords "extensions") |
|
||||||
(:url . "http://www.dr-qubit.org/emacs.php"))]) |
|
||||||
(avy . |
|
||||||
[(0 3 0) |
|
||||||
((emacs |
|
||||||
(24 1)) |
|
||||||
(cl-lib |
|
||||||
(0 5))) |
|
||||||
"set-based completion" tar |
|
||||||
((:keywords "point" "location") |
|
||||||
(:url . "https://github.com/abo-abo/avy"))]) |
|
||||||
(beacon . |
|
||||||
[(0 2 1) |
|
||||||
((seq |
|
||||||
(1 9))) |
|
||||||
"Highlight the cursor whenever the window scrolls" single |
|
||||||
((:url . "https://github.com/Malabarba/beacon") |
|
||||||
(:keywords "convenience"))]) |
|
||||||
(bug-hunter . |
|
||||||
[(1 0) |
|
||||||
((seq |
|
||||||
(1 3)) |
|
||||||
(cl-lib |
|
||||||
(0 5))) |
|
||||||
"Hunt down errors in elisp files" single |
|
||||||
((:url . "http://github.com/Malabarba/elisp-bug-hunter") |
|
||||||
(:keywords "lisp"))]) |
|
||||||
(caps-lock . |
|
||||||
[(1 0) |
|
||||||
nil "Caps-lock as a minor mode" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/caps-lock.html") |
|
||||||
(:keywords))]) |
|
||||||
(chess . |
|
||||||
[(2 0 4) |
|
||||||
((cl-lib |
|
||||||
(0 5))) |
|
||||||
"Play chess in GNU Emacs" tar |
|
||||||
((:keywords "games") |
|
||||||
(:url . "http://elpa.gnu.org/packages/chess.html"))]) |
|
||||||
(cl-generic . |
|
||||||
[(0 2) |
|
||||||
nil "Forward cl-generic compatibility for Emacs<25" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/cl-generic.html") |
|
||||||
(:keywords))]) |
|
||||||
(cl-lib . |
|
||||||
[(0 5) |
|
||||||
nil "Properly prefixed CL functions and macros" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/cl-lib.html") |
|
||||||
(:keywords))]) |
|
||||||
(coffee-mode . |
|
||||||
[(0 4 1 1) |
|
||||||
nil "Major mode for CoffeeScript files" single |
|
||||||
((:url . "http://github.com/defunkt/coffee-mode") |
|
||||||
(:keywords "coffeescript" "major" "mode"))]) |
|
||||||
(company . |
|
||||||
[(0 8 12) |
|
||||||
((emacs |
|
||||||
(24 1)) |
|
||||||
(cl-lib |
|
||||||
(0 5))) |
|
||||||
"Modular text completion framework" tar |
|
||||||
((:keywords "abbrev" "convenience" "matching") |
|
||||||
(:url . "http://company-mode.github.io/"))]) |
|
||||||
(company-math . |
|
||||||
[(1 0 1) |
|
||||||
((company |
|
||||||
(0 8 0)) |
|
||||||
(math-symbol-lists |
|
||||||
(1 0))) |
|
||||||
"Completion backends for unicode math symbols and latex tags" single |
|
||||||
((:url . "https://github.com/vspinu/company-math") |
|
||||||
(:keywords "unicode" "symbols" "completion"))]) |
|
||||||
(company-statistics . |
|
||||||
[(0 2 1) |
|
||||||
((emacs |
|
||||||
(24 3)) |
|
||||||
(company |
|
||||||
(0 8 5))) |
|
||||||
"Sort candidates using completion history" tar |
|
||||||
((:keywords "abbrev" "convenience" "matching") |
|
||||||
(:url . "https://github.com/company-mode/company-statistics"))]) |
|
||||||
(context-coloring . |
|
||||||
[(7 1 0) |
|
||||||
((emacs |
|
||||||
(24 3)) |
|
||||||
(js2-mode |
|
||||||
(20150713))) |
|
||||||
"Highlight by scope" single |
|
||||||
((:url . "https://github.com/jacksonrayhamilton/context-coloring") |
|
||||||
(:keywords "convenience" "faces" "tools"))]) |
|
||||||
(crisp . |
|
||||||
[(1 3 4) |
|
||||||
nil "CRiSP/Brief Emacs emulator" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/crisp.html") |
|
||||||
(:keywords "emulations" "brief" "crisp"))]) |
|
||||||
(csv-mode . |
|
||||||
[(1 5) |
|
||||||
nil "Major mode for editing comma/char separated values" single |
|
||||||
((:url . "http://centaur.maths.qmul.ac.uk/Emacs/") |
|
||||||
(:keywords "convenience"))]) |
|
||||||
(darkroom . |
|
||||||
[(0 1) |
|
||||||
((cl-lib |
|
||||||
(0 5))) |
|
||||||
"Remove visual distractions and focus on writing" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/darkroom.html") |
|
||||||
(:keywords "convenience" "emulations"))]) |
|
||||||
(dash . |
|
||||||
[(2 12 0) |
|
||||||
nil "A modern list library for Emacs" tar |
|
||||||
((:keywords "lists") |
|
||||||
(:url . "http://elpa.gnu.org/packages/dash.html"))]) |
|
||||||
(dbus-codegen . |
|
||||||
[(0 1) |
|
||||||
((cl-lib |
|
||||||
(0 5))) |
|
||||||
"Lisp code generation for D-Bus." single |
|
||||||
((:url . "http://elpa.gnu.org/packages/dbus-codegen.html") |
|
||||||
(:keywords "comm" "dbus" "convenience"))]) |
|
||||||
(debbugs . |
|
||||||
[(0 7) |
|
||||||
nil "SOAP library to access debbugs servers" tar |
|
||||||
((:keywords "comm" "hypermedia") |
|
||||||
(:url . "http://elpa.gnu.org/packages/debbugs.html"))]) |
|
||||||
(dict-tree . |
|
||||||
[(0 12 8) |
|
||||||
((trie |
|
||||||
(0 2 5)) |
|
||||||
(tNFA |
|
||||||
(0 1 1)) |
|
||||||
(heap |
|
||||||
(0 3))) |
|
||||||
"Dictionary data structure" single |
|
||||||
((:url . "http://www.dr-qubit.org/emacs.php") |
|
||||||
(:keywords "extensions" "matching" "data structures trie" "tree" "dictionary" "completion" "regexp"))]) |
|
||||||
(diff-hl . |
|
||||||
[(1 8 0) |
|
||||||
((cl-lib |
|
||||||
(0 2))) |
|
||||||
"Highlight uncommitted changes" tar |
|
||||||
((:keywords "vc" "diff") |
|
||||||
(:url . "https://github.com/dgutov/diff-hl"))]) |
|
||||||
(dismal . |
|
||||||
[(1 5) |
|
||||||
((cl-lib |
|
||||||
(0))) |
|
||||||
"Dis Mode Ain't Lotus: Spreadsheet program Emacs" tar |
|
||||||
((:url . "http://elpa.gnu.org/packages/dismal.html"))]) |
|
||||||
(djvu . |
|
||||||
[(0 5) |
|
||||||
nil "Edit and view Djvu files via djvused" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/djvu.html") |
|
||||||
(:keywords "files" "wp"))]) |
|
||||||
(docbook . |
|
||||||
[(0 1) |
|
||||||
nil "Info-like viewer for DocBook" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/docbook.html") |
|
||||||
(:keywords "docs" "help"))]) |
|
||||||
(dts-mode . |
|
||||||
[(0 1 0) |
|
||||||
nil "Major mode for Device Tree source files" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/dts-mode.html") |
|
||||||
(:keywords "languages"))]) |
|
||||||
(easy-kill . |
|
||||||
[(0 9 3) |
|
||||||
((emacs |
|
||||||
(24)) |
|
||||||
(cl-lib |
|
||||||
(0 5))) |
|
||||||
"kill & mark things easily" tar |
|
||||||
((:keywords "killing" "convenience") |
|
||||||
(:url . "https://github.com/leoliu/easy-kill"))]) |
|
||||||
(ediprolog . |
|
||||||
[(1 1) |
|
||||||
nil "Emacs Does Interactive Prolog" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/ediprolog.html") |
|
||||||
(:keywords "languages" "processes"))]) |
|
||||||
(el-search . |
|
||||||
[(0 0 3) |
|
||||||
((emacs |
|
||||||
(25))) |
|
||||||
"Expression based incremental search for emacs-lisp-mode" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/el-search.html") |
|
||||||
(:keywords "lisp"))]) |
|
||||||
(eldoc-eval . |
|
||||||
[(0 1) |
|
||||||
nil "Enable eldoc support when minibuffer is in use." single |
|
||||||
((:url . "http://elpa.gnu.org/packages/eldoc-eval.html") |
|
||||||
(:keywords))]) |
|
||||||
(electric-spacing . |
|
||||||
[(5 0) |
|
||||||
nil "Insert operators with surrounding spaces smartly" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/electric-spacing.html") |
|
||||||
(:keywords))]) |
|
||||||
(enwc . |
|
||||||
[(1 0) |
|
||||||
nil "The Emacs Network Client" tar |
|
||||||
((:keywords "enwc" "network" "wicd" "manager" "nm") |
|
||||||
(:url . "http://elpa.gnu.org/packages/enwc.html"))]) |
|
||||||
(epoch-view . |
|
||||||
[(0 0 1) |
|
||||||
nil "Minor mode to visualize epoch timestamps" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/epoch-view.html") |
|
||||||
(:keywords "data" "timestamp" "epoch" "unix"))]) |
|
||||||
(ergoemacs-mode . |
|
||||||
[(5 14 7 3) |
|
||||||
((emacs |
|
||||||
(24 1)) |
|
||||||
(undo-tree |
|
||||||
(0 6 5))) |
|
||||||
"Emacs mode based on common modern interface and ergonomics." tar |
|
||||||
((:keywords "convenience") |
|
||||||
(:url . "https://github.com/ergoemacs/ergoemacs-mode"))]) |
|
||||||
(f90-interface-browser . |
|
||||||
[(1 1) |
|
||||||
nil "Parse and browse f90 interfaces" single |
|
||||||
((:url . "http://github.com/wence-/f90-iface/") |
|
||||||
(:keywords))]) |
|
||||||
(flylisp . |
|
||||||
[(0 2) |
|
||||||
((emacs |
|
||||||
(24 1)) |
|
||||||
(cl-lib |
|
||||||
(0 4))) |
|
||||||
"Color unbalanced parentheses and parentheses inconsistent with indentation" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/flylisp.html") |
|
||||||
(:keywords))]) |
|
||||||
(fsm . |
|
||||||
[(0 2) |
|
||||||
((emacs |
|
||||||
(24 1)) |
|
||||||
(cl-lib |
|
||||||
(0 5))) |
|
||||||
"state machine library" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/fsm.html") |
|
||||||
(:keywords "extensions"))]) |
|
||||||
(ggtags . |
|
||||||
[(0 8 10) |
|
||||||
((emacs |
|
||||||
(24)) |
|
||||||
(cl-lib |
|
||||||
(0 5))) |
|
||||||
"emacs frontend to GNU Global source code tagging system" single |
|
||||||
((:url . "https://github.com/leoliu/ggtags") |
|
||||||
(:keywords "tools" "convenience"))]) |
|
||||||
(gnorb . |
|
||||||
[(1 1 1) |
|
||||||
((cl-lib |
|
||||||
(0 5))) |
|
||||||
"Glue code between Gnus, Org, and BBDB" tar |
|
||||||
((:keywords "mail" "org" "gnus" "bbdb" "todo" "task") |
|
||||||
(:url . "https://github.com/girzel/gnorb"))]) |
|
||||||
(gnugo . |
|
||||||
[(3 0 0) |
|
||||||
((ascii-art-to-unicode |
|
||||||
(1 5)) |
|
||||||
(xpm |
|
||||||
(1 0 1)) |
|
||||||
(cl-lib |
|
||||||
(0 5))) |
|
||||||
"play GNU Go in a buffer" tar |
|
||||||
((:keywords "games" "processes") |
|
||||||
(:url . "http://www.gnuvola.org/software/gnugo/"))]) |
|
||||||
(heap . |
|
||||||
[(0 3) |
|
||||||
nil "Heap (a.k.a. priority queue) data structure" single |
|
||||||
((:url . "http://www.dr-qubit.org/emacs.php") |
|
||||||
(:keywords "extensions" "data structures" "heap" "priority queue"))]) |
|
||||||
(hydra . |
|
||||||
[(0 13 3) |
|
||||||
((cl-lib |
|
||||||
(0 5))) |
|
||||||
"Make bindings that stick around." tar |
|
||||||
((:keywords "bindings") |
|
||||||
(:url . "https://github.com/abo-abo/hydra"))]) |
|
||||||
(ioccur . |
|
||||||
[(2 4) |
|
||||||
nil "Incremental occur" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/ioccur.html") |
|
||||||
(:keywords))]) |
|
||||||
(iterators . |
|
||||||
[(0 1) |
|
||||||
((emacs |
|
||||||
(25))) |
|
||||||
"Functions for working with iterators" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/iterators.html") |
|
||||||
(:keywords "extensions" "elisp"))]) |
|
||||||
(javaimp . |
|
||||||
[(0 5) |
|
||||||
nil "Add and reorder Java import statements in Maven projects" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/javaimp.html") |
|
||||||
(:keywords "java" "maven" "programming"))]) |
|
||||||
(jgraph-mode . |
|
||||||
[(1 1) |
|
||||||
((cl-lib |
|
||||||
(0 5))) |
|
||||||
"Major mode for Jgraph files" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/jgraph-mode.html") |
|
||||||
(:keywords "tex" "wp"))]) |
|
||||||
(js2-mode . |
|
||||||
[(20150909) |
|
||||||
((emacs |
|
||||||
(24 1)) |
|
||||||
(cl-lib |
|
||||||
(0 5))) |
|
||||||
"Improved JavaScript editing mode" tar |
|
||||||
((:keywords "languages" "javascript") |
|
||||||
(:url . "https://github.com/mooz/js2-mode/"))]) |
|
||||||
(jumpc . |
|
||||||
[(3 0) |
|
||||||
nil "jump to previous insertion points" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/jumpc.html") |
|
||||||
(:keywords))]) |
|
||||||
(landmark . |
|
||||||
[(1 0) |
|
||||||
nil "Neural-network robot that learns landmarks" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/landmark.html") |
|
||||||
(:keywords "games" "neural network" "adaptive search" "chemotaxis"))]) |
|
||||||
(let-alist . |
|
||||||
[(1 0 4) |
|
||||||
nil "Easily let-bind values of an assoc-list by their names" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/let-alist.html") |
|
||||||
(:keywords "extensions" "lisp"))]) |
|
||||||
(lex . |
|
||||||
[(1 1) |
|
||||||
nil "Lexical analyser construction" tar |
|
||||||
((:url . "http://elpa.gnu.org/packages/lex.html"))]) |
|
||||||
(lmc . |
|
||||||
[(1 3) |
|
||||||
nil "Little Man Computer in Elisp" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/lmc.html") |
|
||||||
(:keywords))]) |
|
||||||
(load-dir . |
|
||||||
[(0 0 3) |
|
||||||
nil "Load all Emacs Lisp files in a given directory" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/load-dir.html") |
|
||||||
(:keywords "lisp" "files" "convenience"))]) |
|
||||||
(load-relative . |
|
||||||
[(1 2) |
|
||||||
nil "relative file load (within a multi-file Emacs package)" single |
|
||||||
((:url . "http://github.com/rocky/emacs-load-relative") |
|
||||||
(:keywords "internal"))]) |
|
||||||
(loc-changes . |
|
||||||
[(1 2) |
|
||||||
nil "keep track of positions even after buffer changes" single |
|
||||||
((:url . "http://github.com/rocky/emacs-loc-changes") |
|
||||||
(:keywords))]) |
|
||||||
(markchars . |
|
||||||
[(0 2 0) |
|
||||||
nil "Mark chars fitting certain characteristics" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/markchars.html") |
|
||||||
(:keywords))]) |
|
||||||
(math-symbol-lists . |
|
||||||
[(1 0) |
|
||||||
nil "Lists of Unicode math symbols and latex commands" single |
|
||||||
((:url . "https://github.com/vspinu/math-symbol-lists") |
|
||||||
(:keywords "unicode" "symbols" "mathematics"))]) |
|
||||||
(memory-usage . |
|
||||||
[(0 2) |
|
||||||
nil "Analyze the memory usage of Emacs in various ways" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/memory-usage.html") |
|
||||||
(:keywords "maint"))]) |
|
||||||
(metar . |
|
||||||
[(0 1) |
|
||||||
((cl-lib |
|
||||||
(0 5))) |
|
||||||
"Retrieve and decode METAR weather information" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/metar.html") |
|
||||||
(:keywords "comm"))]) |
|
||||||
(midi-kbd . |
|
||||||
[(0 2) |
|
||||||
((emacs |
|
||||||
(25))) |
|
||||||
"Create keyboard events from Midi input" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/midi-kbd.html") |
|
||||||
(:keywords "convenience" "hardware" "multimedia"))]) |
|
||||||
(minibuffer-line . |
|
||||||
[(0 1) |
|
||||||
nil "Display status info in the minibuffer window" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/minibuffer-line.html") |
|
||||||
(:keywords))]) |
|
||||||
(minimap . |
|
||||||
[(1 2) |
|
||||||
nil "Sidebar showing a \"mini-map\" of a buffer" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/minimap.html") |
|
||||||
(:keywords))]) |
|
||||||
(muse . |
|
||||||
[(3 20) |
|
||||||
nil "Authoring and publishing tool for Emacs" tar |
|
||||||
((:keywords "hypermedia") |
|
||||||
(:url . "http://mwolson.org/projects/EmacsMuse.html"))]) |
|
||||||
(nameless . |
|
||||||
[(0 5 1) |
|
||||||
((emacs |
|
||||||
(24 4))) |
|
||||||
"Hide package namespace in your emacs-lisp code" single |
|
||||||
((:url . "https://github.com/Malabarba/nameless") |
|
||||||
(:keywords "convenience" "lisp"))]) |
|
||||||
(names . |
|
||||||
[(20150723 0) |
|
||||||
((emacs |
|
||||||
(24 1)) |
|
||||||
(cl-lib |
|
||||||
(0 5))) |
|
||||||
"Namespaces for emacs-lisp. Avoid name clobbering without hiding symbols." tar |
|
||||||
((:keywords "extensions" "lisp") |
|
||||||
(:url . "https://github.com/Bruce-Connor/names"))]) |
|
||||||
(nhexl-mode . |
|
||||||
[(0 1) |
|
||||||
nil "Minor mode to edit files via hex-dump format" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/nhexl-mode.html") |
|
||||||
(:keywords "data"))]) |
|
||||||
(nlinum . |
|
||||||
[(1 6) |
|
||||||
nil "Show line numbers in the margin" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/nlinum.html") |
|
||||||
(:keywords "convenience"))]) |
|
||||||
(notes-mode . |
|
||||||
[(1 30) |
|
||||||
nil "Indexing system for on-line note-taking" tar |
|
||||||
((:url . "http://elpa.gnu.org/packages/notes-mode.html"))]) |
|
||||||
(num3-mode . |
|
||||||
[(1 2) |
|
||||||
nil "highlight groups of digits in long numbers" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/num3-mode.html") |
|
||||||
(:keywords "faces" "minor-mode"))]) |
|
||||||
(oauth2 . |
|
||||||
[(0 10) |
|
||||||
nil "OAuth 2.0 Authorization Protocol" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/oauth2.html") |
|
||||||
(:keywords "comm"))]) |
|
||||||
(omn-mode . |
|
||||||
[(1 2) |
|
||||||
nil "Support for OWL Manchester Notation" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/omn-mode.html") |
|
||||||
(:keywords))]) |
|
||||||
(org . |
|
||||||
[(20151005) |
|
||||||
nil "Outline-based notes management and organizer" tar nil]) |
|
||||||
(osc . |
|
||||||
[(0 1) |
|
||||||
nil "Open Sound Control protocol library" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/osc.html") |
|
||||||
(:keywords "comm" "processes" "multimedia"))]) |
|
||||||
(other-frame-window . |
|
||||||
[(1 0 1) |
|
||||||
((emacs |
|
||||||
(24 4))) |
|
||||||
"Minor mode to enable global prefix keys for other frame/window buffer placement" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/other-frame-window.html") |
|
||||||
(:keywords "frame" "window"))]) |
|
||||||
(pabbrev . |
|
||||||
[(4 2 1) |
|
||||||
nil "Predictive abbreviation expansion" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/pabbrev.html") |
|
||||||
(:keywords))]) |
|
||||||
(pinentry . |
|
||||||
[(0 1) |
|
||||||
nil "GnuPG Pinentry server implementation" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/pinentry.html") |
|
||||||
(:keywords "gnupg"))]) |
|
||||||
(poker . |
|
||||||
[(0 1) |
|
||||||
nil "Texas hold'em poker" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/poker.html") |
|
||||||
(:keywords "games"))]) |
|
||||||
(quarter-plane . |
|
||||||
[(0 1) |
|
||||||
nil "Minor mode for quarter-plane style editing" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/quarter-plane.html") |
|
||||||
(:keywords "convenience" "wp"))]) |
|
||||||
(queue . |
|
||||||
[(0 1 1) |
|
||||||
nil "Queue data structure" single |
|
||||||
((:url . "http://www.dr-qubit.org/emacs.php") |
|
||||||
(:keywords "extensions" "data structures" "queue"))]) |
|
||||||
(rainbow-mode . |
|
||||||
[(0 12) |
|
||||||
nil "Colorize color names in buffers" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/rainbow-mode.html") |
|
||||||
(:keywords "faces"))]) |
|
||||||
(register-list . |
|
||||||
[(0 1) |
|
||||||
nil "Interactively list/edit registers" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/register-list.html") |
|
||||||
(:keywords "register"))]) |
|
||||||
(rich-minority . |
|
||||||
[(1 0) |
|
||||||
((cl-lib |
|
||||||
(0 5))) |
|
||||||
"Clean-up and Beautify the list of minor-modes." single |
|
||||||
((:url . "https://github.com/Malabarba/rich-minority") |
|
||||||
(:keywords "mode-line" "faces"))]) |
|
||||||
(rudel . |
|
||||||
[(0 3) |
|
||||||
nil "A collaborative editing framework for Emacs" tar |
|
||||||
((:keywords "rudel" "collaboration") |
|
||||||
(:url . "http://rudel.sourceforge.net/"))]) |
|
||||||
(scroll-restore . |
|
||||||
[(1 0) |
|
||||||
nil "restore original position after scrolling" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/scroll-restore.html") |
|
||||||
(:keywords "scrolling"))]) |
|
||||||
(seq . |
|
||||||
[(1 11) |
|
||||||
nil "Sequence manipulation functions" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/seq.html") |
|
||||||
(:keywords "sequences"))]) |
|
||||||
(shen-mode . |
|
||||||
[(0 1) |
|
||||||
nil "A major mode for editing shen source code" tar |
|
||||||
((:keywords "languages" "shen") |
|
||||||
(:url . "http://elpa.gnu.org/packages/shen-mode.html"))]) |
|
||||||
(sisu-mode . |
|
||||||
[(3 0 3) |
|
||||||
nil "Major mode for SiSU markup text" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/sisu-mode.html") |
|
||||||
(:keywords "text" "processes" "tools"))]) |
|
||||||
(sml-mode . |
|
||||||
[(6 7) |
|
||||||
nil "Major mode for editing (Standard) ML" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/sml-mode.html") |
|
||||||
(:keywords "sml"))]) |
|
||||||
(sokoban . |
|
||||||
[(1 4) |
|
||||||
nil "Implementation of Sokoban for Emacs." tar |
|
||||||
((:keywords "games") |
|
||||||
(:url . "http://elpa.gnu.org/packages/sokoban.html"))]) |
|
||||||
(sotlisp . |
|
||||||
[(1 4 1) |
|
||||||
((emacs |
|
||||||
(24 1))) |
|
||||||
"Write lisp at the speed of thought." single |
|
||||||
((:url . "https://github.com/Malabarba/speed-of-thought-lisp") |
|
||||||
(:keywords "convenience" "lisp"))]) |
|
||||||
(spinner . |
|
||||||
[(1 4) |
|
||||||
nil "Add spinners and progress-bars to the mode-line for ongoing operations" single |
|
||||||
((:url . "https://github.com/Malabarba/spinner.el") |
|
||||||
(:keywords "processes" "mode-line"))]) |
|
||||||
(stream . |
|
||||||
[(1 0) |
|
||||||
((emacs |
|
||||||
(25))) |
|
||||||
"Implementation of streams" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/stream.html") |
|
||||||
(:keywords "stream" "laziness" "sequences"))]) |
|
||||||
(svg . |
|
||||||
[(0 1) |
|
||||||
((emacs |
|
||||||
(25))) |
|
||||||
"svg image creation functions" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/svg.html") |
|
||||||
(:keywords "image"))]) |
|
||||||
(svg-clock . |
|
||||||
[(0 5) |
|
||||||
((svg |
|
||||||
(0 1)) |
|
||||||
(emacs |
|
||||||
(25 0))) |
|
||||||
"Analog clock using Scalable Vector Graphics" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/svg-clock.html") |
|
||||||
(:keywords "demo" "svg" "clock"))]) |
|
||||||
(swiper . |
|
||||||
[(0 5 1) |
|
||||||
((emacs |
|
||||||
(24 1))) |
|
||||||
"Isearch with an overview. Oh, man!" tar |
|
||||||
((:keywords "matching") |
|
||||||
(:url . "https://github.com/abo-abo/swiper"))]) |
|
||||||
(tNFA . |
|
||||||
[(0 1 1) |
|
||||||
((queue |
|
||||||
(0 1))) |
|
||||||
"Tagged non-deterministic finite-state automata" single |
|
||||||
((:url . "http://www.dr-qubit.org/emacs.php") |
|
||||||
(:keywords "extensions" "matching" "data structures tnfa" "nfa" "dfa" "finite state automata" "automata" "regexp"))]) |
|
||||||
(temp-buffer-browse . |
|
||||||
[(1 4) |
|
||||||
nil "temp buffer browse mode" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/temp-buffer-browse.html") |
|
||||||
(:keywords "convenience"))]) |
|
||||||
(test-simple . |
|
||||||
[(1 1) |
|
||||||
((cl-lib |
|
||||||
(0))) |
|
||||||
"Simple Unit Test Framework for Emacs Lisp" single |
|
||||||
((:url . "http://github.com/rocky/emacs-test-simple") |
|
||||||
(:keywords "unit-test"))]) |
|
||||||
(timerfunctions . |
|
||||||
[(1 4 2) |
|
||||||
((cl-lib |
|
||||||
(0 5))) |
|
||||||
"Enhanced versions of some timer.el functions" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/timerfunctions.html") |
|
||||||
(:keywords))]) |
|
||||||
(tiny . |
|
||||||
[(0 1) |
|
||||||
nil "Quickly generate linear ranges in Emacs" tar |
|
||||||
((:keywords "convenience") |
|
||||||
(:url . "https://github.com/abo-abo/tiny"))]) |
|
||||||
(trie . |
|
||||||
[(0 2 6) |
|
||||||
((tNFA |
|
||||||
(0 1 1)) |
|
||||||
(heap |
|
||||||
(0 3))) |
|
||||||
"Trie data structure" single |
|
||||||
((:url . "http://www.dr-qubit.org/emacs.php") |
|
||||||
(:keywords "extensions" "matching" "data structures trie" "ternary search tree" "tree" "completion" "regexp"))]) |
|
||||||
(undo-tree . |
|
||||||
[(0 6 5) |
|
||||||
nil "Treat undo history as a tree" single |
|
||||||
((:url . "http://www.dr-qubit.org/emacs.php") |
|
||||||
(:keywords "convenience" "files" "undo" "redo" "history" "tree"))]) |
|
||||||
(uni-confusables . |
|
||||||
[(0 1) |
|
||||||
nil "Unicode confusables table" tar |
|
||||||
((:url . "http://elpa.gnu.org/packages/uni-confusables.html"))]) |
|
||||||
(vlf . |
|
||||||
[(1 7) |
|
||||||
nil "View Large Files" tar |
|
||||||
((:keywords "large files" "utilities") |
|
||||||
(:url . "https://github.com/m00natic/vlfi"))]) |
|
||||||
(w3 . |
|
||||||
[(4 0 49) |
|
||||||
nil "Fully customizable, largely undocumented web browser for Emacs" tar |
|
||||||
((:keywords "faces" "help" "comm" "news" "mail" "processes" "mouse" "hypermedia") |
|
||||||
(:url . "http://elpa.gnu.org/packages/w3.html"))]) |
|
||||||
(wcheck-mode . |
|
||||||
[(2014 6 21) |
|
||||||
nil "General interface for text checkers" single |
|
||||||
((:url . "https://github.com/tlikonen/wcheck-mode") |
|
||||||
(:keywords "text" "spell" "check" "languages" "ispell"))]) |
|
||||||
(wconf . |
|
||||||
[(0 2 0) |
|
||||||
((emacs |
|
||||||
(24 4))) |
|
||||||
"Minimal window layout manager" single |
|
||||||
((:url . "https://github.com/ilohmar/wconf") |
|
||||||
(:keywords "windows" "frames" "layout"))]) |
|
||||||
(web-server . |
|
||||||
[(0 1 1) |
|
||||||
((emacs |
|
||||||
(24 3))) |
|
||||||
"Emacs Web Server" tar |
|
||||||
((:keywords "http" "server" "network") |
|
||||||
(:url . "https://github.com/eschulte/emacs-web-server"))]) |
|
||||||
(websocket . |
|
||||||
[(1 5) |
|
||||||
nil "Emacs WebSocket client and server" tar |
|
||||||
((:keywords "communication" "websocket" "server") |
|
||||||
(:url . "http://elpa.gnu.org/packages/websocket.html"))]) |
|
||||||
(windresize . |
|
||||||
[(0 1) |
|
||||||
nil "Resize windows interactively" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/windresize.html") |
|
||||||
(:keywords "window"))]) |
|
||||||
(wisi . |
|
||||||
[(1 1 1) |
|
||||||
((cl-lib |
|
||||||
(0 4)) |
|
||||||
(emacs |
|
||||||
(24 2))) |
|
||||||
"Utilities for implementing an indentation/navigation engine using a generalized LALR parser" tar |
|
||||||
((:keywords "parser" "indentation" "navigation") |
|
||||||
(:url . "http://stephe-leake.org/emacs/ada-mode/emacs-ada-mode.html"))]) |
|
||||||
(wpuzzle . |
|
||||||
[(1 1) |
|
||||||
nil "find as many word in a given time" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/wpuzzle.html") |
|
||||||
(:keywords))]) |
|
||||||
(xclip . |
|
||||||
[(1 3) |
|
||||||
nil "use xclip to copy&paste" single |
|
||||||
((:url . "http://elpa.gnu.org/packages/xclip.html") |
|
||||||
(:keywords "convenience" "tools"))]) |
|
||||||
(xelb . |
|
||||||
[(0 2) |
|
||||||
((emacs |
|
||||||
(24 4)) |
|
||||||
(cl-generic |
|
||||||
(0 2))) |
|
||||||
"X protocol Emacs Lisp Binding" tar |
|
||||||
((:keywords "unix") |
|
||||||
(:url . "https://github.com/ch11ng/xelb"))]) |
|
||||||
(xpm . |
|
||||||
[(1 0 3) |
|
||||||
nil "edit XPM images" tar |
|
||||||
((:keywords "multimedia" "xpm") |
|
||||||
(:url . "http://www.gnuvola.org/software/xpm/"))]) |
|
||||||
(yasnippet . |
|
||||||
[(0 8 0) |
|
||||||
nil "Yet another snippet extension for Emacs." tar |
|
||||||
((:keywords "convenience" "emulation") |
|
||||||
(:url . "http://github.com/capitaomorte/yasnippet"))]) |
|
||||||
(ztree . |
|
||||||
[(1 0 2) |
|
||||||
nil "Text mode directory tree" tar |
|
||||||
((:keywords "files" "tools") |
|
||||||
(:url . "https://github.com/fourier/ztree"))])) |
|
||||||
@ -1 +0,0 @@ |
|||||||
Good signature from 474F05837FBDEF9B GNU ELPA Signing Agent <elpasign@elpa.gnu.org> (trust undefined) created at 2015-10-24T02:05:02-0700 using DSA |
|
||||||
File diff suppressed because one or more lines are too long
@ -1 +0,0 @@ |
|||||||
(define-package "clojure-mode" "20151022.27" "Major mode for Clojure code" '((emacs "24.3")) :url "http://github.com/clojure-emacs/clojure-mode" :keywords '("languages" "clojure" "clojurescript" "lisp")) |
|
||||||
File diff suppressed because it is too large
Load Diff
@ -1 +0,0 @@ |
|||||||
(define-package "coffee-mode" "20151019.2009" "Major mode to edit CoffeeScript files in Emacs" '((emacs "24.1") (cl-lib "0.5")) :url "http://github.com/defunkt/coffee-mode" :keywords '("coffeescript" "major" "mode")) |
|
||||||
File diff suppressed because it is too large
Load Diff
@ -1 +0,0 @@ |
|||||||
(define-package "dash" "20151021.113" "A modern list library for Emacs" 'nil :keywords '("lists")) |
|
||||||
File diff suppressed because it is too large
Load Diff
@ -1 +0,0 @@ |
|||||||
(define-package "epl" "20150517.433" "Emacs Package Library" '((cl-lib "0.3")) :url "http://github.com/cask/epl" :keywords '("convenience")) |
|
||||||
@ -1,11 +0,0 @@ |
|||||||
(define-package "flycheck" "20151022.1349" "On-the-fly syntax checking" |
|
||||||
'((dash "2.4.0") |
|
||||||
(pkg-info "0.4") |
|
||||||
(let-alist "1.0.1") |
|
||||||
(cl-lib "0.3") |
|
||||||
(emacs "24.3")) |
|
||||||
:url "https://www.flycheck.org" :keywords |
|
||||||
'("convenience" "languages" "tools")) |
|
||||||
;; Local Variables: |
|
||||||
;; no-byte-compile: t |
|
||||||
;; End: |
|
||||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Binary file not shown.
@ -1 +0,0 @@ |
|||||||
Good signature from 474F05837FBDEF9B GNU ELPA Signing Agent <elpasign@elpa.gnu.org> (trust undefined) created at 2015-06-12T02:05:02-0700 using DSA |
|
||||||
@ -1 +0,0 @@ |
|||||||
(define-package "let-alist" "1.0.4" "Easily let-bind values of an assoc-list by their names" 'nil :url "http://elpa.gnu.org/packages/let-alist.html" :keywords '("extensions" "lisp")) |
|
||||||
@ -1 +0,0 @@ |
|||||||
(define-package "pkg-info" "20150517.443" "Information about packages" '((epl "0.8")) :url "https://github.com/lunaryorn/pkg-info.el" :keywords '("convenience")) |
|
||||||
@ -1 +0,0 @@ |
|||||||
(define-package "s" "20150924.406" "The long lost Emacs string manipulation library." 'nil :keywords '("strings")) |
|
||||||
@ -1,605 +0,0 @@ |
|||||||
;;; s.el --- The long lost Emacs string manipulation library. |
|
||||||
|
|
||||||
;; Copyright (C) 2012-2015 Magnar Sveen |
|
||||||
|
|
||||||
;; Author: Magnar Sveen <magnars@gmail.com> |
|
||||||
;; Version: 1.10.0 |
|
||||||
;; Package-Version: 20150924.406 |
|
||||||
;; Keywords: strings |
|
||||||
|
|
||||||
;; 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: |
|
||||||
|
|
||||||
;; The long lost Emacs string manipulation library. |
|
||||||
;; |
|
||||||
;; See documentation on https://github.com/magnars/s.el#functions |
|
||||||
|
|
||||||
;;; Code: |
|
||||||
|
|
||||||
(require 'ucs-normalize) |
|
||||||
|
|
||||||
(defun s-trim-left (s) |
|
||||||
"Remove whitespace at the beginning of S." |
|
||||||
(if (string-match "\\`[ \t\n\r]+" s) |
|
||||||
(replace-match "" t t s) |
|
||||||
s)) |
|
||||||
|
|
||||||
(defun s-trim-right (s) |
|
||||||
"Remove whitespace at the end of S." |
|
||||||
(if (string-match "[ \t\n\r]+\\'" s) |
|
||||||
(replace-match "" t t s) |
|
||||||
s)) |
|
||||||
|
|
||||||
(defun s-trim (s) |
|
||||||
"Remove whitespace at the beginning and end of S." |
|
||||||
(s-trim-left (s-trim-right s))) |
|
||||||
|
|
||||||
(defun s-collapse-whitespace (s) |
|
||||||
"Convert all adjacent whitespace characters to a single space." |
|
||||||
(replace-regexp-in-string "[ \t\n\r]+" " " s)) |
|
||||||
|
|
||||||
(defun s-split (separator s &optional omit-nulls) |
|
||||||
"Split S into substrings bounded by matches for regexp SEPARATOR. |
|
||||||
If OMIT-NULLS is non-nil, zero-length substrings are omitted. |
|
||||||
|
|
||||||
This is a simple wrapper around the built-in `split-string'." |
|
||||||
(split-string s separator omit-nulls)) |
|
||||||
|
|
||||||
(defun s-split-up-to (separator s n &optional omit-nulls) |
|
||||||
"Split S up to N times into substrings bounded by matches for regexp SEPARATOR. |
|
||||||
|
|
||||||
If OMIT-NULLS is non-nil, zero-length substrings are omitted. |
|
||||||
|
|
||||||
See also `s-split'." |
|
||||||
(save-match-data |
|
||||||
(let ((op 0) |
|
||||||
(r nil)) |
|
||||||
(with-temp-buffer |
|
||||||
(insert s) |
|
||||||
(setq op (goto-char (point-min))) |
|
||||||
(while (and (re-search-forward separator nil t) |
|
||||||
(< 0 n)) |
|
||||||
(let ((sub (buffer-substring-no-properties op (match-beginning 0)))) |
|
||||||
(unless (and omit-nulls |
|
||||||
(equal sub "")) |
|
||||||
(push sub r))) |
|
||||||
(setq op (goto-char (match-end 0))) |
|
||||||
(setq n (1- n))) |
|
||||||
(let ((sub (buffer-substring-no-properties op (point-max)))) |
|
||||||
(unless (and omit-nulls |
|
||||||
(equal sub "")) |
|
||||||
(push sub r)))) |
|
||||||
(nreverse r)))) |
|
||||||
|
|
||||||
(defun s-lines (s) |
|
||||||
"Splits S into a list of strings on newline characters." |
|
||||||
(s-split "\\(\r\n\\|[\n\r]\\)" s)) |
|
||||||
|
|
||||||
(defun s-join (separator strings) |
|
||||||
"Join all the strings in STRINGS with SEPARATOR in between." |
|
||||||
(mapconcat 'identity strings separator)) |
|
||||||
|
|
||||||
(defun s-concat (&rest strings) |
|
||||||
"Join all the string arguments into one string." |
|
||||||
(apply 'concat strings)) |
|
||||||
|
|
||||||
(defun s-prepend (prefix s) |
|
||||||
"Concatenate PREFIX and S." |
|
||||||
(concat prefix s)) |
|
||||||
|
|
||||||
(defun s-append (suffix s) |
|
||||||
"Concatenate S and SUFFIX." |
|
||||||
(concat s suffix)) |
|
||||||
|
|
||||||
(defun s-repeat (num s) |
|
||||||
"Make a string of S repeated NUM times." |
|
||||||
(let (ss) |
|
||||||
(while (> num 0) |
|
||||||
(setq ss (cons s ss)) |
|
||||||
(setq num (1- num))) |
|
||||||
(apply 'concat ss))) |
|
||||||
|
|
||||||
(defun s-chop-suffix (suffix s) |
|
||||||
"Remove SUFFIX if it is at end of S." |
|
||||||
(let ((pos (- (length suffix)))) |
|
||||||
(if (and (>= (length s) (length suffix)) |
|
||||||
(string= suffix (substring s pos))) |
|
||||||
(substring s 0 pos) |
|
||||||
s))) |
|
||||||
|
|
||||||
(defun s-chop-suffixes (suffixes s) |
|
||||||
"Remove SUFFIXES one by one in order, if they are at the end of S." |
|
||||||
(while suffixes |
|
||||||
(setq s (s-chop-suffix (car suffixes) s)) |
|
||||||
(setq suffixes (cdr suffixes))) |
|
||||||
s) |
|
||||||
|
|
||||||
(defun s-chop-prefix (prefix s) |
|
||||||
"Remove PREFIX if it is at the start of S." |
|
||||||
(let ((pos (length prefix))) |
|
||||||
(if (and (>= (length s) (length prefix)) |
|
||||||
(string= prefix (substring s 0 pos))) |
|
||||||
(substring s pos) |
|
||||||
s))) |
|
||||||
|
|
||||||
(defun s-chop-prefixes (prefixes s) |
|
||||||
"Remove PREFIXES one by one in order, if they are at the start of S." |
|
||||||
(while prefixes |
|
||||||
(setq s (s-chop-prefix (car prefixes) s)) |
|
||||||
(setq prefixes (cdr prefixes))) |
|
||||||
s) |
|
||||||
|
|
||||||
(defun s-shared-start (s1 s2) |
|
||||||
"Returns the longest prefix S1 and S2 have in common." |
|
||||||
(let ((search-length (min (length s1) (length s2))) |
|
||||||
(i 0)) |
|
||||||
(while (and (< i search-length) |
|
||||||
(= (aref s1 i) (aref s2 i))) |
|
||||||
(setq i (1+ i))) |
|
||||||
(substring s1 0 i))) |
|
||||||
|
|
||||||
(defun s-shared-end (s1 s2) |
|
||||||
"Returns the longest suffix S1 and S2 have in common." |
|
||||||
(let* ((l1 (length s1)) |
|
||||||
(l2 (length s2)) |
|
||||||
(search-length (min l1 l2)) |
|
||||||
(i 0)) |
|
||||||
(while (and (< i search-length) |
|
||||||
(= (aref s1 (- l1 i 1)) (aref s2 (- l2 i 1)))) |
|
||||||
(setq i (1+ i))) |
|
||||||
;; If I is 0, then it means that there's no common suffix between |
|
||||||
;; S1 and S2. |
|
||||||
;; |
|
||||||
;; However, since (substring s (- 0)) will return the whole |
|
||||||
;; string, `s-shared-end' should simply return the empty string |
|
||||||
;; when I is 0. |
|
||||||
(if (zerop i) |
|
||||||
"" |
|
||||||
(substring s1 (- i))))) |
|
||||||
|
|
||||||
(defun s-chomp (s) |
|
||||||
"Remove one trailing `\\n`, `\\r` or `\\r\\n` from S." |
|
||||||
(s-chop-suffixes '("\n" "\r") s)) |
|
||||||
|
|
||||||
(defun s-truncate (len s) |
|
||||||
"If S is longer than LEN, cut it down to LEN - 3 and add ... at the end." |
|
||||||
(if (> (length s) len) |
|
||||||
(format "%s..." (substring s 0 (- len 3))) |
|
||||||
s)) |
|
||||||
|
|
||||||
(defun s-word-wrap (len s) |
|
||||||
"If S is longer than LEN, wrap the words with newlines." |
|
||||||
(with-temp-buffer |
|
||||||
(insert s) |
|
||||||
(let ((fill-column len)) |
|
||||||
(fill-region (point-min) (point-max))) |
|
||||||
(buffer-substring-no-properties (point-min) (point-max)))) |
|
||||||
|
|
||||||
(defun s-center (len s) |
|
||||||
"If S is shorter than LEN, pad it with spaces so it is centered." |
|
||||||
(let ((extra (max 0 (- len (length s))))) |
|
||||||
(concat |
|
||||||
(make-string (ceiling extra 2) ? ) |
|
||||||
s |
|
||||||
(make-string (floor extra 2) ? )))) |
|
||||||
|
|
||||||
(defun s-pad-left (len padding s) |
|
||||||
"If S is shorter than LEN, pad it with PADDING on the left." |
|
||||||
(let ((extra (max 0 (- len (length s))))) |
|
||||||
(concat (make-string extra (string-to-char padding)) |
|
||||||
s))) |
|
||||||
|
|
||||||
(defun s-pad-right (len padding s) |
|
||||||
"If S is shorter than LEN, pad it with PADDING on the right." |
|
||||||
(let ((extra (max 0 (- len (length s))))) |
|
||||||
(concat s |
|
||||||
(make-string extra (string-to-char padding))))) |
|
||||||
|
|
||||||
(defun s-left (len s) |
|
||||||
"Returns up to the LEN first chars of S." |
|
||||||
(if (> (length s) len) |
|
||||||
(substring s 0 len) |
|
||||||
s)) |
|
||||||
|
|
||||||
(defun s-right (len s) |
|
||||||
"Returns up to the LEN last chars of S." |
|
||||||
(let ((l (length s))) |
|
||||||
(if (> l len) |
|
||||||
(substring s (- l len) l) |
|
||||||
s))) |
|
||||||
|
|
||||||
(defun s-ends-with? (suffix s &optional ignore-case) |
|
||||||
"Does S end with SUFFIX? |
|
||||||
|
|
||||||
If IGNORE-CASE is non-nil, the comparison is done without paying |
|
||||||
attention to case differences. |
|
||||||
|
|
||||||
Alias: `s-suffix?'" |
|
||||||
(let ((start-pos (- (length s) (length suffix)))) |
|
||||||
(and (>= start-pos 0) |
|
||||||
(eq t (compare-strings suffix nil nil |
|
||||||
s start-pos nil ignore-case))))) |
|
||||||
|
|
||||||
(defalias 's-ends-with-p 's-ends-with?) |
|
||||||
|
|
||||||
(defun s-starts-with? (prefix s &optional ignore-case) |
|
||||||
"Does S start with PREFIX? |
|
||||||
|
|
||||||
If IGNORE-CASE is non-nil, the comparison is done without paying |
|
||||||
attention to case differences. |
|
||||||
|
|
||||||
Alias: `s-prefix?'. This is a simple wrapper around the built-in |
|
||||||
`string-prefix-p'." |
|
||||||
(string-prefix-p prefix s ignore-case)) |
|
||||||
|
|
||||||
(defalias 's-starts-with-p 's-starts-with?) |
|
||||||
|
|
||||||
(defalias 's-suffix? 's-ends-with?) |
|
||||||
(defalias 's-prefix? 's-starts-with?) |
|
||||||
(defalias 's-suffix-p 's-ends-with?) |
|
||||||
(defalias 's-prefix-p 's-starts-with?) |
|
||||||
|
|
||||||
(defun s--truthy? (val) |
|
||||||
(not (null val))) |
|
||||||
|
|
||||||
(defun s-contains? (needle s &optional ignore-case) |
|
||||||
"Does S contain NEEDLE? |
|
||||||
|
|
||||||
If IGNORE-CASE is non-nil, the comparison is done without paying |
|
||||||
attention to case differences." |
|
||||||
(let ((case-fold-search ignore-case)) |
|
||||||
(s--truthy? (string-match-p (regexp-quote needle) s)))) |
|
||||||
|
|
||||||
(defalias 's-contains-p 's-contains?) |
|
||||||
|
|
||||||
(defun s-equals? (s1 s2) |
|
||||||
"Is S1 equal to S2? |
|
||||||
|
|
||||||
This is a simple wrapper around the built-in `string-equal'." |
|
||||||
(string-equal s1 s2)) |
|
||||||
|
|
||||||
(defalias 's-equals-p 's-equals?) |
|
||||||
|
|
||||||
(defun s-less? (s1 s2) |
|
||||||
"Is S1 less than S2? |
|
||||||
|
|
||||||
This is a simple wrapper around the built-in `string-lessp'." |
|
||||||
(string-lessp s1 s2)) |
|
||||||
|
|
||||||
(defalias 's-less-p 's-less?) |
|
||||||
|
|
||||||
(defun s-matches? (regexp s &optional start) |
|
||||||
"Does REGEXP match S? |
|
||||||
If START is non-nil the search starts at that index. |
|
||||||
|
|
||||||
This is a simple wrapper around the built-in `string-match-p'." |
|
||||||
(s--truthy? (string-match-p regexp s start))) |
|
||||||
|
|
||||||
(defalias 's-matches-p 's-matches?) |
|
||||||
|
|
||||||
(defun s-blank? (s) |
|
||||||
"Is S nil or the empty string?" |
|
||||||
(or (null s) (string= "" s))) |
|
||||||
|
|
||||||
(defun s-present? (s) |
|
||||||
"Is S anything but nil or the empty string?" |
|
||||||
(not (s-blank? s))) |
|
||||||
|
|
||||||
(defun s-presence (s) |
|
||||||
"Return S if it's `s-present?', otherwise return nil." |
|
||||||
(and (s-present? s) s)) |
|
||||||
|
|
||||||
(defun s-lowercase? (s) |
|
||||||
"Are all the letters in S in lower case?" |
|
||||||
(let ((case-fold-search nil)) |
|
||||||
(not (string-match-p "[[:upper:]]" s)))) |
|
||||||
|
|
||||||
(defun s-uppercase? (s) |
|
||||||
"Are all the letters in S in upper case?" |
|
||||||
(let ((case-fold-search nil)) |
|
||||||
(not (string-match-p "[[:lower:]]" s)))) |
|
||||||
|
|
||||||
(defun s-mixedcase? (s) |
|
||||||
"Are there both lower case and upper case letters in S?" |
|
||||||
(let ((case-fold-search nil)) |
|
||||||
(s--truthy? |
|
||||||
(and (string-match-p "[[:lower:]]" s) |
|
||||||
(string-match-p "[[:upper:]]" s))))) |
|
||||||
|
|
||||||
(defun s-capitalized? (s) |
|
||||||
"In S, is the first letter upper case, and all other letters lower case?" |
|
||||||
(let ((case-fold-search nil)) |
|
||||||
(s--truthy? |
|
||||||
(string-match-p "^[[:upper:]][^[:upper:]]*$" s)))) |
|
||||||
|
|
||||||
(defun s-numeric? (s) |
|
||||||
"Is S a number?" |
|
||||||
(s--truthy? |
|
||||||
(string-match-p "^[0-9]+$" s))) |
|
||||||
|
|
||||||
(defun s-replace (old new s) |
|
||||||
"Replaces OLD with NEW in S." |
|
||||||
(replace-regexp-in-string (regexp-quote old) new s t t)) |
|
||||||
|
|
||||||
(defun s--aget (alist key) |
|
||||||
(cdr (assoc key alist))) |
|
||||||
|
|
||||||
(defun s-replace-all (replacements s) |
|
||||||
"REPLACEMENTS is a list of cons-cells. Each `car` is replaced with `cdr` in S." |
|
||||||
(replace-regexp-in-string (regexp-opt (mapcar 'car replacements)) |
|
||||||
(lambda (it) (s--aget replacements it)) |
|
||||||
s)) |
|
||||||
|
|
||||||
(defun s-downcase (s) |
|
||||||
"Convert S to lower case. |
|
||||||
|
|
||||||
This is a simple wrapper around the built-in `downcase'." |
|
||||||
(downcase s)) |
|
||||||
|
|
||||||
(defun s-upcase (s) |
|
||||||
"Convert S to upper case. |
|
||||||
|
|
||||||
This is a simple wrapper around the built-in `upcase'." |
|
||||||
(upcase s)) |
|
||||||
|
|
||||||
(defun s-capitalize (s) |
|
||||||
"Convert the first word's first character to upper case and the rest to lower case in S." |
|
||||||
(concat (upcase (substring s 0 1)) (downcase (substring s 1)))) |
|
||||||
|
|
||||||
(defun s-titleize (s) |
|
||||||
"Convert each word's first character to upper case and the rest to lower case in S. |
|
||||||
|
|
||||||
This is a simple wrapper around the built-in `capitalize'." |
|
||||||
(capitalize s)) |
|
||||||
|
|
||||||
(defmacro s-with (s form &rest more) |
|
||||||
"Threads S through the forms. Inserts S as the last item |
|
||||||
in the first form, making a list of it if it is not a list |
|
||||||
already. If there are more forms, inserts the first form as the |
|
||||||
last item in second form, etc." |
|
||||||
(declare (debug (form &rest [&or (function &rest form) fboundp]))) |
|
||||||
(if (null more) |
|
||||||
(if (listp form) |
|
||||||
`(,(car form) ,@(cdr form) ,s) |
|
||||||
(list form s)) |
|
||||||
`(s-with (s-with ,s ,form) ,@more))) |
|
||||||
|
|
||||||
(put 's-with 'lisp-indent-function 1) |
|
||||||
|
|
||||||
(defun s-index-of (needle s &optional ignore-case) |
|
||||||
"Returns first index of NEEDLE in S, or nil. |
|
||||||
|
|
||||||
If IGNORE-CASE is non-nil, the comparison is done without paying |
|
||||||
attention to case differences." |
|
||||||
(let ((case-fold-search ignore-case)) |
|
||||||
(string-match-p (regexp-quote needle) s))) |
|
||||||
|
|
||||||
(defun s-reverse (s) |
|
||||||
"Return the reverse of S." |
|
||||||
(if (multibyte-string-p s) |
|
||||||
(let ((input (string-to-list s)) |
|
||||||
(output ())) |
|
||||||
(while input |
|
||||||
;; Handle entire grapheme cluster as a single unit |
|
||||||
(let ((grapheme (list (pop input)))) |
|
||||||
(while (memql (car input) ucs-normalize-combining-chars) |
|
||||||
(push (pop input) grapheme)) |
|
||||||
(setq output (nconc (nreverse grapheme) output)))) |
|
||||||
(concat output)) |
|
||||||
(concat (nreverse (string-to-list s))))) |
|
||||||
|
|
||||||
(defun s-match-strings-all (regex string) |
|
||||||
"Return a list of matches for REGEX in STRING. |
|
||||||
|
|
||||||
Each element itself is a list of matches, as per |
|
||||||
`match-string'. Multiple matches at the same position will be |
|
||||||
ignored after the first." |
|
||||||
(let ((all-strings ()) |
|
||||||
(i 0)) |
|
||||||
(while (and (< i (length string)) |
|
||||||
(string-match regex string i)) |
|
||||||
(setq i (1+ (match-beginning 0))) |
|
||||||
(let (strings |
|
||||||
(num-matches (/ (length (match-data)) 2)) |
|
||||||
(match 0)) |
|
||||||
(while (/= match num-matches) |
|
||||||
(push (match-string match string) strings) |
|
||||||
(setq match (1+ match))) |
|
||||||
(push (nreverse strings) all-strings))) |
|
||||||
(nreverse all-strings))) |
|
||||||
|
|
||||||
(defun s-match (regexp s &optional start) |
|
||||||
"When the given expression matches the string, this function returns a list |
|
||||||
of the whole matching string and a string for each matched subexpressions. |
|
||||||
If it did not match the returned value is an empty list (nil). |
|
||||||
|
|
||||||
When START is non-nil the search will start at that index." |
|
||||||
(save-match-data |
|
||||||
(if (string-match regexp s start) |
|
||||||
(let ((match-data-list (match-data)) |
|
||||||
result) |
|
||||||
(while match-data-list |
|
||||||
(let* ((beg (car match-data-list)) |
|
||||||
(end (cadr match-data-list)) |
|
||||||
(subs (if (and beg end) (substring s beg end) nil))) |
|
||||||
(setq result (cons subs result)) |
|
||||||
(setq match-data-list |
|
||||||
(cddr match-data-list)))) |
|
||||||
(nreverse result))))) |
|
||||||
|
|
||||||
(defun s-slice-at (regexp s) |
|
||||||
"Slices S up at every index matching REGEXP." |
|
||||||
(save-match-data |
|
||||||
(let (i) |
|
||||||
(setq i (string-match regexp s 1)) |
|
||||||
(if i |
|
||||||
(cons (substring s 0 i) |
|
||||||
(s-slice-at regexp (substring s i))) |
|
||||||
(list s))))) |
|
||||||
|
|
||||||
(defun s-split-words (s) |
|
||||||
"Split S into list of words." |
|
||||||
(s-split |
|
||||||
"[^[:word:]0-9]+" |
|
||||||
(let ((case-fold-search nil)) |
|
||||||
(replace-regexp-in-string |
|
||||||
"\\([[:lower:]]\\)\\([[:upper:]]\\)" "\\1 \\2" |
|
||||||
(replace-regexp-in-string "\\([[:upper:]]\\)\\([[:upper:]][0-9[:lower:]]\\)" "\\1 \\2" s))) |
|
||||||
t)) |
|
||||||
|
|
||||||
(defun s--mapcar-head (fn-head fn-rest list) |
|
||||||
"Like MAPCAR, but applies a different function to the first element." |
|
||||||
(if list |
|
||||||
(cons (funcall fn-head (car list)) (mapcar fn-rest (cdr list))))) |
|
||||||
|
|
||||||
(defun s-lower-camel-case (s) |
|
||||||
"Convert S to lowerCamelCase." |
|
||||||
(s-join "" (s--mapcar-head 'downcase 'capitalize (s-split-words s)))) |
|
||||||
|
|
||||||
(defun s-upper-camel-case (s) |
|
||||||
"Convert S to UpperCamelCase." |
|
||||||
(s-join "" (mapcar 'capitalize (s-split-words s)))) |
|
||||||
|
|
||||||
(defun s-snake-case (s) |
|
||||||
"Convert S to snake_case." |
|
||||||
(s-join "_" (mapcar 'downcase (s-split-words s)))) |
|
||||||
|
|
||||||
(defun s-dashed-words (s) |
|
||||||
"Convert S to dashed-words." |
|
||||||
(s-join "-" (mapcar 'downcase (s-split-words s)))) |
|
||||||
|
|
||||||
(defun s-capitalized-words (s) |
|
||||||
"Convert S to Capitalized words." |
|
||||||
(let ((words (s-split-words s))) |
|
||||||
(s-join " " (cons (capitalize (car words)) (mapcar 'downcase (cdr words)))))) |
|
||||||
|
|
||||||
(defun s-titleized-words (s) |
|
||||||
"Convert S to Titleized Words." |
|
||||||
(s-join " " (mapcar 's-titleize (s-split-words s)))) |
|
||||||
|
|
||||||
(defun s-word-initials (s) |
|
||||||
"Convert S to its initials." |
|
||||||
(s-join "" (mapcar (lambda (ss) (substring ss 0 1)) |
|
||||||
(s-split-words s)))) |
|
||||||
|
|
||||||
;; Errors for s-format |
|
||||||
(progn |
|
||||||
(put 's-format-resolve |
|
||||||
'error-conditions |
|
||||||
'(error s-format s-format-resolve)) |
|
||||||
(put 's-format-resolve |
|
||||||
'error-message |
|
||||||
"Cannot resolve a template to values")) |
|
||||||
|
|
||||||
(defun s-format (template replacer &optional extra) |
|
||||||
"Format TEMPLATE with the function REPLACER. |
|
||||||
|
|
||||||
REPLACER takes an argument of the format variable and optionally |
|
||||||
an extra argument which is the EXTRA value from the call to |
|
||||||
`s-format'. |
|
||||||
|
|
||||||
Several standard `s-format' helper functions are recognized and |
|
||||||
adapted for this: |
|
||||||
|
|
||||||
(s-format \"${name}\" 'gethash hash-table) |
|
||||||
(s-format \"${name}\" 'aget alist) |
|
||||||
(s-format \"$0\" 'elt sequence) |
|
||||||
|
|
||||||
The REPLACER function may be used to do any other kind of |
|
||||||
transformation." |
|
||||||
(let ((saved-match-data (match-data))) |
|
||||||
(unwind-protect |
|
||||||
(replace-regexp-in-string |
|
||||||
"\\$\\({\\([^}]+\\)}\\|[0-9]+\\)" |
|
||||||
(lambda (md) |
|
||||||
(let ((var |
|
||||||
(let ((m (match-string 2 md))) |
|
||||||
(if m m |
|
||||||
(string-to-number (match-string 1 md))))) |
|
||||||
(replacer-match-data (match-data))) |
|
||||||
(unwind-protect |
|
||||||
(let ((v |
|
||||||
(cond |
|
||||||
((eq replacer 'gethash) |
|
||||||
(funcall replacer var extra)) |
|
||||||
((eq replacer 'aget) |
|
||||||
(funcall 's--aget extra var)) |
|
||||||
((eq replacer 'elt) |
|
||||||
(funcall replacer extra var)) |
|
||||||
(t |
|
||||||
(set-match-data saved-match-data) |
|
||||||
(if extra |
|
||||||
(funcall replacer var extra) |
|
||||||
(funcall replacer var)))))) |
|
||||||
(if v v (signal 's-format-resolve md))) |
|
||||||
(set-match-data replacer-match-data)))) template |
|
||||||
;; Need literal to make sure it works |
|
||||||
t t) |
|
||||||
(set-match-data saved-match-data)))) |
|
||||||
|
|
||||||
(defvar s-lex-value-as-lisp nil |
|
||||||
"If `t' interpolate lisp values as lisp. |
|
||||||
|
|
||||||
`s-lex-format' inserts values with (format \"%S\").") |
|
||||||
|
|
||||||
(defun s-lex-fmt|expand (fmt) |
|
||||||
"Expand FMT into lisp." |
|
||||||
(list 's-format fmt (quote 'aget) |
|
||||||
(append '(list) |
|
||||||
(mapcar |
|
||||||
(lambda (matches) |
|
||||||
(list |
|
||||||
'cons |
|
||||||
(cadr matches) |
|
||||||
`(format |
|
||||||
(if s-lex-value-as-lisp "%S" "%s") |
|
||||||
,(intern (cadr matches))))) |
|
||||||
(s-match-strings-all "${\\([^}]+\\)}" fmt))))) |
|
||||||
|
|
||||||
(defmacro s-lex-format (format-str) |
|
||||||
"`s-format` with the current environment. |
|
||||||
|
|
||||||
FORMAT-STR may use the `s-format' variable reference to refer to |
|
||||||
any variable: |
|
||||||
|
|
||||||
(let ((x 1)) |
|
||||||
(s-lex-format \"x is: ${x}\")) |
|
||||||
|
|
||||||
The values of the variables are interpolated with \"%s\" unless |
|
||||||
the variable `s-lex-value-as-lisp' is `t' and then they are |
|
||||||
interpolated with \"%S\"." |
|
||||||
(declare (debug (form))) |
|
||||||
(s-lex-fmt|expand format-str)) |
|
||||||
|
|
||||||
(defun s-count-matches (regexp s &optional start end) |
|
||||||
"Count occurrences of `regexp' in `s'. |
|
||||||
|
|
||||||
`start', inclusive, and `end', exclusive, delimit the part of `s' |
|
||||||
to match. " |
|
||||||
(with-temp-buffer |
|
||||||
(insert s) |
|
||||||
(goto-char (point-min)) |
|
||||||
(count-matches regexp (or start 1) (or end (point-max))))) |
|
||||||
|
|
||||||
(defun s-wrap (s prefix &optional suffix) |
|
||||||
"Wrap string S with PREFIX and optionally SUFFIX. |
|
||||||
|
|
||||||
Return string S with PREFIX prepended. If SUFFIX is present, it |
|
||||||
is appended, otherwise PREFIX is used as both prefix and |
|
||||||
suffix." |
|
||||||
(concat prefix s (or suffix prefix))) |
|
||||||
|
|
||||||
(provide 's) |
|
||||||
;;; s.el ends here |
|
||||||
Loading…
Reference in new issue