commit ef4409f2a22f9a1e6d1b96553224e2dd750c043c Author: Gergely Polonkai Date: Sun Oct 5 14:57:41 2014 +0200 Initial version diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..c9ba51a --- /dev/null +++ b/.gitignore @@ -0,0 +1,5 @@ +*~ +/session* +/tramp +*.elc +/elpa/archives/ \ No newline at end of file diff --git a/.gitmodules b/.gitmodules new file mode 100644 index 0000000..d5f79db --- /dev/null +++ b/.gitmodules @@ -0,0 +1,15 @@ +[submodule "nyan-mode"] + path = nyan-mode + url = git://github.com/TeMPOraL/nyan-mode.git +[submodule "helm"] + path = helm + url = git://github.com/emacs-helm/helm.git +[submodule "emacs-async"] + path = emacs-async + url = git://github.com/jwiegley/emacs-async.git +[submodule "gobgen"] + path = gobgen + url = git://github.com/gergelypolonkai/gobgen.el.git +[submodule "emacs-helm-gtags"] + path = emacs-helm-gtags + url = git://github.com/syohex/emacs-helm-gtags.git diff --git a/elpa/ag-0.42/ag-autoloads.el b/elpa/ag-0.42/ag-autoloads.el new file mode 100644 index 0000000..27f8e90 --- /dev/null +++ b/elpa/ag-0.42/ag-autoloads.el @@ -0,0 +1,129 @@ +;;; ag-autoloads.el --- automatically extracted autoloads +;; +;;; Code: + + +;;;### (autoloads (ag-kill-other-buffers ag-kill-buffers ag-project-dired-regexp +;;;;;; ag-project-dired ag-dired-regexp ag-dired ag-project-regexp +;;;;;; ag-project-files ag-project ag-regexp ag-files ag) "ag" "ag.el" +;;;;;; (21529 49183 36687 867000)) +;;; Generated autoloads from ag.el + +(autoload 'ag "ag" "\ +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. + +\(fn STRING DIRECTORY)" t nil) + +(autoload 'ag-files "ag" "\ +Search using ag in a given DIRECTORY and file type regex FILE-REGEX +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. + +\(fn STRING FILE-REGEX DIRECTORY)" t nil) + +(autoload 'ag-regexp "ag" "\ +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. + +\(fn STRING DIRECTORY)" t nil) + +(autoload 'ag-project "ag" "\ +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. + +\(fn STRING)" t nil) + +(autoload 'ag-project-files "ag" "\ +Search using ag in a given DIRECTORY and file type regex FILE-REGEX +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. + +\(fn STRING FILE-REGEX)" t nil) + +(autoload 'ag-project-regexp "ag" "\ +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. + +\(fn REGEXP)" t nil) + +(defalias 'ag-project-at-point 'ag-project) + +(defalias 'ag-regexp-project-at-point 'ag-project-regexp) + +(autoload 'ag-dired "ag" "\ +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'. + +\(fn DIR PATTERN)" t nil) + +(autoload 'ag-dired-regexp "ag" "\ +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'. + +\(fn DIR REGEXP)" t nil) + +(autoload 'ag-project-dired "ag" "\ +Recursively find files in current project matching PATTERN. + +See also `ag-dired'. + +\(fn PATTERN)" t nil) + +(autoload 'ag-project-dired-regexp "ag" "\ +Recursively find files in current project matching REGEXP. + +See also `ag-dired-regexp'. + +\(fn REGEXP)" t nil) + +(autoload 'ag-kill-buffers "ag" "\ +Kill all ag-mode buffers. + +\(fn)" t nil) + +(autoload 'ag-kill-other-buffers "ag" "\ +Kill all ag-mode buffers other than the current buffer. + +\(fn)" t nil) + +;;;*** + +;;;### (autoloads nil nil ("ag-pkg.el") (21529 49183 172114 552000)) + +;;;*** + +(provide 'ag-autoloads) +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; coding: utf-8 +;; End: +;;; ag-autoloads.el ends here diff --git a/elpa/ag-0.42/ag-pkg.el b/elpa/ag-0.42/ag-pkg.el new file mode 100644 index 0000000..2242b1d --- /dev/null +++ b/elpa/ag-0.42/ag-pkg.el @@ -0,0 +1 @@ +(define-package "ag" "0.42" "A front-end for ag ('the silver searcher'), the C ack replacement." (quote nil)) diff --git a/elpa/ag-0.42/ag.el b/elpa/ag-0.42/ag.el new file mode 100644 index 0000000..229b5ad --- /dev/null +++ b/elpa/ag-0.42/ag.el @@ -0,0 +1,484 @@ +;;; ag.el --- A front-end for ag ('the silver searcher'), the C ack replacement. + +;; Copyright (C) 2013-2014 Wilfred Hughes +;; +;; Author: Wilfred Hughes +;; Created: 11 January 2013 +;; Version: 0.42 + +;;; 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 'dired) ;; dired-sort-inhibit + +(defcustom ag-executable + "ag" + "Name of the ag executable to use." + :type 'string + :group 'ag) + +(defcustom ag-arguments + (list "--smart-case" "--nogroup" "--column" "--") + "Default arguments passed to ag." + :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) + +(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) + +(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-open-in-other-window'." + (if ag-reuse-window + ;; prevent changing the window + (flet ((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))) + +(define-compilation-mode ag-mode "Ag" + "Ag results compilation mode" + (let ((smbl 'compilation-ag-nogroup) + ;; 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. + (pttrn '("^\\([^:\n]+?\\):\\([1-9][0-9]*\\):\\([1-9][0-9]*\\):" 1 2 3))) + (set (make-local-variable 'compilation-error-regexp-alist) (list smbl)) + (set (make-local-variable 'compilation-error-regexp-alist-alist) (list (cons smbl pttrn)))) + (set (make-local-variable 'compilation-error-face) 'ag-hit-face) + (set (make-local-variable 'next-error-function) 'ag/next-error-function) + (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) + +(defun ag/buffer-name (search-string directory regexp) + (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/search (string directory + &key (regexp nil) (file-regex 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))) + (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 ".")) + " "))) + (when current-prefix-arg + (setq command-string (read-from-minibuffer "ag command: " command-string))) + (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" (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)) + +(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-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 "^") + (forward-line 1)) + (while (looking-at "^") + (insert " ") + (forward-line 1)) + (goto-char beg) + (beginning-of-line) + + ;; Remove occurrences of default-directory. + (while (search-forward 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))) + (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 (read-from-minibuffer "Search string: " (ag/dwim-at-point)) + (read-directory-name "Directory: "))) + (ag/search string directory)) + +;;;###autoload +(defun ag-files (string file-regex directory) + "Search using ag in a given DIRECTORY and file type regex FILE-REGEX +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 (read-from-minibuffer "Search string: " (ag/dwim-at-point)) + (read-from-minibuffer "In filenames matching PCRE: " (ag/buffer-extension-regex)) + (read-directory-name "Directory: "))) + (ag/search string directory :file-regex file-regex)) + +;;;###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 (read-from-minibuffer "Search string: " (ag/dwim-at-point)))) + (ag/search string (ag/project-root default-directory))) + +;;;###autoload +(defun ag-project-files (string file-regex) + "Search using ag in a given DIRECTORY and file type regex FILE-REGEX +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 (read-from-minibuffer "Search string: " (ag/dwim-at-point)) + (read-from-minibuffer "In filenames matching PCRE: " (ag/buffer-extension-regex)))) + (ag/search string (ag/project-root default-directory) :file-regex file-regex)) + +;;;###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 (read-from-minibuffer "Search regexp: " + (ag/escape-pcre (ag/dwim-at-point))))) + (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) ; TODO: mark as obsolete + +;;;###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 --nocolor -g '" regexp "' " dir " | grep -v '^$' | 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) + (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 ,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))))))) + +(provide 'ag) +;;; ag.el ends here diff --git a/elpa/company-0.8.2/.dir-locals.el b/elpa/company-0.8.2/.dir-locals.el new file mode 100644 index 0000000..79d9a12 --- /dev/null +++ b/elpa/company-0.8.2/.dir-locals.el @@ -0,0 +1,4 @@ +((nil . ((indent-tabs-mode . nil) + (fill-column . 80) + (sentence-end-double-space . t) + (emacs-lisp-docstring-fill-column . 75)))) diff --git a/elpa/company-0.8.2/.gitignore b/elpa/company-0.8.2/.gitignore new file mode 100644 index 0000000..2ecd291 --- /dev/null +++ b/elpa/company-0.8.2/.gitignore @@ -0,0 +1,2 @@ +*.elc +ert.el diff --git a/elpa/company-0.8.2/.travis.yml b/elpa/company-0.8.2/.travis.yml new file mode 100644 index 0000000..11d7fd4 --- /dev/null +++ b/elpa/company-0.8.2/.travis.yml @@ -0,0 +1,26 @@ +# https://github.com/rolandwalker/emacs-travis + +language: emacs-lisp + +env: + matrix: + - EMACS=emacs24 + - EMACS=emacs-snapshot + +install: + - if [ "$EMACS" = "emacs24" ]; then + sudo add-apt-repository -y ppa:cassou/emacs && + sudo apt-get update -qq && + sudo apt-get install -qq emacs24 emacs24-el; + fi + - if [ "$EMACS" = "emacs-snapshot" ]; then + sudo add-apt-repository -y ppa:ubuntu-elisp/ppa && + sudo apt-get update -qq && + sudo apt-get install -qq emacs-snapshot; + fi + +before_script: + make downloads + +script: + make test-batch EMACS=${EMACS} diff --git a/elpa/company-0.8.2/ChangeLog b/elpa/company-0.8.2/ChangeLog new file mode 100644 index 0000000..3d45fd3 --- /dev/null +++ b/elpa/company-0.8.2/ChangeLog @@ -0,0 +1,255 @@ +2014-07-26 Dmitry Gutov + + Merge commit 'b1d019a4c815ac8bdc240d69eaa74eb4e34640e8' from + company-master + +2014-07-01 Dmitry Gutov + + Merge commit '7c14dedc79bf0c6eaad5bf50b80ea80dd721afdc' from company + + Conflicts: + packages/company/company-pysmell.el + +2014-06-14 Stefan Monnier + + * company/company-capf.el: Don't ignore things like semantic-capf. + +2014-04-19 Dmitry Gutov + + Merge commit '51c140ca9ee32d27cacc7b2b07d4539bf98ae575' from + company-master + + Conflicts: + packages/company/company-pysmell.el + +2014-03-25 Dmitry Gutov + + Merge commit '4a7995ff69b25990dc520ed9e466dfbcdb7eafc8' from company + +2014-03-19 Dmitry Gutov + + Merge commit 'fec7c0b4a8651160c5d759cc6703b2c45852d5bb' + +2014-03-18 Dmitry Gutov + + Merge commit '7be4321260f0c73ef4c3cadc646f6bb496650253' from company + +2014-02-18 Dmitry Gutov + + Merge commit '119822078ee3024c2d27017d45ef4578fa36040f' from company + +2014-02-03 Dmitry Gutov + + Merge commit '67ab56a5469f16652e73667ec3b4f76ff6befee6' from company + +2014-01-25 Dmitry Gutov + + Merge commit '8dc8f9525714db66f659a2a51322345068764bd3' from company + + Conflicts: + packages/company/company-capf.el + +2014-01-24 Stefan Monnier + + * company-capf.el (company--capf-data): Don't get confused by lambda + exps. + +2014-01-20 Dmitry Gutov + + Merge commit '2badcc6227a88e1aba288f442af5f4e1ce55d366' from company + +2014-01-15 Dmitry Gutov + + Merge commit '8b4d7da0d6aa1e24379fe5ace5bd2705352ea07e' from company + +2014-01-14 Dmitry Gutov + + Merge commit '67a96dbbfe645b64291ed62eab6f1eb391a834e0' from company + + Conflicts: + packages/company/company-elisp.el + packages/company/company-oddmuse.el + +2014-01-13 Stefan Monnier + + * packages/company/company-etags.el: Require `cl' for `case'. + * packages/company/company-oddmuse.el: Avoid `eval-when' before + requiring `cl'. + * packages/company/company-elisp.el (company-elisp): Simplify. + +2013-10-06 Dmitry Gutov + + Sync from company/master + +2013-08-29 Stefan Monnier + + * packages/company/company-capf.el (company-capf): Add preliminary + support for doc-buffer, meta, location, and require-match. + +2013-08-21 Stefan Monnier + + * packages/company/company-cmake.el: Fix up copyright. Require CL. + * packages/company/company-template.el + (company-template--buffer-templates): Declare before first use. + * packages/company/company-eclim.el (json-array-type): Declare + json-array-type. + (company-eclim--candidates): Remove unused var `project-name'. + +2013-08-21 Stefan Monnier + + Sync from company/master + +2013-08-14 Stefan Monnier + + Mark merge point of company. + +2013-06-27 Stefan Monnier + + * GNUmakefile: Rename from Makefile. Add targets for in-place use. + (all, all-in-place): New targets. + * admin/archive-contents.el (archive--simple-package-p): Ignore + autosave files. + (archive--refresh-pkg-file): New function. + (archive--write-pkg-file): Print with ' and ` shorthands. + * packages/company/company-pysmell.el: Don't require pysmell during + compile. + * packages/muse/htmlize-hack.el: Don't require htmlize during compile. + * packages/shen-mode/shen-mode.el (shen-functions): Define during + compile. + * smart-operator/smart-operator.el (smart-operator-insert-1): Use + pcase. + +2013-05-26 Dmitry Gutov + + company: Release 0.6.10 + + * Plays nicer with `org-indent-mode`. + * Works in horizontally scrolled windows. + + Git commit 764d2aa4ba50081adf69408e62d4863905b68b7f + +2013-05-10 Dmitry Gutov + + company: Release 0.6.9 + + * `company-capf` respects `:exit-function` completion property. + * `company-backends`: `prefix` command can return `t` in the cdr. + * `company-clang-begin-after-member-access`: New option. + * Mouse click outside the tooltip aborts completion. + * `company-clang` uses standard input to pass the contents of current + buffer to + Clang 2.9+, otherwise saves the buffer and passes the path to the + file. + * `company-clang-auto-save` option has been removed. + * Better interaction with `outline-minor-mode`. + * `company-dabbrev-code` supports all `prog-mode` derivatives. + + Git commit 4c735454d91f9674da0ecea950504888b1e10ff7 + +2013-04-27 Stefan Monnier + + * company.el (company-capf): Add support for `sorted' and + `post-completion'. + (company--capf-data): New function. + (company-backend): Declare before first use. + (company-require-match-p): Only call company-require-match is needed. + (company--continue-failed): Don't use backward-delete-char + non-interactively. + (company-search-assert-enabled): Demote it, since it comes too late to + be inlined. + (company-begin-with): Use a lexical closure, so the code is + byte-compiled. + (company--replacement-string, company--create-lines) + (company-pseudo-tooltip-edit, company-doc-buffer): Silence the + byte-compiler. + +2013-04-16 Dmitry Gutov + + Release 0.6.8 + + * `company-auto-complete` is disabled by default. + * `company-auto-complete-chars` default value includes fewer syntax + classes. + * In expanded function calls, arguments skipped by the user default to + "argN". + * `company-eclim` and `company-clang` do not strip argument types from + fields. + * `company-clang` expands function calls for all three modes now. + * `company-clang` supports `c++-mode` by default. + + Git commit 92ac3d0ef663bca26abbda33cc20a02a58b1c328 + +2013-04-05 Dmitry Gutov + + company: Release 0.6.7 + + * Two `company-elisp` tweaks. + + Git commit 8dceda389115b397de48becc4b68a64f4dc4bbab + +2013-04-01 Dmitry Gutov + + company: Release 0.6.6 + + ## 2013-04-01 (0.6.6) + + * `company-elisp` doesn't offer completions when typing the name and + the arguments of a new function or macro definition, allowing to + fall back to other back-ends like `company-dabbrev-code`. + + ## 2013-03-30 (0.6.5) + + * Fixed keybindings when running in a terminal. + * `company-elisp-show-locals-first`: new customizable variable. + * `company-elisp` shows more accurate and comprehensive candidates + list. + + ## 2013-03-26 (0.6.4) + + * `company-eclim` shows valid completions after an opening paren. + * Expanded template does not get removed until the point leaves it. + After your input the last argument in a method call expanded by + `company-eclim`, you can press `` once more, to jump after the + closing paren. No other bundled back-ends are affected. + + ## 2013-03-25 (0.6.3) + + * New tooltip face colors used on themes with light background. + * Pseudo-tooltip stays up-to-date when text is inserted after the + point. + * Fixed `company-require-match` mechanics. + +2013-03-24 Dmitry Gutov + + company: Release 0.6.2 + +2013-03-23 Dmitry Gutov + + company: Release 0.6.1 + +2013-03-21 Dmitry Gutov + + company: Remove angle brackets from README + +2013-03-19 Dmitry Gutov + + company: Update pkg.el and summary string + +2013-03-19 Dmitry Gutov + + company-tests.el: add copyright boilerplate + +2013-03-19 Dmitry Gutov + + company-mode: Release 0.6 + +2011-08-01 Stefan Monnier + + * company/*.el: Fix case misunderstanding. Use checkdoc. + * company/company.el (company-capf): First cut at making Company use + completion-at-point-functions. + +2011-06-30 Chong Yidong + + Remove version numbers in packages/ directory + diff --git a/elpa/company-0.8.2/Makefile b/elpa/company-0.8.2/Makefile new file mode 100644 index 0000000..4d7a9ad --- /dev/null +++ b/elpa/company-0.8.2/Makefile @@ -0,0 +1,37 @@ +EMACS=emacs +CURL=curl --silent +ERT_URL=http://git.savannah.gnu.org/cgit/emacs.git/plain/lisp/emacs-lisp/ert.el?h=emacs-24.3 + +.PHONY: ert test test-batch + +package: *.el + @ver=`grep -o "Version: .*" company.el | cut -c 10-`; \ + tar cjvf company-$$ver.tar.bz2 --mode 644 `git ls-files '*.el' | xargs` + +elpa: *.el + @version=`grep -o "Version: .*" company.el | cut -c 10-`; \ + dir=company-$$version; \ + mkdir -p "$$dir"; \ + cp `git ls-files '*.el' | xargs` company-$$version; \ + echo "(define-package \"company\" \"$$version\" \ + \"Modular in-buffer completion framework\")" \ + > "$$dir"/company-pkg.el; \ + tar cvf company-$$version.tar --mode 644 "$$dir" + +clean: + @rm -rf company-*/ company-*.tar company-*.tar.bz2 *.elc ert.el + +test: + ${EMACS} -Q -nw -L . -l company-tests.el -l company-elisp-tests.el \ + --eval "(let (pop-up-windows) (ert t))" + +test-batch: + ${EMACS} -Q --batch -L . -l company-tests.el -l company-elisp-tests.el \ + --eval "(ert-run-tests-batch-and-exit '(not (tag interactive)))" + +downloads: + ${EMACS} -Q --batch -l ert || \ + ${CURL} ${ERT_URL} > ert.el + +compile: + ${EMACS} -Q --batch -L . -f batch-byte-compile company.el company-*.el diff --git a/elpa/company-0.8.2/NEWS.md b/elpa/company-0.8.2/NEWS.md new file mode 100644 index 0000000..fe1313c --- /dev/null +++ b/elpa/company-0.8.2/NEWS.md @@ -0,0 +1,277 @@ +# History of user-visible changes + +## 2014-07-26 (0.8.2) + +* New user option `company-occurrence-weight-function`, allowing to tweak the + behavior of the transformer `company-sort-by-occurrence`. +* Setting `company-idle-delay` to `t` is deprecated. Use the value 0 instead. + +## 2014-07-01 (0.8.1) + +* `company-require-match` is not in effect when the new input doesn't continue + the previous prefix, and that prefix was a match. +* The meaning of `company-begin-commands` value t has slightly changed. +* New transformer, `company-sort-by-backend-importance`. +* When grouped back-ends are used, the back-end of the current candidate is + indicated in the mode-line, enclosed in angle brackets. +* New user option `company-gtags-insert-arguments`, t by default. +* `company-css` knows about CSS3. +* `company-gtags` supports `meta` and `annotation`. +* User option `company-dabbrev-code-other-buffers` can have a new value: `code`. +* New user option `company-tooltip-flip-when-above`. +* `company-clang` uses the standard header search paths by default. +* `C-h` is bound to `company-show-doc-buffer` (like `f1`). + +## 2014-04-19 (0.8.0) + +* `company-capf` is included in `company-backends` in any supported Emacs + version (>= 24.1). `company-elisp` goes before it if Emacs version is < 24.4. +* New user option `company-clang-insert-arguments`, by default t. +* Default value of `company-idle-delay` lowered to `0.5`. +* New user option `company-tooltip-minimum-width`, by default 0. +* New function `company-grab-symbol-cons`. +* `company-clang` fetches completion candidates asynchronously. +* Added support for asynchronous back-ends (experimental). +* Support for back-end command `crop` dropped (it was never documented). +* Support for Emacs 23 dropped. +* New user option `company-abort-manual-when-too-short`. + +## 2014-03-25 (0.7.3) + +* New user option `company-etags-ignore-case`. + +## 2014-03-19 (0.7.2) + +* Support for Emacs 22 officially dropped. +* `company-clang` supports `indent-tabs-mode` and multibyte chars before point. + +## 2014-03-18 (0.7.1) + +* Group of back-ends can now contain keyword `:with`, which makes all back-ends + after it to be skipped for prefix calculation. +* New function `company-version`. +* New bundled back-end `company-yasnippet`. +* Completion candidates returned from grouped back-ends are tagged to remember + which back-end each came from. +* New user option `company-tooltip-align-annotations`, off by default. +* New bundled back-end `company-bbdb`. + +## 2014-02-18 (0.7) + +* New back-end command, `match`, for non-prefix completion. +* New user option `company-continue-commands`. The default value aborts + completion on buffer saving commands. +* New back-end command, `annotation`, for text displayed inline in the popup + that's not a part of completion candidate. +* `company-capf`, `company-clang` and `company-eclim` use `annotation`. +* `company-preview*` faces inherit from `company-tooltip-selection` and + `company-tooltip-common-selection` on light themes. +* New user option `company-transformers`. +* First transformer, `company-sort-by-occurrence`. +* New user options controlling `company-dabbrev` and `company-dabbrev-code`. + +## 2014-01-25 (0.6.14) + +* The tooltip front-end is rendered with scrollbar, controlled by the user + option `company-tooltip-offset-display`. +* The tooltip front-end is rendered with margins, controlled by the user option + `company-tooltip-margin`. + +## 2014-01-14 (0.6.13) + +* Experimental support for non-prefix completion. +* Starting with Emacs version 24.4, `company-capf` is included in + `company-backends` and replaces `company-elisp`. +* `company-capf` supports completion tables that return non-default boundaries. +* `company-elisp` is enabled in `inferior-emacs-lisp-mode`. + +## 2013-09-28 (0.6.12) + +* Default value of `company-begin-commands` changed to `(self-insert-command)`. +* Futher improvement in `org-indent-mode` compatibility. + +## 2013-08-18 (0.6.11) + +* `company-template-c-like-templatify` removes all text after closing paren, for + use in backends that display additional info there. +* `company-cmake` is now bundled. +* Better `linum` compatibility in Emacs <= 24.2. +* `company-global-modes`: New option. + +## 2013-05-26 (0.6.10) + +* Plays nicer with `org-indent-mode`. +* Works in horizontally scrolled windows. + +## 2013-05-10 (0.6.9) + +* `company-capf` respects `:exit-function` completion property. +* `company-backends`: `prefix` command can return `t` in the cdr. +* `company-clang-begin-after-member-access`: New option. +* Mouse click outside the tooltip aborts completion. +* `company-clang` uses standard input to pass the contents of current buffer to + Clang 2.9+, otherwise saves the buffer and passes the path to the file. +* `company-clang-auto-save` option has been removed. +* Better interaction with `outline-minor-mode`. +* `company-dabbrev-code` supports all `prog-mode` derivatives. + +## 2013-04-16 (0.6.8) + +* `company-auto-complete` is disabled by default. +* `company-auto-complete-chars` default value includes fewer syntax classes. +* In expanded function calls, arguments skipped by the user default to "argN". +* `company-eclim` and `company-clang` do not strip argument types from fields. +* `company-clang` expands function calls for all three modes now. +* `company-clang` supports `c++-mode` by default. + +## 2013-04-05 (0.6.7) + +* Two `company-elisp` tweaks. + +## 2013-04-01 (0.6.6) + +* `company-elisp` doesn't offer completions when typing the name and the + arguments of a new function or macro definition, allowing to fall back to + other back-ends like `company-dabbrev-code`. + +## 2013-03-30 (0.6.5) + +* Fixed keybindings when running in a terminal. +* `company-elisp-show-locals-first`: new customizable variable. +* `company-elisp` shows more accurate and comprehensive candidates list. + +## 2013-03-26 (0.6.4) + +* `company-eclim` shows valid completions after an opening paren. +* Expanded template does not get removed until the point leaves it. After your + input the last argument in a method call expanded by `company-eclim`, you can + press `` once more, to jump after the closing paren. No other bundled + back-ends are affected. + +## 2013-03-25 (0.6.3) + +* New tooltip face colors used on themes with light background. +* Pseudo-tooltip stays up-to-date when text is inserted after the point. +* Fixed `company-require-match` mechanics. + +## 2013-03-24 (0.6.2) + +* `global-company-mode` is now autoloaded. + +## 2013-03-23 (0.6.1) + +* Documented `init` and `post-completion` back-end commands. +* `company-eclim` and `company-clang` only expand the template on explicit user + action (such as `company-complete-{selection,number,mouse}`). +* `company-template` has some breaking changes. When point is at one of the + fields, it's displayed at the beginning, not right after it; `` jumps to + the next field, `forward-word` and `subword-forward` remappings are removed; + when you jump to the next field, if the current one hasn't been edited, the + overlay gets removed but the text remains. +* `company-eclim` shows method overloads and expands templates for calls. +* `company-clang-objc-templatify` does not insert spaces after colons anymore. +* `company-clang` is now only initialized in supported buffers. + So, no error messages if you don't have Clang until you open a C file. +* `company-clang` recognizes Clang included in recent Xcode. +* New commands `company-select-previous-or-abort` and + `company-select-next-or-abort`, bound to `` and ``. + +## 2013-03-19 (0.6) + +* Across-the-board bugfixing. +* `company-pysmell` is not used by default anymore. +* Loading of `nxml`, `semantic`, `pymacs` and `ropemacs` is now deferred. +* Candidates from grouped back-ends are merged more conservatively: only + back-ends that return the same prefix at point are used. +* `company-clang` now shows meta information, too. +* Some performance improvements. +* Fixed two old tooltip annoyances. +* Instead of `overrriding-terminal-local-map`, we're now using + `emulation-mode-map-alists` (experimental). This largely means that when the + completion keymap is active, other minor modes' keymaps are still used, so, + for example, it's not as easy to accidentally circumvent `paredit-mode` + when it's enabled. +* `company-elisp` has seen some improvements. +* Added `company-capf`: completion adapter using + `completion-at-point-functions`. (Stefan Monnier) +* Clang completions now include macros and are case-sensitive. +* Switching between tag files now works correctly with `company-etags`. + +## 2010-02-24 (0.5) + +* `company-ropemacs` now provides location and docs. (Fernando H. Silva) +* Added `company-with-candidate-inserted` macro. +* Added `company-clang` back-end. +* Added new mechanism for non-consecutive insertion. + (So far only used by clang for ObjC.) +* The semantic back-end now shows meta information for local symbols. +* Added compatibility for CEDET in Emacs 23.2 and from CVS. (Oleg Andreev) + +## 2009-05-07 (0.4.3) + +* Added `company-other-backend`. +* Idle completion no longer interrupts multi-key command input. +* Added `company-ropemacs` and `company-pysmell` back-ends. + +## 2009-04-25 (0.4.2) + +* In C modes . and -> now count towards `company-minimum-prefix-length`. +* Reverted default front-end back to `company-preview-if-just-one-frontend`. +* The pseudo tooltip will no longer be clipped at the right window edge. +* Added `company-tooltip-minimum`. +* Windows compatibility fixes. + +## 2009-04-19 (0.4.1) + +* Added `global-company-mode`. +* Performance enhancements. +* Added `company-eclim` back-end. +* Added safer workaround for Emacs `posn-col-row` bug. + +## 2009-04-18 (0.4) + +* Automatic completion is now aborted if the prefix gets too short. +* Added option `company-dabbrev-time-limit`. +* `company-backends` now supports merging back-ends. +* Added back-end `company-dabbrev-code` for generic code. +* Fixed `company-begin-with`. + +## 2009-04-15 (0.3.1) + +* Added 'stop prefix to prevent dabbrev from completing inside of symbols. +* Fixed issues with tabbar-mode and line-spacing. +* Performance enhancements. + +## 2009-04-12 (0.3) + +* Added `company-begin-commands` option. +* Added abbrev, tempo and Xcode back-ends. +* Back-ends are now interactive. You can start them with M-x backend-name. +* Added `company-begin-with` for starting company from elisp-code. +* Added hooks. +* Added `company-require-match` and `company-auto-complete` options. + +## 2009-04-05 (0.2.1) + +* Improved Emacs Lisp back-end behavior for local variables. +* Added `company-elisp-detect-function-context` option. +* The mouse can now be used for selection. + +## 2009-03-22 (0.2) + +* Added `company-show-location`. +* Added etags back-end. +* Added work-around for end-of-buffer bug. +* Added `company-filter-candidates`. +* More local Lisp variables are now included in the candidates. + +## 2009-03-21 (0.1.5) + +* Fixed elisp documentation buffer always showing the same doc. +* Added `company-echo-strip-common-frontend`. +* Added `company-show-numbers` option and M-0 ... M-9 default bindings. +* Don't hide the echo message if it isn't shown. + +## 2009-03-20 (0.1) + +* Initial release. diff --git a/elpa/company-0.8.2/README.md b/elpa/company-0.8.2/README.md new file mode 100644 index 0000000..4f79bbc --- /dev/null +++ b/elpa/company-0.8.2/README.md @@ -0,0 +1,4 @@ +See the [homepage](http://company-mode.github.com/). +[![githalytics.com alpha](https://cruel-carlota.pagodabox.com/336ef4be2595a7859d52e2c17b7da2b2 "githalytics.com")](http://githalytics.com/company-mode/company-mode) + +[![Build Status](https://travis-ci.org/company-mode/company-mode.png?branch=master)](https://travis-ci.org/company-mode/company-mode) diff --git a/elpa/company-0.8.2/company-abbrev.el b/elpa/company-0.8.2/company-abbrev.el new file mode 100644 index 0000000..a454aaa --- /dev/null +++ b/elpa/company-0.8.2/company-abbrev.el @@ -0,0 +1,51 @@ +;;; company-abbrev.el --- company-mode completion back-end for abbrev + +;; Copyright (C) 2009-2011 Free Software Foundation, Inc. + +;; Author: Nikolaj Schumacher + +;; This file is part of GNU Emacs. + +;; 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 of the License, 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. If not, see . + + +;;; Commentary: +;; + +;;; Code: + +(require 'company) +(require 'cl-lib) +(require 'abbrev) + +(defun company-abbrev-insert (match) + "Replace MATCH with the expanded abbrev." + (expand-abbrev)) + +;;;###autoload +(defun company-abbrev (command &optional arg &rest ignored) + "`company-mode' completion back-end for abbrev." + (interactive (list 'interactive)) + (cl-case command + (interactive (company-begin-backend 'company-abbrev + 'company-abbrev-insert)) + (prefix (company-grab-symbol)) + (candidates (nconc + (delete "" (all-completions arg global-abbrev-table)) + (delete "" (all-completions arg local-abbrev-table)))) + (meta (abbrev-expansion arg)) + (require-match t))) + +(provide 'company-abbrev) +;;; company-abbrev.el ends here diff --git a/elpa/company-0.8.2/company-autoloads.el b/elpa/company-0.8.2/company-autoloads.el new file mode 100644 index 0000000..e38a161 --- /dev/null +++ b/elpa/company-0.8.2/company-autoloads.el @@ -0,0 +1,295 @@ +;;; company-autoloads.el --- automatically extracted autoloads +;; +;;; Code: + + +;;;### (autoloads (global-company-mode company-mode) "company" "company.el" +;;;;;; (21475 23817 56009 901000)) +;;; Generated autoloads from company.el + +(autoload 'company-mode "company" "\ +\"complete anything\"; is an in-buffer completion framework. +Completion starts automatically, depending on the values +`company-idle-delay' and `company-minimum-prefix-length'. + +Completion can be controlled with the commands: +`company-complete-common', `company-complete-selection', `company-complete', +`company-select-next', `company-select-previous'. If these commands are +called before `company-idle-delay', completion will also start. + +Completions can be searched with `company-search-candidates' or +`company-filter-candidates'. These can be used while completion is +inactive, as well. + +The completion data is retrieved using `company-backends' and displayed +using `company-frontends'. If you want to start a specific back-end, call +it interactively or use `company-begin-backend'. + +regular keymap (`company-mode-map'): + +\\{company-mode-map} +keymap during active completions (`company-active-map'): + +\\{company-active-map} + +\(fn &optional ARG)" t nil) + +(defvar global-company-mode nil "\ +Non-nil if Global-Company mode is enabled. +See the command `global-company-mode' for a description of this minor mode. +Setting this variable directly does not take effect; +either customize it (see the info node `Easy Customization') +or call the function `global-company-mode'.") + +(custom-autoload 'global-company-mode "company" nil) + +(autoload 'global-company-mode "company" "\ +Toggle Company mode in all buffers. +With prefix ARG, enable Global-Company mode if ARG is positive; +otherwise, disable it. If called from Lisp, enable the mode if +ARG is omitted or nil. + +Company mode is enabled in all buffers where +`company-mode-on' would do it. +See `company-mode' for more information on Company mode. + +\(fn &optional ARG)" t nil) + +;;;*** + +;;;### (autoloads (company-abbrev) "company-abbrev" "company-abbrev.el" +;;;;;; (21475 23816 615018 715000)) +;;; Generated autoloads from company-abbrev.el + +(autoload 'company-abbrev "company-abbrev" "\ +`company-mode' completion back-end for abbrev. + +\(fn COMMAND &optional ARG &rest IGNORED)" t nil) + +;;;*** + +;;;### (autoloads (company-bbdb) "company-bbdb" "company-bbdb.el" +;;;;;; (21475 23817 97009 82000)) +;;; Generated autoloads from company-bbdb.el + +(autoload 'company-bbdb "company-bbdb" "\ +`company-mode' completion back-end for `bbdb'. + +\(fn COMMAND &optional ARG &rest IGNORE)" t nil) + +;;;*** + +;;;### (autoloads (company-css) "company-css" "company-css.el" (21475 +;;;;;; 23816 641018 195000)) +;;; Generated autoloads from company-css.el + +(autoload 'company-css "company-css" "\ +`company-mode' completion back-end for `css-mode'. + +\(fn COMMAND &optional ARG &rest IGNORED)" t nil) + +;;;*** + +;;;### (autoloads (company-dabbrev) "company-dabbrev" "company-dabbrev.el" +;;;;;; (21475 23816 683017 356000)) +;;; Generated autoloads from company-dabbrev.el + +(autoload 'company-dabbrev "company-dabbrev" "\ +dabbrev-like `company-mode' completion back-end. + +\(fn COMMAND &optional ARG &rest IGNORED)" t nil) + +;;;*** + +;;;### (autoloads (company-dabbrev-code) "company-dabbrev-code" "company-dabbrev-code.el" +;;;;;; (21475 23817 330004 425000)) +;;; Generated autoloads from company-dabbrev-code.el + +(autoload 'company-dabbrev-code "company-dabbrev-code" "\ +dabbrev-like `company-mode' back-end for code. +The back-end looks for all symbols in the current buffer that aren't in +comments or strings. + +\(fn COMMAND &optional ARG &rest IGNORED)" t nil) + +;;;*** + +;;;### (autoloads (company-elisp) "company-elisp" "company-elisp.el" +;;;;;; (21475 23816 807014 878000)) +;;; Generated autoloads from company-elisp.el + +(autoload 'company-elisp "company-elisp" "\ +`company-mode' completion back-end for Emacs Lisp. + +\(fn COMMAND &optional ARG &rest IGNORED)" t nil) + +;;;*** + +;;;### (autoloads (company-etags) "company-etags" "company-etags.el" +;;;;;; (21475 23816 392023 172000)) +;;; Generated autoloads from company-etags.el + +(autoload 'company-etags "company-etags" "\ +`company-mode' completion back-end for etags. + +\(fn COMMAND &optional ARG &rest IGNORED)" t nil) + +;;;*** + +;;;### (autoloads (company-files) "company-files" "company-files.el" +;;;;;; (21475 23816 847014 78000)) +;;; Generated autoloads from company-files.el + +(autoload 'company-files "company-files" "\ +`company-mode' completion back-end existing file names. + +\(fn COMMAND &optional ARG &rest IGNORED)" t nil) + +;;;*** + +;;;### (autoloads (company-gtags) "company-gtags" "company-gtags.el" +;;;;;; (21475 23817 379003 447000)) +;;; Generated autoloads from company-gtags.el + +(autoload 'company-gtags "company-gtags" "\ +`company-mode' completion back-end for GNU Global. + +\(fn COMMAND &optional ARG &rest IGNORED)" t nil) + +;;;*** + +;;;### (autoloads (company-ispell) "company-ispell" "company-ispell.el" +;;;;;; (21475 23816 351023 991000)) +;;; Generated autoloads from company-ispell.el + +(autoload 'company-ispell "company-ispell" "\ +`company-mode' completion back-end using Ispell. + +\(fn COMMAND &optional ARG &rest IGNORED)" t nil) + +;;;*** + +;;;### (autoloads (company-keywords) "company-keywords" "company-keywords.el" +;;;;;; (21475 23816 426022 492000)) +;;; Generated autoloads from company-keywords.el + +(autoload 'company-keywords "company-keywords" "\ +`company-mode' back-end for programming language keywords. + +\(fn COMMAND &optional ARG &rest IGNORED)" t nil) + +;;;*** + +;;;### (autoloads (company-nxml) "company-nxml" "company-nxml.el" +;;;;;; (21475 23816 467021 673000)) +;;; Generated autoloads from company-nxml.el + +(autoload 'company-nxml "company-nxml" "\ +`company-mode' completion back-end for `nxml-mode'. + +\(fn COMMAND &optional ARG &rest IGNORED)" t nil) + +;;;*** + +;;;### (autoloads (company-oddmuse) "company-oddmuse" "company-oddmuse.el" +;;;;;; (21475 23816 881013 399000)) +;;; Generated autoloads from company-oddmuse.el + +(autoload 'company-oddmuse "company-oddmuse" "\ +`company-mode' completion back-end for `oddmuse-mode'. + +\(fn COMMAND &optional ARG &rest IGNORED)" t nil) + +;;;*** + +;;;### (autoloads (company-pysmell) "company-pysmell" "company-pysmell.el" +;;;;;; (21475 23816 990011 221000)) +;;; Generated autoloads from company-pysmell.el + +(autoload 'company-pysmell "company-pysmell" "\ +`company-mode' completion back-end for pysmell. +This requires pysmell.el and pymacs.el. + +\(fn COMMAND &optional ARG &rest IGNORED)" t nil) + +;;;*** + +;;;### (autoloads (company-semantic) "company-semantic" "company-semantic.el" +;;;;;; (21475 23817 594999 129000)) +;;; Generated autoloads from company-semantic.el + +(autoload 'company-semantic "company-semantic" "\ +`company-mode' completion back-end using CEDET Semantic. + +\(fn COMMAND &optional ARG &rest IGNORED)" t nil) + +;;;*** + +;;;### (autoloads (company-tempo) "company-tempo" "company-tempo.el" +;;;;;; (21475 23817 172007 583000)) +;;; Generated autoloads from company-tempo.el + +(autoload 'company-tempo "company-tempo" "\ +`company-mode' completion back-end for tempo. + +\(fn COMMAND &optional ARG &rest IGNORED)" t nil) + +;;;*** + +;;;### (autoloads (company-xcode) "company-xcode" "company-xcode.el" +;;;;;; (21475 23817 247006 84000)) +;;; Generated autoloads from company-xcode.el + +(autoload 'company-xcode "company-xcode" "\ +`company-mode' completion back-end for Xcode projects. + +\(fn COMMAND &optional ARG &rest IGNORED)" t nil) + +;;;*** + +;;;### (autoloads (company-yasnippet) "company-yasnippet" "company-yasnippet.el" +;;;;;; (21475 23817 487001 288000)) +;;; Generated autoloads from company-yasnippet.el + +(autoload 'company-yasnippet "company-yasnippet" "\ +`company-mode' back-end for `yasnippet'. + +This back-end should be used with care, because as long as there are +snippets defined for the current major mode, this back-end will always +shadow back-ends that come after it. Recommended usages: + +* In a buffer-local value of `company-backends', grouped with a back-end or + several that provide actual text completions. + + (add-hook 'js-mode-hook + (lambda () + (set (make-local-variable 'company-backends) + '((company-dabbrev-code company-yasnippet))))) + +* After keyword `:with', grouped with other back-ends. + + (push '(company-semantic :with company-yasnippet) company-backends) + +* Not in `company-backends', just bound to a key. + + (global-set-key (kbd \"C-c y\") 'company-yasnippet) + +\(fn COMMAND &optional ARG &rest IGNORE)" t nil) + +;;;*** + +;;;### (autoloads nil nil ("company-capf.el" "company-clang.el" "company-cmake.el" +;;;;;; "company-eclim.el" "company-elisp-tests.el" "company-pkg.el" +;;;;;; "company-ropemacs.el" "company-template.el" "company-tests.el") +;;;;;; (21475 23817 679245 801000)) + +;;;*** + +(provide 'company-autoloads) +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; coding: utf-8 +;; End: +;;; company-autoloads.el ends here diff --git a/elpa/company-0.8.2/company-bbdb.el b/elpa/company-0.8.2/company-bbdb.el new file mode 100644 index 0000000..acdd30a --- /dev/null +++ b/elpa/company-0.8.2/company-bbdb.el @@ -0,0 +1,49 @@ +;;; company-bbdb.el --- company-mode completion back-end for BBDB in message-mode + +;; Copyright (C) 2013-2014 Free Software Foundation, Inc. + +;; Author: Jan Tatarik + +;; This file is part of GNU Emacs. + +;; 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 of the License, 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. If not, see . + +(require 'company) +(require 'cl-lib) + +(declare-function bbdb-record-get-field "bbdb") +(declare-function bbdb-records "bbdb") +(declare-function bbdb-dwim-mail "bbdb-com") +(declare-function bbdb-search "bbdb-com") + +;;;###autoload +(defun company-bbdb (command &optional arg &rest ignore) + "`company-mode' completion back-end for `bbdb'." + (interactive (list 'interactive)) + (cl-case command + (interactive (company-begin-backend 'company-bbdb)) + (prefix (and (eq major-mode 'message-mode) + (featurep 'bbdb-com) + (looking-back "^\\(To\\|Cc\\|Bcc\\):.*" + (line-beginning-position)) + (company-grab-symbol))) + (candidates (cl-mapcan (lambda (record) + (mapcar (lambda (mail) (bbdb-dwim-mail record mail)) + (bbdb-record-get-field record 'mail))) + (bbdb-search (bbdb-records) arg nil arg))) + (sorted t) + (no-cache t))) + +(provide 'company-bbdb) +;;; company-bbdb.el ends here diff --git a/elpa/company-0.8.2/company-capf.el b/elpa/company-0.8.2/company-capf.el new file mode 100644 index 0000000..e27ae7a --- /dev/null +++ b/elpa/company-0.8.2/company-capf.el @@ -0,0 +1,135 @@ +;;; company-capf.el --- company-mode completion-at-point-functions back-end -*- lexical-binding: t -*- + +;; Copyright (C) 2013-2014 Free Software Foundation, Inc. + +;; Author: Stefan Monnier + +;; This file is part of GNU Emacs. + +;; 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 of the License, 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. If not, see . + + +;;; Commentary: +;; + +;;; Code: + +(require 'company) +(require 'cl-lib) + +(defun company--capf-data () + (cl-letf* (((default-value 'completion-at-point-functions) + ;; Ignore tags-completion-at-point-function because it subverts + ;; company-etags in the default value of company-backends, where + ;; the latter comes later. + (remove 'tags-completion-at-point-function + (default-value 'completion-at-point-functions))) + (data (run-hook-wrapped 'completion-at-point-functions + ;; Ignore misbehaving functions. + #'completion--capf-wrapper 'optimist))) + (when (and (consp (cdr data)) (numberp (nth 1 data))) data))) + +(defun company-capf (command &optional arg &rest _args) + "`company-mode' back-end using `completion-at-point-functions'." + (interactive (list 'interactive)) + (pcase command + (`interactive (company-begin-backend 'company-capf)) + (`prefix + (let ((res (company--capf-data))) + (when res + (if (> (nth 2 res) (point)) + 'stop + (buffer-substring-no-properties (nth 1 res) (point)))))) + (`candidates + (let ((res (company--capf-data))) + (when res + (let* ((table (nth 3 res)) + (pred (plist-get (nthcdr 4 res) :predicate)) + (meta (completion-metadata + (buffer-substring (nth 1 res) (nth 2 res)) + table pred)) + (sortfun (cdr (assq 'display-sort-function meta))) + (candidates (completion-all-completions arg table pred (length arg))) + (last (last candidates)) + (base-size (and (numberp (cdr last)) (cdr last)))) + (when base-size + (setcdr last nil)) + (when sortfun + (setq candidates (funcall sortfun candidates))) + (if (not (zerop (or base-size 0))) + (let ((before (substring arg 0 base-size))) + (mapcar (lambda (candidate) + (concat before candidate)) + candidates)) + candidates))))) + (`sorted + (let ((res (company--capf-data))) + (when res + (let ((meta (completion-metadata + (buffer-substring (nth 1 res) (nth 2 res)) + (nth 3 res) (plist-get (nthcdr 4 res) :predicate)))) + (cdr (assq 'display-sort-function meta)))))) + (`match + ;; Can't just use 0 when base-size (see above) is non-zero. + (let ((start (if (get-text-property 0 'font-lock-face arg) + 0 + (next-single-property-change 0 'font-lock-face arg)))) + (when start + ;; completions-common-part comes first, but we can't just look for this + ;; value because it can be in a list. + (or + (let ((value (get-text-property start 'font-lock-face arg))) + (text-property-not-all start (length arg) + 'font-lock-face value arg)) + (length arg))))) + (`duplicates t) + (`no-cache t) ;Not much can be done here, as long as we handle + ;non-prefix matches. + (`meta + (let ((f (plist-get (nthcdr 4 (company--capf-data)) :company-docsig))) + (when f (funcall f arg)))) + (`doc-buffer + (let ((f (plist-get (nthcdr 4 (company--capf-data)) :company-doc-buffer))) + (when f (funcall f arg)))) + (`location + (let ((f (plist-get (nthcdr 4 (company--capf-data)) :company-location))) + (when f (funcall f arg)))) + (`annotation + (save-excursion + ;; FIXME: `company-begin' sets `company-point' after calling + ;; `company--begin-new'. We shouldn't rely on `company-point' here, + ;; better to cache the capf-data value instead. However: we can't just + ;; save the last capf-data value in `prefix', because that command can + ;; get called more often than `candidates', and at any point in the + ;; buffer (https://github.com/company-mode/company-mode/issues/153). + ;; We could try propertizing the returned prefix string, but it's not + ;; passed to `annotation', and `company-prefix' is set only after + ;; `company--strip-duplicates' is called. + (when company-point + (goto-char company-point)) + (let ((f (plist-get (nthcdr 4 (company--capf-data)) :annotation-function))) + (when f (funcall f arg))))) + (`require-match + (plist-get (nthcdr 4 (company--capf-data)) :company-require-match)) + (`init nil) ;Don't bother: plenty of other ways to initialize the code. + (`post-completion + (let* ((res (company--capf-data)) + (exit-function (plist-get (nthcdr 4 res) :exit-function))) + (if exit-function + (funcall exit-function arg 'finished)))) + )) + +(provide 'company-capf) + +;;; company-capf.el ends here diff --git a/elpa/company-0.8.2/company-clang.el b/elpa/company-0.8.2/company-clang.el new file mode 100644 index 0000000..a1a3251 --- /dev/null +++ b/elpa/company-0.8.2/company-clang.el @@ -0,0 +1,326 @@ +;;; company-clang.el --- company-mode completion back-end for Clang -*- lexical-binding: t -*- + +;; Copyright (C) 2009, 2011, 2013-2014 Free Software Foundation, Inc. + +;; Author: Nikolaj Schumacher + +;; This file is part of GNU Emacs. + +;; 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 of the License, 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. If not, see . + + +;;; Commentary: +;; + +;;; Code: + +(require 'company) +(require 'company-template) +(require 'cl-lib) + +(defgroup company-clang nil + "Completion back-end for Clang." + :group 'company) + +(defcustom company-clang-executable + (executable-find "clang") + "Location of clang executable." + :type 'file) + +(defcustom company-clang-begin-after-member-access t + "When non-nil, automatic completion will start whenever the current +symbol is preceded by \".\", \"->\" or \"::\", ignoring +`company-minimum-prefix-length'. + +If `company-begin-commands' is a list, it should include `c-electric-lt-gt' +and `c-electric-colon', for automatic completion right after \">\" and +\":\".") + +(defcustom company-clang-arguments nil + "Additional arguments to pass to clang when completing. +Prefix files (-include ...) can be selected with `company-clang-set-prefix' +or automatically through a custom `company-clang-prefix-guesser'." + :type '(repeat (string :tag "Argument" nil))) + +(defcustom company-clang-prefix-guesser 'company-clang-guess-prefix + "A function to determine the prefix file for the current buffer." + :type '(function :tag "Guesser function" nil)) + +(defvar company-clang-modes '(c-mode c++-mode objc-mode) + "Major modes which clang may complete.") + +(defcustom company-clang-insert-arguments t + "When non-nil, insert function arguments as a template after completion." + :type 'boolean + :package-version '(company . "0.8.0")) + +;; prefix ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(defvar company-clang--prefix nil) + +(defsubst company-clang--guess-pch-file (file) + (let ((dir (directory-file-name (file-name-directory file)))) + (when (equal (file-name-nondirectory dir) "Classes") + (setq dir (file-name-directory dir))) + (car (directory-files dir t "\\([^.]h\\|[^h]\\).pch\\'" t)))) + +(defsubst company-clang--file-substring (file beg end) + (with-temp-buffer + (insert-file-contents-literally file nil beg end) + (buffer-string))) + +(defun company-clang-guess-prefix () + "Try to guess the prefix file for the current buffer." + ;; Prefixes seem to be called .pch. Pre-compiled headers do, too. + ;; So we look at the magic number to rule them out. + (let* ((file (company-clang--guess-pch-file buffer-file-name)) + (magic-number (and file (company-clang--file-substring file 0 4)))) + (unless (member magic-number '("CPCH" "gpch")) + file))) + +(defun company-clang-set-prefix (&optional prefix) + "Use PREFIX as a prefix (-include ...) file for clang completion." + (interactive (let ((def (funcall company-clang-prefix-guesser))) + (unless (stringp def) + (setq def default-directory)) + (list (read-file-name "Prefix file: " + (when def (file-name-directory def)) + def t (when def (file-name-nondirectory def)))))) + ;; TODO: pre-compile? + (setq company-clang--prefix (and (stringp prefix) + (file-regular-p prefix) + prefix))) + +;; Clean-up on exit. +(add-hook 'kill-emacs-hook 'company-clang-set-prefix) + +;; parsing ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +;; TODO: Handle Pattern (syntactic hints would be neat). +;; Do we ever see OVERLOAD (or OVERRIDE)? +(defconst company-clang--completion-pattern + "^COMPLETION: \\_<\\(%s[a-zA-Z0-9_:]*\\)\\(?: : \\(.*\\)$\\)?$") + +(defconst company-clang--error-buffer-name "*clang-error*") + +(defun company-clang--lang-option () + (if (eq major-mode 'objc-mode) + (if (string= "m" (file-name-extension buffer-file-name)) + "objective-c" "objective-c++") + (substring (symbol-name major-mode) 0 -5))) + +(defun company-clang--parse-output (prefix _objc) + (goto-char (point-min)) + (let ((pattern (format company-clang--completion-pattern + (regexp-quote prefix))) + (case-fold-search nil) + lines match) + (while (re-search-forward pattern nil t) + (setq match (match-string-no-properties 1)) + (unless (equal match "Pattern") + (save-match-data + (when (string-match ":" match) + (setq match (substring match 0 (match-beginning 0))))) + (let ((meta (match-string-no-properties 2))) + (when (and meta (not (string= match meta))) + (put-text-property 0 1 'meta + (company-clang--strip-formatting meta) + match))) + (push match lines))) + lines)) + +(defun company-clang--meta (candidate) + (get-text-property 0 'meta candidate)) + +(defun company-clang--annotation (candidate) + (let ((meta (company-clang--meta candidate))) + (cond + ((null meta) nil) + ((string-match "[^:]:[^:]" meta) + (substring meta (1+ (match-beginning 0)))) + ((string-match "\\((.*)[ a-z]*\\'\\)" meta) + (match-string 1 meta))))) + +(defun company-clang--strip-formatting (text) + (replace-regexp-in-string + "#]" " " + (replace-regexp-in-string "[<{[]#\\|#[>}]" "" text t) + t)) + +(defun company-clang--handle-error (res args) + (goto-char (point-min)) + (let* ((buf (get-buffer-create company-clang--error-buffer-name)) + (cmd (concat company-clang-executable " " (mapconcat 'identity args " "))) + (pattern (format company-clang--completion-pattern "")) + (err (if (re-search-forward pattern nil t) + (buffer-substring-no-properties (point-min) + (1- (match-beginning 0))) + ;; Warn the user more aggressively if no match was found. + (message "clang failed with error %d:\n%s" res cmd) + (buffer-string)))) + + (with-current-buffer buf + (let ((inhibit-read-only t)) + (erase-buffer) + (insert (current-time-string) + (format "\nclang failed with error %d:\n" res) + cmd "\n\n") + (insert err) + (setq buffer-read-only t) + (goto-char (point-min)))))) + +(defun company-clang--start-process (prefix callback &rest args) + (let ((objc (derived-mode-p 'objc-mode)) + (buf (get-buffer-create "*clang-output*"))) + (with-current-buffer buf (erase-buffer)) + (if (get-buffer-process buf) + (funcall callback nil) + (let ((process (apply #'start-process "company-clang" buf + company-clang-executable args))) + (set-process-sentinel + process + (lambda (proc status) + (unless (string-match-p "hangup" status) + (funcall + callback + (let ((res (process-exit-status proc))) + (with-current-buffer buf + (unless (eq 0 res) + (company-clang--handle-error res args)) + ;; Still try to get any useful input. + (company-clang--parse-output prefix objc))))))) + (unless (company-clang--auto-save-p) + (send-region process (point-min) (point-max)) + (send-string process "\n") + (process-send-eof process)))))) + +(defsubst company-clang--build-location (pos) + (save-excursion + (goto-char pos) + (format "%s:%d:%d" + (if (company-clang--auto-save-p) buffer-file-name "-") + (line-number-at-pos) + (1+ (length + (encode-coding-region + (line-beginning-position) + (point) + 'utf-8 + t)))))) + +(defsubst company-clang--build-complete-args (pos) + (append '("-fsyntax-only" "-Xclang" "-code-completion-macros") + (unless (company-clang--auto-save-p) + (list "-x" (company-clang--lang-option))) + company-clang-arguments + (when (stringp company-clang--prefix) + (list "-include" (expand-file-name company-clang--prefix))) + (list "-Xclang" (format "-code-completion-at=%s" + (company-clang--build-location pos))) + (list (if (company-clang--auto-save-p) buffer-file-name "-")))) + +(defun company-clang--candidates (prefix callback) + (and (company-clang--auto-save-p) + (buffer-modified-p) + (basic-save-buffer)) + (when (null company-clang--prefix) + (company-clang-set-prefix (or (funcall company-clang-prefix-guesser) + 'none))) + (apply 'company-clang--start-process + prefix + callback + (company-clang--build-complete-args (- (point) (length prefix))))) + +(defun company-clang--prefix () + (if company-clang-begin-after-member-access + (company-grab-symbol-cons "\\.\\|->\\|::" 2) + (company-grab-symbol))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(defconst company-clang-required-version 1.1) + +(defvar company-clang--version nil) + +(defun company-clang--auto-save-p () + (< company-clang--version 2.9)) + +(defsubst company-clang-version () + "Return the version of `company-clang-executable'." + (with-temp-buffer + (call-process company-clang-executable nil t nil "--version") + (goto-char (point-min)) + (if (re-search-forward "clang\\(?: version \\|-\\)\\([0-9.]+\\)" nil t) + (let ((ver (string-to-number (match-string-no-properties 1)))) + (if (> ver 100) + (/ ver 100) + ver)) + 0))) + +(defun company-clang-objc-templatify (selector) + (let* ((end (point-marker)) + (beg (- (point) (length selector) 1)) + (templ (company-template-declare-template beg end)) + (cnt 0)) + (save-excursion + (goto-char beg) + (catch 'stop + (while (search-forward ":" end t) + (when (looking-at "([^)]*) ?") + (delete-region (match-beginning 0) (match-end 0))) + (company-template-add-field templ (point) (format "arg%d" cnt)) + (if (< (point) end) + (insert " ") + (throw 'stop t)) + (cl-incf cnt)))) + (company-template-move-to-first templ))) + +(defun company-clang (command &optional arg &rest ignored) + "`company-mode' completion back-end for Clang. +Clang is a parser for C and ObjC. Clang version 1.1 or newer is required. + +Additional command line arguments can be specified in +`company-clang-arguments'. Prefix files (-include ...) can be selected +with `company-clang-set-prefix' or automatically through a custom +`company-clang-prefix-guesser'. + +With Clang versions before 2.9, we have to save the buffer before +performing completion. With Clang 2.9 and later, buffer contents are +passed via standard input." + (interactive (list 'interactive)) + (cl-case command + (interactive (company-begin-backend 'company-clang)) + (init (when (memq major-mode company-clang-modes) + (unless company-clang-executable + (error "Company found no clang executable")) + (setq company-clang--version (company-clang-version)) + (when (< company-clang--version company-clang-required-version) + (error "Company requires clang version 1.1")))) + (prefix (and (memq major-mode company-clang-modes) + buffer-file-name + company-clang-executable + (not (company-in-string-or-comment)) + (or (company-clang--prefix) 'stop))) + (candidates (cons :async + (lambda (cb) (company-clang--candidates arg cb)))) + (meta (company-clang--meta arg)) + (annotation (company-clang--annotation arg)) + (post-completion (let ((anno (company-clang--annotation arg))) + (when (and company-clang-insert-arguments anno) + (insert anno) + (if (string-match "\\`:[^:]" anno) + (company-clang-objc-templatify anno) + (company-template-c-like-templatify anno))))))) + +(provide 'company-clang) +;;; company-clang.el ends here diff --git a/elpa/company-0.8.2/company-cmake.el b/elpa/company-0.8.2/company-cmake.el new file mode 100644 index 0000000..a466f60 --- /dev/null +++ b/elpa/company-0.8.2/company-cmake.el @@ -0,0 +1,129 @@ +;;; company-cmake.el --- company-mode completion back-end for CMake + +;; Copyright (C) 2013 Free Software Foundation, Inc. + +;; Author: Chen Bin +;; Version: 0.1 + +;; 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 . + +;;; Commentary: +;; +;; company-cmake offers completions for module names, variable names and +;; commands used by CMake. And their descriptions. + +;;; Code: + +(require 'company) +(require 'cl-lib) + +(defgroup company-cmake nil + "Completion back-end for CMake." + :group 'company) + +(defcustom company-cmake-executable + (executable-find "cmake") + "Location of cmake executable." + :type 'file) + +(defvar company-cmake-executable-arguments + '("--help-command-list" + "--help-module-list" + "--help-variable-list") + "The arguments we pass to cmake, separately. +They affect which types of symbols we get completion candidates for.") + +(defvar company-cmake--completion-pattern + "^\\(%s[a-zA-Z0-9_]%s\\)$" + "Regexp to match the candidates.") + +(defvar company-cmake-modes '(cmake-mode) + "Major modes in which cmake may complete.") + +(defvar company-cmake--meta-command-cache nil + "Cache for command arguments to retrieve descriptions for the candidates.") + +(defun company-cmake--parse-output (prefix cmd) + "Analyze the temp buffer and collect lines." + (goto-char (point-min)) + (let ((pattern (format company-cmake--completion-pattern + (regexp-quote prefix) + (if (zerop (length prefix)) "+" "*"))) + (case-fold-search nil) + lines match) + (while (re-search-forward pattern nil t) + (setq match (match-string-no-properties 1)) + (puthash match cmd company-cmake--meta-command-cache) + (push match lines)) + lines)) + +(defun company-cmake--candidates (prefix) + (let ((res 0) + results + cmd) + (setq company-cmake--meta-command-cache (make-hash-table :test 'equal)) + (dolist (arg company-cmake-executable-arguments) + (with-temp-buffer + (setq res (call-process company-cmake-executable nil t nil arg)) + (unless (eq 0 res) + (message "cmake executable exited with error=%d" res)) + (setq cmd (replace-regexp-in-string "-list$" "" arg) ) + (setq results (nconc results (company-cmake--parse-output prefix cmd))))) + results)) + +(defun company-cmake--meta (prefix) + (let ((cmd-opts (gethash prefix company-cmake--meta-command-cache)) + result) + (with-temp-buffer + (call-process company-cmake-executable nil t nil cmd-opts prefix) + ;; Go to the third line, trim it and return the result. + ;; Tested with cmake 2.8.9. + (goto-char (point-min)) + (forward-line 2) + (setq result (buffer-substring-no-properties (line-beginning-position) + (line-end-position))) + (setq result (replace-regexp-in-string "^[ \t\n\r]+" "" result)) + result))) + +(defun company-cmake--doc-buffer (prefix) + (let ((cmd-opts (gethash prefix company-cmake--meta-command-cache))) + (with-temp-buffer + (call-process company-cmake-executable nil t nil cmd-opts prefix) + ;; Go to the third line, trim it and return the doc buffer. + ;; Tested with cmake 2.8.9. + (goto-char (point-min)) + (forward-line 2) + (company-doc-buffer + (buffer-substring-no-properties (line-beginning-position) + (point-max)))))) + +(defun company-cmake (command &optional arg &rest ignored) + "`company-mode' completion back-end for CMake. +CMake is a cross-platform, open-source make system." + (interactive (list 'interactive)) + (cl-case command + (interactive (company-begin-backend 'company-cmake)) + (init (when (memq major-mode company-cmake-modes) + (unless company-cmake-executable + (error "Company found no cmake executable")))) + (prefix (and (memq major-mode company-cmake-modes) + (not (company-in-string-or-comment)) + (company-grab-symbol))) + (candidates (company-cmake--candidates arg)) + (meta (company-cmake--meta arg)) + (doc-buffer (company-cmake--doc-buffer arg)) + )) + +(provide 'company-cmake) +;;; company-cmake.el ends here diff --git a/elpa/company-0.8.2/company-css.el b/elpa/company-0.8.2/company-css.el new file mode 100644 index 0000000..ec48653 --- /dev/null +++ b/elpa/company-0.8.2/company-css.el @@ -0,0 +1,438 @@ +;;; company-css.el --- company-mode completion back-end for css-mode -*- lexical-binding: t -*- + +;; Copyright (C) 2009, 2011, 2014 Free Software Foundation, Inc. + +;; Author: Nikolaj Schumacher + +;; This file is part of GNU Emacs. + +;; 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 of the License, 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. If not, see . + +;;; Commentary: + +;;; Code: + +(require 'company) +(require 'cl-lib) + +(defconst company-css-property-alist + ;; see http://www.w3.org/TR/CSS21/propidx.html + '(("azimuth" angle "left-side" "far-left" "left" "center-left" "center" + "center-right" "right" "far-right" "right-side" "behind" "leftwards" + "rightwards") + ("background" background-color background-image background-repeat + background-attachment background-position + background-clip background-origin background-size) + ("background-attachment" "scroll" "fixed") + ("background-color" color "transparent") + ("background-image" uri "none") + ("background-position" percentage length "left" "center" "right" percentage + length "top" "center" "bottom" "left" "center" "right" "top" "center" + "bottom") + ("background-repeat" "repeat" "repeat-x" "repeat-y" "no-repeat") + ("border" border-width border-style border-color) + ("border-bottom" border) + ("border-bottom-color" border-color) + ("border-bottom-style" border-style) + ("border-bottom-width" border-width) + ("border-collapse" "collapse" "separate") + ("border-color" color "transparent") + ("border-left" border) + ("border-left-color" border-color) + ("border-left-style" border-style) + ("border-left-width" border-width) + ("border-right" border) + ("border-right-color" border-color) + ("border-right-style" border-style) + ("border-right-width" border-width) + ("border-spacing" length length) + ("border-style" border-style) + ("border-top" border) + ("border-top-color" border-color) + ("border-top-style" border-style) + ("border-top-width" border-width) + ("border-width" border-width) + ("bottom" length percentage "auto") + ("caption-side" "top" "bottom") + ("clear" "none" "left" "right" "both") + ("clip" shape "auto") + ("color" color) + ("content" "normal" "none" string uri counter "attr()" "open-quote" + "close-quote" "no-open-quote" "no-close-quote") + ("counter-increment" identifier integer "none") + ("counter-reset" identifier integer "none") + ("cue" cue-before cue-after) + ("cue-after" uri "none") + ("cue-before" uri "none") + ("cursor" uri "*" "auto" "crosshair" "default" "pointer" "move" "e-resize" + "ne-resize" "nw-resize" "n-resize" "se-resize" "sw-resize" "s-resize" + "w-resize" "text" "wait" "help" "progress") + ("direction" "ltr" "rtl") + ("display" "inline" "block" "list-item" "run-in" "inline-block" "table" + "inline-table" "table-row-group" "table-header-group" "table-footer-group" + "table-row" "table-column-group" "table-column" "table-cell" + "table-caption" "none") + ("elevation" angle "below" "level" "above" "higher" "lower") + ("empty-cells" "show" "hide") + ("float" "left" "right" "none") + ("font" font-style font-weight font-size "/" line-height + font-family "caption" "icon" "menu" "message-box" "small-caption" + "status-bar" "normal" "small-caps" + ;; CSS3 + font-stretch) + ("font-family" family-name generic-family) + ("font-size" absolute-size relative-size length percentage) + ("font-style" "normal" "italic" "oblique") + ("font-weight" "normal" "bold" "bolder" "lighter" "100" "200" "300" "400" + "500" "600" "700" "800" "900") + ("height" length percentage "auto") + ("left" length percentage "auto") + ("letter-spacing" "normal" length) + ("line-height" "normal" number length percentage) + ("list-style" list-style-type list-style-position list-style-image) + ("list-style-image" uri "none") + ("list-style-position" "inside" "outside") + ("list-style-type" "disc" "circle" "square" "decimal" "decimal-leading-zero" + "lower-roman" "upper-roman" "lower-greek" "lower-latin" "upper-latin" + "armenian" "georgian" "lower-alpha" "upper-alpha" "none") + ("margin" margin-width) + ("margin-bottom" margin-width) + ("margin-left" margin-width) + ("margin-right" margin-width) + ("margin-top" margin-width) + ("max-height" length percentage "none") + ("max-width" length percentage "none") + ("min-height" length percentage) + ("min-width" length percentage) + ("orphans" integer) + ("outline" outline-color outline-style outline-width) + ("outline-color" color "invert") + ("outline-style" border-style) + ("outline-width" border-width) + ("overflow" "visible" "hidden" "scroll" "auto" + ;; CSS3: + "no-display" "no-content") + ("padding" padding-width) + ("padding-bottom" padding-width) + ("padding-left" padding-width) + ("padding-right" padding-width) + ("padding-top" padding-width) + ("page-break-after" "auto" "always" "avoid" "left" "right") + ("page-break-before" "auto" "always" "avoid" "left" "right") + ("page-break-inside" "avoid" "auto") + ("pause" time percentage) + ("pause-after" time percentage) + ("pause-before" time percentage) + ("pitch" frequency "x-low" "low" "medium" "high" "x-high") + ("pitch-range" number) + ("play-during" uri "mix" "repeat" "auto" "none") + ("position" "static" "relative" "absolute" "fixed") + ("quotes" string string "none") + ("richness" number) + ("right" length percentage "auto") + ("speak" "normal" "none" "spell-out") + ("speak-header" "once" "always") + ("speak-numeral" "digits" "continuous") + ("speak-punctuation" "code" "none") + ("speech-rate" number "x-slow" "slow" "medium" "fast" "x-fast" "faster" + "slower") + ("stress" number) + ("table-layout" "auto" "fixed") + ("text-align" "left" "right" "center" "justify") + ("text-indent" length percentage) + ("text-transform" "capitalize" "uppercase" "lowercase" "none") + ("top" length percentage "auto") + ("unicode-bidi" "normal" "embed" "bidi-override") + ("vertical-align" "baseline" "sub" "super" "top" "text-top" "middle" + "bottom" "text-bottom" percentage length) + ("visibility" "visible" "hidden" "collapse") + ("voice-family" specific-voice generic-voice "*" specific-voice + generic-voice) + ("volume" number percentage "silent" "x-soft" "soft" "medium" "loud" + "x-loud") + ("white-space" "normal" "pre" "nowrap" "pre-wrap" "pre-line") + ("widows" integer) + ("width" length percentage "auto") + ("word-spacing" "normal" length) + ("z-index" "auto" integer) + ;; CSS3 + ("align-content" align-stretch "space-between" "space-around") + ("align-items" align-stretch "baseline") + ("align-self" align-items "auto") + ("animation" animation-name animation-duration animation-timing-function + animation-delay animation-iteration-count animation-direction + animation-fill-mode) + ("animation-delay" time) + ("animation-direction" "normal" "reverse" "alternate" "alternate-reverse") + ("animation-duration" time) + ("animation-fill-mode" "none" "forwards" "backwards" "both") + ("animation-iteration-count" integer "infinite") + ("animation-name" "none") + ("animation-play-state" "paused" "running") + ("animation-timing-function" transition-timing-function + "step-start" "step-end" "steps(,)") + ("backface-visibility" "visible" "hidden") + ("background-clip" background-origin) + ("background-origin" "border-box" "padding-box" "content-box") + ("background-size" length percentage "auto" "cover" "contain") + ("border-image" border-image-outset border-image-repeat border-image-source + border-image-slice border-image-width) + ("border-image-outset" length) + ("border-image-repeat" "stretch" "repeat" "round" "space") + ("border-image-source" uri "none") + ("border-image-slice" length) + ("border-image-width" length percentage) + ("border-radius" length) + ("border-top-left-radius" length) + ("border-top-right-radius" length) + ("border-bottom-left-radius" length) + ("border-bottom-right-radius" length) + ("box-decoration-break" "slice" "clone") + ("box-shadow" length color) + ("box-sizing" "content-box" "border-box") + ("break-after" "auto" "always" "avoid" "left" "right" "page" "column" + "avoid-page" "avoid-column") + ("break-before" break-after) + ("break-inside" "avoid" "auto") + ("columns" column-width column-count) + ("column-count" integer) + ("column-fill" "auto" "balance") + ("column-gap" length "normal") + ("column-rule" column-rule-width column-rule-style column-rule-color) + ("column-rule-color" color) + ("column-rule-style" border-style) + ("column-rule-width" border-width) + ("column-span" "all" "none") + ("column-width" length "auto") + ("filter" url "blur()" "brightness()" "contrast()" "drop-shadow()" + "grayscale()" "hue-rotate()" "invert()" "opacity()" "saturate()" "sepia()") + ("flex" flex-grow flex-shrink flex-basis) + ("flex-basis" percentage length "auto") + ("flex-direction" "row" "row-reverse" "column" "column-reverse") + ("flex-flow" flex-direction flex-wrap) + ("flex-grow" number) + ("flex-shrink" number) + ("flex-wrap" "nowrap" "wrap" "wrap-reverse") + ("font-feature-setting" normal string number) + ("font-kerning" "auto" "normal" "none") + ("font-language-override" "normal" string) + ("font-size-adjust" "none" number) + ("font-stretch" "normal" "ultra-condensed" "extra-condensed" "condensed" + "semi-condensed" "semi-expanded" "expanded" "extra-expanded" "ultra-expanded") + ("font-synthesis" "none" "weight" "style") + ("font-variant" font-variant-alternates font-variant-caps + font-variant-east-asian font-variant-ligatures font-variant-numeric + font-variant-position) + ("font-variant-alternates" "normal" "historical-forms" "stylistic()" + "styleset()" "character-variant()" "swash()" "ornaments()" "annotation()") + ("font-variant-caps" "normal" "small-caps" "all-small-caps" "petite-caps" + "all-petite-caps" "unicase" "titling-caps") + ("font-variant-east-asian" "jis78" "jis83" "jis90" "jis04" "simplified" + "traditional" "full-width" "proportional-width" "ruby") + ("font-variant-ligatures" "normal" "none" "common-ligatures" + "no-common-ligatures" "discretionary-ligatures" "no-discretionary-ligatures" + "historical-ligatures" "no-historical-ligatures" "contextual" "no-contextual") + ("font-variant-numeric" "normal" "ordinal" "slashed-zero" + "lining-nums" "oldstyle-nums" "proportional-nums" "tabular-nums" + "diagonal-fractions" "stacked-fractions") + ("font-variant-position" "normal" "sub" "super") + ("hyphens" "none" "manual" "auto") + ("justify-content" align-common "space-between" "space-around") + ("line-break" "auto" "loose" "normal" "strict") + ("marquee-direction" "forward" "reverse") + ("marquee-play-count" integer "infinite") + ("marquee-speed" "slow" "normal" "fast") + ("marquee-style" "scroll" "slide" "alternate") + ("opacity" number) + ("order" number) + ("outline-offset" length) + ("overflow-x" overflow) + ("overflow-y" overflow) + ("overflow-style" "auto" "marquee-line" "marquee-block") + ("overflow-wrap" "normal" "break-word") + ("perspective" "none" length) + ("perspective-origin" percentage length "left" "center" "right" "top" "bottom") + ("resize" "none" "both" "horizontal" "vertical") + ("tab-size" integer length) + ("text-align-last" "auto" "start" "end" "left" "right" "center" "justify") + ("text-decoration" text-decoration-color text-decoration-line text-decoration-style) + ("text-decoration-color" color) + ("text-decoration-line" "none" "underline" "overline" "line-through" "blink") + ("text-decoration-style" "solid" "double" "dotted" "dashed" "wavy") + ("text-overflow" "clip" "ellipsis") + ("text-shadow" color length) + ("text-underline-position" "auto" "under" "left" "right") + ("transform" "matrix(,,,,,)" "translate(,)" "translateX()" "translateY()" + "scale()" "scaleX()" "scaleY()" "rotate()" "skewX()" "skewY()" "none") + ("transform-origin" perspective-origin) + ("transform-style" "flat" "preserve-3d") + ("transition" transition-property transition-duration + transition-timing-function transition-delay) + ("transition-delay" time) + ("transition-duration" time) + ("transition-timing-function" + "ease" "linear" "ease-in" "ease-out" "ease-in-out" "cubic-bezier(,,,)") + ("transition-property" "none" "all" identifier) + ("word-wrap" overflow-wrap) + ("word-break" "normal" "break-all" "keep-all")) + "A list of CSS properties and their possible values.") + +(defconst company-css-value-classes + '((absolute-size "xx-small" "x-small" "small" "medium" "large" "x-large" + "xx-large") + (align-common "flex-start" "flex-end" "center") + (align-stretch align-common "stretch") + (border-style "none" "hidden" "dotted" "dashed" "solid" "double" "groove" + "ridge" "inset" "outset") + (border-width "thick" "medium" "thin") + (color "aqua" "black" "blue" "fuchsia" "gray" "green" "lime" "maroon" "navy" + "olive" "orange" "purple" "red" "silver" "teal" "white" "yellow") + (counter "counter(,)") + (family-name "Courier" "Helvetica" "Times") + (generic-family "serif" "sans-serif" "cursive" "fantasy" "monospace") + (generic-voice "male" "female" "child") + (margin-width "auto") ;; length percentage + (relative-size "larger" "smaller") + (shape "rect(,,,)") + (uri "url()")) + "A list of CSS property value classes and their contents.") +;; missing, because not completable +;; +;;