added neotree and removed folders
This commit is contained in:
Raymundo Vásquez Ruiz
2
.gitignore
vendored
2
.gitignore
vendored
@@ -1,3 +1,5 @@
|
|||||||
projectile-bookmarks.eld
|
projectile-bookmarks.eld
|
||||||
*.dat
|
*.dat
|
||||||
*~
|
*~
|
||||||
|
/elpa/
|
||||||
|
/themes/
|
||||||
@@ -1,18 +0,0 @@
|
|||||||
This global minor mode provides a simple way to switch between layouts and
|
|
||||||
the buffers you left open before you switched (unless you closed it).
|
|
||||||
|
|
||||||
It doesn't require any setup at all more than:
|
|
||||||
(0blayout-mode)
|
|
||||||
|
|
||||||
When you start Emacs with 0blayout loaded, you will have a default layout
|
|
||||||
named "default", and then you can create new layouts (<prefix> C-c), switch
|
|
||||||
layouts (<prefix> C-b), and kill the current layout (<prefix> C-k).
|
|
||||||
The default <prefix> is (C-c C-l), but you can change it using:
|
|
||||||
(0blayout-add-keybindings-with-prefix "<your prefix>")
|
|
||||||
|
|
||||||
You can also customize-variable to change the name of the default session.
|
|
||||||
|
|
||||||
The project is hosted at https://github.com/etu/0blayout
|
|
||||||
There you can leave bug-reports and suggestions.
|
|
||||||
|
|
||||||
Another comparable mode is eyebrowse which have been developed for longer.
|
|
||||||
@@ -1,62 +0,0 @@
|
|||||||
;;; ac-js2-autoloads.el --- automatically extracted autoloads
|
|
||||||
;;
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(add-to-list 'load-path (directory-file-name
|
|
||||||
(or (file-name-directory #$) (car load-path))))
|
|
||||||
|
|
||||||
|
|
||||||
;;;### (autoloads nil "ac-js2" "ac-js2.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from ac-js2.el
|
|
||||||
|
|
||||||
(autoload 'ac-js2-expand-function "ac-js2" "\
|
|
||||||
Expand the function definition left of point.
|
|
||||||
Expansion will only occur for candidates whose documentation
|
|
||||||
string contain a function prototype.
|
|
||||||
|
|
||||||
\(fn)" t nil)
|
|
||||||
|
|
||||||
(autoload 'ac-js2-completion-function "ac-js2" "\
|
|
||||||
Function for `completions-at-point'.
|
|
||||||
|
|
||||||
\(fn)" nil nil)
|
|
||||||
|
|
||||||
(autoload 'ac-js2-company "ac-js2" "\
|
|
||||||
|
|
||||||
|
|
||||||
\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
|
|
||||||
|
|
||||||
(autoload 'ac-js2-jump-to-definition "ac-js2" "\
|
|
||||||
Jump to the definition of an object's property, variable or function.
|
|
||||||
Navigation to a property definend in an Object literal isn't
|
|
||||||
implemented.
|
|
||||||
|
|
||||||
\(fn)" t nil)
|
|
||||||
|
|
||||||
(autoload 'ac-js2-mode "ac-js2" "\
|
|
||||||
A minor mode that provides auto-completion and navigation for Js2-mode.
|
|
||||||
|
|
||||||
\(fn &optional ARG)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ac-js2" '("ac-js2-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "ac-js2-tests" "ac-js2-tests.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from ac-js2-tests.el
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ac-js2-tests" '("completion-frontend-test")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil nil ("ac-js2-pkg.el") (0 0 0 0))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;; Local Variables:
|
|
||||||
;; version-control: never
|
|
||||||
;; no-byte-compile: t
|
|
||||||
;; no-update-autoloads: t
|
|
||||||
;; coding: utf-8
|
|
||||||
;; End:
|
|
||||||
;;; ac-js2-autoloads.el ends here
|
|
||||||
@@ -1,11 +0,0 @@
|
|||||||
(define-package "ac-js2" "20190101.933" "Auto-complete source for Js2-mode, with navigation"
|
|
||||||
'((js2-mode "20090723")
|
|
||||||
(skewer-mode "1.4"))
|
|
||||||
:authors
|
|
||||||
'(("Scott Barnett" . "scott.n.barnett@gmail.com"))
|
|
||||||
:maintainer
|
|
||||||
'("Scott Barnett" . "scott.n.barnett@gmail.com")
|
|
||||||
:url "https://github.com/ScottyB/ac-js2")
|
|
||||||
;; Local Variables:
|
|
||||||
;; no-byte-compile: t
|
|
||||||
;; End:
|
|
||||||
@@ -1,76 +0,0 @@
|
|||||||
;;; Tests for ac-js2
|
|
||||||
|
|
||||||
(require 'ert)
|
|
||||||
(require 'skewer-mode)
|
|
||||||
(require 'js2-mode)
|
|
||||||
(require 'ac-js2)
|
|
||||||
|
|
||||||
;;; Must have a skewer client connected before running the tests
|
|
||||||
;; Need to call httpd-stop from main Emacs if running tests in batch mode
|
|
||||||
(unless skewer-clients
|
|
||||||
(run-skewer))
|
|
||||||
|
|
||||||
(ert-deftest ac-js2-candidates-test ()
|
|
||||||
"Test the major function that returns candidates for all frontends."
|
|
||||||
(let (property
|
|
||||||
property-dot
|
|
||||||
func-call
|
|
||||||
var)
|
|
||||||
(with-temp-buffer
|
|
||||||
(insert "
|
|
||||||
var temp = function(param1, param2) {
|
|
||||||
var localParam = 15;
|
|
||||||
return param1 + param2;
|
|
||||||
};
|
|
||||||
|
|
||||||
var look;
|
|
||||||
|
|
||||||
temp.aFun = function(lolParam) {};
|
|
||||||
temp.anotherFunction = function() { return {about: 3};}")
|
|
||||||
(setq ac-js2-evaluate-calls t)
|
|
||||||
(setq ac-js2-external-libraries nil)
|
|
||||||
|
|
||||||
(js2-mode)
|
|
||||||
(ac-js2-mode t)
|
|
||||||
(js2-parse)
|
|
||||||
|
|
||||||
(insert "tem")
|
|
||||||
(ac-js2-candidates)
|
|
||||||
(setq var ac-js2-skewer-candidates)
|
|
||||||
(delete-char -3)
|
|
||||||
|
|
||||||
(insert "temp.")
|
|
||||||
(js2-parse)
|
|
||||||
(ac-js2-candidates)
|
|
||||||
(setq property-dot ac-js2-skewer-candidates)
|
|
||||||
(delete-char -5)
|
|
||||||
|
|
||||||
(insert "temp.aF")
|
|
||||||
(js2-parse)
|
|
||||||
(ac-js2-candidates)
|
|
||||||
(setq property ac-js2-skewer-candidates))
|
|
||||||
|
|
||||||
(should (assoc 'anotherFunction property-dot))
|
|
||||||
(print property)
|
|
||||||
(should (assoc 'aFun property))
|
|
||||||
(should (assoc 'temp var))))
|
|
||||||
|
|
||||||
(defmacro completion-frontend-test (test-name completion-function)
|
|
||||||
"Utility for testing completion front ends.
|
|
||||||
TODO: cover more cases"
|
|
||||||
`(ert-deftest ,test-name ()
|
|
||||||
(let (var)
|
|
||||||
(with-temp-buffer
|
|
||||||
(insert "var testComplete = function(param1, param2) {};")
|
|
||||||
|
|
||||||
(js2-mode)
|
|
||||||
(ac-js2-mode t)
|
|
||||||
(js2-parse)
|
|
||||||
|
|
||||||
(insert "testComplet")
|
|
||||||
(funcall ',completion-function)
|
|
||||||
(setq var (thing-at-point 'word)))
|
|
||||||
(should (string= var "testComplete")))))
|
|
||||||
|
|
||||||
(completion-frontend-test auto-complete-test auto-complete)
|
|
||||||
(completion-frontend-test completion-at-point-test completion-at-point)
|
|
||||||
Binary file not shown.
@@ -1,608 +0,0 @@
|
|||||||
;;; ac-js2.el --- Auto-complete source for Js2-mode, with navigation
|
|
||||||
|
|
||||||
;; Copyright (C) 2013 Scott Barnett
|
|
||||||
|
|
||||||
;; Author: Scott Barnett <scott.n.barnett@gmail.com>
|
|
||||||
;; URL: https://github.com/ScottyB/ac-js2
|
|
||||||
;; Version: 1.0
|
|
||||||
;; Package-Requires: ((js2-mode "20090723")(skewer-mode "1.4"))
|
|
||||||
|
|
||||||
;; 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:
|
|
||||||
|
|
||||||
;; An attempt to get context sensitive Javascript completion in Emacs.
|
|
||||||
;; Basic completions are obtained by parsing Javascript code with
|
|
||||||
;; Js2-mode's parser.
|
|
||||||
;;
|
|
||||||
;; Installation
|
|
||||||
;;
|
|
||||||
;; Easiest way to get ac-js2 is to install it from MELPA. You may need
|
|
||||||
;; this snippet
|
|
||||||
;;
|
|
||||||
;; `(add-to-list 'package-archives
|
|
||||||
;; '("melpa" . "http://melpa.milkbox.net/packages/") t)'
|
|
||||||
;;
|
|
||||||
;; if you don't have it already to fetch packages from MELPA.
|
|
||||||
;;
|
|
||||||
;; Enable ac-js2 in js2-mode as follows:
|
|
||||||
;;
|
|
||||||
;; (add-hook 'js2-mode-hook 'ac-js2-mode)
|
|
||||||
;;
|
|
||||||
;; Ac-js2 does not require auto-complete mode but I suggest you grab
|
|
||||||
;; it anyway as ac-js2 is designed to work with a completion frontend.
|
|
||||||
;; Support for Company mode is on its way.
|
|
||||||
;;
|
|
||||||
;; For more comprehensive completions you can opt to evaluate the code
|
|
||||||
;; for candidates. A browser needs to be connected to Emacs for the
|
|
||||||
;; evaluation completions to work. Put this in your init.el file.
|
|
||||||
;;
|
|
||||||
;; `(setq ac-js2-evaluate-calls t)'
|
|
||||||
;;
|
|
||||||
;; To add completions for external libraries add something like this:
|
|
||||||
;;
|
|
||||||
;; (add-to-list 'ac-js2-external-libraries "path/to/lib/library.js")
|
|
||||||
;;
|
|
||||||
;; Then connect a browser to Emacs by calling `(run-skewer)'. You may
|
|
||||||
;; need to save the buffer for completions to start.
|
|
||||||
;;
|
|
||||||
;; If auto-complete mode is installed on your system then completions
|
|
||||||
;; should start showing up otherwise use `completion-at-point'.
|
|
||||||
;;
|
|
||||||
;; Note: library completions will only work if `ac-js2-evaluate-calls'
|
|
||||||
;; is set and a browser is connected to Emacs.
|
|
||||||
;;
|
|
||||||
;; Bonus: M-. is bound to `ac-js2-jump-to-definition' which will jump
|
|
||||||
;; to Javascript definitions found in the same buffer. Given the
|
|
||||||
;; following proprety reference:
|
|
||||||
;;
|
|
||||||
;; foo.bar.baz();
|
|
||||||
;;
|
|
||||||
;; placing the cursor on `foo', `bar' or `baz' and executing M-. will
|
|
||||||
;; take you straight to their respective definitions. Use M-, to jump
|
|
||||||
;; back to where you were. Also works for object literals.
|
|
||||||
;;
|
|
||||||
;; Recently added `ac-js2-expand-function' that will expand a function's
|
|
||||||
;; parameters bound to `C-c C-c`. Expansion will only work if the cursor
|
|
||||||
;; is after the function.
|
|
||||||
;;
|
|
||||||
;; If you have any issues or suggestions please create an issue on Github:
|
|
||||||
;; https://github.com/ScottyB/ac-js2
|
|
||||||
|
|
||||||
;;; History:
|
|
||||||
|
|
||||||
;; Version 1.0
|
|
||||||
;; * Navigation within current buffer
|
|
||||||
;; * Completion and docstring for objects via Skewer
|
|
||||||
;; * External library support
|
|
||||||
;; * Basic completions of objects in current buffer
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'js2-mode)
|
|
||||||
(require 'skewer-mode)
|
|
||||||
(require 'cl-lib)
|
|
||||||
(require 'etags)
|
|
||||||
|
|
||||||
(defgroup ac-js2 nil
|
|
||||||
"Auto-completion for js2-mode."
|
|
||||||
:group 'completion
|
|
||||||
:prefix "ac-js2-")
|
|
||||||
|
|
||||||
;;; Configuration variables
|
|
||||||
|
|
||||||
(defcustom ac-js2-add-ecma-262-externs t
|
|
||||||
"If non-nil add `js2-ecma-262-externs' to completion candidates.")
|
|
||||||
|
|
||||||
(defcustom ac-js2-add-browser-externs t
|
|
||||||
"If non-nil add `js2-browser-externs' to completion candidates.")
|
|
||||||
|
|
||||||
(defcustom ac-js2-add-keywords t
|
|
||||||
"If non-nil add `js2-keywords' to completion candidates.")
|
|
||||||
|
|
||||||
(defcustom ac-js2-add-prototype-completions t
|
|
||||||
"When non-nil traverse the prototype chain adding to completion candidates.")
|
|
||||||
|
|
||||||
(defcustom ac-js2-external-libraries '()
|
|
||||||
"List of absolute paths to external Javascript libraries.")
|
|
||||||
|
|
||||||
(defcustom ac-js2-evaluate-calls nil
|
|
||||||
"Warning. When true function calls will be evaluated in the browser.
|
|
||||||
This may cause undesired side effects however it will
|
|
||||||
provide better completions. Use at your own risk.")
|
|
||||||
|
|
||||||
(defcustom ac-js2-force-reparse t
|
|
||||||
"Force Js2-mode to reparse buffer before fetching completion candidates.")
|
|
||||||
|
|
||||||
;;; Internal variables
|
|
||||||
|
|
||||||
(defvar ac-js2-keywords '()
|
|
||||||
"Cached string version of `js2-keywords'.")
|
|
||||||
|
|
||||||
(defvar ac-js2-candidates '())
|
|
||||||
|
|
||||||
;; Types of skewer completion methods available
|
|
||||||
(defconst ac-js2-method-eval 0)
|
|
||||||
(defconst ac-js2-method-global 1
|
|
||||||
"Return candidates for the global object.
|
|
||||||
Only keys of the object are returned as the other properties come
|
|
||||||
from js2-mode's externs.")
|
|
||||||
|
|
||||||
(defvar ac-js2-data-root (file-name-directory load-file-name)
|
|
||||||
"Location of data files needed for `ac-js2-on-skewer-load'.")
|
|
||||||
|
|
||||||
;;; Skewer integration
|
|
||||||
|
|
||||||
(defvar ac-js2-skewer-candidates '()
|
|
||||||
"Cadidates obtained from skewering.")
|
|
||||||
|
|
||||||
(defun ac-js2-on-skewer-load ()
|
|
||||||
"Inject skewer addon and evaluate external libraries in browser."
|
|
||||||
(insert-file-contents (expand-file-name "skewer-addon.js" ac-js2-data-root))
|
|
||||||
(and ac-js2-evaluate-calls
|
|
||||||
(mapcar (lambda (library)
|
|
||||||
(with-temp-buffer
|
|
||||||
(insert-file-contents (expand-file-name library))
|
|
||||||
(skewer-eval (buffer-string)
|
|
||||||
nil
|
|
||||||
:type "complete"))) ac-js2-external-libraries)))
|
|
||||||
|
|
||||||
(defun ac-js2-skewer-completion-candidates ()
|
|
||||||
"Get completions returned from skewer."
|
|
||||||
(mapcar (lambda (candidate) (symbol-name (car candidate))) ac-js2-skewer-candidates))
|
|
||||||
|
|
||||||
(defun ac-js2-skewer-document-candidates (name)
|
|
||||||
"Return document string for NAME from skewer."
|
|
||||||
(let ((doc (cdr (assoc-string name ac-js2-skewer-candidates))))
|
|
||||||
(or (ac-js2-format-function doc) doc)))
|
|
||||||
|
|
||||||
(defun ac-js2-get-object-properties (name)
|
|
||||||
"Find properties of NAME for completion."
|
|
||||||
(ac-js2-skewer-eval-wrapper name `((prototypes . ,ac-js2-add-prototype-completions))))
|
|
||||||
|
|
||||||
(defun ac-js2-skewer-result-callback (result)
|
|
||||||
"Process the RESULT passed from the browser."
|
|
||||||
(let ((value (cdr (assoc 'value result))))
|
|
||||||
(if (and (skewer-success-p result) value)
|
|
||||||
(setq ac-js2-skewer-candidates (append value nil)))))
|
|
||||||
|
|
||||||
(defun ac-js2-skewer-eval-wrapper (str &optional extras)
|
|
||||||
"Wrap `skewer-eval-synchronously' to check if a skewer-client is avilable.
|
|
||||||
STR is the text to send to the browser for evaluation. Extra
|
|
||||||
parameters can be passed to the browser using EXTRAS. EXTRAS must
|
|
||||||
be of the form (param-string . value) where param-string is the
|
|
||||||
reference and value is the value that can be retrieved from the
|
|
||||||
request object in Javacript."
|
|
||||||
(setq ac-js2-skewer-candidates nil)
|
|
||||||
(if skewer-clients
|
|
||||||
(if (or ac-js2-evaluate-calls
|
|
||||||
(not (ac-js2-has-function-calls str)))
|
|
||||||
(ac-js2-skewer-result-callback
|
|
||||||
(skewer-eval-synchronously str
|
|
||||||
:type "complete"
|
|
||||||
:extra extras)))
|
|
||||||
(setq skewer-queue nil)))
|
|
||||||
|
|
||||||
;; Generate candidates
|
|
||||||
(defun ac-js2-candidates ()
|
|
||||||
"Main function called to gather candidates for auto-completion."
|
|
||||||
(if ac-js2-force-reparse (js2-reparse))
|
|
||||||
(let ((node (js2-node-parent (js2-node-at-point (1- (point)))))
|
|
||||||
beg
|
|
||||||
(prop-get-regex "[a-zA-Z)]\\.")
|
|
||||||
name)
|
|
||||||
(setq ac-js2-candidates nil)
|
|
||||||
(cond
|
|
||||||
((looking-back "\\.")
|
|
||||||
;; TODO: Need to come up with a better way to extract object than this regex!!
|
|
||||||
(save-excursion
|
|
||||||
(setq beg (and (skip-chars-backward "[a-zA-Z_$][0-9a-zA-Z_$#\"())]+\\.") (point))))
|
|
||||||
(setq name (buffer-substring-no-properties beg (1- (point))))
|
|
||||||
(ac-js2-get-object-properties name)
|
|
||||||
(setq node (ac-js2-initialized-node (if (string-match prop-get-regex name)
|
|
||||||
(reverse (split-string name prop-get-regex)) name)))
|
|
||||||
(if (js2-object-node-p node)
|
|
||||||
(setq ac-js2-candidates
|
|
||||||
(mapcar (lambda (elem)
|
|
||||||
(ac-js2-format-node (js2-node-string (js2-object-prop-node-left elem))
|
|
||||||
elem))
|
|
||||||
(js2-object-node-elems node))))
|
|
||||||
(append (mapcar 'cl-first ac-js2-candidates)
|
|
||||||
(ac-js2-skewer-completion-candidates)))
|
|
||||||
((js2-prop-get-node-p node)
|
|
||||||
(setq node (js2-prop-get-node-left node))
|
|
||||||
(setq name (js2-node-string node))
|
|
||||||
(ac-js2-get-object-properties name)
|
|
||||||
(ac-js2-skewer-completion-candidates))
|
|
||||||
(t
|
|
||||||
(ac-js2-skewer-eval-wrapper "" `((method . ,ac-js2-method-global)))
|
|
||||||
(append (ac-js2-skewer-completion-candidates)
|
|
||||||
(ac-js2-add-extra-completions
|
|
||||||
(mapcar 'cl-first (ac-js2-get-names-in-scope))))))))
|
|
||||||
|
|
||||||
(defun ac-js2-document (name)
|
|
||||||
"Show documentation for NAME from local buffer if present
|
|
||||||
otherwise use documentation obtained from skewer."
|
|
||||||
(let* ((docs (cdr (assoc name ac-js2-candidates)))
|
|
||||||
(doc (if (listp docs) (cl-first docs) docs)))
|
|
||||||
(if doc doc (ac-js2-skewer-document-candidates name))))
|
|
||||||
|
|
||||||
;; Auto-complete settings
|
|
||||||
|
|
||||||
(defun ac-js2-ac-candidates ()
|
|
||||||
"Completion candidates for auto-complete mode."
|
|
||||||
(ac-js2-candidates))
|
|
||||||
|
|
||||||
(defun ac-js2-ac-document (name)
|
|
||||||
"Documentation to be shown for auto-complete mode."
|
|
||||||
(ac-js2-document name))
|
|
||||||
|
|
||||||
(defun ac-js2-ac-prefix()
|
|
||||||
(or (ac-prefix-default) (ac-prefix-c-dot)))
|
|
||||||
|
|
||||||
(defun ac-js2-save ()
|
|
||||||
"Called on `before-save-hook' to evaluate buffer."
|
|
||||||
(interactive)
|
|
||||||
(when (string= major-mode "js2-mode")
|
|
||||||
(ac-js2-skewer-eval-wrapper (buffer-string)))
|
|
||||||
t)
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun ac-js2-expand-function()
|
|
||||||
"Expand the function definition left of point.
|
|
||||||
Expansion will only occur for candidates whose documentation
|
|
||||||
string contain a function prototype."
|
|
||||||
(interactive)
|
|
||||||
(let* ((word (progn
|
|
||||||
(if (featurep 'auto-complete) (ac-complete))
|
|
||||||
(substring-no-properties (or (thing-at-point 'word) ""))))
|
|
||||||
(candidate (ac-js2-ac-document word)))
|
|
||||||
(if (and (looking-back word) (stringp candidate))
|
|
||||||
(when (string-match "^function" candidate)
|
|
||||||
(cond ((featurep 'yasnippet)
|
|
||||||
(yas-expand-snippet
|
|
||||||
(concat "("
|
|
||||||
(replace-regexp-in-string "\\([a-zA-Z0-9]+\\)"
|
|
||||||
(lambda (txt) (concat "${" txt "}"))
|
|
||||||
(cl-second (split-string candidate "[()]")))
|
|
||||||
")$0"))))))))
|
|
||||||
|
|
||||||
(defun ac-js2-setup-auto-complete-mode ()
|
|
||||||
"Setup ac-js2 to be used with auto-complete-mode."
|
|
||||||
(add-to-list 'ac-sources 'ac-source-js2)
|
|
||||||
(auto-complete-mode)
|
|
||||||
(ac-define-source "js2"
|
|
||||||
'((candidates . ac-js2-ac-candidates)
|
|
||||||
(document . ac-js2-ac-document)
|
|
||||||
(prefix . ac-js2-ac-prefix)
|
|
||||||
(requires . -1))))
|
|
||||||
|
|
||||||
;;; Completion at point function
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun ac-js2-completion-function ()
|
|
||||||
"Function for `completions-at-point'."
|
|
||||||
(save-excursion
|
|
||||||
(let ((bounds (if (looking-back "\\.")
|
|
||||||
(cons (point) (point))
|
|
||||||
(bounds-of-thing-at-point 'word))))
|
|
||||||
(list (car bounds) (cdr bounds) (ac-js2-candidates)))))
|
|
||||||
|
|
||||||
;;; Company
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun ac-js2-company (command &optional arg &rest ignored)
|
|
||||||
(interactive (list 'interactive))
|
|
||||||
(if (not (featurep 'company))
|
|
||||||
(message "Company is not installed")
|
|
||||||
(cl-case command
|
|
||||||
(interactive (company-begin-backend 'ac-js2-company))
|
|
||||||
(prefix (when ac-js2-mode
|
|
||||||
(or (company-grab-symbol)
|
|
||||||
'stop)))
|
|
||||||
(candidates (all-completions arg (ac-js2-candidates)))
|
|
||||||
(duplicates t)
|
|
||||||
(meta (let ((doc (ac-js2-document arg)))
|
|
||||||
(when doc
|
|
||||||
(with-temp-buffer
|
|
||||||
(insert doc)
|
|
||||||
(js-mode)
|
|
||||||
(if (fboundp 'font-lock-ensure)
|
|
||||||
(font-lock-ensure)
|
|
||||||
(with-no-warnings
|
|
||||||
(font-lock-fontify-buffer)))
|
|
||||||
(buffer-string))))))))
|
|
||||||
|
|
||||||
;;; Helper functions
|
|
||||||
|
|
||||||
(defun ac-js2-build-prop-name-list (prop-node)
|
|
||||||
"Build a list of names from a PROP-NODE."
|
|
||||||
(let* (names
|
|
||||||
left
|
|
||||||
left-node)
|
|
||||||
(unless (js2-prop-get-node-p prop-node)
|
|
||||||
(error "Node is not a property prop-node"))
|
|
||||||
(while (js2-prop-get-node-p prop-node)
|
|
||||||
(push (js2-name-node-name (js2-prop-get-node-right prop-node)) names)
|
|
||||||
(setq left-node (js2-prop-get-node-left prop-node))
|
|
||||||
(when (js2-name-node-p left-node)
|
|
||||||
(setq left (js2-name-node-name left-node)))
|
|
||||||
(setq prop-node (js2-node-parent prop-node)))
|
|
||||||
(append names `(,left))))
|
|
||||||
|
|
||||||
(defun ac-js2-prop-names-left (name-node)
|
|
||||||
"Create a list of all of the names in the property NAME-NODE.
|
|
||||||
NAME-NODE must have a js2-prop-get-node as parent. Only adds
|
|
||||||
properties to the left of point. This is so individual jump
|
|
||||||
points can be found for each property in the chain."
|
|
||||||
(let* (name
|
|
||||||
(parent (js2-node-parent name-node))
|
|
||||||
left
|
|
||||||
names)
|
|
||||||
(unless (or (js2-prop-get-node-p parent) (js2-name-node-p name-node))
|
|
||||||
(error "Not a name node or doesn't have a prop-get-node as parent"))
|
|
||||||
(setq name (js2-name-node-name name-node)
|
|
||||||
left (js2-prop-get-node-left parent))
|
|
||||||
(if (and (js2-name-node-p left)
|
|
||||||
(string= name (js2-name-node-name left)))
|
|
||||||
(setq names name)
|
|
||||||
(js2-visit-ast
|
|
||||||
parent
|
|
||||||
(lambda (node endp)
|
|
||||||
(unless endp
|
|
||||||
(if (js2-name-node-p node)
|
|
||||||
(push (js2-name-node-name node) names)
|
|
||||||
t))))
|
|
||||||
names)))
|
|
||||||
|
|
||||||
(defun ac-js2-has-function-calls (string)
|
|
||||||
"Check if the Javascript code in STRING has a Js2-call-node."
|
|
||||||
(with-temp-buffer
|
|
||||||
(insert string)
|
|
||||||
(let* ((ast (js2-parse)))
|
|
||||||
(catch 'call-node
|
|
||||||
(js2-visit-ast-root
|
|
||||||
ast
|
|
||||||
(lambda (node end-p)
|
|
||||||
(unless end-p
|
|
||||||
(if (js2-call-node-p node)
|
|
||||||
(throw 'call-node t)
|
|
||||||
t))))))))
|
|
||||||
|
|
||||||
(defun ac-js2-add-extra-completions (completions)
|
|
||||||
"Add extra candidates to COMPLETIONS."
|
|
||||||
(append completions
|
|
||||||
(if ac-js2-add-keywords (or ac-js2-keywords (setq ac-js2-keywords (mapcar 'symbol-name js2-keywords))))
|
|
||||||
(if ac-js2-add-ecma-262-externs js2-ecma-262-externs)
|
|
||||||
(if ac-js2-add-browser-externs js2-browser-externs)))
|
|
||||||
|
|
||||||
(defun ac-js2-root-or-node ()
|
|
||||||
"Return the current node or js2-ast-root node."
|
|
||||||
(let ((node (js2-node-at-point)))
|
|
||||||
(if (js2-ast-root-p node)
|
|
||||||
node
|
|
||||||
(js2-node-get-enclosing-scope node))))
|
|
||||||
|
|
||||||
(defun ac-js2-get-names-in-scope ()
|
|
||||||
"Fetches all symbols in scope and formats them for completion."
|
|
||||||
(let* ((scope (ac-js2-root-or-node))
|
|
||||||
result)
|
|
||||||
(while scope
|
|
||||||
(setq result (append result
|
|
||||||
(cl-loop for item in (js2-scope-symbol-table scope)
|
|
||||||
if (not (assoc (car item) result))
|
|
||||||
collect item)))
|
|
||||||
(setq scope (js2-scope-parent-scope scope)))
|
|
||||||
(setq ac-js2-candidates
|
|
||||||
(mapcar #'(lambda (x)
|
|
||||||
(let* ((name (symbol-name (car x)))
|
|
||||||
(init (ac-js2-initialized-node name)))
|
|
||||||
(ac-js2-format-node name init)))
|
|
||||||
result))))
|
|
||||||
|
|
||||||
(defun ac-js2-initialized-node (name)
|
|
||||||
"Return initial value assigned to NAME.
|
|
||||||
NAME may be either a variable, a function or a variable that
|
|
||||||
holds a function. NAME may also be a list of names that make up a
|
|
||||||
object property. Returns nil if no initial value can be found."
|
|
||||||
(let* ((node (if (listp name) (ac-js2-find-property name)
|
|
||||||
(ac-js2-name-declaration name)))
|
|
||||||
(parent (if node (js2-node-parent node)))
|
|
||||||
(init (cond
|
|
||||||
((js2-function-node-p parent)
|
|
||||||
parent)
|
|
||||||
((js2-function-node-p node)
|
|
||||||
node)
|
|
||||||
((js2-var-init-node-p parent)
|
|
||||||
(js2-var-init-node-initializer parent))
|
|
||||||
((js2-assign-node-p parent)
|
|
||||||
(js2-assign-node-right parent))
|
|
||||||
(t
|
|
||||||
nil))))
|
|
||||||
init))
|
|
||||||
|
|
||||||
(defun ac-js2-name-declaration (name)
|
|
||||||
"Return the declaration node for node named NAME."
|
|
||||||
(let* ((node (ac-js2-root-or-node))
|
|
||||||
(scope-def (js2-get-defining-scope node name))
|
|
||||||
(scope (if scope-def (js2-scope-get-symbol scope-def name) nil))
|
|
||||||
(symbol (if scope (js2-symbol-ast-node scope) nil)))
|
|
||||||
(if (not symbol)
|
|
||||||
(ac-js2-get-function-node name scope-def)
|
|
||||||
symbol)))
|
|
||||||
|
|
||||||
;;; Completion candidate formatting
|
|
||||||
|
|
||||||
(defun ac-js2-format-node (name node)
|
|
||||||
"Format NAME and NODE for completion.
|
|
||||||
Returned format is a list where the first element is the NAME of
|
|
||||||
the node (shown in completion candidate list) and the last
|
|
||||||
element is the text to show as documentation."
|
|
||||||
(let ((node (if (js2-object-prop-node-p node) (js2-object-prop-node-right node) node))
|
|
||||||
(name-format (replace-regexp-in-string "\"" "" name))
|
|
||||||
(doc (if (and (js2-function-node-p node)
|
|
||||||
(cl-find name (js2-function-node-params node)
|
|
||||||
:test '(lambda (name param) (string= name (js2-name-node-name param)))))
|
|
||||||
"Function parameter"
|
|
||||||
(ac-js2-format-node-doc node))))
|
|
||||||
`(,name-format . ,doc)))
|
|
||||||
|
|
||||||
(defun ac-js2-format-object-node-doc (obj-node)
|
|
||||||
"Format OBJ-NODE to display as documentation."
|
|
||||||
(let (elems)
|
|
||||||
(unless (js2-object-node-p obj-node)
|
|
||||||
(error "Node is not an object node"))
|
|
||||||
(setq elems (js2-object-node-elems obj-node))
|
|
||||||
(if (not elems)
|
|
||||||
"{}"
|
|
||||||
(mapconcat #'(lambda (x) (ac-js2-format-js2-object-prop-doc x)) elems "\n"))))
|
|
||||||
|
|
||||||
(defun ac-js2-format-node-doc (node)
|
|
||||||
"Format NODE for displaying in a document string."
|
|
||||||
(let* ((node-above (and node (js2-node-at-point
|
|
||||||
(save-excursion
|
|
||||||
(goto-char (js2-node-abs-pos node))
|
|
||||||
(forward-line -1)
|
|
||||||
(point)))))
|
|
||||||
(comment (if (js2-comment-node-p node-above)
|
|
||||||
(ac-js2-format-comment (js2-node-string node-above))))
|
|
||||||
(doc (cond
|
|
||||||
((js2-function-node-p node)
|
|
||||||
(ac-js2-format-function node))
|
|
||||||
((js2-object-node-p node)
|
|
||||||
(ac-js2-format-object-node-doc node))
|
|
||||||
((js2-object-prop-node-p node)
|
|
||||||
(ac-js2-format-node-doc (js2-object-prop-node-right node)))
|
|
||||||
(t
|
|
||||||
(if (js2-node-p node) (js2-node-string node) "")))))
|
|
||||||
(if comment (concat comment "\n" doc) doc)))
|
|
||||||
|
|
||||||
(defun ac-js2-format-js2-object-prop-doc (obj-prop)
|
|
||||||
"Format an OBJ-PROP for displaying as a document string."
|
|
||||||
(unless (js2-object-prop-node-p obj-prop)
|
|
||||||
(error "Node is not an object property node"))
|
|
||||||
(let* ((left (js2-object-prop-node-left obj-prop))
|
|
||||||
(right (js2-object-prop-node-right obj-prop)))
|
|
||||||
(concat (js2-node-string left) " : "
|
|
||||||
(ac-js2-format-node-doc right))))
|
|
||||||
|
|
||||||
(defun ac-js2-format-function (func)
|
|
||||||
"Formats a function for a document string.
|
|
||||||
FUNC can be either a function node or a string starting with
|
|
||||||
'function'. Returns nil if neither."
|
|
||||||
(let ((str (or (and (js2-function-node-p func) (js2-node-string func))
|
|
||||||
(and (stringp func) (eq 0 (string-match "function" func)) func))))
|
|
||||||
(if str (substring str 0 (1+ (string-match ")" str))))))
|
|
||||||
|
|
||||||
(defun ac-js2-format-comment (comment)
|
|
||||||
"Prepare a COMMENT node for displaying in a popup."
|
|
||||||
(let* ((node-string (if (js2-comment-node-p comment)
|
|
||||||
(js2-node-string comment)
|
|
||||||
comment))
|
|
||||||
(string (replace-regexp-in-string "[ \t]$" ""
|
|
||||||
(replace-regexp-in-string "^[ \t\n*/*]+" "" node-string))))
|
|
||||||
string))
|
|
||||||
|
|
||||||
;;; Navigation commands for js2-mode
|
|
||||||
|
|
||||||
(defun ac-js2-find-property (list-names)
|
|
||||||
"Find the property definition that consists of LIST-NAMES.
|
|
||||||
Supports navigation to 'foo.bar = 3' and 'foo = {bar: 3}'."
|
|
||||||
(catch 'prop-found
|
|
||||||
(js2-visit-ast-root
|
|
||||||
js2-mode-ast
|
|
||||||
(lambda (node endp)
|
|
||||||
(let ((parent (js2-node-parent node)))
|
|
||||||
(unless endp
|
|
||||||
(if (or (and (js2-prop-get-node-p node)
|
|
||||||
(not (or (js2-elem-get-node-p parent) (js2-call-node-p parent)))
|
|
||||||
(equal list-names (ac-js2-build-prop-name-list node)))
|
|
||||||
(and (js2-name-node-p node)
|
|
||||||
(js2-object-prop-node-p parent)
|
|
||||||
(string= (js2-name-node-name node)
|
|
||||||
(cl-first list-names))))
|
|
||||||
(throw 'prop-found node))
|
|
||||||
t))))))
|
|
||||||
|
|
||||||
(defun ac-js2-get-function-node (name scope)
|
|
||||||
"Return node of function named NAME in SCOPE."
|
|
||||||
(catch 'function-found
|
|
||||||
(js2-visit-ast
|
|
||||||
scope
|
|
||||||
(lambda (node end-p)
|
|
||||||
(when (and (not end-p)
|
|
||||||
(string= name (ac-js2-get-function-name node)))
|
|
||||||
(throw 'function-found node))
|
|
||||||
t))
|
|
||||||
nil))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun ac-js2-jump-to-definition ()
|
|
||||||
"Jump to the definition of an object's property, variable or function.
|
|
||||||
Navigation to a property definend in an Object literal isn't
|
|
||||||
implemented."
|
|
||||||
(interactive)
|
|
||||||
(ring-insert find-tag-marker-ring (point-marker))
|
|
||||||
(let* ((node (js2-node-at-point))
|
|
||||||
(parent (js2-node-parent node))
|
|
||||||
(prop-names (if (js2-prop-get-node-p parent)
|
|
||||||
(ac-js2-prop-names-left node)))
|
|
||||||
(name (if (and (js2-name-node-p node)
|
|
||||||
(not (js2-object-prop-node-p parent)))
|
|
||||||
(js2-name-node-name node)
|
|
||||||
(error "Node is not a supported jump node")))
|
|
||||||
(node-init (if (and prop-names (listp prop-names))
|
|
||||||
(ac-js2-find-property prop-names)
|
|
||||||
(ac-js2-name-declaration name))))
|
|
||||||
(unless node-init
|
|
||||||
(pop-tag-mark)
|
|
||||||
(error "No jump location found"))
|
|
||||||
(goto-char (js2-node-abs-pos node-init))))
|
|
||||||
|
|
||||||
(defun ac-js2-get-function-name (fn-node)
|
|
||||||
"Return the name of the function FN-NODE.
|
|
||||||
Value may be either function name or the variable name that holds
|
|
||||||
the function."
|
|
||||||
(let ((parent (js2-node-parent fn-node)))
|
|
||||||
(if (js2-function-node-p fn-node)
|
|
||||||
(or (js2-function-name fn-node)
|
|
||||||
(if (js2-var-init-node-p parent)
|
|
||||||
(js2-name-node-name (js2-var-init-node-target parent)))))))
|
|
||||||
|
|
||||||
(defvar ac-js2-mode-map
|
|
||||||
(let ((map (make-sparse-keymap)))
|
|
||||||
(define-key map (kbd "M-.") 'ac-js2-jump-to-definition)
|
|
||||||
(define-key map (kbd "M-,") 'pop-tag-mark)
|
|
||||||
(define-key map (kbd "C-c C-c") 'ac-js2-expand-function)
|
|
||||||
map)
|
|
||||||
"Keymap for `ac-js2-mode'.")
|
|
||||||
|
|
||||||
;;; Minor mode
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(define-minor-mode ac-js2-mode
|
|
||||||
"A minor mode that provides auto-completion and navigation for Js2-mode."
|
|
||||||
:keymap ac-js2-mode-map
|
|
||||||
(if (featurep 'auto-complete)
|
|
||||||
(ac-js2-setup-auto-complete-mode))
|
|
||||||
(set (make-local-variable 'completion-at-point-functions)
|
|
||||||
(cons 'ac-js2-completion-function completion-at-point-functions))
|
|
||||||
(ac-js2-skewer-eval-wrapper (buffer-string))
|
|
||||||
(add-hook 'before-save-hook 'ac-js2-save nil t)
|
|
||||||
(add-hook 'skewer-js-hook 'ac-js2-on-skewer-load))
|
|
||||||
|
|
||||||
|
|
||||||
(provide 'ac-js2)
|
|
||||||
|
|
||||||
;;; ac-js2.el ends here
|
|
||||||
Binary file not shown.
@@ -1,116 +0,0 @@
|
|||||||
/**
|
|
||||||
* @fileOverview Completion request handler for skewer.js
|
|
||||||
* @requires skewer
|
|
||||||
* @version 1.0
|
|
||||||
*/
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Handles a completion request from Emacs.
|
|
||||||
* @param request The request object sent by Emacs
|
|
||||||
* @returns The completions and init values to be returned to Emacs
|
|
||||||
*/
|
|
||||||
skewer.fn.complete = function(request) {
|
|
||||||
var result = {
|
|
||||||
type : request.type,
|
|
||||||
id : request.id,
|
|
||||||
strict : request.strict,
|
|
||||||
status : "success"
|
|
||||||
},
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Methods for generating candidates
|
|
||||||
*/
|
|
||||||
METHOD = {
|
|
||||||
EVAL : 0,
|
|
||||||
GLOBAL : 1
|
|
||||||
},
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Add the properties from object to extendObject. Properties
|
|
||||||
* may be from the prototype but we still want to add them.
|
|
||||||
*/
|
|
||||||
extend = function(extendObject, object) {
|
|
||||||
for(var key in object) {
|
|
||||||
extendObject[key] = object[key];
|
|
||||||
}
|
|
||||||
},
|
|
||||||
|
|
||||||
globalCompletion = function() {
|
|
||||||
var global = Function('return this')(),
|
|
||||||
keys = Object.keys(global);
|
|
||||||
candidates = buildCandidates(global, keys);
|
|
||||||
},
|
|
||||||
|
|
||||||
evalCompletion = function(evalObject) {
|
|
||||||
var obj = (eval, eval)(evalObject);
|
|
||||||
if (typeof obj === "object") {
|
|
||||||
candidates = buildCandidates(obj) || {};
|
|
||||||
while (request.prototypes && (obj = Object.getPrototypeOf(obj)) !== null) {
|
|
||||||
extend(candidates, buildCandidates(obj));
|
|
||||||
}
|
|
||||||
} else if (typeof obj === "function"){
|
|
||||||
candidates = buildCandidates(obj) || {};
|
|
||||||
extend(candidates, buildCandidates(Object.getPrototypeOf(obj)));
|
|
||||||
if (request.prototypes) {
|
|
||||||
var protoObject = Object.getPrototypeOf(obj.prototype);
|
|
||||||
if (protoObject !== null) {
|
|
||||||
extend(candidates, buildCandidates(protoObject));
|
|
||||||
} else {
|
|
||||||
extend(candidates, buildCandidates(obj.prototype));
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
},
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Completion candidates sent back to Emacs. Keys are
|
|
||||||
* completion candidates the values are the inital items or
|
|
||||||
* function interfaces.
|
|
||||||
*/
|
|
||||||
candidates = {},
|
|
||||||
|
|
||||||
/**
|
|
||||||
* Build the candiates to return to Emacs.
|
|
||||||
* @param obj The object to get candidates from
|
|
||||||
* @param items The selected keys from obj to create candidates for
|
|
||||||
* @return object containing completion candidates and documentation strings
|
|
||||||
*/
|
|
||||||
buildCandidates = function(obj, items) {
|
|
||||||
var keys = items || Object.getOwnPropertyNames(obj), values = {};
|
|
||||||
for (var i = 0; i < keys.length; i++) {
|
|
||||||
var key = keys[i];
|
|
||||||
if (key === "callee" || key === "caller" || key === "arguments") continue;
|
|
||||||
if (Object.prototype.toString.call(obj[key]) === "[object Function]") {
|
|
||||||
values[key] = obj[key].toString();
|
|
||||||
} else if (typeof obj[key] === "object"){
|
|
||||||
values[key] = "[object Object]";
|
|
||||||
} else if (typeof obj[key] === "number") {
|
|
||||||
if (!(obj instanceof Array)) {
|
|
||||||
values[key] = obj[key].toString();
|
|
||||||
}
|
|
||||||
} else if (typeof obj[key] === "string") {
|
|
||||||
values[key] = obj[key].toString();
|
|
||||||
} else if(obj[key] === true) {
|
|
||||||
values[key] = "true";
|
|
||||||
} else if (obj[key] === false) {
|
|
||||||
values[key] = "false";
|
|
||||||
} else {
|
|
||||||
values[key] = "";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return values;
|
|
||||||
};
|
|
||||||
try {
|
|
||||||
switch (request.method) {
|
|
||||||
case METHOD.GLOBAL:
|
|
||||||
globalCompletion();
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
evalCompletion(request.eval);
|
|
||||||
}
|
|
||||||
result.value = candidates;
|
|
||||||
} catch (error){
|
|
||||||
skewer.errorResult(error, result, request);
|
|
||||||
}
|
|
||||||
return result;
|
|
||||||
};
|
|
||||||
@@ -1,35 +0,0 @@
|
|||||||
The core library of the `ac-php' package. Acts like a backend for the
|
|
||||||
following components:
|
|
||||||
|
|
||||||
- `ac-php'
|
|
||||||
- `company-php'
|
|
||||||
- `helm-ac-php-apropros'
|
|
||||||
|
|
||||||
Can be used as an API to build your own components. This engine currently
|
|
||||||
provides:
|
|
||||||
|
|
||||||
- Support of PHP code completion
|
|
||||||
- Support of jumping to definition/declaration/inclusion-file
|
|
||||||
|
|
||||||
When creating this package, the ideas of the following packages were used:
|
|
||||||
|
|
||||||
- auto-java-complete
|
|
||||||
|
|
||||||
- `ac-php-remove-unnecessary-items-4-complete-method'
|
|
||||||
- `ac-php-split-string-with-separator'
|
|
||||||
|
|
||||||
- auto-complete-clang
|
|
||||||
|
|
||||||
- rtags
|
|
||||||
|
|
||||||
- `ac-php-location-stack-index'
|
|
||||||
|
|
||||||
Many options available under Help:Customize
|
|
||||||
Options specific to ac-php-core are in
|
|
||||||
Convenience/Completion/Auto Complete
|
|
||||||
|
|
||||||
Known to work with Linux and macOS. Windows support is in beta stage.
|
|
||||||
For more info and examples see URL `https://github.com/xcwen/ac-php' .
|
|
||||||
|
|
||||||
Bugs: Bug tracking is currently handled using the GitHub issue tracker
|
|
||||||
(see URL `https://github.com/xcwen/ac-php/issues')
|
|
||||||
File diff suppressed because it is too large
Load Diff
@@ -1 +0,0 @@
|
|||||||
Good signature from 066DAFCB81E42C40 GNU ELPA Signing Agent (2019) <elpasign@elpa.gnu.org> (trust undefined) created at 2019-11-09T11:05:07+0100 using RSA
|
|
||||||
File diff suppressed because it is too large
Load Diff
@@ -1,174 +0,0 @@
|
|||||||
;;; async-autoloads.el --- automatically extracted autoloads
|
|
||||||
;;
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(add-to-list 'load-path (directory-file-name
|
|
||||||
(or (file-name-directory #$) (car load-path))))
|
|
||||||
|
|
||||||
|
|
||||||
;;;### (autoloads nil "async" "async.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from async.el
|
|
||||||
|
|
||||||
(autoload 'async-start-process "async" "\
|
|
||||||
Start the executable PROGRAM asynchronously. See `async-start'.
|
|
||||||
PROGRAM is passed PROGRAM-ARGS, calling FINISH-FUNC with the
|
|
||||||
process object when done. If FINISH-FUNC is nil, the future
|
|
||||||
object will return the process object when the program is
|
|
||||||
finished. Set DEFAULT-DIRECTORY to change PROGRAM's current
|
|
||||||
working directory.
|
|
||||||
|
|
||||||
\(fn NAME PROGRAM FINISH-FUNC &rest PROGRAM-ARGS)" nil nil)
|
|
||||||
|
|
||||||
(autoload 'async-start "async" "\
|
|
||||||
Execute START-FUNC (often a lambda) in a subordinate Emacs process.
|
|
||||||
When done, the return value is passed to FINISH-FUNC. Example:
|
|
||||||
|
|
||||||
(async-start
|
|
||||||
;; What to do in the child process
|
|
||||||
(lambda ()
|
|
||||||
(message \"This is a test\")
|
|
||||||
(sleep-for 3)
|
|
||||||
222)
|
|
||||||
|
|
||||||
;; What to do when it finishes
|
|
||||||
(lambda (result)
|
|
||||||
(message \"Async process done, result should be 222: %s\"
|
|
||||||
result)))
|
|
||||||
|
|
||||||
If FINISH-FUNC is nil or missing, a future is returned that can
|
|
||||||
be inspected using `async-get', blocking until the value is
|
|
||||||
ready. Example:
|
|
||||||
|
|
||||||
(let ((proc (async-start
|
|
||||||
;; What to do in the child process
|
|
||||||
(lambda ()
|
|
||||||
(message \"This is a test\")
|
|
||||||
(sleep-for 3)
|
|
||||||
222))))
|
|
||||||
|
|
||||||
(message \"I'm going to do some work here\") ;; ....
|
|
||||||
|
|
||||||
(message \"Waiting on async process, result should be 222: %s\"
|
|
||||||
(async-get proc)))
|
|
||||||
|
|
||||||
If you don't want to use a callback, and you don't care about any
|
|
||||||
return value from the child process, pass the `ignore' symbol as
|
|
||||||
the second argument (if you don't, and never call `async-get', it
|
|
||||||
will leave *emacs* process buffers hanging around):
|
|
||||||
|
|
||||||
(async-start
|
|
||||||
(lambda ()
|
|
||||||
(delete-file \"a remote file on a slow link\" nil))
|
|
||||||
'ignore)
|
|
||||||
|
|
||||||
Note: Even when FINISH-FUNC is present, a future is still
|
|
||||||
returned except that it yields no value (since the value is
|
|
||||||
passed to FINISH-FUNC). Call `async-get' on such a future always
|
|
||||||
returns nil. It can still be useful, however, as an argument to
|
|
||||||
`async-ready' or `async-wait'.
|
|
||||||
|
|
||||||
\(fn START-FUNC &optional FINISH-FUNC)" nil nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "async" '("async-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "async-bytecomp" "async-bytecomp.el" (0 0 0
|
|
||||||
;;;;;; 0))
|
|
||||||
;;; Generated autoloads from async-bytecomp.el
|
|
||||||
|
|
||||||
(autoload 'async-byte-recompile-directory "async-bytecomp" "\
|
|
||||||
Compile all *.el files in DIRECTORY asynchronously.
|
|
||||||
All *.elc files are systematically deleted before proceeding.
|
|
||||||
|
|
||||||
\(fn DIRECTORY &optional QUIET)" nil nil)
|
|
||||||
|
|
||||||
(defvar async-bytecomp-package-mode nil "\
|
|
||||||
Non-nil if Async-Bytecomp-Package mode is enabled.
|
|
||||||
See the `async-bytecomp-package-mode' command
|
|
||||||
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 `async-bytecomp-package-mode'.")
|
|
||||||
|
|
||||||
(custom-autoload 'async-bytecomp-package-mode "async-bytecomp" nil)
|
|
||||||
|
|
||||||
(autoload 'async-bytecomp-package-mode "async-bytecomp" "\
|
|
||||||
Byte compile asynchronously packages installed with package.el.
|
|
||||||
Async compilation of packages can be controlled by
|
|
||||||
`async-bytecomp-allowed-packages'.
|
|
||||||
|
|
||||||
\(fn &optional ARG)" t nil)
|
|
||||||
|
|
||||||
(autoload 'async-byte-compile-file "async-bytecomp" "\
|
|
||||||
Byte compile Lisp code FILE asynchronously.
|
|
||||||
|
|
||||||
Same as `byte-compile-file' but asynchronous.
|
|
||||||
|
|
||||||
\(fn FILE)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "async-bytecomp" '("async-byte")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "dired-async" "dired-async.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from dired-async.el
|
|
||||||
|
|
||||||
(defvar dired-async-mode nil "\
|
|
||||||
Non-nil if Dired-Async mode is enabled.
|
|
||||||
See the `dired-async-mode' command
|
|
||||||
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 `dired-async-mode'.")
|
|
||||||
|
|
||||||
(custom-autoload 'dired-async-mode "dired-async" nil)
|
|
||||||
|
|
||||||
(autoload 'dired-async-mode "dired-async" "\
|
|
||||||
Do dired actions asynchronously.
|
|
||||||
|
|
||||||
\(fn &optional ARG)" t nil)
|
|
||||||
|
|
||||||
(autoload 'dired-async-do-copy "dired-async" "\
|
|
||||||
Run ‘dired-do-copy’ asynchronously.
|
|
||||||
|
|
||||||
\(fn &optional ARG)" t nil)
|
|
||||||
|
|
||||||
(autoload 'dired-async-do-symlink "dired-async" "\
|
|
||||||
Run ‘dired-do-symlink’ asynchronously.
|
|
||||||
|
|
||||||
\(fn &optional ARG)" t nil)
|
|
||||||
|
|
||||||
(autoload 'dired-async-do-hardlink "dired-async" "\
|
|
||||||
Run ‘dired-do-hardlink’ asynchronously.
|
|
||||||
|
|
||||||
\(fn &optional ARG)" t nil)
|
|
||||||
|
|
||||||
(autoload 'dired-async-do-rename "dired-async" "\
|
|
||||||
Run ‘dired-do-rename’ asynchronously.
|
|
||||||
|
|
||||||
\(fn &optional ARG)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "dired-async" '("dired-async-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "smtpmail-async" "smtpmail-async.el" (0 0 0
|
|
||||||
;;;;;; 0))
|
|
||||||
;;; Generated autoloads from smtpmail-async.el
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "smtpmail-async" '("async-smtpmail-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil nil ("async-pkg.el") (0 0 0 0))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;; Local Variables:
|
|
||||||
;; version-control: never
|
|
||||||
;; no-byte-compile: t
|
|
||||||
;; no-update-autoloads: t
|
|
||||||
;; coding: utf-8
|
|
||||||
;; End:
|
|
||||||
;;; async-autoloads.el ends here
|
|
||||||
@@ -1,210 +0,0 @@
|
|||||||
;;; async-bytecomp.el --- Compile elisp files asynchronously -*- lexical-binding: t -*-
|
|
||||||
|
|
||||||
;; Copyright (C) 2014-2016 Free Software Foundation, Inc.
|
|
||||||
|
|
||||||
;; Authors: John Wiegley <jwiegley@gmail.com>
|
|
||||||
;; Thierry Volpiatto <thierry.volpiatto@gmail.com>
|
|
||||||
|
|
||||||
;; Keywords: dired async byte-compile
|
|
||||||
;; X-URL: https://github.com/jwiegley/dired-async
|
|
||||||
|
|
||||||
;; 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 2, 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 GNU Emacs; see the file COPYING. If not, write to the
|
|
||||||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
||||||
;; Boston, MA 02111-1307, USA.
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
;;
|
|
||||||
;; This package provide the `async-byte-recompile-directory' function
|
|
||||||
;; which allows, as the name says to recompile a directory outside of
|
|
||||||
;; your running emacs.
|
|
||||||
;; The benefit is your files will be compiled in a clean environment without
|
|
||||||
;; the old *.el files loaded.
|
|
||||||
;; Among other things, this fix a bug in package.el which recompile
|
|
||||||
;; the new files in the current environment with the old files loaded, creating
|
|
||||||
;; errors in most packages after upgrades.
|
|
||||||
;;
|
|
||||||
;; NB: This package is advicing the function `package--compile'.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'cl-lib)
|
|
||||||
(require 'async)
|
|
||||||
|
|
||||||
(defcustom async-bytecomp-allowed-packages
|
|
||||||
;; FIXME: Arguably the default should be `all', but currently
|
|
||||||
;; this minor mode is silently/forcefully enabled by Helm and Magit to ensure
|
|
||||||
;; they get compiled asynchronously, so this conservative default value is
|
|
||||||
;; here to make sure that the mode can be enabled without the user's
|
|
||||||
;; explicit consent.
|
|
||||||
'(async forge helm helm-core helm-ls-git helm-ls-hg magit)
|
|
||||||
"Packages in this list will be compiled asynchronously by `package--compile'.
|
|
||||||
All the dependencies of these packages will be compiled async too,
|
|
||||||
so no need to add dependencies to this list.
|
|
||||||
The value of this variable can also be the symbol `all', in this case
|
|
||||||
all packages are always compiled asynchronously."
|
|
||||||
:group 'async
|
|
||||||
:type '(choice
|
|
||||||
(const :tag "All packages" all)
|
|
||||||
(repeat symbol)))
|
|
||||||
|
|
||||||
(defvar async-byte-compile-log-file
|
|
||||||
(concat user-emacs-directory "async-bytecomp.log"))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun async-byte-recompile-directory (directory &optional quiet)
|
|
||||||
"Compile all *.el files in DIRECTORY asynchronously.
|
|
||||||
All *.elc files are systematically deleted before proceeding."
|
|
||||||
(cl-loop with dir = (directory-files directory t "\\.elc\\'")
|
|
||||||
unless dir return nil
|
|
||||||
for f in dir
|
|
||||||
when (file-exists-p f) do (delete-file f))
|
|
||||||
;; Ensure async is reloaded when async.elc is deleted.
|
|
||||||
;; This happen when recompiling its own directory.
|
|
||||||
(load "async")
|
|
||||||
(let ((call-back
|
|
||||||
(lambda (&optional _ignore)
|
|
||||||
(if (file-exists-p async-byte-compile-log-file)
|
|
||||||
(let ((buf (get-buffer-create byte-compile-log-buffer))
|
|
||||||
(n 0))
|
|
||||||
(with-current-buffer buf
|
|
||||||
(goto-char (point-max))
|
|
||||||
(let ((inhibit-read-only t))
|
|
||||||
(insert-file-contents async-byte-compile-log-file)
|
|
||||||
(compilation-mode))
|
|
||||||
(display-buffer buf)
|
|
||||||
(delete-file async-byte-compile-log-file)
|
|
||||||
(unless quiet
|
|
||||||
(save-excursion
|
|
||||||
(goto-char (point-min))
|
|
||||||
(while (re-search-forward "^.*:Error:" nil t)
|
|
||||||
(cl-incf n)))
|
|
||||||
(if (> n 0)
|
|
||||||
(message "Failed to compile %d files in directory `%s'" n directory)
|
|
||||||
(message "Directory `%s' compiled asynchronously with warnings" directory)))))
|
|
||||||
(unless quiet
|
|
||||||
(message "Directory `%s' compiled asynchronously with success" directory))))))
|
|
||||||
(async-start
|
|
||||||
`(lambda ()
|
|
||||||
(require 'bytecomp)
|
|
||||||
,(async-inject-variables "\\`\\(load-path\\)\\|byte\\'")
|
|
||||||
(let ((default-directory (file-name-as-directory ,directory))
|
|
||||||
error-data)
|
|
||||||
(add-to-list 'load-path default-directory)
|
|
||||||
(byte-recompile-directory ,directory 0 t)
|
|
||||||
(when (get-buffer byte-compile-log-buffer)
|
|
||||||
(setq error-data (with-current-buffer byte-compile-log-buffer
|
|
||||||
(buffer-substring-no-properties (point-min) (point-max))))
|
|
||||||
(unless (string= error-data "")
|
|
||||||
(with-temp-file ,async-byte-compile-log-file
|
|
||||||
(erase-buffer)
|
|
||||||
(insert error-data))))))
|
|
||||||
call-back)
|
|
||||||
(unless quiet (message "Started compiling asynchronously directory %s" directory))))
|
|
||||||
|
|
||||||
(defvar package-archive-contents)
|
|
||||||
(defvar package-alist)
|
|
||||||
(declare-function package-desc-reqs "package.el" (cl-x))
|
|
||||||
|
|
||||||
(defun async-bytecomp--get-package-deps (pkgs)
|
|
||||||
;; Same as `package--get-deps' but parse instead `package-archive-contents'
|
|
||||||
;; because PKG is not already installed and not present in `package-alist'.
|
|
||||||
;; However fallback to `package-alist' in case PKG no more present
|
|
||||||
;; in `package-archive-contents' due to modification to `package-archives'.
|
|
||||||
;; See issue #58.
|
|
||||||
(let ((seen '()))
|
|
||||||
(while pkgs
|
|
||||||
(let ((pkg (pop pkgs)))
|
|
||||||
(unless (memq pkg seen)
|
|
||||||
(let ((pkg-desc (cadr (or (assq pkg package-archive-contents)
|
|
||||||
(assq pkg package-alist)))))
|
|
||||||
(when pkg-desc
|
|
||||||
(push pkg seen)
|
|
||||||
(setq pkgs (append (mapcar #'car (package-desc-reqs pkg-desc))
|
|
||||||
pkgs)))))))
|
|
||||||
seen))
|
|
||||||
|
|
||||||
(defadvice package--compile (around byte-compile-async)
|
|
||||||
(let ((cur-package (package-desc-name pkg-desc))
|
|
||||||
(pkg-dir (package-desc-dir pkg-desc)))
|
|
||||||
(if (or (member async-bytecomp-allowed-packages '(t all (all)))
|
|
||||||
(memq cur-package (async-bytecomp--get-package-deps
|
|
||||||
async-bytecomp-allowed-packages)))
|
|
||||||
(progn
|
|
||||||
(when (eq cur-package 'async)
|
|
||||||
(fmakunbound 'async-byte-recompile-directory))
|
|
||||||
;; Add to `load-path' the latest version of async and
|
|
||||||
;; reload it when reinstalling async.
|
|
||||||
(when (string= cur-package "async")
|
|
||||||
(cl-pushnew pkg-dir load-path)
|
|
||||||
(load "async-bytecomp"))
|
|
||||||
;; `async-byte-recompile-directory' will add directory
|
|
||||||
;; as needed to `load-path'.
|
|
||||||
(async-byte-recompile-directory (package-desc-dir pkg-desc) t))
|
|
||||||
ad-do-it)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(define-minor-mode async-bytecomp-package-mode
|
|
||||||
"Byte compile asynchronously packages installed with package.el.
|
|
||||||
Async compilation of packages can be controlled by
|
|
||||||
`async-bytecomp-allowed-packages'."
|
|
||||||
:group 'async
|
|
||||||
:global t
|
|
||||||
(if async-bytecomp-package-mode
|
|
||||||
(ad-activate 'package--compile)
|
|
||||||
(ad-deactivate 'package--compile)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun async-byte-compile-file (file)
|
|
||||||
"Byte compile Lisp code FILE asynchronously.
|
|
||||||
|
|
||||||
Same as `byte-compile-file' but asynchronous."
|
|
||||||
(interactive "fFile: ")
|
|
||||||
(let ((call-back
|
|
||||||
(lambda (&optional _ignore)
|
|
||||||
(let ((bn (file-name-nondirectory file)))
|
|
||||||
(if (file-exists-p async-byte-compile-log-file)
|
|
||||||
(let ((buf (get-buffer-create byte-compile-log-buffer))
|
|
||||||
start)
|
|
||||||
(with-current-buffer buf
|
|
||||||
(goto-char (setq start (point-max)))
|
|
||||||
(let ((inhibit-read-only t))
|
|
||||||
(insert-file-contents async-byte-compile-log-file)
|
|
||||||
(compilation-mode))
|
|
||||||
(display-buffer buf)
|
|
||||||
(delete-file async-byte-compile-log-file)
|
|
||||||
(save-excursion
|
|
||||||
(goto-char start)
|
|
||||||
(if (re-search-forward "^.*:Error:" nil t)
|
|
||||||
(message "Failed to compile `%s'" bn)
|
|
||||||
(message "`%s' compiled asynchronously with warnings" bn)))))
|
|
||||||
(message "`%s' compiled asynchronously with success" bn))))))
|
|
||||||
(async-start
|
|
||||||
`(lambda ()
|
|
||||||
(require 'bytecomp)
|
|
||||||
,(async-inject-variables "\\`load-path\\'")
|
|
||||||
(let ((default-directory ,(file-name-directory file)))
|
|
||||||
(add-to-list 'load-path default-directory)
|
|
||||||
(byte-compile-file ,file)
|
|
||||||
(when (get-buffer byte-compile-log-buffer)
|
|
||||||
(setq error-data (with-current-buffer byte-compile-log-buffer
|
|
||||||
(buffer-substring-no-properties (point-min) (point-max))))
|
|
||||||
(unless (string= error-data "")
|
|
||||||
(with-temp-file ,async-byte-compile-log-file
|
|
||||||
(erase-buffer)
|
|
||||||
(insert error-data))))))
|
|
||||||
call-back)))
|
|
||||||
|
|
||||||
(provide 'async-bytecomp)
|
|
||||||
|
|
||||||
;;; async-bytecomp.el ends here
|
|
||||||
Binary file not shown.
@@ -1,6 +0,0 @@
|
|||||||
(define-package "async" "20191030.2138" "Asynchronous processing in Emacs" 'nil :keywords
|
|
||||||
'("async")
|
|
||||||
:url "https://github.com/jwiegley/emacs-async")
|
|
||||||
;; Local Variables:
|
|
||||||
;; no-byte-compile: t
|
|
||||||
;; End:
|
|
||||||
@@ -1,408 +0,0 @@
|
|||||||
;;; async.el --- Asynchronous processing in Emacs -*- lexical-binding: t -*-
|
|
||||||
|
|
||||||
;; Copyright (C) 2012-2016 Free Software Foundation, Inc.
|
|
||||||
|
|
||||||
;; Author: John Wiegley <jwiegley@gmail.com>
|
|
||||||
;; Created: 18 Jun 2012
|
|
||||||
;; Version: 1.9.3
|
|
||||||
|
|
||||||
;; Keywords: async
|
|
||||||
;; X-URL: https://github.com/jwiegley/emacs-async
|
|
||||||
|
|
||||||
;; 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 2, 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 GNU Emacs; see the file COPYING. If not, write to the
|
|
||||||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
||||||
;; Boston, MA 02111-1307, USA.
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
|
|
||||||
;; Adds the ability to call asynchronous functions and process with ease. See
|
|
||||||
;; the documentation for `async-start' and `async-start-process'.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(eval-when-compile (require 'cl-lib))
|
|
||||||
|
|
||||||
(defgroup async nil
|
|
||||||
"Simple asynchronous processing in Emacs"
|
|
||||||
:group 'emacs)
|
|
||||||
|
|
||||||
(defcustom async-variables-noprops-function #'async--purecopy
|
|
||||||
"Default function to remove text properties in variables."
|
|
||||||
:group 'async
|
|
||||||
:type 'function)
|
|
||||||
|
|
||||||
(defvar async-debug nil)
|
|
||||||
(defvar async-send-over-pipe t)
|
|
||||||
(defvar async-in-child-emacs nil)
|
|
||||||
(defvar async-callback nil)
|
|
||||||
(defvar async-callback-for-process nil)
|
|
||||||
(defvar async-callback-value nil)
|
|
||||||
(defvar async-callback-value-set nil)
|
|
||||||
(defvar async-current-process nil)
|
|
||||||
(defvar async--procvar nil)
|
|
||||||
|
|
||||||
(defun async--purecopy (object)
|
|
||||||
"Remove text properties in OBJECT.
|
|
||||||
|
|
||||||
Argument OBJECT may be a list or a string, if anything else it
|
|
||||||
is returned unmodified."
|
|
||||||
(cond ((stringp object)
|
|
||||||
(substring-no-properties object))
|
|
||||||
((consp object)
|
|
||||||
(cl-loop for elm in object
|
|
||||||
;; A string.
|
|
||||||
if (stringp elm)
|
|
||||||
collect (substring-no-properties elm)
|
|
||||||
else
|
|
||||||
;; Proper lists.
|
|
||||||
if (and (consp elm) (null (cdr (last elm))))
|
|
||||||
collect (async--purecopy elm)
|
|
||||||
else
|
|
||||||
;; Dotted lists.
|
|
||||||
;; We handle here only dotted list where car and cdr
|
|
||||||
;; are atoms i.e. (x . y) and not (x . (x . y)) or
|
|
||||||
;; (x . (x y)) which should fit most cases.
|
|
||||||
if (and (consp elm) (cdr (last elm)))
|
|
||||||
collect (let ((key (car elm))
|
|
||||||
(val (cdr elm)))
|
|
||||||
(cons (if (stringp key)
|
|
||||||
(substring-no-properties key)
|
|
||||||
key)
|
|
||||||
(if (stringp val)
|
|
||||||
(substring-no-properties val)
|
|
||||||
val)))
|
|
||||||
else
|
|
||||||
collect elm))
|
|
||||||
(t object)))
|
|
||||||
|
|
||||||
(defun async-inject-variables
|
|
||||||
(include-regexp &optional predicate exclude-regexp noprops)
|
|
||||||
"Return a `setq' form that replicates part of the calling environment.
|
|
||||||
|
|
||||||
It sets the value for every variable matching INCLUDE-REGEXP and
|
|
||||||
also PREDICATE. It will not perform injection for any variable
|
|
||||||
matching EXCLUDE-REGEXP (if present) or representing a syntax-table
|
|
||||||
i.e. ending by \"-syntax-table\".
|
|
||||||
When NOPROPS is non nil it tries to strip out text properties of each
|
|
||||||
variable's value with `async-variables-noprops-function'.
|
|
||||||
|
|
||||||
It is intended to be used as follows:
|
|
||||||
|
|
||||||
(async-start
|
|
||||||
`(lambda ()
|
|
||||||
(require 'smtpmail)
|
|
||||||
(with-temp-buffer
|
|
||||||
(insert ,(buffer-substring-no-properties (point-min) (point-max)))
|
|
||||||
;; Pass in the variable environment for smtpmail
|
|
||||||
,(async-inject-variables \"\\`\\(smtpmail\\|\\(user-\\)?mail\\)-\")
|
|
||||||
(smtpmail-send-it)))
|
|
||||||
'ignore)"
|
|
||||||
`(setq
|
|
||||||
,@(let (bindings)
|
|
||||||
(mapatoms
|
|
||||||
(lambda (sym)
|
|
||||||
(let* ((sname (and (boundp sym) (symbol-name sym)))
|
|
||||||
(value (and sname (symbol-value sym))))
|
|
||||||
(when (and sname
|
|
||||||
(or (null include-regexp)
|
|
||||||
(string-match include-regexp sname))
|
|
||||||
(or (null exclude-regexp)
|
|
||||||
(not (string-match exclude-regexp sname)))
|
|
||||||
(not (string-match "-syntax-table\\'" sname)))
|
|
||||||
(unless (or (stringp value)
|
|
||||||
(memq value '(nil t))
|
|
||||||
(numberp value)
|
|
||||||
(vectorp value))
|
|
||||||
(setq value `(quote ,value)))
|
|
||||||
(when noprops
|
|
||||||
(setq value (funcall async-variables-noprops-function
|
|
||||||
value)))
|
|
||||||
(when (or (null predicate)
|
|
||||||
(funcall predicate sym))
|
|
||||||
(setq bindings (cons value bindings)
|
|
||||||
bindings (cons sym bindings)))))))
|
|
||||||
bindings)))
|
|
||||||
|
|
||||||
(defalias 'async-inject-environment 'async-inject-variables)
|
|
||||||
|
|
||||||
(defun async-handle-result (func result buf)
|
|
||||||
(if (null func)
|
|
||||||
(progn
|
|
||||||
(set (make-local-variable 'async-callback-value) result)
|
|
||||||
(set (make-local-variable 'async-callback-value-set) t))
|
|
||||||
(unwind-protect
|
|
||||||
(if (and (listp result)
|
|
||||||
(eq 'async-signal (nth 0 result)))
|
|
||||||
(signal (car (nth 1 result))
|
|
||||||
(cdr (nth 1 result)))
|
|
||||||
(funcall func result))
|
|
||||||
(unless async-debug
|
|
||||||
(kill-buffer buf)))))
|
|
||||||
|
|
||||||
(defun async-when-done (proc &optional _change)
|
|
||||||
"Process sentinel used to retrieve the value from the child process."
|
|
||||||
(when (eq 'exit (process-status proc))
|
|
||||||
(with-current-buffer (process-buffer proc)
|
|
||||||
(let ((async-current-process proc))
|
|
||||||
(if (= 0 (process-exit-status proc))
|
|
||||||
(if async-callback-for-process
|
|
||||||
(if async-callback
|
|
||||||
(prog1
|
|
||||||
(funcall async-callback proc)
|
|
||||||
(unless async-debug
|
|
||||||
(kill-buffer (current-buffer))))
|
|
||||||
(set (make-local-variable 'async-callback-value) proc)
|
|
||||||
(set (make-local-variable 'async-callback-value-set) t))
|
|
||||||
(goto-char (point-max))
|
|
||||||
(backward-sexp)
|
|
||||||
(async-handle-result async-callback (read (current-buffer))
|
|
||||||
(current-buffer)))
|
|
||||||
(set (make-local-variable 'async-callback-value)
|
|
||||||
(list 'error
|
|
||||||
(format "Async process '%s' failed with exit code %d"
|
|
||||||
(process-name proc) (process-exit-status proc))))
|
|
||||||
(set (make-local-variable 'async-callback-value-set) t))))))
|
|
||||||
|
|
||||||
(defun async--receive-sexp (&optional stream)
|
|
||||||
(let ((sexp (decode-coding-string (base64-decode-string
|
|
||||||
(read stream)) 'utf-8-auto))
|
|
||||||
;; Parent expects UTF-8 encoded text.
|
|
||||||
(coding-system-for-write 'utf-8-auto))
|
|
||||||
(if async-debug
|
|
||||||
(message "Received sexp {{{%s}}}" (pp-to-string sexp)))
|
|
||||||
(setq sexp (read sexp))
|
|
||||||
(if async-debug
|
|
||||||
(message "Read sexp {{{%s}}}" (pp-to-string sexp)))
|
|
||||||
(eval sexp)))
|
|
||||||
|
|
||||||
(defun async--insert-sexp (sexp)
|
|
||||||
(let (print-level
|
|
||||||
print-length
|
|
||||||
(print-escape-nonascii t)
|
|
||||||
(print-circle t))
|
|
||||||
(prin1 sexp (current-buffer))
|
|
||||||
;; Just in case the string we're sending might contain EOF
|
|
||||||
(encode-coding-region (point-min) (point-max) 'utf-8-auto)
|
|
||||||
(base64-encode-region (point-min) (point-max) t)
|
|
||||||
(goto-char (point-min)) (insert ?\")
|
|
||||||
(goto-char (point-max)) (insert ?\" ?\n)))
|
|
||||||
|
|
||||||
(defun async--transmit-sexp (process sexp)
|
|
||||||
(with-temp-buffer
|
|
||||||
(if async-debug
|
|
||||||
(message "Transmitting sexp {{{%s}}}" (pp-to-string sexp)))
|
|
||||||
(async--insert-sexp sexp)
|
|
||||||
(process-send-region process (point-min) (point-max))))
|
|
||||||
|
|
||||||
(defun async-batch-invoke ()
|
|
||||||
"Called from the child Emacs process' command-line."
|
|
||||||
;; Make sure 'message' and 'prin1' encode stuff in UTF-8, as parent
|
|
||||||
;; process expects.
|
|
||||||
(let ((coding-system-for-write 'utf-8-auto))
|
|
||||||
(setq async-in-child-emacs t
|
|
||||||
debug-on-error async-debug)
|
|
||||||
(if debug-on-error
|
|
||||||
(prin1 (funcall
|
|
||||||
(async--receive-sexp (unless async-send-over-pipe
|
|
||||||
command-line-args-left))))
|
|
||||||
(condition-case err
|
|
||||||
(prin1 (funcall
|
|
||||||
(async--receive-sexp (unless async-send-over-pipe
|
|
||||||
command-line-args-left))))
|
|
||||||
(error
|
|
||||||
(prin1 (list 'async-signal err)))))))
|
|
||||||
|
|
||||||
(defun async-ready (future)
|
|
||||||
"Query a FUTURE to see if it is ready.
|
|
||||||
|
|
||||||
I.e., if no blocking
|
|
||||||
would result from a call to `async-get' on that FUTURE."
|
|
||||||
(and (memq (process-status future) '(exit signal))
|
|
||||||
(let ((buf (process-buffer future)))
|
|
||||||
(if (buffer-live-p buf)
|
|
||||||
(with-current-buffer buf
|
|
||||||
async-callback-value-set)
|
|
||||||
t))))
|
|
||||||
|
|
||||||
(defun async-wait (future)
|
|
||||||
"Wait for FUTURE to become ready."
|
|
||||||
(while (not (async-ready future))
|
|
||||||
(sleep-for 0.05)))
|
|
||||||
|
|
||||||
(defun async-get (future)
|
|
||||||
"Get the value from process FUTURE when it is ready.
|
|
||||||
FUTURE is returned by `async-start' or `async-start-process' when
|
|
||||||
its FINISH-FUNC is nil."
|
|
||||||
(and future (async-wait future))
|
|
||||||
(let ((buf (process-buffer future)))
|
|
||||||
(when (buffer-live-p buf)
|
|
||||||
(with-current-buffer buf
|
|
||||||
(async-handle-result
|
|
||||||
#'identity async-callback-value (current-buffer))))))
|
|
||||||
|
|
||||||
(defun async-message-p (value)
|
|
||||||
"Return true of VALUE is an async.el message packet."
|
|
||||||
(and (listp value)
|
|
||||||
(plist-get value :async-message)))
|
|
||||||
|
|
||||||
(defun async-send (&rest args)
|
|
||||||
"Send the given messages to the asychronous Emacs PROCESS."
|
|
||||||
(let ((args (append args '(:async-message t))))
|
|
||||||
(if async-in-child-emacs
|
|
||||||
(if async-callback
|
|
||||||
(funcall async-callback args))
|
|
||||||
(async--transmit-sexp (car args) (list 'quote (cdr args))))))
|
|
||||||
|
|
||||||
(defun async-receive ()
|
|
||||||
"Send the given messages to the asychronous Emacs PROCESS."
|
|
||||||
(async--receive-sexp))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun async-start-process (name program finish-func &rest program-args)
|
|
||||||
"Start the executable PROGRAM asynchronously. See `async-start'.
|
|
||||||
PROGRAM is passed PROGRAM-ARGS, calling FINISH-FUNC with the
|
|
||||||
process object when done. If FINISH-FUNC is nil, the future
|
|
||||||
object will return the process object when the program is
|
|
||||||
finished. Set DEFAULT-DIRECTORY to change PROGRAM's current
|
|
||||||
working directory."
|
|
||||||
(let* ((buf (generate-new-buffer (concat "*" name "*")))
|
|
||||||
(proc (let ((process-connection-type nil))
|
|
||||||
(apply #'start-process name buf program program-args))))
|
|
||||||
(with-current-buffer buf
|
|
||||||
(set (make-local-variable 'async-callback) finish-func)
|
|
||||||
(set-process-sentinel proc #'async-when-done)
|
|
||||||
(unless (string= name "emacs")
|
|
||||||
(set (make-local-variable 'async-callback-for-process) t))
|
|
||||||
proc)))
|
|
||||||
|
|
||||||
(defvar async-quiet-switch "-Q"
|
|
||||||
"The Emacs parameter to use to call emacs without config.
|
|
||||||
Can be one of \"-Q\" or \"-q\".
|
|
||||||
Default is \"-Q\" but it is sometimes useful to use \"-q\" to have a
|
|
||||||
enhanced config or some more variables loaded.")
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun async-start (start-func &optional finish-func)
|
|
||||||
"Execute START-FUNC (often a lambda) in a subordinate Emacs process.
|
|
||||||
When done, the return value is passed to FINISH-FUNC. Example:
|
|
||||||
|
|
||||||
(async-start
|
|
||||||
;; What to do in the child process
|
|
||||||
(lambda ()
|
|
||||||
(message \"This is a test\")
|
|
||||||
(sleep-for 3)
|
|
||||||
222)
|
|
||||||
|
|
||||||
;; What to do when it finishes
|
|
||||||
(lambda (result)
|
|
||||||
(message \"Async process done, result should be 222: %s\"
|
|
||||||
result)))
|
|
||||||
|
|
||||||
If FINISH-FUNC is nil or missing, a future is returned that can
|
|
||||||
be inspected using `async-get', blocking until the value is
|
|
||||||
ready. Example:
|
|
||||||
|
|
||||||
(let ((proc (async-start
|
|
||||||
;; What to do in the child process
|
|
||||||
(lambda ()
|
|
||||||
(message \"This is a test\")
|
|
||||||
(sleep-for 3)
|
|
||||||
222))))
|
|
||||||
|
|
||||||
(message \"I'm going to do some work here\") ;; ....
|
|
||||||
|
|
||||||
(message \"Waiting on async process, result should be 222: %s\"
|
|
||||||
(async-get proc)))
|
|
||||||
|
|
||||||
If you don't want to use a callback, and you don't care about any
|
|
||||||
return value from the child process, pass the `ignore' symbol as
|
|
||||||
the second argument (if you don't, and never call `async-get', it
|
|
||||||
will leave *emacs* process buffers hanging around):
|
|
||||||
|
|
||||||
(async-start
|
|
||||||
(lambda ()
|
|
||||||
(delete-file \"a remote file on a slow link\" nil))
|
|
||||||
'ignore)
|
|
||||||
|
|
||||||
Note: Even when FINISH-FUNC is present, a future is still
|
|
||||||
returned except that it yields no value (since the value is
|
|
||||||
passed to FINISH-FUNC). Call `async-get' on such a future always
|
|
||||||
returns nil. It can still be useful, however, as an argument to
|
|
||||||
`async-ready' or `async-wait'."
|
|
||||||
(let ((sexp start-func)
|
|
||||||
;; Subordinate Emacs will send text encoded in UTF-8.
|
|
||||||
(coding-system-for-read 'utf-8-auto))
|
|
||||||
(setq async--procvar
|
|
||||||
(async-start-process
|
|
||||||
"emacs" (file-truename
|
|
||||||
(expand-file-name invocation-name
|
|
||||||
invocation-directory))
|
|
||||||
finish-func
|
|
||||||
async-quiet-switch "-l"
|
|
||||||
;; Using `locate-library' ensure we use the right file
|
|
||||||
;; when the .elc have been deleted.
|
|
||||||
(locate-library "async")
|
|
||||||
"-batch" "-f" "async-batch-invoke"
|
|
||||||
(if async-send-over-pipe
|
|
||||||
"<none>"
|
|
||||||
(with-temp-buffer
|
|
||||||
(async--insert-sexp (list 'quote sexp))
|
|
||||||
(buffer-string)))))
|
|
||||||
(if async-send-over-pipe
|
|
||||||
(async--transmit-sexp async--procvar (list 'quote sexp)))
|
|
||||||
async--procvar))
|
|
||||||
|
|
||||||
(defmacro async-sandbox(func)
|
|
||||||
"Evaluate FUNC in a separate Emacs process, synchronously."
|
|
||||||
`(async-get (async-start ,func)))
|
|
||||||
|
|
||||||
(defun async--fold-left (fn forms bindings)
|
|
||||||
(let ((res forms))
|
|
||||||
(dolist (binding bindings)
|
|
||||||
(setq res (funcall fn res
|
|
||||||
(if (listp binding)
|
|
||||||
binding
|
|
||||||
(list binding)))))
|
|
||||||
res))
|
|
||||||
|
|
||||||
(defmacro async-let (bindings &rest forms)
|
|
||||||
"Implements `let', but each binding is established asynchronously.
|
|
||||||
For example:
|
|
||||||
|
|
||||||
(async-let ((x (foo))
|
|
||||||
(y (bar)))
|
|
||||||
(message \"%s %s\" x y))
|
|
||||||
|
|
||||||
expands to ==>
|
|
||||||
|
|
||||||
(async-start (foo)
|
|
||||||
(lambda (x)
|
|
||||||
(async-start (bar)
|
|
||||||
(lambda (y)
|
|
||||||
(message \"%s %s\" x y)))))"
|
|
||||||
(declare (indent 1))
|
|
||||||
(async--fold-left
|
|
||||||
(lambda (acc binding)
|
|
||||||
(let ((fun (pcase (cadr binding)
|
|
||||||
((and (pred functionp) f) f)
|
|
||||||
(f `(lambda () ,f)))))
|
|
||||||
`(async-start ,fun
|
|
||||||
(lambda (,(car binding))
|
|
||||||
,acc))))
|
|
||||||
`(progn ,@forms)
|
|
||||||
(reverse bindings)))
|
|
||||||
|
|
||||||
(provide 'async)
|
|
||||||
|
|
||||||
;;; async.el ends here
|
|
||||||
Binary file not shown.
@@ -1,408 +0,0 @@
|
|||||||
;;; dired-async.el --- Asynchronous dired actions -*- lexical-binding: t -*-
|
|
||||||
|
|
||||||
;; Copyright (C) 2012-2016 Free Software Foundation, Inc.
|
|
||||||
|
|
||||||
;; Authors: John Wiegley <jwiegley@gmail.com>
|
|
||||||
;; Thierry Volpiatto <thierry.volpiatto@gmail.com>
|
|
||||||
|
|
||||||
;; Keywords: dired async network
|
|
||||||
;; X-URL: https://github.com/jwiegley/dired-async
|
|
||||||
|
|
||||||
;; 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 2, 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 GNU Emacs; see the file COPYING. If not, write to the
|
|
||||||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
||||||
;; Boston, MA 02111-1307, USA.
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
|
|
||||||
;; This file provide a redefinition of `dired-create-file' function,
|
|
||||||
;; performs copies, moves and all what is handled by `dired-create-file'
|
|
||||||
;; in the background using a slave Emacs process,
|
|
||||||
;; by means of the async.el module.
|
|
||||||
;; To use it, put this in your .emacs:
|
|
||||||
|
|
||||||
;; (dired-async-mode 1)
|
|
||||||
|
|
||||||
;; This will enable async copy/rename etc...
|
|
||||||
;; in dired and helm.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'cl-lib)
|
|
||||||
(require 'dired-aux)
|
|
||||||
(require 'async)
|
|
||||||
|
|
||||||
(eval-when-compile
|
|
||||||
(defvar async-callback))
|
|
||||||
|
|
||||||
(defgroup dired-async nil
|
|
||||||
"Copy rename files asynchronously from dired."
|
|
||||||
:group 'dired)
|
|
||||||
|
|
||||||
(defcustom dired-async-env-variables-regexp
|
|
||||||
"\\`\\(tramp-\\(default\\|connection\\|remote\\)\\|ange-ftp\\)-.*"
|
|
||||||
"Variables matching this regexp will be loaded on Child Emacs."
|
|
||||||
:type 'regexp
|
|
||||||
:group 'dired-async)
|
|
||||||
|
|
||||||
(defcustom dired-async-message-function 'dired-async-mode-line-message
|
|
||||||
"Function to use to notify result when operation finish.
|
|
||||||
Should take same args as `message'."
|
|
||||||
:group 'dired-async
|
|
||||||
:type 'function)
|
|
||||||
|
|
||||||
(defcustom dired-async-log-file "/tmp/dired-async.log"
|
|
||||||
"File use to communicate errors from Child Emacs to host Emacs."
|
|
||||||
:group 'dired-async
|
|
||||||
:type 'string)
|
|
||||||
|
|
||||||
(defcustom dired-async-mode-lighter '(:eval
|
|
||||||
(when (eq major-mode 'dired-mode)
|
|
||||||
" Async"))
|
|
||||||
"Mode line lighter used for `dired-async-mode'."
|
|
||||||
:group 'dired-async
|
|
||||||
:risky t
|
|
||||||
:type 'sexp)
|
|
||||||
|
|
||||||
(defface dired-async-message
|
|
||||||
'((t (:foreground "yellow")))
|
|
||||||
"Face used for mode-line message."
|
|
||||||
:group 'dired-async)
|
|
||||||
|
|
||||||
(defface dired-async-failures
|
|
||||||
'((t (:foreground "red")))
|
|
||||||
"Face used for mode-line message."
|
|
||||||
:group 'dired-async)
|
|
||||||
|
|
||||||
(defface dired-async-mode-message
|
|
||||||
'((t (:foreground "Gold")))
|
|
||||||
"Face used for `dired-async--modeline-mode' lighter."
|
|
||||||
:group 'dired-async)
|
|
||||||
|
|
||||||
(define-minor-mode dired-async--modeline-mode
|
|
||||||
"Notify mode-line that an async process run."
|
|
||||||
:group 'dired-async
|
|
||||||
:global t
|
|
||||||
:lighter (:eval (propertize (format " [%s Async job(s) running]"
|
|
||||||
(length (dired-async-processes)))
|
|
||||||
'face 'dired-async-mode-message))
|
|
||||||
(unless dired-async--modeline-mode
|
|
||||||
(let ((visible-bell t)) (ding))))
|
|
||||||
|
|
||||||
(defun dired-async-mode-line-message (text face &rest args)
|
|
||||||
"Notify end of operation in `mode-line'."
|
|
||||||
(message nil)
|
|
||||||
(let ((mode-line-format (concat
|
|
||||||
" " (propertize
|
|
||||||
(if args
|
|
||||||
(apply #'format text args)
|
|
||||||
text)
|
|
||||||
'face face))))
|
|
||||||
(force-mode-line-update)
|
|
||||||
(sit-for 3)
|
|
||||||
(force-mode-line-update)))
|
|
||||||
|
|
||||||
(defun dired-async-processes ()
|
|
||||||
(cl-loop for p in (process-list)
|
|
||||||
when (cl-loop for c in (process-command p) thereis
|
|
||||||
(string= "async-batch-invoke" c))
|
|
||||||
collect p))
|
|
||||||
|
|
||||||
(defun dired-async-kill-process ()
|
|
||||||
(interactive)
|
|
||||||
(let* ((processes (dired-async-processes))
|
|
||||||
(proc (car (last processes))))
|
|
||||||
(and proc (delete-process proc))
|
|
||||||
(unless (> (length processes) 1)
|
|
||||||
(dired-async--modeline-mode -1))))
|
|
||||||
|
|
||||||
(defun dired-async-after-file-create (total operation failures skipped)
|
|
||||||
"Callback function used for operation handled by `dired-create-file'."
|
|
||||||
(unless (dired-async-processes)
|
|
||||||
;; Turn off mode-line notification
|
|
||||||
;; only when last process end.
|
|
||||||
(dired-async--modeline-mode -1))
|
|
||||||
(when operation
|
|
||||||
(if (file-exists-p dired-async-log-file)
|
|
||||||
(progn
|
|
||||||
(pop-to-buffer (get-buffer-create dired-log-buffer))
|
|
||||||
(goto-char (point-max))
|
|
||||||
(setq inhibit-read-only t)
|
|
||||||
(insert "Error: ")
|
|
||||||
(insert-file-contents dired-async-log-file)
|
|
||||||
(special-mode)
|
|
||||||
(shrink-window-if-larger-than-buffer)
|
|
||||||
(delete-file dired-async-log-file))
|
|
||||||
(run-with-timer
|
|
||||||
0.1 nil
|
|
||||||
(lambda ()
|
|
||||||
;; First send error messages.
|
|
||||||
(cond (failures
|
|
||||||
(funcall dired-async-message-function
|
|
||||||
"%s failed for %d of %d file%s -- See *Dired log* buffer"
|
|
||||||
'dired-async-failures
|
|
||||||
(car operation) (length failures)
|
|
||||||
total (dired-plural-s total)))
|
|
||||||
(skipped
|
|
||||||
(funcall dired-async-message-function
|
|
||||||
"%s: %d of %d file%s skipped -- See *Dired log* buffer"
|
|
||||||
'dired-async-failures
|
|
||||||
(car operation) (length skipped) total
|
|
||||||
(dired-plural-s total))))
|
|
||||||
(when dired-buffers
|
|
||||||
(cl-loop for (_f . b) in dired-buffers
|
|
||||||
when (buffer-live-p b)
|
|
||||||
do (with-current-buffer b
|
|
||||||
(when (and (not (file-remote-p default-directory nil t))
|
|
||||||
(file-exists-p default-directory))
|
|
||||||
(revert-buffer nil t)))))
|
|
||||||
;; Finally send the success message.
|
|
||||||
(funcall dired-async-message-function
|
|
||||||
"Asynchronous %s of %s on %s file%s done"
|
|
||||||
'dired-async-message
|
|
||||||
(car operation) (cadr operation)
|
|
||||||
total (dired-plural-s total)))))))
|
|
||||||
|
|
||||||
(defun dired-async-maybe-kill-ftp ()
|
|
||||||
"Return a form to kill ftp process in child emacs."
|
|
||||||
(quote
|
|
||||||
(progn
|
|
||||||
(require 'cl-lib)
|
|
||||||
(let ((buf (cl-loop for b in (buffer-list)
|
|
||||||
thereis (and (string-match
|
|
||||||
"\\`\\*ftp.*"
|
|
||||||
(buffer-name b)) b))))
|
|
||||||
(when buf (kill-buffer buf))))))
|
|
||||||
|
|
||||||
(defvar overwrite-query)
|
|
||||||
(defun dired-async-create-files (file-creator operation fn-list name-constructor
|
|
||||||
&optional _marker-char)
|
|
||||||
"Same as `dired-create-files' but asynchronous.
|
|
||||||
|
|
||||||
See `dired-create-files' for the behavior of arguments."
|
|
||||||
(setq overwrite-query nil)
|
|
||||||
(let ((total (length fn-list))
|
|
||||||
failures async-fn-list skipped callback
|
|
||||||
async-quiet-switch)
|
|
||||||
(let (to)
|
|
||||||
(dolist (from fn-list)
|
|
||||||
(setq to (funcall name-constructor from))
|
|
||||||
(if (and (equal to from)
|
|
||||||
(null (eq file-creator 'backup-file)))
|
|
||||||
(progn
|
|
||||||
(setq to nil)
|
|
||||||
(dired-log "Cannot %s to same file: %s\n"
|
|
||||||
(downcase operation) from)))
|
|
||||||
(if (not to)
|
|
||||||
(setq skipped (cons (dired-make-relative from) skipped))
|
|
||||||
(let* ((overwrite (and (null (eq file-creator 'backup-file))
|
|
||||||
(file-exists-p to)))
|
|
||||||
(dired-overwrite-confirmed ; for dired-handle-overwrite
|
|
||||||
(and overwrite
|
|
||||||
(let ((help-form `(format "\
|
|
||||||
Type SPC or `y' to overwrite file `%s',
|
|
||||||
DEL or `n' to skip to next,
|
|
||||||
ESC or `q' to not overwrite any of the remaining files,
|
|
||||||
`!' to overwrite all remaining files with no more questions." ,to)))
|
|
||||||
(dired-query 'overwrite-query "Overwrite `%s'?" to)))))
|
|
||||||
;; Handle the `dired-copy-file' file-creator specially
|
|
||||||
;; When copying a directory to another directory or
|
|
||||||
;; possibly to itself or one of its subdirectories.
|
|
||||||
;; e.g "~/foo/" => "~/test/"
|
|
||||||
;; or "~/foo/" =>"~/foo/"
|
|
||||||
;; or "~/foo/ => ~/foo/bar/")
|
|
||||||
;; In this case the 'name-constructor' have set the destination
|
|
||||||
;; TO to "~/test/foo" because the old emacs23 behavior
|
|
||||||
;; of `copy-directory' was to not create the subdirectory
|
|
||||||
;; and instead copy the contents.
|
|
||||||
;; With the new behavior of `copy-directory'
|
|
||||||
;; (similar to the `cp' shell command) we don't
|
|
||||||
;; need such a construction of the target directory,
|
|
||||||
;; so modify the destination TO to "~/test/" instead of "~/test/foo/".
|
|
||||||
(let ((destname (file-name-directory to)))
|
|
||||||
(when (and (file-directory-p from)
|
|
||||||
(file-directory-p to)
|
|
||||||
(eq file-creator 'dired-copy-file))
|
|
||||||
(setq to destname))
|
|
||||||
;; If DESTNAME is a subdirectory of FROM, not a symlink,
|
|
||||||
;; and the method in use is copying, signal an error.
|
|
||||||
(and (eq t (car (file-attributes destname)))
|
|
||||||
(eq file-creator 'dired-copy-file)
|
|
||||||
(file-in-directory-p destname from)
|
|
||||||
(error "Cannot copy `%s' into its subdirectory `%s'"
|
|
||||||
from to)))
|
|
||||||
(if overwrite
|
|
||||||
(or (and dired-overwrite-confirmed
|
|
||||||
(push (cons from to) async-fn-list))
|
|
||||||
(progn
|
|
||||||
(push (dired-make-relative from) failures)
|
|
||||||
(dired-log "%s `%s' to `%s' failed\n"
|
|
||||||
operation from to)))
|
|
||||||
(push (cons from to) async-fn-list)))))
|
|
||||||
;; Fix tramp issue #80 with emacs-26, use "-q" only when needed.
|
|
||||||
(setq async-quiet-switch
|
|
||||||
(if (and (boundp 'tramp-cache-read-persistent-data)
|
|
||||||
async-fn-list
|
|
||||||
(cl-loop for (_from . to) in async-fn-list
|
|
||||||
thereis (file-remote-p to)))
|
|
||||||
"-q" "-Q"))
|
|
||||||
;; When failures have been printed to dired log add the date at bob.
|
|
||||||
(when (or failures skipped) (dired-log t))
|
|
||||||
;; When async-fn-list is empty that's mean only one file
|
|
||||||
;; had to be copied and user finally answer NO.
|
|
||||||
;; In this case async process will never start and callback
|
|
||||||
;; will have no chance to run, so notify failures here.
|
|
||||||
(unless async-fn-list
|
|
||||||
(cond (failures
|
|
||||||
(funcall dired-async-message-function
|
|
||||||
"%s failed for %d of %d file%s -- See *Dired log* buffer"
|
|
||||||
'dired-async-failures
|
|
||||||
operation (length failures)
|
|
||||||
total (dired-plural-s total)))
|
|
||||||
(skipped
|
|
||||||
(funcall dired-async-message-function
|
|
||||||
"%s: %d of %d file%s skipped -- See *Dired log* buffer"
|
|
||||||
'dired-async-failures
|
|
||||||
operation (length skipped) total
|
|
||||||
(dired-plural-s total)))))
|
|
||||||
;; Setup callback.
|
|
||||||
(setq callback
|
|
||||||
(lambda (&optional _ignore)
|
|
||||||
(dired-async-after-file-create
|
|
||||||
total (list operation (length async-fn-list)) failures skipped)
|
|
||||||
(when (string= (downcase operation) "rename")
|
|
||||||
(cl-loop for (file . to) in async-fn-list
|
|
||||||
for bf = (get-file-buffer file)
|
|
||||||
for destp = (file-exists-p to)
|
|
||||||
do (and bf destp
|
|
||||||
(with-current-buffer bf
|
|
||||||
(set-visited-file-name to t t))))))))
|
|
||||||
;; Start async process.
|
|
||||||
(when async-fn-list
|
|
||||||
(async-start `(lambda ()
|
|
||||||
(require 'cl-lib) (require 'dired-aux) (require 'dired-x)
|
|
||||||
,(async-inject-variables dired-async-env-variables-regexp)
|
|
||||||
(let ((dired-recursive-copies (quote always))
|
|
||||||
(dired-copy-preserve-time
|
|
||||||
,dired-copy-preserve-time))
|
|
||||||
(setq overwrite-backup-query nil)
|
|
||||||
;; Inline `backup-file' as long as it is not
|
|
||||||
;; available in emacs.
|
|
||||||
(defalias 'backup-file
|
|
||||||
;; Same feature as "cp -f --backup=numbered from to"
|
|
||||||
;; Symlinks are copied as file from source unlike
|
|
||||||
;; `dired-copy-file' which is same as cp -d.
|
|
||||||
;; Directories are omitted.
|
|
||||||
(lambda (from to ok)
|
|
||||||
(cond ((file-directory-p from) (ignore))
|
|
||||||
(t (let ((count 0))
|
|
||||||
(while (let ((attrs (file-attributes to)))
|
|
||||||
(and attrs (null (nth 0 attrs))))
|
|
||||||
(cl-incf count)
|
|
||||||
(setq to (concat (file-name-sans-versions to)
|
|
||||||
(format ".~%s~" count)))))
|
|
||||||
(condition-case err
|
|
||||||
(copy-file from to ok dired-copy-preserve-time)
|
|
||||||
(file-date-error
|
|
||||||
(dired-log "Can't set date on %s:\n%s\n" from err)))))))
|
|
||||||
;; Now run the FILE-CREATOR function on files.
|
|
||||||
(cl-loop with fn = (quote ,file-creator)
|
|
||||||
for (from . dest) in (quote ,async-fn-list)
|
|
||||||
do (condition-case err
|
|
||||||
(funcall fn from dest t)
|
|
||||||
(file-error
|
|
||||||
(dired-log "%s: %s\n" (car err) (cdr err)))
|
|
||||||
nil))
|
|
||||||
(when (get-buffer dired-log-buffer)
|
|
||||||
(dired-log t)
|
|
||||||
(with-current-buffer dired-log-buffer
|
|
||||||
(write-region (point-min) (point-max)
|
|
||||||
,dired-async-log-file))))
|
|
||||||
,(dired-async-maybe-kill-ftp))
|
|
||||||
callback)
|
|
||||||
;; Run mode-line notifications while process running.
|
|
||||||
(dired-async--modeline-mode 1)
|
|
||||||
(message "%s proceeding asynchronously..." operation))))
|
|
||||||
|
|
||||||
(defvar wdired-use-interactive-rename)
|
|
||||||
(defun dired-async-wdired-do-renames (old-fn &rest args)
|
|
||||||
;; Perhaps a better fix would be to ask for renaming BEFORE starting
|
|
||||||
;; OLD-FN when `wdired-use-interactive-rename' is non-nil. For now
|
|
||||||
;; just bind it to nil to ensure no questions will be asked between
|
|
||||||
;; each rename.
|
|
||||||
(let (wdired-use-interactive-rename)
|
|
||||||
(apply old-fn args)))
|
|
||||||
|
|
||||||
(defadvice wdired-do-renames (around wdired-async)
|
|
||||||
(let (wdired-use-interactive-rename)
|
|
||||||
ad-do-it))
|
|
||||||
|
|
||||||
(defadvice dired-create-files (around dired-async)
|
|
||||||
(dired-async-create-files file-creator operation fn-list
|
|
||||||
name-constructor marker-char))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(define-minor-mode dired-async-mode
|
|
||||||
"Do dired actions asynchronously."
|
|
||||||
:group 'dired-async
|
|
||||||
:lighter dired-async-mode-lighter
|
|
||||||
:global t
|
|
||||||
(if dired-async-mode
|
|
||||||
(if (fboundp 'advice-add)
|
|
||||||
(progn (advice-add 'dired-create-files :override #'dired-async-create-files)
|
|
||||||
(advice-add 'wdired-do-renames :around #'dired-async-wdired-do-renames))
|
|
||||||
(ad-activate 'dired-create-files)
|
|
||||||
(ad-activate 'wdired-do-renames))
|
|
||||||
(if (fboundp 'advice-remove)
|
|
||||||
(progn (advice-remove 'dired-create-files #'dired-async-create-files)
|
|
||||||
(advice-remove 'wdired-do-renames #'dired-async-wdired-do-renames))
|
|
||||||
(ad-deactivate 'dired-create-files)
|
|
||||||
(ad-deactivate 'wdired-do-renames))))
|
|
||||||
|
|
||||||
(defmacro dired-async--with-async-create-files (&rest body)
|
|
||||||
"Evaluate BODY with ‘dired-create-files’ set to ‘dired-async-create-files’."
|
|
||||||
(declare (indent 0))
|
|
||||||
`(cl-letf (((symbol-function 'dired-create-files) #'dired-async-create-files))
|
|
||||||
,@body))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun dired-async-do-copy (&optional arg)
|
|
||||||
"Run ‘dired-do-copy’ asynchronously."
|
|
||||||
(interactive "P")
|
|
||||||
(dired-async--with-async-create-files
|
|
||||||
(dired-do-copy arg)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun dired-async-do-symlink (&optional arg)
|
|
||||||
"Run ‘dired-do-symlink’ asynchronously."
|
|
||||||
(interactive "P")
|
|
||||||
(dired-async--with-async-create-files
|
|
||||||
(dired-do-symlink arg)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun dired-async-do-hardlink (&optional arg)
|
|
||||||
"Run ‘dired-do-hardlink’ asynchronously."
|
|
||||||
(interactive "P")
|
|
||||||
(dired-async--with-async-create-files
|
|
||||||
(dired-do-hardlink arg)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun dired-async-do-rename (&optional arg)
|
|
||||||
"Run ‘dired-do-rename’ asynchronously."
|
|
||||||
(interactive "P")
|
|
||||||
(dired-async--with-async-create-files
|
|
||||||
(dired-do-rename arg)))
|
|
||||||
|
|
||||||
(provide 'dired-async)
|
|
||||||
|
|
||||||
;;; dired-async.el ends here
|
|
||||||
Binary file not shown.
@@ -1,73 +0,0 @@
|
|||||||
;;; smtpmail-async.el --- Send e-mail with smtpmail.el asynchronously -*- lexical-binding: t -*-
|
|
||||||
|
|
||||||
;; Copyright (C) 2012-2016 Free Software Foundation, Inc.
|
|
||||||
|
|
||||||
;; Author: John Wiegley <jwiegley@gmail.com>
|
|
||||||
;; Created: 18 Jun 2012
|
|
||||||
|
|
||||||
;; Keywords: email async
|
|
||||||
;; X-URL: https://github.com/jwiegley/emacs-async
|
|
||||||
|
|
||||||
;; 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 2, 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 GNU Emacs; see the file COPYING. If not, write to the
|
|
||||||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
||||||
;; Boston, MA 02111-1307, USA.
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
|
|
||||||
;; Send e-mail with smtpmail.el asynchronously. To use:
|
|
||||||
;;
|
|
||||||
;; (require 'smtpmail-async)
|
|
||||||
;;
|
|
||||||
;; (setq send-mail-function 'async-smtpmail-send-it
|
|
||||||
;; message-send-mail-function 'async-smtpmail-send-it)
|
|
||||||
;;
|
|
||||||
;; This assumes you already have smtpmail.el working.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(defgroup smtpmail-async nil
|
|
||||||
"Send e-mail with smtpmail.el asynchronously"
|
|
||||||
:group 'smptmail)
|
|
||||||
|
|
||||||
(require 'async)
|
|
||||||
(require 'smtpmail)
|
|
||||||
(require 'message)
|
|
||||||
|
|
||||||
(defvar async-smtpmail-before-send-hook nil
|
|
||||||
"Hook running in the child emacs in `async-smtpmail-send-it'.
|
|
||||||
It is called just before calling `smtpmail-send-it'.")
|
|
||||||
|
|
||||||
(defun async-smtpmail-send-it ()
|
|
||||||
(let ((to (message-field-value "To"))
|
|
||||||
(buf-content (buffer-substring-no-properties
|
|
||||||
(point-min) (point-max))))
|
|
||||||
(message "Delivering message to %s..." to)
|
|
||||||
(async-start
|
|
||||||
`(lambda ()
|
|
||||||
(require 'smtpmail)
|
|
||||||
(with-temp-buffer
|
|
||||||
(insert ,buf-content)
|
|
||||||
(set-buffer-multibyte nil)
|
|
||||||
;; Pass in the variable environment for smtpmail
|
|
||||||
,(async-inject-variables
|
|
||||||
"\\`\\(smtpmail\\|async-smtpmail\\|\\(user-\\)?mail\\)-\\|auth-sources\\|epg\\|nsm"
|
|
||||||
nil "\\`\\(mail-header-format-function\\|smtpmail-address-buffer\\|mail-mode-abbrev-table\\)")
|
|
||||||
(run-hooks 'async-smtpmail-before-send-hook)
|
|
||||||
(smtpmail-send-it)))
|
|
||||||
(lambda (&optional _ignore)
|
|
||||||
(message "Delivering message to %s...done" to)))))
|
|
||||||
|
|
||||||
(provide 'smtpmail-async)
|
|
||||||
|
|
||||||
;;; smtpmail-async.el ends here
|
|
||||||
Binary file not shown.
@@ -1,71 +0,0 @@
|
|||||||
;;; auto-complete-autoloads.el --- automatically extracted autoloads
|
|
||||||
;;
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(add-to-list 'load-path (directory-file-name
|
|
||||||
(or (file-name-directory #$) (car load-path))))
|
|
||||||
|
|
||||||
|
|
||||||
;;;### (autoloads nil "auto-complete" "auto-complete.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from auto-complete.el
|
|
||||||
|
|
||||||
(autoload 'auto-complete "auto-complete" "\
|
|
||||||
Start auto-completion at current point.
|
|
||||||
|
|
||||||
\(fn &optional SOURCES)" t nil)
|
|
||||||
|
|
||||||
(autoload 'auto-complete-mode "auto-complete" "\
|
|
||||||
AutoComplete mode
|
|
||||||
|
|
||||||
\(fn &optional ARG)" t nil)
|
|
||||||
|
|
||||||
(defvar global-auto-complete-mode nil "\
|
|
||||||
Non-nil if Global Auto-Complete mode is enabled.
|
|
||||||
See the `global-auto-complete-mode' command
|
|
||||||
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-auto-complete-mode'.")
|
|
||||||
|
|
||||||
(custom-autoload 'global-auto-complete-mode "auto-complete" nil)
|
|
||||||
|
|
||||||
(autoload 'global-auto-complete-mode "auto-complete" "\
|
|
||||||
Toggle Auto-Complete mode in all buffers.
|
|
||||||
With prefix ARG, enable Global Auto-Complete mode if ARG is positive;
|
|
||||||
otherwise, disable it. If called from Lisp, enable the mode if
|
|
||||||
ARG is omitted or nil.
|
|
||||||
|
|
||||||
Auto-Complete mode is enabled in all buffers where
|
|
||||||
`auto-complete-mode-maybe' would do it.
|
|
||||||
See `auto-complete-mode' for more information on Auto-Complete mode.
|
|
||||||
|
|
||||||
\(fn &optional ARG)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "auto-complete" '("auto-complete-mode" "ac-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "auto-complete-config" "auto-complete-config.el"
|
|
||||||
;;;;;; (0 0 0 0))
|
|
||||||
;;; Generated autoloads from auto-complete-config.el
|
|
||||||
|
|
||||||
(autoload 'ac-config-default "auto-complete-config" "\
|
|
||||||
|
|
||||||
|
|
||||||
\(fn)" nil nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "auto-complete-config" '("ac-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil nil ("auto-complete-pkg.el") (0 0 0 0))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;; Local Variables:
|
|
||||||
;; version-control: never
|
|
||||||
;; no-byte-compile: t
|
|
||||||
;; no-update-autoloads: t
|
|
||||||
;; coding: utf-8
|
|
||||||
;; End:
|
|
||||||
;;; auto-complete-autoloads.el ends here
|
|
||||||
@@ -1,551 +0,0 @@
|
|||||||
;;; auto-complete-config.el --- auto-complete additional configuations
|
|
||||||
|
|
||||||
;; Copyright (C) 2009, 2010 Tomohiro Matsuyama
|
|
||||||
|
|
||||||
;; Author: Tomohiro Matsuyama <m2ym.pub@gmail.com>
|
|
||||||
;; Keywords: convenience
|
|
||||||
;; Version: 1.5.0
|
|
||||||
|
|
||||||
;; 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:
|
|
||||||
|
|
||||||
;;
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'cl-lib)
|
|
||||||
(require 'auto-complete)
|
|
||||||
|
|
||||||
(declare-function semantic-analyze-current-context "semantic/analyze")
|
|
||||||
(declare-function semantic-tag-class "semantic/tag")
|
|
||||||
(declare-function semantic-tag-function-arguments "semantic/tag")
|
|
||||||
(declare-function semantic-format-tag-type "semantic/format")
|
|
||||||
(declare-function semantic-format-tag-name "semantic/format")
|
|
||||||
(declare-function yas-expand-snippet "yasnippet")
|
|
||||||
(declare-function oref "eieio" (obj slot))
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
;;;; Additional sources
|
|
||||||
|
|
||||||
;; imenu
|
|
||||||
|
|
||||||
(defvar ac-imenu-index nil)
|
|
||||||
|
|
||||||
(ac-clear-variable-every-10-minutes 'ac-imenu-index)
|
|
||||||
|
|
||||||
(defun ac-imenu-candidates ()
|
|
||||||
(cl-loop with i = 0
|
|
||||||
with stack = (progn
|
|
||||||
(unless (local-variable-p 'ac-imenu-index)
|
|
||||||
(make-local-variable 'ac-imenu-index))
|
|
||||||
(or ac-imenu-index
|
|
||||||
(setq ac-imenu-index
|
|
||||||
(ignore-errors
|
|
||||||
(with-no-warnings
|
|
||||||
(imenu--make-index-alist))))))
|
|
||||||
with result
|
|
||||||
while (and stack (or (not (integerp ac-limit))
|
|
||||||
(< i ac-limit)))
|
|
||||||
for node = (pop stack)
|
|
||||||
if (consp node)
|
|
||||||
do
|
|
||||||
(let ((car (car node))
|
|
||||||
(cdr (cdr node)))
|
|
||||||
(if (consp cdr)
|
|
||||||
(mapc (lambda (child)
|
|
||||||
(push child stack))
|
|
||||||
cdr)
|
|
||||||
(when (and (stringp car)
|
|
||||||
(string-match (concat "^" (regexp-quote ac-prefix)) car))
|
|
||||||
;; Remove extra characters
|
|
||||||
(if (string-match "^.*\\(()\\|=\\|<>\\)$" car)
|
|
||||||
(setq car (substring car 0 (match-beginning 1))))
|
|
||||||
(push car result)
|
|
||||||
(cl-incf i))))
|
|
||||||
finally return (nreverse result)))
|
|
||||||
|
|
||||||
(ac-define-source imenu
|
|
||||||
'((depends imenu)
|
|
||||||
(candidates . ac-imenu-candidates)
|
|
||||||
(symbol . "s")))
|
|
||||||
|
|
||||||
;; gtags
|
|
||||||
|
|
||||||
(defface ac-gtags-candidate-face
|
|
||||||
'((t (:inherit ac-candidate-face :foreground "navy")))
|
|
||||||
"Face for gtags candidate"
|
|
||||||
:group 'auto-complete)
|
|
||||||
|
|
||||||
(defface ac-gtags-selection-face
|
|
||||||
'((t (:inherit ac-selection-face :background "navy")))
|
|
||||||
"Face for the gtags selected candidate."
|
|
||||||
:group 'auto-complete)
|
|
||||||
|
|
||||||
(defun ac-gtags-candidate ()
|
|
||||||
(ignore-errors
|
|
||||||
(split-string (shell-command-to-string (format "global -ciq %s" ac-prefix)) "\n")))
|
|
||||||
|
|
||||||
(ac-define-source gtags
|
|
||||||
'((candidates . ac-gtags-candidate)
|
|
||||||
(candidate-face . ac-gtags-candidate-face)
|
|
||||||
(selection-face . ac-gtags-selection-face)
|
|
||||||
(requires . 3)
|
|
||||||
(symbol . "s")))
|
|
||||||
|
|
||||||
;; yasnippet
|
|
||||||
|
|
||||||
(defface ac-yasnippet-candidate-face
|
|
||||||
'((t (:inherit ac-candidate-face
|
|
||||||
:background "sandybrown" :foreground "black")))
|
|
||||||
"Face for yasnippet candidate."
|
|
||||||
:group 'auto-complete)
|
|
||||||
|
|
||||||
(defface ac-yasnippet-selection-face
|
|
||||||
'((t (:inherit ac-selection-face :background "coral3")))
|
|
||||||
"Face for the yasnippet selected candidate."
|
|
||||||
:group 'auto-complete)
|
|
||||||
|
|
||||||
(defun ac-yasnippet-table-hash (table)
|
|
||||||
(cond
|
|
||||||
((fboundp 'yas/snippet-table-hash)
|
|
||||||
(yas/snippet-table-hash table))
|
|
||||||
((fboundp 'yas/table-hash)
|
|
||||||
(yas/table-hash table))))
|
|
||||||
|
|
||||||
(defun ac-yasnippet-table-parent (table)
|
|
||||||
(cond
|
|
||||||
((fboundp 'yas/snippet-table-parent)
|
|
||||||
(yas/snippet-table-parent table))
|
|
||||||
((fboundp 'yas/table-parent)
|
|
||||||
(yas/table-parent table))))
|
|
||||||
|
|
||||||
(defun ac-yasnippet-candidate-1 (table)
|
|
||||||
(with-no-warnings
|
|
||||||
(let ((hashtab (ac-yasnippet-table-hash table))
|
|
||||||
(parent (ac-yasnippet-table-parent table))
|
|
||||||
candidates)
|
|
||||||
(maphash (lambda (key value)
|
|
||||||
(push key candidates))
|
|
||||||
hashtab)
|
|
||||||
(setq candidates (all-completions ac-prefix (nreverse candidates)))
|
|
||||||
(if parent
|
|
||||||
(setq candidates
|
|
||||||
(append candidates (ac-yasnippet-candidate-1 parent))))
|
|
||||||
candidates)))
|
|
||||||
|
|
||||||
(defun ac-yasnippet-candidates ()
|
|
||||||
(with-no-warnings
|
|
||||||
(cond (;; 0.8 onwards
|
|
||||||
(fboundp 'yas-active-keys)
|
|
||||||
(all-completions ac-prefix (yas-active-keys)))
|
|
||||||
(;; >0.6.0
|
|
||||||
(fboundp 'yas/get-snippet-tables)
|
|
||||||
(apply 'append (mapcar 'ac-yasnippet-candidate-1
|
|
||||||
(condition-case nil
|
|
||||||
(yas/get-snippet-tables major-mode)
|
|
||||||
(wrong-number-of-arguments
|
|
||||||
(yas/get-snippet-tables)))))
|
|
||||||
)
|
|
||||||
(t
|
|
||||||
(let ((table
|
|
||||||
(if (fboundp 'yas/snippet-table)
|
|
||||||
;; <0.6.0
|
|
||||||
(yas/snippet-table major-mode)
|
|
||||||
;; 0.6.0
|
|
||||||
(yas/current-snippet-table))))
|
|
||||||
(if table
|
|
||||||
(ac-yasnippet-candidate-1 table)))))))
|
|
||||||
|
|
||||||
(ac-define-source yasnippet
|
|
||||||
'((depends yasnippet)
|
|
||||||
(candidates . ac-yasnippet-candidates)
|
|
||||||
(action . yas/expand)
|
|
||||||
(candidate-face . ac-yasnippet-candidate-face)
|
|
||||||
(selection-face . ac-yasnippet-selection-face)
|
|
||||||
(symbol . "a")))
|
|
||||||
|
|
||||||
;; semantic
|
|
||||||
|
|
||||||
(defun ac-semantic-candidates (prefix)
|
|
||||||
(with-no-warnings
|
|
||||||
(delete "" ; semantic sometimes returns an empty string
|
|
||||||
(mapcar (lambda (elem)
|
|
||||||
(cons (semantic-tag-name elem)
|
|
||||||
(semantic-tag-clone elem)))
|
|
||||||
(ignore-errors
|
|
||||||
(or (semantic-analyze-possible-completions
|
|
||||||
(semantic-analyze-current-context))
|
|
||||||
(senator-find-tag-for-completion prefix)))))))
|
|
||||||
|
|
||||||
(defun ac-semantic-doc (symbol)
|
|
||||||
(with-no-warnings
|
|
||||||
(let* ((proto (semantic-format-tag-summarize-with-file symbol nil t))
|
|
||||||
(doc (semantic-documentation-for-tag symbol))
|
|
||||||
(res proto))
|
|
||||||
(when doc
|
|
||||||
(setq res (concat res "\n\n" doc)))
|
|
||||||
res)))
|
|
||||||
|
|
||||||
(defun ac-semantic-action ()
|
|
||||||
(when (and (boundp 'yas-minor-mode) yas-minor-mode)
|
|
||||||
(let* ((tag (car (last (oref (semantic-analyze-current-context) prefix))))
|
|
||||||
(class (semantic-tag-class tag))
|
|
||||||
(args))
|
|
||||||
(when (eq class 'function)
|
|
||||||
(setq args (semantic-tag-function-arguments tag))
|
|
||||||
(yas-expand-snippet
|
|
||||||
(concat "("
|
|
||||||
(mapconcat
|
|
||||||
(lambda (arg)
|
|
||||||
(let ((arg-type (semantic-format-tag-type arg nil))
|
|
||||||
(arg-name (semantic-format-tag-name arg nil)))
|
|
||||||
(concat "${"
|
|
||||||
(if (string= arg-name "")
|
|
||||||
arg-type
|
|
||||||
(concat arg-type " " arg-name))
|
|
||||||
"}")))
|
|
||||||
args
|
|
||||||
", ")
|
|
||||||
")$0"))))))
|
|
||||||
|
|
||||||
(ac-define-source semantic
|
|
||||||
'((available . (or (require 'semantic-ia nil t)
|
|
||||||
(require 'semantic/ia nil t)))
|
|
||||||
(candidates . (ac-semantic-candidates ac-prefix))
|
|
||||||
(document . ac-semantic-doc)
|
|
||||||
(action . ac-semantic-action)
|
|
||||||
(prefix . cc-member)
|
|
||||||
(requires . 0)
|
|
||||||
(symbol . "m")))
|
|
||||||
|
|
||||||
(ac-define-source semantic-raw
|
|
||||||
'((available . (or (require 'semantic-ia nil t)
|
|
||||||
(require 'semantic/ia nil t)))
|
|
||||||
(candidates . (ac-semantic-candidates ac-prefix))
|
|
||||||
(document . ac-semantic-doc)
|
|
||||||
(action . ac-semantic-action)
|
|
||||||
(symbol . "s")))
|
|
||||||
|
|
||||||
;; eclim
|
|
||||||
|
|
||||||
(defun ac-eclim-candidates ()
|
|
||||||
(with-no-warnings
|
|
||||||
(cl-loop for c in (eclim/java-complete)
|
|
||||||
collect (nth 1 c))))
|
|
||||||
|
|
||||||
(ac-define-source eclim
|
|
||||||
'((candidates . ac-eclim-candidates)
|
|
||||||
(prefix . c-dot)
|
|
||||||
(requires . 0)
|
|
||||||
(symbol . "f")))
|
|
||||||
|
|
||||||
;; css
|
|
||||||
|
|
||||||
;; Copied from company-css.el
|
|
||||||
(defconst ac-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-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-variant font-weight font-size "/" line-height
|
|
||||||
font-family "caption" "icon" "menu" "message-box" "small-caption"
|
|
||||||
"status-bar")
|
|
||||||
("font-family" family-name generic-family)
|
|
||||||
("font-size" absolute-size relative-size length percentage)
|
|
||||||
("font-style" "normal" "italic" "oblique")
|
|
||||||
("font-variant" "normal" "small-caps")
|
|
||||||
("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")
|
|
||||||
("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-decoration" "none" "underline" "overline" "line-through" "blink")
|
|
||||||
("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))
|
|
||||||
"A list of CSS properties and their possible values.")
|
|
||||||
|
|
||||||
(defconst ac-css-value-classes
|
|
||||||
'((absolute-size "xx-small" "x-small" "small" "medium" "large" "x-large"
|
|
||||||
"xx-large")
|
|
||||||
(border-style "none" "hidden" "dotted" "dashed" "solid" "double" "groove"
|
|
||||||
"ridge" "inset" "outset")
|
|
||||||
(color "aqua" "black" "blue" "fuchsia" "gray" "green" "lime" "maroon" "navy"
|
|
||||||
"olive" "orange" "purple" "red" "silver" "teal" "white" "yellow"
|
|
||||||
"rgb")
|
|
||||||
(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.")
|
|
||||||
|
|
||||||
(defconst ac-css-pseudo-classes
|
|
||||||
'("active" "after" "before" "first" "first-child" "first-letter" "first-line"
|
|
||||||
"focus" "hover" "lang" "left" "link" "right" "visited")
|
|
||||||
"Identifiers for CSS pseudo-elements and pseudo-classes.")
|
|
||||||
|
|
||||||
(defvar ac-css-property nil
|
|
||||||
"Current editing property.")
|
|
||||||
|
|
||||||
(defun ac-css-prefix ()
|
|
||||||
(when (save-excursion (re-search-backward "\\_<\\(.+?\\)\\_>\\s *:[^;]*\\=" nil t))
|
|
||||||
(setq ac-css-property (match-string 1))
|
|
||||||
(or (ac-prefix-symbol) (point))))
|
|
||||||
|
|
||||||
(defun ac-css-property-candidates ()
|
|
||||||
(let ((list (assoc-default ac-css-property ac-css-property-alist)))
|
|
||||||
(if list
|
|
||||||
(cl-loop with seen
|
|
||||||
with value
|
|
||||||
while (setq value (pop list))
|
|
||||||
if (symbolp value)
|
|
||||||
do (unless (memq value seen)
|
|
||||||
(push value seen)
|
|
||||||
(setq list
|
|
||||||
(append list
|
|
||||||
(or (assoc-default value ac-css-value-classes)
|
|
||||||
(assoc-default (symbol-name value) ac-css-property-alist)))))
|
|
||||||
else collect value)
|
|
||||||
ac-css-pseudo-classes)))
|
|
||||||
|
|
||||||
(ac-define-source css-property
|
|
||||||
'((candidates . ac-css-property-candidates)
|
|
||||||
(prefix . ac-css-prefix)
|
|
||||||
(requires . 0)))
|
|
||||||
|
|
||||||
;; slime
|
|
||||||
(ac-define-source slime
|
|
||||||
'((depends slime)
|
|
||||||
(candidates . (car (slime-simple-completions ac-prefix)))
|
|
||||||
(symbol . "s")
|
|
||||||
(cache)))
|
|
||||||
|
|
||||||
;; ghc-mod
|
|
||||||
(ac-define-source ghc-mod
|
|
||||||
'((depends ghc)
|
|
||||||
(candidates . (ghc-select-completion-symbol))
|
|
||||||
(symbol . "s")
|
|
||||||
(cache)))
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
;;;; Not maintained sources
|
|
||||||
|
|
||||||
;; ropemacs
|
|
||||||
|
|
||||||
(defvar ac-ropemacs-loaded nil)
|
|
||||||
(defun ac-ropemacs-require ()
|
|
||||||
(with-no-warnings
|
|
||||||
(unless ac-ropemacs-loaded
|
|
||||||
(pymacs-load "ropemacs" "rope-")
|
|
||||||
(if (boundp 'ropemacs-enable-autoimport)
|
|
||||||
(setq ropemacs-enable-autoimport t))
|
|
||||||
(setq ac-ropemacs-loaded t))))
|
|
||||||
|
|
||||||
(defun ac-ropemacs-setup ()
|
|
||||||
(ac-ropemacs-require)
|
|
||||||
;(setq ac-sources (append (list 'ac-source-ropemacs) ac-sources))
|
|
||||||
(setq ac-omni-completion-sources '(("\\." ac-source-ropemacs))))
|
|
||||||
|
|
||||||
(defun ac-ropemacs-initialize ()
|
|
||||||
(autoload 'pymacs-apply "pymacs")
|
|
||||||
(autoload 'pymacs-call "pymacs")
|
|
||||||
(autoload 'pymacs-eval "pymacs" nil t)
|
|
||||||
(autoload 'pymacs-exec "pymacs" nil t)
|
|
||||||
(autoload 'pymacs-load "pymacs" nil t)
|
|
||||||
(add-hook 'python-mode-hook 'ac-ropemacs-setup)
|
|
||||||
t)
|
|
||||||
|
|
||||||
(defvar ac-ropemacs-completions-cache nil)
|
|
||||||
(defvar ac-source-ropemacs
|
|
||||||
'((init
|
|
||||||
. (lambda ()
|
|
||||||
(setq ac-ropemacs-completions-cache
|
|
||||||
(mapcar
|
|
||||||
(lambda (completion)
|
|
||||||
(concat ac-prefix completion))
|
|
||||||
(ignore-errors
|
|
||||||
(rope-completions))))))
|
|
||||||
(candidates . ac-ropemacs-completions-cache)))
|
|
||||||
|
|
||||||
;; rcodetools
|
|
||||||
|
|
||||||
(defvar ac-source-rcodetools
|
|
||||||
'((init . (lambda ()
|
|
||||||
(require 'rcodetools)
|
|
||||||
(condition-case x
|
|
||||||
(save-excursion
|
|
||||||
(rct-exec-and-eval rct-complete-command-name "--completion-emacs-icicles"))
|
|
||||||
(error) (setq rct-method-completion-table nil))))
|
|
||||||
(candidates . (lambda ()
|
|
||||||
(all-completions
|
|
||||||
ac-prefix
|
|
||||||
(mapcar
|
|
||||||
(lambda (completion)
|
|
||||||
(replace-regexp-in-string "\t.*$" "" (car completion)))
|
|
||||||
rct-method-completion-table))))))
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
;;;; Default settings
|
|
||||||
|
|
||||||
(defun ac-common-setup ()
|
|
||||||
;(add-to-list 'ac-sources 'ac-source-filename)
|
|
||||||
)
|
|
||||||
|
|
||||||
(defun ac-emacs-lisp-mode-setup ()
|
|
||||||
(setq ac-sources (append '(ac-source-features ac-source-functions ac-source-yasnippet ac-source-variables ac-source-symbols) ac-sources)))
|
|
||||||
|
|
||||||
(defun ac-cc-mode-setup ()
|
|
||||||
(setq ac-sources (append '(ac-source-yasnippet ac-source-gtags) ac-sources)))
|
|
||||||
|
|
||||||
(defun ac-ruby-mode-setup ())
|
|
||||||
|
|
||||||
(defun ac-css-mode-setup ()
|
|
||||||
(setq ac-sources (append '(ac-source-css-property) ac-sources)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun ac-config-default ()
|
|
||||||
(setq-default ac-sources '(ac-source-abbrev ac-source-dictionary ac-source-words-in-same-mode-buffers))
|
|
||||||
(add-hook 'emacs-lisp-mode-hook 'ac-emacs-lisp-mode-setup)
|
|
||||||
(add-hook 'c-mode-common-hook 'ac-cc-mode-setup)
|
|
||||||
(add-hook 'ruby-mode-hook 'ac-ruby-mode-setup)
|
|
||||||
(add-hook 'css-mode-hook 'ac-css-mode-setup)
|
|
||||||
(add-hook 'auto-complete-mode-hook 'ac-common-setup)
|
|
||||||
(global-auto-complete-mode t))
|
|
||||||
|
|
||||||
(provide 'auto-complete-config)
|
|
||||||
;;; auto-complete-config.el ends here
|
|
||||||
Binary file not shown.
@@ -1,6 +0,0 @@
|
|||||||
(define-package "auto-complete" "20170125.245" "Auto Completion for GNU Emacs"
|
|
||||||
'((popup "0.5.0")
|
|
||||||
(cl-lib "0.5")))
|
|
||||||
;; Local Variables:
|
|
||||||
;; no-byte-compile: t
|
|
||||||
;; End:
|
|
||||||
File diff suppressed because it is too large
Load Diff
Binary file not shown.
@@ -1,72 +0,0 @@
|
|||||||
abort
|
|
||||||
abs
|
|
||||||
abstract
|
|
||||||
accept
|
|
||||||
access
|
|
||||||
aliased
|
|
||||||
all
|
|
||||||
and
|
|
||||||
array
|
|
||||||
at
|
|
||||||
begin
|
|
||||||
body
|
|
||||||
case
|
|
||||||
constant
|
|
||||||
declare
|
|
||||||
delay
|
|
||||||
delta
|
|
||||||
digits
|
|
||||||
do
|
|
||||||
else
|
|
||||||
elsif
|
|
||||||
end
|
|
||||||
entry
|
|
||||||
exception
|
|
||||||
exit
|
|
||||||
for
|
|
||||||
function
|
|
||||||
generic
|
|
||||||
goto
|
|
||||||
if
|
|
||||||
in
|
|
||||||
interface
|
|
||||||
is
|
|
||||||
limited
|
|
||||||
loop
|
|
||||||
mod
|
|
||||||
new
|
|
||||||
not
|
|
||||||
null
|
|
||||||
of
|
|
||||||
or
|
|
||||||
others
|
|
||||||
out
|
|
||||||
overriding
|
|
||||||
package
|
|
||||||
pragma
|
|
||||||
private
|
|
||||||
procedure
|
|
||||||
protected
|
|
||||||
raise
|
|
||||||
range
|
|
||||||
record
|
|
||||||
rem
|
|
||||||
renames
|
|
||||||
requeue
|
|
||||||
return
|
|
||||||
reverse
|
|
||||||
select
|
|
||||||
separate
|
|
||||||
subtype
|
|
||||||
synchronized
|
|
||||||
tagged
|
|
||||||
task
|
|
||||||
terminate
|
|
||||||
then
|
|
||||||
type
|
|
||||||
until
|
|
||||||
use
|
|
||||||
when
|
|
||||||
while
|
|
||||||
with
|
|
||||||
xor
|
|
||||||
@@ -1,99 +0,0 @@
|
|||||||
alignas
|
|
||||||
alignof
|
|
||||||
and
|
|
||||||
and_eq
|
|
||||||
asm
|
|
||||||
auto
|
|
||||||
bitand
|
|
||||||
bitor
|
|
||||||
bool
|
|
||||||
break
|
|
||||||
case
|
|
||||||
catch
|
|
||||||
char
|
|
||||||
char16_t
|
|
||||||
char32_t
|
|
||||||
class
|
|
||||||
compl
|
|
||||||
concept
|
|
||||||
const
|
|
||||||
const_cast
|
|
||||||
constexpr
|
|
||||||
continue
|
|
||||||
decltype
|
|
||||||
default
|
|
||||||
define
|
|
||||||
defined
|
|
||||||
delete
|
|
||||||
do
|
|
||||||
double
|
|
||||||
dynamic_cast
|
|
||||||
elif
|
|
||||||
else
|
|
||||||
endif
|
|
||||||
enum
|
|
||||||
error
|
|
||||||
explicit
|
|
||||||
export
|
|
||||||
extern
|
|
||||||
false
|
|
||||||
final
|
|
||||||
float
|
|
||||||
for
|
|
||||||
friend
|
|
||||||
goto
|
|
||||||
if
|
|
||||||
ifdef
|
|
||||||
ifndef
|
|
||||||
include
|
|
||||||
inline
|
|
||||||
int
|
|
||||||
line
|
|
||||||
long
|
|
||||||
mutable
|
|
||||||
namespace
|
|
||||||
new
|
|
||||||
noexcept
|
|
||||||
not
|
|
||||||
not_eq
|
|
||||||
nullptr
|
|
||||||
operator
|
|
||||||
or
|
|
||||||
or_eq
|
|
||||||
override
|
|
||||||
pragma
|
|
||||||
_Pragma
|
|
||||||
private
|
|
||||||
protected
|
|
||||||
public
|
|
||||||
register
|
|
||||||
reinterpret_cast
|
|
||||||
requires
|
|
||||||
return
|
|
||||||
short
|
|
||||||
signed
|
|
||||||
sizeof
|
|
||||||
static
|
|
||||||
static_assert
|
|
||||||
static_cast
|
|
||||||
struct
|
|
||||||
switch
|
|
||||||
template
|
|
||||||
this
|
|
||||||
thread_local
|
|
||||||
throw
|
|
||||||
true
|
|
||||||
try
|
|
||||||
typedef
|
|
||||||
typeid
|
|
||||||
typename
|
|
||||||
union
|
|
||||||
unsigned
|
|
||||||
using
|
|
||||||
virtual
|
|
||||||
void
|
|
||||||
volatile
|
|
||||||
wchar_t
|
|
||||||
while
|
|
||||||
xor
|
|
||||||
xor_eq
|
|
||||||
@@ -1,55 +0,0 @@
|
|||||||
auto
|
|
||||||
_Alignas
|
|
||||||
_Alignof
|
|
||||||
_Atomic
|
|
||||||
_Bool
|
|
||||||
break
|
|
||||||
case
|
|
||||||
char
|
|
||||||
_Complex
|
|
||||||
const
|
|
||||||
continue
|
|
||||||
default
|
|
||||||
define
|
|
||||||
defined
|
|
||||||
do
|
|
||||||
double
|
|
||||||
elif
|
|
||||||
else
|
|
||||||
endif
|
|
||||||
enum
|
|
||||||
error
|
|
||||||
extern
|
|
||||||
float
|
|
||||||
for
|
|
||||||
goto
|
|
||||||
_Generic
|
|
||||||
if
|
|
||||||
ifdef
|
|
||||||
ifndef
|
|
||||||
_Imaginary
|
|
||||||
include
|
|
||||||
inline
|
|
||||||
int
|
|
||||||
line
|
|
||||||
long
|
|
||||||
_Noreturn
|
|
||||||
pragma
|
|
||||||
register
|
|
||||||
restrict
|
|
||||||
return
|
|
||||||
short
|
|
||||||
signed
|
|
||||||
sizeof
|
|
||||||
static
|
|
||||||
struct
|
|
||||||
switch
|
|
||||||
_Static_assert
|
|
||||||
typedef
|
|
||||||
_Thread_local
|
|
||||||
undef
|
|
||||||
union
|
|
||||||
unsigned
|
|
||||||
void
|
|
||||||
volatile
|
|
||||||
while
|
|
||||||
@@ -1,231 +0,0 @@
|
|||||||
# OCaml 3.12.1
|
|
||||||
|
|
||||||
# Keywords
|
|
||||||
and
|
|
||||||
as
|
|
||||||
assert
|
|
||||||
begin
|
|
||||||
class
|
|
||||||
constraint
|
|
||||||
do
|
|
||||||
done
|
|
||||||
downto
|
|
||||||
else
|
|
||||||
end
|
|
||||||
exception
|
|
||||||
external
|
|
||||||
false
|
|
||||||
for
|
|
||||||
fun
|
|
||||||
function
|
|
||||||
functor
|
|
||||||
if
|
|
||||||
in
|
|
||||||
include
|
|
||||||
inherit
|
|
||||||
initializer
|
|
||||||
lazy
|
|
||||||
let
|
|
||||||
match
|
|
||||||
method
|
|
||||||
module
|
|
||||||
mutable
|
|
||||||
new
|
|
||||||
object
|
|
||||||
of
|
|
||||||
open
|
|
||||||
or
|
|
||||||
private
|
|
||||||
rec
|
|
||||||
sig
|
|
||||||
struct
|
|
||||||
then
|
|
||||||
to
|
|
||||||
true
|
|
||||||
try
|
|
||||||
type
|
|
||||||
val
|
|
||||||
virtual
|
|
||||||
when
|
|
||||||
while
|
|
||||||
with
|
|
||||||
|
|
||||||
# Pervasives
|
|
||||||
!
|
|
||||||
!=
|
|
||||||
&
|
|
||||||
&&
|
|
||||||
*
|
|
||||||
**
|
|
||||||
*.
|
|
||||||
+
|
|
||||||
+.
|
|
||||||
-
|
|
||||||
-.
|
|
||||||
/
|
|
||||||
/.
|
|
||||||
:=
|
|
||||||
<
|
|
||||||
<=
|
|
||||||
<>
|
|
||||||
=
|
|
||||||
==
|
|
||||||
>
|
|
||||||
>=
|
|
||||||
@
|
|
||||||
FP_infinite
|
|
||||||
FP_nan
|
|
||||||
FP_normal
|
|
||||||
FP_subnormal
|
|
||||||
FP_zero
|
|
||||||
LargeFile
|
|
||||||
Open_append
|
|
||||||
Open_binary
|
|
||||||
Open_creat
|
|
||||||
Open_nonblock
|
|
||||||
Open_rdonly
|
|
||||||
Open_text
|
|
||||||
Open_trunc
|
|
||||||
Open_wronly
|
|
||||||
Oupen_excl
|
|
||||||
^
|
|
||||||
^^
|
|
||||||
abs
|
|
||||||
abs_float
|
|
||||||
acos
|
|
||||||
asin
|
|
||||||
asr
|
|
||||||
at_exit
|
|
||||||
atan
|
|
||||||
atan2
|
|
||||||
bool_of_string
|
|
||||||
ceil
|
|
||||||
char_of_int
|
|
||||||
classify_float
|
|
||||||
close_in
|
|
||||||
close_in_noerr
|
|
||||||
close_out
|
|
||||||
close_out_noerr
|
|
||||||
compare
|
|
||||||
cos
|
|
||||||
cosh
|
|
||||||
decr
|
|
||||||
do_at_exit
|
|
||||||
epsilon_float
|
|
||||||
exit
|
|
||||||
exp
|
|
||||||
expm1
|
|
||||||
failwith
|
|
||||||
float
|
|
||||||
float_of_int
|
|
||||||
float_of_string
|
|
||||||
floor
|
|
||||||
flush
|
|
||||||
flush_all
|
|
||||||
format
|
|
||||||
format4
|
|
||||||
format_of_string
|
|
||||||
fpclass
|
|
||||||
frexp
|
|
||||||
fst
|
|
||||||
ignore
|
|
||||||
in_channel
|
|
||||||
in_channel_length
|
|
||||||
incr
|
|
||||||
infinity
|
|
||||||
input
|
|
||||||
input_binary_int
|
|
||||||
input_byte
|
|
||||||
input_char
|
|
||||||
input_line
|
|
||||||
input_value
|
|
||||||
int_of_char
|
|
||||||
int_of_float
|
|
||||||
int_of_string
|
|
||||||
invalid_arg
|
|
||||||
land
|
|
||||||
ldexp
|
|
||||||
lnot
|
|
||||||
log
|
|
||||||
log10
|
|
||||||
log1p
|
|
||||||
lor
|
|
||||||
lsl
|
|
||||||
lsr
|
|
||||||
lxor
|
|
||||||
max
|
|
||||||
max_float
|
|
||||||
max_int
|
|
||||||
min
|
|
||||||
min_float
|
|
||||||
min_int
|
|
||||||
mod
|
|
||||||
mod_float
|
|
||||||
modf
|
|
||||||
nan
|
|
||||||
neg_infinity
|
|
||||||
not
|
|
||||||
open_flag
|
|
||||||
open_in
|
|
||||||
open_in_bin
|
|
||||||
open_in_gen
|
|
||||||
open_out
|
|
||||||
open_out_bin
|
|
||||||
open_out_gen
|
|
||||||
or
|
|
||||||
out_channel
|
|
||||||
out_channel_length
|
|
||||||
output
|
|
||||||
output_binary_int
|
|
||||||
output_byte
|
|
||||||
output_char
|
|
||||||
output_string
|
|
||||||
output_value
|
|
||||||
pos_in
|
|
||||||
pos_out
|
|
||||||
pred
|
|
||||||
prerr_char
|
|
||||||
prerr_endline
|
|
||||||
prerr_float
|
|
||||||
prerr_int
|
|
||||||
prerr_newline
|
|
||||||
prerr_string
|
|
||||||
print_char
|
|
||||||
print_endline
|
|
||||||
print_float
|
|
||||||
print_int
|
|
||||||
print_newline
|
|
||||||
print_string
|
|
||||||
raise
|
|
||||||
read_float
|
|
||||||
read_int
|
|
||||||
read_line
|
|
||||||
really_input
|
|
||||||
ref
|
|
||||||
seek_in
|
|
||||||
seek_out
|
|
||||||
set_binary_mode_in
|
|
||||||
set_binary_mode_out
|
|
||||||
sin
|
|
||||||
sinh
|
|
||||||
snd
|
|
||||||
sqrt
|
|
||||||
stderr
|
|
||||||
stdin
|
|
||||||
stdout
|
|
||||||
string_of_bool
|
|
||||||
string_of_float
|
|
||||||
string_of_format
|
|
||||||
string_of_int
|
|
||||||
succ
|
|
||||||
tan
|
|
||||||
tanh
|
|
||||||
truncate
|
|
||||||
unsafe_really_input
|
|
||||||
valid_float_lexem
|
|
||||||
||
|
|
||||||
~
|
|
||||||
~+
|
|
||||||
~+.
|
|
||||||
~-
|
|
||||||
~-.
|
|
||||||
@@ -1,580 +0,0 @@
|
|||||||
*agent*
|
|
||||||
*allow-unresolved-vars*
|
|
||||||
*assert*
|
|
||||||
*clojure-version*
|
|
||||||
*command-line-args*
|
|
||||||
*compile-files*
|
|
||||||
*compile-path*
|
|
||||||
*compiler-options*
|
|
||||||
*data-readers*
|
|
||||||
*default-data-reader-fn*
|
|
||||||
*err*
|
|
||||||
*file*
|
|
||||||
*flush-on-newline*
|
|
||||||
*fn-loader*
|
|
||||||
*in*
|
|
||||||
*math-context*
|
|
||||||
*ns*
|
|
||||||
*out*
|
|
||||||
*print-dup*
|
|
||||||
*print-length*
|
|
||||||
*print-level*
|
|
||||||
*print-meta*
|
|
||||||
*print-readably*
|
|
||||||
*read-eval*
|
|
||||||
*source-path*
|
|
||||||
*unchecked-math*
|
|
||||||
*use-context-classloader*
|
|
||||||
*verbose-defrecords*
|
|
||||||
*warn-on-reflection*
|
|
||||||
->ArrayChunk
|
|
||||||
->Vec
|
|
||||||
->VecNode
|
|
||||||
->VecSeq
|
|
||||||
-cache-protocol-fn
|
|
||||||
-reset-methods
|
|
||||||
accessor
|
|
||||||
aclone
|
|
||||||
add-classpath
|
|
||||||
add-watch
|
|
||||||
agent
|
|
||||||
agent-error
|
|
||||||
agent-errors
|
|
||||||
aget
|
|
||||||
alength
|
|
||||||
alias
|
|
||||||
all-ns
|
|
||||||
alter
|
|
||||||
alter-meta!
|
|
||||||
alter-var-root
|
|
||||||
amap
|
|
||||||
ancestors
|
|
||||||
and
|
|
||||||
apply
|
|
||||||
areduce
|
|
||||||
array-map
|
|
||||||
as->
|
|
||||||
aset
|
|
||||||
aset-boolean
|
|
||||||
aset-byte
|
|
||||||
aset-char
|
|
||||||
aset-double
|
|
||||||
aset-float
|
|
||||||
aset-int
|
|
||||||
aset-long
|
|
||||||
aset-short
|
|
||||||
assert
|
|
||||||
assoc
|
|
||||||
assoc!
|
|
||||||
assoc-in
|
|
||||||
associative?
|
|
||||||
atom
|
|
||||||
await
|
|
||||||
await-for
|
|
||||||
await1
|
|
||||||
bases
|
|
||||||
bean
|
|
||||||
bigdec
|
|
||||||
bigint
|
|
||||||
biginteger
|
|
||||||
binding
|
|
||||||
bit-and
|
|
||||||
bit-and-not
|
|
||||||
bit-clear
|
|
||||||
bit-flip
|
|
||||||
bit-not
|
|
||||||
bit-or
|
|
||||||
bit-set
|
|
||||||
bit-shift-left
|
|
||||||
bit-shift-right
|
|
||||||
bit-test
|
|
||||||
bit-xor
|
|
||||||
boolean
|
|
||||||
boolean-array
|
|
||||||
booleans
|
|
||||||
bound-fn
|
|
||||||
bound-fn*
|
|
||||||
bound?
|
|
||||||
butlast
|
|
||||||
byte
|
|
||||||
byte-array
|
|
||||||
bytes
|
|
||||||
case
|
|
||||||
cast
|
|
||||||
char
|
|
||||||
char-array
|
|
||||||
char-escape-string
|
|
||||||
char-name-string
|
|
||||||
char?
|
|
||||||
chars
|
|
||||||
chunk
|
|
||||||
chunk-append
|
|
||||||
chunk-buffer
|
|
||||||
chunk-cons
|
|
||||||
chunk-first
|
|
||||||
chunk-next
|
|
||||||
chunk-rest
|
|
||||||
chunked-seq?
|
|
||||||
class
|
|
||||||
class?
|
|
||||||
clear-agent-errors
|
|
||||||
clojure-version
|
|
||||||
coll?
|
|
||||||
comment
|
|
||||||
commute
|
|
||||||
comp
|
|
||||||
comparator
|
|
||||||
compare
|
|
||||||
compare-and-set!
|
|
||||||
compile
|
|
||||||
complement
|
|
||||||
concat
|
|
||||||
cond
|
|
||||||
cond->
|
|
||||||
cond->>
|
|
||||||
condp
|
|
||||||
conj
|
|
||||||
conj!
|
|
||||||
cons
|
|
||||||
constantly
|
|
||||||
construct-proxy
|
|
||||||
contains?
|
|
||||||
count
|
|
||||||
counted?
|
|
||||||
create-ns
|
|
||||||
create-struct
|
|
||||||
cycle
|
|
||||||
dec
|
|
||||||
dec'
|
|
||||||
decimal?
|
|
||||||
declare
|
|
||||||
default-data-readers
|
|
||||||
definline
|
|
||||||
definterface
|
|
||||||
defmacro
|
|
||||||
defmethod
|
|
||||||
defmulti
|
|
||||||
defn
|
|
||||||
defn-
|
|
||||||
defonce
|
|
||||||
defprotocol
|
|
||||||
defrecord
|
|
||||||
defstruct
|
|
||||||
deftype
|
|
||||||
delay
|
|
||||||
delay?
|
|
||||||
deliver
|
|
||||||
denominator
|
|
||||||
deref
|
|
||||||
derive
|
|
||||||
descendants
|
|
||||||
destructure
|
|
||||||
disj
|
|
||||||
disj!
|
|
||||||
dissoc
|
|
||||||
dissoc!
|
|
||||||
distinct
|
|
||||||
distinct?
|
|
||||||
doall
|
|
||||||
doc
|
|
||||||
dorun
|
|
||||||
doseq
|
|
||||||
dosync
|
|
||||||
dotimes
|
|
||||||
doto
|
|
||||||
double
|
|
||||||
double-array
|
|
||||||
doubles
|
|
||||||
drop
|
|
||||||
drop-last
|
|
||||||
drop-while
|
|
||||||
dtype
|
|
||||||
empty
|
|
||||||
empty?
|
|
||||||
ensure
|
|
||||||
enumeration-seq
|
|
||||||
error-handler
|
|
||||||
error-mode
|
|
||||||
eval
|
|
||||||
even?
|
|
||||||
every-pred
|
|
||||||
every?
|
|
||||||
ex-data
|
|
||||||
ex-info
|
|
||||||
extend
|
|
||||||
extend-class
|
|
||||||
extend-protocol
|
|
||||||
extend-type
|
|
||||||
extenders
|
|
||||||
extends?
|
|
||||||
false?
|
|
||||||
ffirst
|
|
||||||
file-seq
|
|
||||||
filter
|
|
||||||
filterv
|
|
||||||
find
|
|
||||||
find-doc
|
|
||||||
find-keyword
|
|
||||||
find-ns
|
|
||||||
find-protocol-impl
|
|
||||||
find-protocol-method
|
|
||||||
find-var
|
|
||||||
first
|
|
||||||
flatten
|
|
||||||
float
|
|
||||||
float-array
|
|
||||||
float?
|
|
||||||
floats
|
|
||||||
flush
|
|
||||||
fn
|
|
||||||
fn?
|
|
||||||
fnext
|
|
||||||
fnil
|
|
||||||
for
|
|
||||||
force
|
|
||||||
format
|
|
||||||
frequencies
|
|
||||||
future
|
|
||||||
future-call
|
|
||||||
future-cancel
|
|
||||||
future-cancelled?
|
|
||||||
future-done?
|
|
||||||
future?
|
|
||||||
gen-class
|
|
||||||
gen-interface
|
|
||||||
gensym
|
|
||||||
get
|
|
||||||
get-in
|
|
||||||
get-method
|
|
||||||
get-proxy-class
|
|
||||||
get-thread-bindings
|
|
||||||
get-validator
|
|
||||||
group-by
|
|
||||||
hash
|
|
||||||
hash-combine
|
|
||||||
hash-map
|
|
||||||
hash-set
|
|
||||||
identical?
|
|
||||||
identity
|
|
||||||
if-let
|
|
||||||
if-not
|
|
||||||
ifn?
|
|
||||||
import
|
|
||||||
in-ns
|
|
||||||
inc
|
|
||||||
inc'
|
|
||||||
init-proxy
|
|
||||||
instance?
|
|
||||||
int
|
|
||||||
int-array
|
|
||||||
integer?
|
|
||||||
interleave
|
|
||||||
intern
|
|
||||||
interpose
|
|
||||||
into
|
|
||||||
into-array
|
|
||||||
ints
|
|
||||||
io!
|
|
||||||
isa?
|
|
||||||
iterate
|
|
||||||
iterator-seq
|
|
||||||
juxt
|
|
||||||
keep
|
|
||||||
keep-indexed
|
|
||||||
key
|
|
||||||
keys
|
|
||||||
keyword
|
|
||||||
keyword?
|
|
||||||
last
|
|
||||||
lazy-cat
|
|
||||||
lazy-seq
|
|
||||||
let
|
|
||||||
letfn
|
|
||||||
line-seq
|
|
||||||
list
|
|
||||||
list*
|
|
||||||
list?
|
|
||||||
load
|
|
||||||
load-file
|
|
||||||
load-reader
|
|
||||||
load-string
|
|
||||||
loaded-libs
|
|
||||||
locking
|
|
||||||
long
|
|
||||||
long-array
|
|
||||||
longs
|
|
||||||
loop
|
|
||||||
macroexpand
|
|
||||||
macroexpand-1
|
|
||||||
make-array
|
|
||||||
make-hierarchy
|
|
||||||
map
|
|
||||||
map-indexed
|
|
||||||
map?
|
|
||||||
mapcat
|
|
||||||
mapv
|
|
||||||
max
|
|
||||||
max-key
|
|
||||||
memfn
|
|
||||||
memoize
|
|
||||||
merge
|
|
||||||
merge-with
|
|
||||||
meta
|
|
||||||
method-sig
|
|
||||||
methods
|
|
||||||
min
|
|
||||||
min-key
|
|
||||||
mod
|
|
||||||
munge
|
|
||||||
name
|
|
||||||
namespace
|
|
||||||
namespace-munge
|
|
||||||
neg?
|
|
||||||
newline
|
|
||||||
next
|
|
||||||
nfirst
|
|
||||||
nil?
|
|
||||||
nnext
|
|
||||||
not
|
|
||||||
not-any?
|
|
||||||
not-empty
|
|
||||||
not-every?
|
|
||||||
not=
|
|
||||||
ns
|
|
||||||
ns-aliases
|
|
||||||
ns-imports
|
|
||||||
ns-interns
|
|
||||||
ns-map
|
|
||||||
ns-name
|
|
||||||
ns-publics
|
|
||||||
ns-refers
|
|
||||||
ns-resolve
|
|
||||||
ns-unalias
|
|
||||||
ns-unmap
|
|
||||||
nth
|
|
||||||
nthnext
|
|
||||||
nthrest
|
|
||||||
num
|
|
||||||
number?
|
|
||||||
numerator
|
|
||||||
object-array
|
|
||||||
odd?
|
|
||||||
or
|
|
||||||
parents
|
|
||||||
partial
|
|
||||||
partition
|
|
||||||
partition-all
|
|
||||||
partition-by
|
|
||||||
pcalls
|
|
||||||
peek
|
|
||||||
persistent!
|
|
||||||
pmap
|
|
||||||
pop
|
|
||||||
pop!
|
|
||||||
pop-thread-bindings
|
|
||||||
pos?
|
|
||||||
pr
|
|
||||||
pr-str
|
|
||||||
prefer-method
|
|
||||||
prefers
|
|
||||||
primitives-classnames
|
|
||||||
print
|
|
||||||
print-ctor
|
|
||||||
print-dup
|
|
||||||
print-method
|
|
||||||
print-namespace-doc
|
|
||||||
print-simple
|
|
||||||
print-str
|
|
||||||
printf
|
|
||||||
println
|
|
||||||
println-str
|
|
||||||
prn
|
|
||||||
prn-str
|
|
||||||
promise
|
|
||||||
proxy
|
|
||||||
proxy-call-with-super
|
|
||||||
proxy-mappings
|
|
||||||
proxy-name
|
|
||||||
proxy-super
|
|
||||||
push-thread-bindings
|
|
||||||
pvalues
|
|
||||||
quot
|
|
||||||
rand
|
|
||||||
rand-int
|
|
||||||
rand-nth
|
|
||||||
range
|
|
||||||
ratio?
|
|
||||||
rational?
|
|
||||||
rationalize
|
|
||||||
re-find
|
|
||||||
re-groups
|
|
||||||
re-matcher
|
|
||||||
re-matches
|
|
||||||
re-pattern
|
|
||||||
re-seq
|
|
||||||
read
|
|
||||||
read-line
|
|
||||||
read-string
|
|
||||||
realized?
|
|
||||||
reduce
|
|
||||||
reduce-kv
|
|
||||||
reduced
|
|
||||||
reduced?
|
|
||||||
reductions
|
|
||||||
ref
|
|
||||||
ref-history-count
|
|
||||||
ref-max-history
|
|
||||||
ref-min-history
|
|
||||||
ref-set
|
|
||||||
refer
|
|
||||||
refer-clojure
|
|
||||||
reify
|
|
||||||
release-pending-sends
|
|
||||||
rem
|
|
||||||
remove
|
|
||||||
remove-all-methods
|
|
||||||
remove-method
|
|
||||||
remove-ns
|
|
||||||
remove-watch
|
|
||||||
repeat
|
|
||||||
repeatedly
|
|
||||||
replace
|
|
||||||
replicate
|
|
||||||
require
|
|
||||||
reset!
|
|
||||||
reset-meta!
|
|
||||||
resolve
|
|
||||||
rest
|
|
||||||
restart-agent
|
|
||||||
resultset-seq
|
|
||||||
reverse
|
|
||||||
reversible?
|
|
||||||
rseq
|
|
||||||
rsubseq
|
|
||||||
satisfies?
|
|
||||||
second
|
|
||||||
select-keys
|
|
||||||
send
|
|
||||||
send-off
|
|
||||||
send-via
|
|
||||||
seq
|
|
||||||
seq?
|
|
||||||
seque
|
|
||||||
sequence
|
|
||||||
sequential?
|
|
||||||
set
|
|
||||||
set-agent-send-executor!
|
|
||||||
set-agent-send-off-executor!
|
|
||||||
set-error-handler!
|
|
||||||
set-error-mode!
|
|
||||||
set-validator!
|
|
||||||
set?
|
|
||||||
short
|
|
||||||
short-array
|
|
||||||
shorts
|
|
||||||
shuffle
|
|
||||||
shutdown-agents
|
|
||||||
slurp
|
|
||||||
some
|
|
||||||
some->
|
|
||||||
some->>
|
|
||||||
some-fn
|
|
||||||
sort
|
|
||||||
sort-by
|
|
||||||
sorted-map
|
|
||||||
sorted-map-by
|
|
||||||
sorted-set
|
|
||||||
sorted-set-by
|
|
||||||
sorted?
|
|
||||||
special-form-anchor
|
|
||||||
special-symbol?
|
|
||||||
spit
|
|
||||||
split-at
|
|
||||||
split-with
|
|
||||||
str
|
|
||||||
stream?
|
|
||||||
string?
|
|
||||||
struct
|
|
||||||
struct-map
|
|
||||||
subs
|
|
||||||
subseq
|
|
||||||
subvec
|
|
||||||
supers
|
|
||||||
swap!
|
|
||||||
symbol
|
|
||||||
symbol?
|
|
||||||
sync
|
|
||||||
syntax-symbol-anchor
|
|
||||||
take
|
|
||||||
take-last
|
|
||||||
take-nth
|
|
||||||
take-while
|
|
||||||
test
|
|
||||||
the-ns
|
|
||||||
thread-bound?
|
|
||||||
time
|
|
||||||
to-array
|
|
||||||
to-array-2d
|
|
||||||
trampoline
|
|
||||||
transient
|
|
||||||
tree-seq
|
|
||||||
true?
|
|
||||||
type
|
|
||||||
unchecked-add
|
|
||||||
unchecked-add-int
|
|
||||||
unchecked-byte
|
|
||||||
unchecked-char
|
|
||||||
unchecked-dec
|
|
||||||
unchecked-dec-int
|
|
||||||
unchecked-divide
|
|
||||||
unchecked-divide-int
|
|
||||||
unchecked-double
|
|
||||||
unchecked-float
|
|
||||||
unchecked-inc
|
|
||||||
unchecked-inc-int
|
|
||||||
unchecked-int
|
|
||||||
unchecked-long
|
|
||||||
unchecked-multiply
|
|
||||||
unchecked-multiply-int
|
|
||||||
unchecked-negate
|
|
||||||
unchecked-negate-int
|
|
||||||
unchecked-remainder
|
|
||||||
unchecked-remainder-int
|
|
||||||
unchecked-short
|
|
||||||
unchecked-subtract
|
|
||||||
unchecked-subtract-int
|
|
||||||
underive
|
|
||||||
unquote
|
|
||||||
unquote-splicing
|
|
||||||
update-in
|
|
||||||
update-proxy
|
|
||||||
use
|
|
||||||
val
|
|
||||||
vals
|
|
||||||
var-get
|
|
||||||
var-set
|
|
||||||
var?
|
|
||||||
vary-meta
|
|
||||||
vec
|
|
||||||
vector
|
|
||||||
vector-of
|
|
||||||
vector?
|
|
||||||
when
|
|
||||||
when-first
|
|
||||||
when-let
|
|
||||||
when-not
|
|
||||||
while
|
|
||||||
with-bindings
|
|
||||||
with-bindings*
|
|
||||||
with-in-str
|
|
||||||
with-loading-context
|
|
||||||
with-local-vars
|
|
||||||
with-meta
|
|
||||||
with-open
|
|
||||||
with-out-str
|
|
||||||
with-precision
|
|
||||||
with-redefs
|
|
||||||
with-redefs-fn
|
|
||||||
xml-seq
|
|
||||||
zero?
|
|
||||||
zipmap
|
|
||||||
@@ -1,475 +0,0 @@
|
|||||||
*agent*
|
|
||||||
*clojure-version*
|
|
||||||
*command-line-args*
|
|
||||||
*compile-files*
|
|
||||||
*compile-path*
|
|
||||||
*err*
|
|
||||||
*file*
|
|
||||||
*flush-on-newline*
|
|
||||||
*in*
|
|
||||||
*ns*
|
|
||||||
*out*
|
|
||||||
*print-dup*
|
|
||||||
*print-length*
|
|
||||||
*print-level*
|
|
||||||
*print-meta*
|
|
||||||
*print-readably*
|
|
||||||
*read-eval*
|
|
||||||
*warn-on-reflection*
|
|
||||||
accessor
|
|
||||||
aclone
|
|
||||||
add-classpath
|
|
||||||
add-watch
|
|
||||||
agent
|
|
||||||
agent-error
|
|
||||||
agent-errors
|
|
||||||
aget
|
|
||||||
alength
|
|
||||||
alias
|
|
||||||
all-ns
|
|
||||||
alter
|
|
||||||
alter-meta!
|
|
||||||
alter-var-root
|
|
||||||
amap
|
|
||||||
ancestors
|
|
||||||
and
|
|
||||||
apply
|
|
||||||
areduce
|
|
||||||
array-map
|
|
||||||
aset
|
|
||||||
aset-boolean
|
|
||||||
aset-byte
|
|
||||||
aset-char
|
|
||||||
aset-double
|
|
||||||
aset-float
|
|
||||||
aset-int
|
|
||||||
aset-long
|
|
||||||
aset-short
|
|
||||||
assert
|
|
||||||
assoc
|
|
||||||
assoc!
|
|
||||||
assoc-in
|
|
||||||
associative?
|
|
||||||
atom
|
|
||||||
await
|
|
||||||
await-for
|
|
||||||
bases
|
|
||||||
bean
|
|
||||||
bigdec
|
|
||||||
bigint
|
|
||||||
binding
|
|
||||||
bit-and
|
|
||||||
bit-and-not
|
|
||||||
bit-clear
|
|
||||||
bit-flip
|
|
||||||
bit-not
|
|
||||||
bit-or
|
|
||||||
bit-set
|
|
||||||
bit-shift-left
|
|
||||||
bit-shift-right
|
|
||||||
bit-test
|
|
||||||
bit-xor
|
|
||||||
boolean
|
|
||||||
boolean-array
|
|
||||||
booleans
|
|
||||||
bound-fn
|
|
||||||
bound-fn*
|
|
||||||
butlast
|
|
||||||
byte
|
|
||||||
byte-array
|
|
||||||
bytes
|
|
||||||
case
|
|
||||||
cast
|
|
||||||
char
|
|
||||||
char-array
|
|
||||||
char-escape-string
|
|
||||||
char-name-string
|
|
||||||
char?
|
|
||||||
chars
|
|
||||||
class
|
|
||||||
class?
|
|
||||||
clear-agent-errors
|
|
||||||
clojure-version
|
|
||||||
coll?
|
|
||||||
comment
|
|
||||||
commute
|
|
||||||
comp
|
|
||||||
comparator
|
|
||||||
compare
|
|
||||||
compare-and-set!
|
|
||||||
compile
|
|
||||||
complement
|
|
||||||
concat
|
|
||||||
cond
|
|
||||||
condp
|
|
||||||
conj
|
|
||||||
conj!
|
|
||||||
cons
|
|
||||||
constantly
|
|
||||||
construct-proxy
|
|
||||||
contains?
|
|
||||||
count
|
|
||||||
counted?
|
|
||||||
create-ns
|
|
||||||
create-struct
|
|
||||||
cycle
|
|
||||||
dec
|
|
||||||
decimal?
|
|
||||||
declare
|
|
||||||
definline
|
|
||||||
defmacro
|
|
||||||
defmethod
|
|
||||||
defmulti
|
|
||||||
defn
|
|
||||||
defn-
|
|
||||||
defonce
|
|
||||||
defprotocol
|
|
||||||
defstruct
|
|
||||||
deftype
|
|
||||||
delay
|
|
||||||
delay?
|
|
||||||
deliver
|
|
||||||
deref
|
|
||||||
derive
|
|
||||||
descendants
|
|
||||||
disj
|
|
||||||
disj!
|
|
||||||
dissoc
|
|
||||||
dissoc!
|
|
||||||
distinct
|
|
||||||
distinct?
|
|
||||||
doall
|
|
||||||
doc
|
|
||||||
dorun
|
|
||||||
doseq
|
|
||||||
dosync
|
|
||||||
dotimes
|
|
||||||
doto
|
|
||||||
double
|
|
||||||
double-array
|
|
||||||
doubles
|
|
||||||
drop
|
|
||||||
drop-last
|
|
||||||
drop-while
|
|
||||||
dtype
|
|
||||||
empty
|
|
||||||
empty?
|
|
||||||
ensure
|
|
||||||
enumeration-seq
|
|
||||||
error-handler
|
|
||||||
error-mode
|
|
||||||
eval
|
|
||||||
even?
|
|
||||||
every?
|
|
||||||
extend
|
|
||||||
extend-class
|
|
||||||
extend-protocol
|
|
||||||
extend-type
|
|
||||||
extenders
|
|
||||||
extends?
|
|
||||||
false?
|
|
||||||
ffirst
|
|
||||||
file-seq
|
|
||||||
filter
|
|
||||||
find
|
|
||||||
find-doc
|
|
||||||
find-ns
|
|
||||||
find-var
|
|
||||||
first
|
|
||||||
float
|
|
||||||
float-array
|
|
||||||
float?
|
|
||||||
floats
|
|
||||||
flush
|
|
||||||
fn
|
|
||||||
fn?
|
|
||||||
fnext
|
|
||||||
for
|
|
||||||
force
|
|
||||||
format
|
|
||||||
future
|
|
||||||
future-call
|
|
||||||
future-cancel
|
|
||||||
future-cancelled?
|
|
||||||
future-done?
|
|
||||||
future?
|
|
||||||
gen-class
|
|
||||||
gen-interface
|
|
||||||
gensym
|
|
||||||
get
|
|
||||||
get-in
|
|
||||||
get-method
|
|
||||||
get-proxy-class
|
|
||||||
get-thread-bindings
|
|
||||||
get-validator
|
|
||||||
hash
|
|
||||||
hash-map
|
|
||||||
hash-set
|
|
||||||
identical?
|
|
||||||
identity
|
|
||||||
if-let
|
|
||||||
if-not
|
|
||||||
ifn?
|
|
||||||
import
|
|
||||||
in-ns
|
|
||||||
inc
|
|
||||||
init-proxy
|
|
||||||
instance?
|
|
||||||
int
|
|
||||||
int-array
|
|
||||||
integer?
|
|
||||||
interleave
|
|
||||||
intern
|
|
||||||
interpose
|
|
||||||
into
|
|
||||||
into-array
|
|
||||||
ints
|
|
||||||
io!
|
|
||||||
isa?
|
|
||||||
iterate
|
|
||||||
iterator-seq
|
|
||||||
juxt
|
|
||||||
key
|
|
||||||
keys
|
|
||||||
keyword
|
|
||||||
keyword?
|
|
||||||
last
|
|
||||||
lazy-cat
|
|
||||||
lazy-seq
|
|
||||||
let
|
|
||||||
letfn
|
|
||||||
line-seq
|
|
||||||
list
|
|
||||||
list*
|
|
||||||
list?
|
|
||||||
load
|
|
||||||
load-file
|
|
||||||
load-reader
|
|
||||||
load-string
|
|
||||||
loaded-libs
|
|
||||||
locking
|
|
||||||
long
|
|
||||||
long-array
|
|
||||||
longs
|
|
||||||
loop
|
|
||||||
macroexpand
|
|
||||||
macroexpand-1
|
|
||||||
make-array
|
|
||||||
make-hierarchy
|
|
||||||
map
|
|
||||||
map?
|
|
||||||
mapcat
|
|
||||||
max
|
|
||||||
max-key
|
|
||||||
memfn
|
|
||||||
memoize
|
|
||||||
merge
|
|
||||||
merge-with
|
|
||||||
meta
|
|
||||||
methods
|
|
||||||
min
|
|
||||||
min-key
|
|
||||||
mod
|
|
||||||
name
|
|
||||||
namespace
|
|
||||||
neg?
|
|
||||||
newline
|
|
||||||
next
|
|
||||||
nfirst
|
|
||||||
nil?
|
|
||||||
nnext
|
|
||||||
not
|
|
||||||
not-any?
|
|
||||||
not-empty
|
|
||||||
not-every?
|
|
||||||
not=
|
|
||||||
ns
|
|
||||||
ns-aliases
|
|
||||||
ns-imports
|
|
||||||
ns-interns
|
|
||||||
ns-map
|
|
||||||
ns-name
|
|
||||||
ns-publics
|
|
||||||
ns-refers
|
|
||||||
ns-resolve
|
|
||||||
ns-unalias
|
|
||||||
ns-unmap
|
|
||||||
nth
|
|
||||||
nthnext
|
|
||||||
num
|
|
||||||
number?
|
|
||||||
object-array
|
|
||||||
odd?
|
|
||||||
or
|
|
||||||
parents
|
|
||||||
partial
|
|
||||||
partition
|
|
||||||
pcalls
|
|
||||||
peek
|
|
||||||
persistent!
|
|
||||||
pmap
|
|
||||||
pop
|
|
||||||
pop!
|
|
||||||
pop-thread-bindings
|
|
||||||
pos?
|
|
||||||
pr
|
|
||||||
pr-str
|
|
||||||
prefer-method
|
|
||||||
prefers
|
|
||||||
print
|
|
||||||
print-namespace-doc
|
|
||||||
print-str
|
|
||||||
printf
|
|
||||||
println
|
|
||||||
println-str
|
|
||||||
prn
|
|
||||||
prn-str
|
|
||||||
promise
|
|
||||||
proxy
|
|
||||||
proxy-mappings
|
|
||||||
proxy-super
|
|
||||||
push-thread-bindings
|
|
||||||
pvalues
|
|
||||||
quot
|
|
||||||
rand
|
|
||||||
rand-int
|
|
||||||
range
|
|
||||||
ratio?
|
|
||||||
rationalize
|
|
||||||
re-find
|
|
||||||
re-groups
|
|
||||||
re-matcher
|
|
||||||
re-matches
|
|
||||||
re-pattern
|
|
||||||
re-seq
|
|
||||||
read
|
|
||||||
read-line
|
|
||||||
read-string
|
|
||||||
reduce
|
|
||||||
ref
|
|
||||||
ref-history-count
|
|
||||||
ref-max-history
|
|
||||||
ref-min-history
|
|
||||||
ref-set
|
|
||||||
refer
|
|
||||||
refer-clojure
|
|
||||||
reify
|
|
||||||
release-pending-sends
|
|
||||||
rem
|
|
||||||
remove
|
|
||||||
remove-method
|
|
||||||
remove-ns
|
|
||||||
remove-watch
|
|
||||||
repeat
|
|
||||||
repeatedly
|
|
||||||
replace
|
|
||||||
replicate
|
|
||||||
require
|
|
||||||
reset!
|
|
||||||
reset-meta!
|
|
||||||
resolve
|
|
||||||
rest
|
|
||||||
restart-agent
|
|
||||||
resultset-seq
|
|
||||||
reverse
|
|
||||||
reversible?
|
|
||||||
rseq
|
|
||||||
rsubseq
|
|
||||||
satisfies?
|
|
||||||
second
|
|
||||||
select-keys
|
|
||||||
send
|
|
||||||
send-off
|
|
||||||
seq
|
|
||||||
seq?
|
|
||||||
seque
|
|
||||||
sequence
|
|
||||||
sequential?
|
|
||||||
set
|
|
||||||
set-error-handler!
|
|
||||||
set-error-mode!
|
|
||||||
set-validator!
|
|
||||||
set?
|
|
||||||
short
|
|
||||||
short-array
|
|
||||||
shorts
|
|
||||||
shutdown-agents
|
|
||||||
slurp
|
|
||||||
some
|
|
||||||
sort
|
|
||||||
sort-by
|
|
||||||
sorted-map
|
|
||||||
sorted-map-by
|
|
||||||
sorted-set
|
|
||||||
sorted-set-by
|
|
||||||
sorted?
|
|
||||||
special-form-anchor
|
|
||||||
special-symbol?
|
|
||||||
split-at
|
|
||||||
split-with
|
|
||||||
str
|
|
||||||
stream?
|
|
||||||
string?
|
|
||||||
struct
|
|
||||||
struct-map
|
|
||||||
subs
|
|
||||||
subseq
|
|
||||||
subvec
|
|
||||||
supers
|
|
||||||
swap!
|
|
||||||
symbol
|
|
||||||
symbol?
|
|
||||||
sync
|
|
||||||
syntax-symbol-anchor
|
|
||||||
take
|
|
||||||
take-last
|
|
||||||
take-nth
|
|
||||||
take-while
|
|
||||||
test
|
|
||||||
the-ns
|
|
||||||
time
|
|
||||||
to-array
|
|
||||||
to-array-2d
|
|
||||||
trampoline
|
|
||||||
transient
|
|
||||||
tree-seq
|
|
||||||
true?
|
|
||||||
type
|
|
||||||
unchecked-add
|
|
||||||
unchecked-dec
|
|
||||||
unchecked-divide
|
|
||||||
unchecked-inc
|
|
||||||
unchecked-multiply
|
|
||||||
unchecked-negate
|
|
||||||
unchecked-remainder
|
|
||||||
unchecked-subtract
|
|
||||||
underive
|
|
||||||
update-in
|
|
||||||
update-proxy
|
|
||||||
use
|
|
||||||
val
|
|
||||||
vals
|
|
||||||
var-get
|
|
||||||
var-set
|
|
||||||
var?
|
|
||||||
vary-meta
|
|
||||||
vec
|
|
||||||
vector
|
|
||||||
vector-of
|
|
||||||
vector?
|
|
||||||
when
|
|
||||||
when-first
|
|
||||||
when-let
|
|
||||||
when-not
|
|
||||||
while
|
|
||||||
with-bindings
|
|
||||||
with-bindings*
|
|
||||||
with-in-str
|
|
||||||
with-local-vars
|
|
||||||
with-meta
|
|
||||||
with-open
|
|
||||||
with-out-str
|
|
||||||
with-precision
|
|
||||||
xml-seq
|
|
||||||
zero?
|
|
||||||
zipmap
|
|
||||||
@@ -1,278 +0,0 @@
|
|||||||
# Generated by the following form.
|
|
||||||
# (loop for regexp in (append
|
|
||||||
# coq-solve-tactics
|
|
||||||
# coq-keywords
|
|
||||||
# coq-reserved
|
|
||||||
# coq-tactics
|
|
||||||
# coq-tacticals
|
|
||||||
# (list "Set" "Type" "Prop"))
|
|
||||||
# append (split-string regexp (regexp-quote "\\s-+")) into words
|
|
||||||
# finally (loop initially (goto-char (point-max))
|
|
||||||
# for word in (delete-dups (sort words 'string<))
|
|
||||||
# do (insert word) (newline)))
|
|
||||||
|
|
||||||
Abort
|
|
||||||
About
|
|
||||||
Abstract
|
|
||||||
Add
|
|
||||||
Admit
|
|
||||||
Admitted
|
|
||||||
All
|
|
||||||
Arguments
|
|
||||||
AutoInline
|
|
||||||
Axiom
|
|
||||||
Bind
|
|
||||||
Canonical
|
|
||||||
Cd
|
|
||||||
Chapter
|
|
||||||
Check
|
|
||||||
Close
|
|
||||||
CoFixpoint
|
|
||||||
CoInductive
|
|
||||||
Coercion
|
|
||||||
Coercions
|
|
||||||
Comments
|
|
||||||
Conjecture
|
|
||||||
Constant
|
|
||||||
Constructors
|
|
||||||
Corollary
|
|
||||||
Declare
|
|
||||||
Defined
|
|
||||||
Definition
|
|
||||||
Delimit
|
|
||||||
Dependent
|
|
||||||
Depth
|
|
||||||
Derive
|
|
||||||
End
|
|
||||||
Eval
|
|
||||||
Export
|
|
||||||
Extern
|
|
||||||
Extract
|
|
||||||
Extraction
|
|
||||||
Fact
|
|
||||||
False
|
|
||||||
Field
|
|
||||||
File
|
|
||||||
Fixpoint
|
|
||||||
Focus
|
|
||||||
Function
|
|
||||||
Functional
|
|
||||||
Goal
|
|
||||||
Hint
|
|
||||||
Hypotheses
|
|
||||||
Hypothesis
|
|
||||||
Hyps
|
|
||||||
Identity
|
|
||||||
If
|
|
||||||
Immediate
|
|
||||||
Implicit
|
|
||||||
Import
|
|
||||||
Inductive
|
|
||||||
Infix
|
|
||||||
Inline
|
|
||||||
Inlined
|
|
||||||
Inspect
|
|
||||||
Inversion
|
|
||||||
Language
|
|
||||||
Lemma
|
|
||||||
Let
|
|
||||||
Library
|
|
||||||
Limit
|
|
||||||
LoadPath
|
|
||||||
Local
|
|
||||||
Locate
|
|
||||||
Ltac
|
|
||||||
ML
|
|
||||||
Module
|
|
||||||
Morphism
|
|
||||||
Next Obligation
|
|
||||||
NoInline
|
|
||||||
Notation
|
|
||||||
Notations
|
|
||||||
Obligation
|
|
||||||
Obligations
|
|
||||||
Off
|
|
||||||
On
|
|
||||||
Opaque
|
|
||||||
Open
|
|
||||||
Optimize
|
|
||||||
Parameter
|
|
||||||
Parameters
|
|
||||||
Path
|
|
||||||
Print
|
|
||||||
Printing
|
|
||||||
Program
|
|
||||||
Proof
|
|
||||||
Prop
|
|
||||||
Pwd
|
|
||||||
Qed
|
|
||||||
Rec
|
|
||||||
Record
|
|
||||||
Recursive
|
|
||||||
Remark
|
|
||||||
Remove
|
|
||||||
Require
|
|
||||||
Reserved
|
|
||||||
Reset
|
|
||||||
Resolve
|
|
||||||
Rewrite
|
|
||||||
Ring
|
|
||||||
Save
|
|
||||||
Scheme
|
|
||||||
Scope
|
|
||||||
Search
|
|
||||||
SearchAbout
|
|
||||||
SearchPattern
|
|
||||||
SearchRewrite
|
|
||||||
Section
|
|
||||||
Semi
|
|
||||||
Set
|
|
||||||
Setoid
|
|
||||||
Show
|
|
||||||
Solve
|
|
||||||
Sort
|
|
||||||
Strict
|
|
||||||
Structure
|
|
||||||
Synth
|
|
||||||
Tactic
|
|
||||||
Test
|
|
||||||
Theorem
|
|
||||||
Time
|
|
||||||
Transparent
|
|
||||||
True
|
|
||||||
Type
|
|
||||||
Undo
|
|
||||||
Unfocus
|
|
||||||
Unfold
|
|
||||||
Unset
|
|
||||||
Variable
|
|
||||||
Variables
|
|
||||||
Width
|
|
||||||
Wildcard
|
|
||||||
abstract
|
|
||||||
absurd
|
|
||||||
after
|
|
||||||
apply
|
|
||||||
as
|
|
||||||
assert
|
|
||||||
assumption
|
|
||||||
at
|
|
||||||
auto
|
|
||||||
autorewrite
|
|
||||||
beta
|
|
||||||
by
|
|
||||||
case
|
|
||||||
cbv
|
|
||||||
change
|
|
||||||
clear
|
|
||||||
clearbody
|
|
||||||
cofix
|
|
||||||
coinduction
|
|
||||||
compare
|
|
||||||
compute
|
|
||||||
congruence
|
|
||||||
constructor
|
|
||||||
contradiction
|
|
||||||
cut
|
|
||||||
cutrewrite
|
|
||||||
decide
|
|
||||||
decompose
|
|
||||||
delta
|
|
||||||
dependent
|
|
||||||
dest
|
|
||||||
destruct
|
|
||||||
discrR
|
|
||||||
discriminate
|
|
||||||
do
|
|
||||||
double
|
|
||||||
eapply
|
|
||||||
eauto
|
|
||||||
econstructor
|
|
||||||
eexists
|
|
||||||
eleft
|
|
||||||
elim
|
|
||||||
else
|
|
||||||
end
|
|
||||||
equality
|
|
||||||
esplit
|
|
||||||
exact
|
|
||||||
exists
|
|
||||||
fail
|
|
||||||
field
|
|
||||||
first
|
|
||||||
firstorder
|
|
||||||
fix
|
|
||||||
fold
|
|
||||||
forall
|
|
||||||
fourier
|
|
||||||
fun
|
|
||||||
functional
|
|
||||||
generalize
|
|
||||||
hnf
|
|
||||||
idtac
|
|
||||||
if
|
|
||||||
in
|
|
||||||
induction
|
|
||||||
info
|
|
||||||
injection
|
|
||||||
instantiate
|
|
||||||
into
|
|
||||||
intro
|
|
||||||
intros
|
|
||||||
intuition
|
|
||||||
inversion
|
|
||||||
inversion_clear
|
|
||||||
iota
|
|
||||||
lapply
|
|
||||||
lazy
|
|
||||||
left
|
|
||||||
let
|
|
||||||
linear
|
|
||||||
load
|
|
||||||
match
|
|
||||||
move
|
|
||||||
omega
|
|
||||||
pattern
|
|
||||||
pose
|
|
||||||
progress
|
|
||||||
prolog
|
|
||||||
quote
|
|
||||||
record
|
|
||||||
red
|
|
||||||
refine
|
|
||||||
reflexivity
|
|
||||||
rename
|
|
||||||
repeat
|
|
||||||
replace
|
|
||||||
return
|
|
||||||
rewrite
|
|
||||||
right
|
|
||||||
ring
|
|
||||||
set
|
|
||||||
setoid
|
|
||||||
setoid_replace
|
|
||||||
setoid_rewrite
|
|
||||||
simpl
|
|
||||||
simple
|
|
||||||
simplify_eq
|
|
||||||
solve
|
|
||||||
specialize
|
|
||||||
split
|
|
||||||
split_Rabs
|
|
||||||
split_Rmult
|
|
||||||
stepl
|
|
||||||
stepr
|
|
||||||
struct
|
|
||||||
subst
|
|
||||||
sum
|
|
||||||
symmetry
|
|
||||||
tauto
|
|
||||||
then
|
|
||||||
transitivity
|
|
||||||
trivial
|
|
||||||
try
|
|
||||||
unfold
|
|
||||||
until
|
|
||||||
using
|
|
||||||
with
|
|
||||||
zeta
|
|
||||||
@@ -1,874 +0,0 @@
|
|||||||
!important
|
|
||||||
@font-face
|
|
||||||
@font-feature-values
|
|
||||||
@keyframes
|
|
||||||
ActiveBorder
|
|
||||||
ActiveCaption
|
|
||||||
Alpha
|
|
||||||
AppWorkspace
|
|
||||||
Background
|
|
||||||
Barn
|
|
||||||
BasicImage
|
|
||||||
Blinds
|
|
||||||
Blur
|
|
||||||
ButtonFace
|
|
||||||
ButtonHighlight
|
|
||||||
ButtonShadow
|
|
||||||
ButtonText
|
|
||||||
CaptionText
|
|
||||||
CheckerBoard
|
|
||||||
Chroma
|
|
||||||
Compositor
|
|
||||||
CradientWipe
|
|
||||||
DXImageTransform
|
|
||||||
DropShadow
|
|
||||||
Emboss
|
|
||||||
Engrave
|
|
||||||
Fade
|
|
||||||
FlipH
|
|
||||||
FlipV
|
|
||||||
Glow
|
|
||||||
Gray
|
|
||||||
GrayText
|
|
||||||
Highlight
|
|
||||||
HighlightText
|
|
||||||
Hz
|
|
||||||
ICMFilter
|
|
||||||
InactiveBorder
|
|
||||||
InactiveCaption
|
|
||||||
InactiveCaptionText
|
|
||||||
InfoBackground
|
|
||||||
InfoText
|
|
||||||
Inset
|
|
||||||
Invert
|
|
||||||
Iris
|
|
||||||
Light
|
|
||||||
MaskFilter
|
|
||||||
Matrix
|
|
||||||
Menu
|
|
||||||
MenuText
|
|
||||||
Microsoft
|
|
||||||
MotionBlur
|
|
||||||
Pixelate
|
|
||||||
RadialWipe
|
|
||||||
RandomBars
|
|
||||||
RandomDissolve
|
|
||||||
RevealTrans
|
|
||||||
Scrollbar
|
|
||||||
Shadow
|
|
||||||
Slide
|
|
||||||
Spiral
|
|
||||||
Stretch
|
|
||||||
Strips
|
|
||||||
ThreeDDarkShadow
|
|
||||||
ThreeDFace
|
|
||||||
ThreeDHighlight
|
|
||||||
ThreeDLightShadow
|
|
||||||
ThreeDShadow
|
|
||||||
Wave
|
|
||||||
Wheel
|
|
||||||
Window
|
|
||||||
WindowFrame
|
|
||||||
WindowText
|
|
||||||
Xray
|
|
||||||
Zigzag
|
|
||||||
_azimuth
|
|
||||||
_background
|
|
||||||
_background-position-x
|
|
||||||
_background-position-y
|
|
||||||
_border
|
|
||||||
_bottom
|
|
||||||
_caption
|
|
||||||
_clear
|
|
||||||
_clip
|
|
||||||
_color
|
|
||||||
_content
|
|
||||||
_counter
|
|
||||||
_cue
|
|
||||||
_cursor
|
|
||||||
_direction
|
|
||||||
_display
|
|
||||||
_elevation
|
|
||||||
_empty
|
|
||||||
_filter
|
|
||||||
_filter:progid:DXImageTransform.Microsoft
|
|
||||||
_float
|
|
||||||
_font
|
|
||||||
_height
|
|
||||||
_ime
|
|
||||||
_ime-mode
|
|
||||||
_layout
|
|
||||||
_layout-flow
|
|
||||||
_layout-grid
|
|
||||||
_layout-grid-char
|
|
||||||
_layout-grid-line
|
|
||||||
_layout-grid-mode
|
|
||||||
_layout-grid-type
|
|
||||||
_left
|
|
||||||
_letter
|
|
||||||
_line
|
|
||||||
_line-break
|
|
||||||
_list
|
|
||||||
_margin
|
|
||||||
_orphans
|
|
||||||
_outline
|
|
||||||
_overflow
|
|
||||||
_overflow-x
|
|
||||||
_overflow-y
|
|
||||||
_padding
|
|
||||||
_page
|
|
||||||
_pause
|
|
||||||
_pitch
|
|
||||||
_play
|
|
||||||
_position
|
|
||||||
_quotes
|
|
||||||
_richness
|
|
||||||
_right
|
|
||||||
_ruby
|
|
||||||
_ruby-align
|
|
||||||
_ruby-overhang
|
|
||||||
_ruby-position
|
|
||||||
_scrollbar
|
|
||||||
_scrollbar-3dlight-color
|
|
||||||
_scrollbar-arrow-color
|
|
||||||
_scrollbar-base-color
|
|
||||||
_scrollbar-darkshadow-color
|
|
||||||
_scrollbar-face-color
|
|
||||||
_scrollbar-highlight-color
|
|
||||||
_scrollbar-track-color
|
|
||||||
_speak
|
|
||||||
_speech
|
|
||||||
_stress
|
|
||||||
_table
|
|
||||||
_text
|
|
||||||
_text-align-last
|
|
||||||
_text-autospace
|
|
||||||
_text-justify
|
|
||||||
_text-kashida-space
|
|
||||||
_text-overflow
|
|
||||||
_text-underline-position
|
|
||||||
_top
|
|
||||||
_unicode
|
|
||||||
_vertical
|
|
||||||
_visibility
|
|
||||||
_voice
|
|
||||||
_volume
|
|
||||||
_white
|
|
||||||
_widows
|
|
||||||
_width
|
|
||||||
_word
|
|
||||||
_word-break
|
|
||||||
_word-wrap
|
|
||||||
_writing
|
|
||||||
_writing-mode
|
|
||||||
_z
|
|
||||||
_zoom
|
|
||||||
above
|
|
||||||
active
|
|
||||||
adjust
|
|
||||||
after
|
|
||||||
aliceblue
|
|
||||||
align
|
|
||||||
align-content
|
|
||||||
align-items
|
|
||||||
align-self
|
|
||||||
always
|
|
||||||
animation
|
|
||||||
animation-delay
|
|
||||||
animation-direction
|
|
||||||
animation-duration
|
|
||||||
animation-fill-mode
|
|
||||||
animation-iteration-count
|
|
||||||
animation-name
|
|
||||||
animation-play-state
|
|
||||||
animation-timing-function
|
|
||||||
antiquewhite
|
|
||||||
aqua
|
|
||||||
aquamarine
|
|
||||||
armenian
|
|
||||||
arrow
|
|
||||||
attachment
|
|
||||||
auto
|
|
||||||
autospace
|
|
||||||
avoid
|
|
||||||
azimuth
|
|
||||||
azure
|
|
||||||
backface-visibility
|
|
||||||
background
|
|
||||||
background-attachment
|
|
||||||
background-clip
|
|
||||||
background-color
|
|
||||||
background-image
|
|
||||||
background-origin
|
|
||||||
background-position
|
|
||||||
background-repeat
|
|
||||||
background-size
|
|
||||||
bar
|
|
||||||
base
|
|
||||||
baseline
|
|
||||||
before
|
|
||||||
behind
|
|
||||||
beige
|
|
||||||
below
|
|
||||||
bidi
|
|
||||||
bidi-override
|
|
||||||
bisque
|
|
||||||
black
|
|
||||||
blanchedalmond
|
|
||||||
blink
|
|
||||||
block
|
|
||||||
blue
|
|
||||||
blueviolet
|
|
||||||
bold
|
|
||||||
bolder
|
|
||||||
border
|
|
||||||
border-bottom
|
|
||||||
border-bottom-color
|
|
||||||
border-bottom-left-radius
|
|
||||||
border-bottom-right-radius
|
|
||||||
border-bottom-style
|
|
||||||
border-bottom-width
|
|
||||||
border-collapse
|
|
||||||
border-color
|
|
||||||
border-image
|
|
||||||
border-image-outset
|
|
||||||
border-image-repeat
|
|
||||||
border-image-slice
|
|
||||||
border-image-source
|
|
||||||
border-image-width
|
|
||||||
border-left
|
|
||||||
border-left-color
|
|
||||||
border-left-style
|
|
||||||
border-left-width
|
|
||||||
border-radius
|
|
||||||
border-right
|
|
||||||
border-right-color
|
|
||||||
border-right-style
|
|
||||||
border-right-width
|
|
||||||
border-spacing
|
|
||||||
border-style
|
|
||||||
border-top
|
|
||||||
border-top-color
|
|
||||||
border-top-left-radius
|
|
||||||
border-top-right-radius
|
|
||||||
border-top-style
|
|
||||||
border-top-width
|
|
||||||
border-width
|
|
||||||
both
|
|
||||||
bottom
|
|
||||||
box
|
|
||||||
box-decoration-break
|
|
||||||
box-shadow
|
|
||||||
box-sizing
|
|
||||||
break
|
|
||||||
break-after
|
|
||||||
break-before
|
|
||||||
break-inside
|
|
||||||
brown
|
|
||||||
burlwood
|
|
||||||
cadetblue
|
|
||||||
capitalize
|
|
||||||
caps
|
|
||||||
caption
|
|
||||||
caption-side
|
|
||||||
cell
|
|
||||||
cells
|
|
||||||
center
|
|
||||||
center-left
|
|
||||||
center-right
|
|
||||||
char
|
|
||||||
chartreuse
|
|
||||||
chocolate
|
|
||||||
circle
|
|
||||||
cjk
|
|
||||||
cjk-ideographic
|
|
||||||
clear
|
|
||||||
clip
|
|
||||||
close
|
|
||||||
close-quote
|
|
||||||
cm
|
|
||||||
code
|
|
||||||
collapse
|
|
||||||
color
|
|
||||||
column
|
|
||||||
column-count
|
|
||||||
column-fill
|
|
||||||
column-gap
|
|
||||||
column-rule
|
|
||||||
column-rule-color
|
|
||||||
column-rule-style
|
|
||||||
column-rule-width
|
|
||||||
column-span
|
|
||||||
column-width
|
|
||||||
columns
|
|
||||||
compact
|
|
||||||
condensed
|
|
||||||
content
|
|
||||||
continuous
|
|
||||||
coral
|
|
||||||
cornflowerblue
|
|
||||||
cornsilk
|
|
||||||
counter
|
|
||||||
counter-increment
|
|
||||||
counter-reset
|
|
||||||
crimson
|
|
||||||
crop
|
|
||||||
cross
|
|
||||||
crosshair
|
|
||||||
cue
|
|
||||||
cue-after
|
|
||||||
cue-before
|
|
||||||
cursive
|
|
||||||
cursor
|
|
||||||
cyan
|
|
||||||
darkblue
|
|
||||||
darkcyan
|
|
||||||
darkgoldenrod
|
|
||||||
darkgray
|
|
||||||
darkgreen
|
|
||||||
darkkhaki
|
|
||||||
darkmagenta
|
|
||||||
darkolivegreen
|
|
||||||
darkorange
|
|
||||||
darkorchid
|
|
||||||
darkred
|
|
||||||
darksalmon
|
|
||||||
darkseagreen
|
|
||||||
darkshadow
|
|
||||||
darkslateblue
|
|
||||||
darkslategray
|
|
||||||
darkturquoise
|
|
||||||
darkviolet
|
|
||||||
dashed
|
|
||||||
decimal
|
|
||||||
decimal-leading-zero
|
|
||||||
decoration
|
|
||||||
deeppink
|
|
||||||
deepskyblue
|
|
||||||
default
|
|
||||||
deg
|
|
||||||
digits
|
|
||||||
dimgray
|
|
||||||
direction
|
|
||||||
disc
|
|
||||||
display
|
|
||||||
dodgerblue
|
|
||||||
dotted
|
|
||||||
double
|
|
||||||
during
|
|
||||||
e
|
|
||||||
e-resize
|
|
||||||
elevation
|
|
||||||
em
|
|
||||||
embed
|
|
||||||
empty
|
|
||||||
empty-cells
|
|
||||||
ex
|
|
||||||
expanded
|
|
||||||
extra
|
|
||||||
extra-condensed
|
|
||||||
extra-expanded
|
|
||||||
face
|
|
||||||
family
|
|
||||||
fantasy
|
|
||||||
far
|
|
||||||
far-left
|
|
||||||
far-right
|
|
||||||
fast
|
|
||||||
faster
|
|
||||||
filter
|
|
||||||
firebrick
|
|
||||||
first
|
|
||||||
first-child
|
|
||||||
first-letter
|
|
||||||
first-line
|
|
||||||
fixed
|
|
||||||
flex
|
|
||||||
flex-basis
|
|
||||||
flex-direction
|
|
||||||
flex-flow
|
|
||||||
flex-grow
|
|
||||||
flex-shrink
|
|
||||||
flex-wrap
|
|
||||||
float
|
|
||||||
floralwhite
|
|
||||||
flow
|
|
||||||
focus
|
|
||||||
font
|
|
||||||
font-family
|
|
||||||
font-feature-setting
|
|
||||||
font-kerning
|
|
||||||
font-language-override
|
|
||||||
font-size
|
|
||||||
font-size-adjust
|
|
||||||
font-stretch
|
|
||||||
font-style
|
|
||||||
font-synthesis
|
|
||||||
font-variant
|
|
||||||
font-variant-alternates
|
|
||||||
font-variant-caps
|
|
||||||
font-variant-east-asian
|
|
||||||
font-variant-ligatures
|
|
||||||
font-variant-numeric
|
|
||||||
font-variant-position
|
|
||||||
font-weight
|
|
||||||
footer
|
|
||||||
forestgreen
|
|
||||||
fuchsia
|
|
||||||
gainsboro
|
|
||||||
georgian
|
|
||||||
ghostwhite
|
|
||||||
gold
|
|
||||||
goldenrod
|
|
||||||
gray
|
|
||||||
greek
|
|
||||||
green
|
|
||||||
greenyellow
|
|
||||||
grid
|
|
||||||
groove
|
|
||||||
group
|
|
||||||
hanging-punctuation
|
|
||||||
header
|
|
||||||
hebrew
|
|
||||||
height
|
|
||||||
help
|
|
||||||
hidden
|
|
||||||
hide
|
|
||||||
high
|
|
||||||
higher
|
|
||||||
hiragana
|
|
||||||
hiragana-iroha
|
|
||||||
honeydew
|
|
||||||
hotpink
|
|
||||||
hover
|
|
||||||
hyphens
|
|
||||||
icon
|
|
||||||
ideographic
|
|
||||||
image
|
|
||||||
image-orientation
|
|
||||||
image-rendering
|
|
||||||
image-resolution
|
|
||||||
ime-mode
|
|
||||||
in
|
|
||||||
increment
|
|
||||||
indent
|
|
||||||
index
|
|
||||||
indianred
|
|
||||||
indigo
|
|
||||||
inherit
|
|
||||||
inline
|
|
||||||
inline-block
|
|
||||||
inline-table
|
|
||||||
inset
|
|
||||||
inside
|
|
||||||
iroha
|
|
||||||
italic
|
|
||||||
item
|
|
||||||
ivory
|
|
||||||
justify
|
|
||||||
justify-content
|
|
||||||
kHz
|
|
||||||
kashida
|
|
||||||
katakana
|
|
||||||
katakana-iroha
|
|
||||||
khaki
|
|
||||||
landscape
|
|
||||||
lang()
|
|
||||||
large
|
|
||||||
larger
|
|
||||||
last
|
|
||||||
latin
|
|
||||||
lavender
|
|
||||||
lavenderblush
|
|
||||||
lawngreen
|
|
||||||
layout
|
|
||||||
leading
|
|
||||||
left
|
|
||||||
left-side
|
|
||||||
leftwards
|
|
||||||
lenonchiffon
|
|
||||||
letter
|
|
||||||
letter-spacing
|
|
||||||
level
|
|
||||||
lightblue
|
|
||||||
lightcoral
|
|
||||||
lightcyan
|
|
||||||
lighter
|
|
||||||
lightgoldenrodyellow
|
|
||||||
lightgray
|
|
||||||
lightgreen
|
|
||||||
lightgrey
|
|
||||||
lightpink
|
|
||||||
lightsalmon
|
|
||||||
lightseagreen
|
|
||||||
lightskyblue
|
|
||||||
lightslategray
|
|
||||||
lightsteelblue
|
|
||||||
lightyellow
|
|
||||||
lime
|
|
||||||
limegreen
|
|
||||||
line
|
|
||||||
line-break
|
|
||||||
line-height
|
|
||||||
line-through
|
|
||||||
linen
|
|
||||||
link
|
|
||||||
list
|
|
||||||
list-item
|
|
||||||
list-style
|
|
||||||
list-style-image
|
|
||||||
list-style-position
|
|
||||||
list-style-type
|
|
||||||
loud
|
|
||||||
low
|
|
||||||
lower
|
|
||||||
lower-alpha
|
|
||||||
lower-greek
|
|
||||||
lower-latin
|
|
||||||
lower-roman
|
|
||||||
lowercase
|
|
||||||
ltr
|
|
||||||
magenta
|
|
||||||
margin
|
|
||||||
margin-bottom
|
|
||||||
margin-left
|
|
||||||
margin-right
|
|
||||||
margin-top
|
|
||||||
mark
|
|
||||||
mark-after
|
|
||||||
mark-before
|
|
||||||
marker
|
|
||||||
marker-offset
|
|
||||||
marks
|
|
||||||
maroon
|
|
||||||
marquee-direction
|
|
||||||
marquee-play-count
|
|
||||||
marquee-speed
|
|
||||||
marquee-style
|
|
||||||
mask
|
|
||||||
mask-type
|
|
||||||
max
|
|
||||||
max-height
|
|
||||||
max-width
|
|
||||||
medium
|
|
||||||
mediumaquamarine
|
|
||||||
mediumblue
|
|
||||||
mediumorchid
|
|
||||||
mediumpurple
|
|
||||||
mediumseagreen
|
|
||||||
mediumslateblue
|
|
||||||
mediumspringgreen
|
|
||||||
mediumturquoise
|
|
||||||
mediumvioletred
|
|
||||||
menu
|
|
||||||
message
|
|
||||||
message-box
|
|
||||||
middle
|
|
||||||
midnightblue
|
|
||||||
min
|
|
||||||
min-height
|
|
||||||
min-width
|
|
||||||
mintcream
|
|
||||||
mistyrose
|
|
||||||
mix
|
|
||||||
mm
|
|
||||||
moccasin
|
|
||||||
mode
|
|
||||||
monospace
|
|
||||||
move
|
|
||||||
ms
|
|
||||||
n
|
|
||||||
n-resize
|
|
||||||
naby
|
|
||||||
narrower
|
|
||||||
nav-down
|
|
||||||
nav-index
|
|
||||||
nav-left
|
|
||||||
nav-right
|
|
||||||
nav-up
|
|
||||||
navajowhite
|
|
||||||
ne
|
|
||||||
ne-resize
|
|
||||||
no
|
|
||||||
no-close-quote
|
|
||||||
no-open-quote
|
|
||||||
no-repeat
|
|
||||||
none
|
|
||||||
normal
|
|
||||||
nowrap
|
|
||||||
number
|
|
||||||
numeral
|
|
||||||
nw
|
|
||||||
nw-resize
|
|
||||||
object-fit
|
|
||||||
object-position
|
|
||||||
oblique
|
|
||||||
offset
|
|
||||||
oldlace
|
|
||||||
olive
|
|
||||||
olivedrab
|
|
||||||
once
|
|
||||||
opacity
|
|
||||||
open
|
|
||||||
open-quote
|
|
||||||
orange
|
|
||||||
orangered
|
|
||||||
orchid
|
|
||||||
order
|
|
||||||
orphans
|
|
||||||
out
|
|
||||||
outline
|
|
||||||
outline-color
|
|
||||||
outline-offset
|
|
||||||
outline-style
|
|
||||||
outline-width
|
|
||||||
outset
|
|
||||||
outside
|
|
||||||
overflow
|
|
||||||
overflow-wrap
|
|
||||||
overflow-x
|
|
||||||
overflow-y
|
|
||||||
overhang
|
|
||||||
overline
|
|
||||||
override
|
|
||||||
padding
|
|
||||||
padding-bottom
|
|
||||||
padding-left
|
|
||||||
padding-right
|
|
||||||
padding-top
|
|
||||||
page
|
|
||||||
page-break-after
|
|
||||||
page-break-before
|
|
||||||
page-break-inside
|
|
||||||
palegoldenrod
|
|
||||||
palegreen
|
|
||||||
paleturquoise
|
|
||||||
palevioletred
|
|
||||||
papayawhip
|
|
||||||
pause
|
|
||||||
pause-after
|
|
||||||
pause-before
|
|
||||||
pc
|
|
||||||
peachpuff
|
|
||||||
perspective
|
|
||||||
perspective-origin
|
|
||||||
peru
|
|
||||||
phonemes
|
|
||||||
pink
|
|
||||||
pitch
|
|
||||||
pitch-range
|
|
||||||
play
|
|
||||||
play-during
|
|
||||||
plum
|
|
||||||
pointer
|
|
||||||
portrait
|
|
||||||
position
|
|
||||||
powderblue
|
|
||||||
pre
|
|
||||||
pre-line
|
|
||||||
pre-wrap
|
|
||||||
progid
|
|
||||||
progress
|
|
||||||
pt
|
|
||||||
punctuation
|
|
||||||
purple
|
|
||||||
px
|
|
||||||
quote
|
|
||||||
quotes
|
|
||||||
rad
|
|
||||||
range
|
|
||||||
rate
|
|
||||||
red
|
|
||||||
relative
|
|
||||||
repeat
|
|
||||||
repeat-x
|
|
||||||
repeat-y
|
|
||||||
reset
|
|
||||||
resize
|
|
||||||
rest
|
|
||||||
rest-after
|
|
||||||
rest-before
|
|
||||||
richness
|
|
||||||
ridge
|
|
||||||
right
|
|
||||||
right-side
|
|
||||||
rightwards
|
|
||||||
roman
|
|
||||||
rosybrown
|
|
||||||
row
|
|
||||||
royalblue
|
|
||||||
rtl
|
|
||||||
run
|
|
||||||
run-in
|
|
||||||
s
|
|
||||||
s-resize
|
|
||||||
saddlebrown
|
|
||||||
salmon
|
|
||||||
sandybrown
|
|
||||||
sans-serif
|
|
||||||
scroll
|
|
||||||
se
|
|
||||||
se-resize
|
|
||||||
seagreen
|
|
||||||
seashell
|
|
||||||
semi
|
|
||||||
semi-condensed
|
|
||||||
semi-expanded
|
|
||||||
separate
|
|
||||||
serif
|
|
||||||
shadow
|
|
||||||
show
|
|
||||||
side
|
|
||||||
sienna
|
|
||||||
silent
|
|
||||||
silever
|
|
||||||
silver
|
|
||||||
size
|
|
||||||
skyblue
|
|
||||||
slateblue
|
|
||||||
slategray
|
|
||||||
slow
|
|
||||||
slower
|
|
||||||
small
|
|
||||||
small-caps
|
|
||||||
small-caption
|
|
||||||
smaller
|
|
||||||
snow
|
|
||||||
soft
|
|
||||||
solid
|
|
||||||
space
|
|
||||||
spacing
|
|
||||||
speak
|
|
||||||
speak-header
|
|
||||||
speak-numeral
|
|
||||||
speak-punctuation
|
|
||||||
specific
|
|
||||||
specific-voice
|
|
||||||
speech
|
|
||||||
speech-rate
|
|
||||||
spell
|
|
||||||
spell-out
|
|
||||||
springgreen
|
|
||||||
square
|
|
||||||
static
|
|
||||||
status
|
|
||||||
status-bar
|
|
||||||
steelblue
|
|
||||||
stress
|
|
||||||
stretch
|
|
||||||
style
|
|
||||||
sub
|
|
||||||
super
|
|
||||||
sw
|
|
||||||
sw-resize
|
|
||||||
tab-size
|
|
||||||
table
|
|
||||||
table-caption
|
|
||||||
table-cell
|
|
||||||
table-column
|
|
||||||
table-column-group
|
|
||||||
table-footer-group
|
|
||||||
table-header-group
|
|
||||||
table-layout
|
|
||||||
table-row
|
|
||||||
table-row-group
|
|
||||||
tan
|
|
||||||
teal
|
|
||||||
text
|
|
||||||
text-align
|
|
||||||
text-align-last
|
|
||||||
text-bottom
|
|
||||||
text-combine-horizontal
|
|
||||||
text-decoration
|
|
||||||
text-decoration-color
|
|
||||||
text-decoration-line
|
|
||||||
text-decoration-style
|
|
||||||
text-indent
|
|
||||||
text-justify
|
|
||||||
text-orientation
|
|
||||||
text-overflow
|
|
||||||
text-shadow
|
|
||||||
text-top
|
|
||||||
text-transform
|
|
||||||
text-underline-position
|
|
||||||
thick
|
|
||||||
thin
|
|
||||||
thistle
|
|
||||||
through
|
|
||||||
tomato
|
|
||||||
top
|
|
||||||
track
|
|
||||||
transform
|
|
||||||
transform-origin
|
|
||||||
transform-style
|
|
||||||
transition
|
|
||||||
transition-delay
|
|
||||||
transition-duration
|
|
||||||
transition-property
|
|
||||||
transition-timing-function
|
|
||||||
transparent
|
|
||||||
turquoise
|
|
||||||
type
|
|
||||||
ultra
|
|
||||||
ultra-condensed
|
|
||||||
ultra-expanded
|
|
||||||
underline
|
|
||||||
unicode
|
|
||||||
unicode-bidi
|
|
||||||
upper
|
|
||||||
upper-alpha
|
|
||||||
upper-latin
|
|
||||||
upper-roman
|
|
||||||
uppercase
|
|
||||||
variant
|
|
||||||
vertical
|
|
||||||
vertical-align
|
|
||||||
violet
|
|
||||||
visibility
|
|
||||||
visible
|
|
||||||
visited
|
|
||||||
voice
|
|
||||||
voice-balance
|
|
||||||
voice-duration
|
|
||||||
voice-family
|
|
||||||
voice-pitch
|
|
||||||
voice-pitch-range
|
|
||||||
voice-rate
|
|
||||||
voice-stress
|
|
||||||
voice-volume
|
|
||||||
volume
|
|
||||||
w
|
|
||||||
w-resize
|
|
||||||
wait
|
|
||||||
weight
|
|
||||||
wheat
|
|
||||||
white
|
|
||||||
white-space
|
|
||||||
whitesmoke
|
|
||||||
wider
|
|
||||||
widows
|
|
||||||
width
|
|
||||||
word
|
|
||||||
word-break
|
|
||||||
word-spacing
|
|
||||||
word-wrap
|
|
||||||
wrap
|
|
||||||
writing-mode
|
|
||||||
x
|
|
||||||
x-fast
|
|
||||||
x-high
|
|
||||||
x-large
|
|
||||||
x-loud
|
|
||||||
x-low
|
|
||||||
x-slow
|
|
||||||
x-small
|
|
||||||
x-soft
|
|
||||||
xx
|
|
||||||
xx-large
|
|
||||||
xx-small
|
|
||||||
y
|
|
||||||
yellow
|
|
||||||
yellowgreen
|
|
||||||
z
|
|
||||||
z-index
|
|
||||||
zero
|
|
||||||
@@ -1,216 +0,0 @@
|
|||||||
after
|
|
||||||
begin
|
|
||||||
catch
|
|
||||||
case
|
|
||||||
cond
|
|
||||||
end
|
|
||||||
fun
|
|
||||||
if
|
|
||||||
let
|
|
||||||
of
|
|
||||||
query
|
|
||||||
receive
|
|
||||||
try
|
|
||||||
when
|
|
||||||
and
|
|
||||||
andalso
|
|
||||||
band
|
|
||||||
bnot
|
|
||||||
bor
|
|
||||||
bsl
|
|
||||||
bsr
|
|
||||||
bxor
|
|
||||||
div
|
|
||||||
not
|
|
||||||
or
|
|
||||||
orelse
|
|
||||||
rem
|
|
||||||
xor
|
|
||||||
is_atom
|
|
||||||
is_binary
|
|
||||||
is_bitstring
|
|
||||||
is_boolean
|
|
||||||
is_float
|
|
||||||
is_function
|
|
||||||
is_integer
|
|
||||||
is_list
|
|
||||||
is_number
|
|
||||||
is_pid
|
|
||||||
is_port
|
|
||||||
is_record
|
|
||||||
is_reference
|
|
||||||
is_tuple
|
|
||||||
atom
|
|
||||||
binary
|
|
||||||
bitstring
|
|
||||||
boolean
|
|
||||||
function
|
|
||||||
integer
|
|
||||||
list
|
|
||||||
number
|
|
||||||
pid
|
|
||||||
port
|
|
||||||
record
|
|
||||||
reference
|
|
||||||
tuple
|
|
||||||
abs
|
|
||||||
adler32
|
|
||||||
adler32_combine
|
|
||||||
alive
|
|
||||||
apply
|
|
||||||
atom_to_binary
|
|
||||||
atom_to_list
|
|
||||||
binary_to_atom
|
|
||||||
binary_to_existing_atom
|
|
||||||
binary_to_list
|
|
||||||
binary_to_term
|
|
||||||
bit_size
|
|
||||||
bitstring_to_list
|
|
||||||
byte_size
|
|
||||||
check_process_code
|
|
||||||
contact_binary
|
|
||||||
crc32
|
|
||||||
crc32_combine
|
|
||||||
date
|
|
||||||
decode_packet
|
|
||||||
delete_module
|
|
||||||
disconnect_node
|
|
||||||
element
|
|
||||||
erase
|
|
||||||
exit
|
|
||||||
float
|
|
||||||
float_to_list
|
|
||||||
garbage_collect
|
|
||||||
get
|
|
||||||
get_keys
|
|
||||||
group_leader
|
|
||||||
halt
|
|
||||||
hd
|
|
||||||
integer_to_list
|
|
||||||
internal_bif
|
|
||||||
iolist_size
|
|
||||||
iolist_to_binary
|
|
||||||
is_alive
|
|
||||||
is_atom
|
|
||||||
is_binary
|
|
||||||
is_bitstring
|
|
||||||
is_boolean
|
|
||||||
is_float
|
|
||||||
is_function
|
|
||||||
is_integer
|
|
||||||
is_list
|
|
||||||
is_number
|
|
||||||
is_pid
|
|
||||||
is_port
|
|
||||||
is_process_alive
|
|
||||||
is_record
|
|
||||||
is_reference
|
|
||||||
is_tuple
|
|
||||||
length
|
|
||||||
link
|
|
||||||
list_to_atom
|
|
||||||
list_to_binary
|
|
||||||
list_to_bitstring
|
|
||||||
list_to_existing_atom
|
|
||||||
list_to_float
|
|
||||||
list_to_integer
|
|
||||||
list_to_pid
|
|
||||||
list_to_tuple
|
|
||||||
load_module
|
|
||||||
make_ref
|
|
||||||
module_loaded
|
|
||||||
monitor_node
|
|
||||||
node
|
|
||||||
node_link
|
|
||||||
node_unlink
|
|
||||||
nodes
|
|
||||||
notalive
|
|
||||||
now
|
|
||||||
open_port
|
|
||||||
pid_to_list
|
|
||||||
port_close
|
|
||||||
port_command
|
|
||||||
port_connect
|
|
||||||
port_control
|
|
||||||
pre_loaded
|
|
||||||
process_flag
|
|
||||||
process_info
|
|
||||||
processes
|
|
||||||
purge_module
|
|
||||||
put
|
|
||||||
register
|
|
||||||
registered
|
|
||||||
round
|
|
||||||
self
|
|
||||||
setelement
|
|
||||||
size
|
|
||||||
spawn
|
|
||||||
spawn_link
|
|
||||||
spawn_monitor
|
|
||||||
spawn_opt
|
|
||||||
split_binary
|
|
||||||
statistics
|
|
||||||
term_to_binary
|
|
||||||
time
|
|
||||||
throw
|
|
||||||
tl
|
|
||||||
trunc
|
|
||||||
tuple_size
|
|
||||||
tuple_to_list
|
|
||||||
unlink
|
|
||||||
unregister
|
|
||||||
whereis
|
|
||||||
append_element
|
|
||||||
bump_reductions
|
|
||||||
cancel_timer
|
|
||||||
demonitor
|
|
||||||
display
|
|
||||||
fun_info
|
|
||||||
fun_to_list
|
|
||||||
function_exported
|
|
||||||
get_cookie
|
|
||||||
get_stacktrace
|
|
||||||
hash
|
|
||||||
integer_to_list
|
|
||||||
is_builtin
|
|
||||||
list_to_integer
|
|
||||||
loaded
|
|
||||||
localtime
|
|
||||||
localtime_to_universaltime
|
|
||||||
make_tuple
|
|
||||||
max
|
|
||||||
md5
|
|
||||||
md5_final
|
|
||||||
md5_init
|
|
||||||
md5_update
|
|
||||||
memory
|
|
||||||
min
|
|
||||||
monitor
|
|
||||||
monitor_node
|
|
||||||
phash
|
|
||||||
phash2
|
|
||||||
port_call
|
|
||||||
port_info
|
|
||||||
port_to_list
|
|
||||||
ports
|
|
||||||
process_display
|
|
||||||
read_timer
|
|
||||||
ref_to_list
|
|
||||||
resume_process
|
|
||||||
send
|
|
||||||
send_after
|
|
||||||
send_nosuspend
|
|
||||||
set_cookie
|
|
||||||
start_timer
|
|
||||||
suspend_process
|
|
||||||
system_flag
|
|
||||||
system_info
|
|
||||||
system_monitor
|
|
||||||
system_profile
|
|
||||||
trace
|
|
||||||
trace_delivered
|
|
||||||
trace_info
|
|
||||||
trace_pattern
|
|
||||||
universaltime
|
|
||||||
universaltime_to_localtime
|
|
||||||
yield
|
|
||||||
@@ -1,37 +0,0 @@
|
|||||||
abstract
|
|
||||||
break
|
|
||||||
case
|
|
||||||
catch
|
|
||||||
const
|
|
||||||
continue
|
|
||||||
do
|
|
||||||
else
|
|
||||||
elseif
|
|
||||||
end
|
|
||||||
eval
|
|
||||||
export
|
|
||||||
false
|
|
||||||
finally
|
|
||||||
for
|
|
||||||
function
|
|
||||||
global
|
|
||||||
if
|
|
||||||
ifelse
|
|
||||||
immutable
|
|
||||||
import
|
|
||||||
importall
|
|
||||||
in
|
|
||||||
let
|
|
||||||
macro
|
|
||||||
module
|
|
||||||
otherwise
|
|
||||||
quote
|
|
||||||
return
|
|
||||||
switch
|
|
||||||
throw
|
|
||||||
true
|
|
||||||
try
|
|
||||||
type
|
|
||||||
typealias
|
|
||||||
using
|
|
||||||
while
|
|
||||||
@@ -1,25 +0,0 @@
|
|||||||
break
|
|
||||||
case
|
|
||||||
chan
|
|
||||||
const
|
|
||||||
continue
|
|
||||||
default
|
|
||||||
defer
|
|
||||||
else
|
|
||||||
fallthrough
|
|
||||||
for
|
|
||||||
func
|
|
||||||
go
|
|
||||||
goto
|
|
||||||
if
|
|
||||||
import
|
|
||||||
interface
|
|
||||||
map
|
|
||||||
package
|
|
||||||
range
|
|
||||||
return
|
|
||||||
select
|
|
||||||
struct
|
|
||||||
switch
|
|
||||||
type
|
|
||||||
var
|
|
||||||
@@ -1,679 +0,0 @@
|
|||||||
Arrows
|
|
||||||
BangPatterns
|
|
||||||
Bool
|
|
||||||
Bounded
|
|
||||||
CPP
|
|
||||||
Char
|
|
||||||
Complex
|
|
||||||
ConstrainedClassMethods
|
|
||||||
Control.Applicative
|
|
||||||
Control.Arrow
|
|
||||||
Control.Category
|
|
||||||
Control.Concurrent
|
|
||||||
Control.Concurrent.MVar
|
|
||||||
Control.Concurrent.QSem
|
|
||||||
Control.Concurrent.QSemN
|
|
||||||
Control.Concurrent.STM
|
|
||||||
Control.Concurrent.STM.TArray
|
|
||||||
Control.Concurrent.STM.TChan
|
|
||||||
Control.Concurrent.STM.TMVar
|
|
||||||
Control.Concurrent.STM.TVar
|
|
||||||
Control.Concurrent.SampleVar
|
|
||||||
Control.Exception
|
|
||||||
Control.Exception.Base
|
|
||||||
Control.Monad
|
|
||||||
Control.Monad.Cont
|
|
||||||
Control.Monad.Cont.Class
|
|
||||||
Control.Monad.Error
|
|
||||||
Control.Monad.Error.Class
|
|
||||||
Control.Monad.Fix
|
|
||||||
Control.Monad.Identity
|
|
||||||
Control.Monad.Instances
|
|
||||||
Control.Monad.List
|
|
||||||
Control.Monad.RWS
|
|
||||||
Control.Monad.RWS.Class
|
|
||||||
Control.Monad.RWS.Lazy
|
|
||||||
Control.Monad.RWS.Strict
|
|
||||||
Control.Monad.Reader
|
|
||||||
Control.Monad.Reader.Class
|
|
||||||
Control.Monad.ST
|
|
||||||
Control.Monad.ST.Lazy
|
|
||||||
Control.Monad.ST.Strict
|
|
||||||
Control.Monad.STM
|
|
||||||
Control.Monad.State
|
|
||||||
Control.Monad.State.Class
|
|
||||||
Control.Monad.State.Lazy
|
|
||||||
Control.Monad.State.Strict
|
|
||||||
Control.Monad.Trans
|
|
||||||
Control.Monad.Writer
|
|
||||||
Control.Monad.Writer.Class
|
|
||||||
Control.Monad.Writer.Lazy
|
|
||||||
Control.Monad.Writer.Strict
|
|
||||||
Control.OldException
|
|
||||||
Control.Parallel
|
|
||||||
Control.Parallel.Strategies
|
|
||||||
DEPRECATED
|
|
||||||
Data.Array
|
|
||||||
Data.Array.Diff
|
|
||||||
Data.Array.IArray
|
|
||||||
Data.Array.IO
|
|
||||||
Data.Array.IO.Internals
|
|
||||||
Data.Array.MArray
|
|
||||||
Data.Array.Paralell
|
|
||||||
Data.Array.Paralell.Arr
|
|
||||||
Data.Array.Paralell.Base
|
|
||||||
Data.Array.Paralell.Int
|
|
||||||
Data.Array.Paralell.Lifted
|
|
||||||
Data.Array.Paralell.PArray
|
|
||||||
Data.Array.Paralell.Prelude
|
|
||||||
Data.Array.Paralell.Prelude.Double
|
|
||||||
Data.Array.Paralell.Stream
|
|
||||||
Data.Array.Paralell.Unlifted
|
|
||||||
Data.Array.Paralell.Unlifted.Distributed
|
|
||||||
Data.Array.Paralell.Unlifted.Paralell
|
|
||||||
Data.Array.Paralell.Unlifted.Sqeuential
|
|
||||||
Data.Array.Paralell.Word8
|
|
||||||
Data.Array.ST
|
|
||||||
Data.Array.Storable
|
|
||||||
Data.Array.Unboxed
|
|
||||||
Data.Bits
|
|
||||||
Data.Bool
|
|
||||||
Data.ByteString
|
|
||||||
Data.ByteString.Char8
|
|
||||||
Data.ByteString.Fusion
|
|
||||||
Data.ByteString.Internal
|
|
||||||
Data.ByteString.Lazy
|
|
||||||
Data.ByteString.Lazy.Char8
|
|
||||||
Data.ByteString.Lazy.Fusion
|
|
||||||
Data.ByteString.Lazy.Internal
|
|
||||||
Data.ByteString.Unsafe
|
|
||||||
Data.Char
|
|
||||||
Data.Complex
|
|
||||||
Data.Data
|
|
||||||
Data.Dynamic
|
|
||||||
Data.Either
|
|
||||||
Data.Eq
|
|
||||||
Data.Fixed
|
|
||||||
Data.Foldable
|
|
||||||
Data.Function
|
|
||||||
Data.Generics
|
|
||||||
Data.Generics.Aliases
|
|
||||||
Data.Generics.Basics
|
|
||||||
Data.Generics.Instances
|
|
||||||
Data.Generics.Schemes
|
|
||||||
Data.Generics.Text
|
|
||||||
Data.Generics.Twins
|
|
||||||
Data.Graph
|
|
||||||
Data.HashTable
|
|
||||||
Data.IORef
|
|
||||||
Data.Int
|
|
||||||
Data.IntMap
|
|
||||||
Data.IntSet
|
|
||||||
Data.Ix
|
|
||||||
Data.List
|
|
||||||
Data.Map
|
|
||||||
Data.Maybe
|
|
||||||
Data.Monoid
|
|
||||||
Data.Ord
|
|
||||||
Data.Ratio
|
|
||||||
Data.STRef
|
|
||||||
Data.STRef.Lazy
|
|
||||||
Data.STRef.Strict
|
|
||||||
Data.Sequence
|
|
||||||
Data.Set
|
|
||||||
Data.String
|
|
||||||
Data.Time
|
|
||||||
Data.Time.Calendar
|
|
||||||
Data.Time.Calendar.Easter
|
|
||||||
Data.Time.Calendar.Julian
|
|
||||||
Data.Time.Calendar.MonthDay
|
|
||||||
Data.Time.Calendar.OrdinalDate
|
|
||||||
Data.Time.Calendar.WeekDate
|
|
||||||
Data.Time.Clock
|
|
||||||
Data.Time.Clock.POSIX
|
|
||||||
Data.Time.Clock.TAI
|
|
||||||
Data.Time.Format
|
|
||||||
Data.Time.LocalTime
|
|
||||||
Data.Traversable
|
|
||||||
Data.Tree
|
|
||||||
Data.Tuple
|
|
||||||
Data.Typeable
|
|
||||||
Data.Unique
|
|
||||||
Data.Version
|
|
||||||
Data.Word
|
|
||||||
Debug.Trace
|
|
||||||
DeriveDataTypeable
|
|
||||||
DisambiguateRecordFields
|
|
||||||
Distribution.Compat.ReadP
|
|
||||||
Distribution.Compiler
|
|
||||||
Distribution.InstalledPackageInfo
|
|
||||||
Distribution.License
|
|
||||||
Distribution.Make
|
|
||||||
Distribution.ModuleName
|
|
||||||
Distribution.Package
|
|
||||||
Distribution.PackageDescription
|
|
||||||
Distribution.PackageDescription.Check
|
|
||||||
Distribution.PackageDescription.Configuration
|
|
||||||
Distribution.PackageDescription.Parse
|
|
||||||
Distribution.ParseUtils
|
|
||||||
Distribution.ReadE
|
|
||||||
Distribution.Simple
|
|
||||||
Distribution.Simple.Build
|
|
||||||
Distribution.Simple.Build.Macros
|
|
||||||
Distribution.Simple.Build.PathsModule
|
|
||||||
Distribution.Simple.BuildPaths
|
|
||||||
Distribution.Simple.Command
|
|
||||||
Distribution.Simple.Compiler
|
|
||||||
Distribution.Simple.Configure
|
|
||||||
Distribution.Simple.GHC
|
|
||||||
Distribution.Simple.Haddock
|
|
||||||
Distribution.Simple.Hugs
|
|
||||||
Distribution.Simple.Install
|
|
||||||
Distribution.Simple.InstallDirs
|
|
||||||
Distribution.Simple.JHC
|
|
||||||
Distribution.Simple.LocalBuildInfo
|
|
||||||
Distribution.Simple.NHC
|
|
||||||
Distribution.Simple.PackageIndex
|
|
||||||
Distribution.Simple.PreProcess
|
|
||||||
Distribution.Simple.PreProcess.Unlit
|
|
||||||
Distribution.Simple.Program
|
|
||||||
Distribution.Simple.Register
|
|
||||||
Distribution.Simple.Setup
|
|
||||||
Distribution.Simple.SrcDist
|
|
||||||
Distribution.Simple.UserHooks
|
|
||||||
Distribution.Simple.Utils
|
|
||||||
Distribution.System
|
|
||||||
Distribution.Text
|
|
||||||
Distribution.Verbosity
|
|
||||||
Distribution.Version
|
|
||||||
Double
|
|
||||||
EQ
|
|
||||||
Either
|
|
||||||
EmptyDataDecls
|
|
||||||
Enum
|
|
||||||
Eq
|
|
||||||
ExistentialQuantification
|
|
||||||
ExtendedDefaultRules
|
|
||||||
False
|
|
||||||
FilePath
|
|
||||||
FlexibleContexts
|
|
||||||
FlexibleInstances
|
|
||||||
Float
|
|
||||||
Floating
|
|
||||||
Foreign
|
|
||||||
Foreign.C
|
|
||||||
Foreign.C.Error
|
|
||||||
Foreign.C.String
|
|
||||||
Foreign.C.Types
|
|
||||||
Foreign.Concurrent
|
|
||||||
Foreign.ForeignPtr
|
|
||||||
Foreign.Marshal
|
|
||||||
Foreign.Marshal.Alloc
|
|
||||||
Foreign.Marshal.Array
|
|
||||||
Foreign.Marshal.Error
|
|
||||||
Foreign.Marshal.Pool
|
|
||||||
Foreign.Marshal.Utils
|
|
||||||
Foreign.Ptr
|
|
||||||
Foreign.StablePtr
|
|
||||||
Foreign.Storable
|
|
||||||
ForeignFunctionInterface
|
|
||||||
Fractional
|
|
||||||
FunctionnalDependencies
|
|
||||||
Functor
|
|
||||||
GADTs
|
|
||||||
GHC.Arr
|
|
||||||
GHC.Bool
|
|
||||||
GHC.Conc
|
|
||||||
GHC.ConsoleHandler
|
|
||||||
GHC.Desugar
|
|
||||||
GHC.Environment
|
|
||||||
GHC.Err
|
|
||||||
GHC.Exts
|
|
||||||
GHC.Generics
|
|
||||||
GHC.Handle
|
|
||||||
GHC.Ordering
|
|
||||||
GHC.PArr
|
|
||||||
GHC.Prim
|
|
||||||
GHC.PrimopWrappers
|
|
||||||
GHC.Tuple
|
|
||||||
GHC.Types
|
|
||||||
GHC.Unicode
|
|
||||||
GHC.Unit
|
|
||||||
GT
|
|
||||||
GeneralizedNewtypeDeriving
|
|
||||||
Generics
|
|
||||||
INCLUDE
|
|
||||||
INLINE
|
|
||||||
IO
|
|
||||||
IOError
|
|
||||||
IOException
|
|
||||||
ImplicitParams
|
|
||||||
ImplicitPrelude
|
|
||||||
ImpredicativeTypes
|
|
||||||
IncoherentInstances
|
|
||||||
Int
|
|
||||||
Integer
|
|
||||||
Integral
|
|
||||||
Just
|
|
||||||
KindSignatures
|
|
||||||
LANGUAGE
|
|
||||||
LINE
|
|
||||||
LT
|
|
||||||
Language.Haskell.Extension
|
|
||||||
Language.Haskell.Lexer
|
|
||||||
Language.Haskell.ParseMonad
|
|
||||||
Language.Haskell.ParseUtils
|
|
||||||
Language.Haskell.Parser
|
|
||||||
Language.Haskell.Pretty
|
|
||||||
Language.Haskell.Syntax
|
|
||||||
Language.Haskell.TH
|
|
||||||
Language.Haskell.TH.Lib
|
|
||||||
Language.Haskell.TH.Ppr
|
|
||||||
Language.Haskell.TH.PprLib
|
|
||||||
Language.Haskell.TH.Quote
|
|
||||||
Language.Haskell.TH.Syntax
|
|
||||||
Left
|
|
||||||
LiberalTypeSynonyms
|
|
||||||
MagicHash
|
|
||||||
Maybe
|
|
||||||
Monad
|
|
||||||
MonoPatBinds
|
|
||||||
MonomorphismRestriction
|
|
||||||
MultiParamTypeClasses
|
|
||||||
NOINLINE
|
|
||||||
NamedFieldPuns
|
|
||||||
Network
|
|
||||||
Network.BSD
|
|
||||||
Network.Socket
|
|
||||||
Network.URI
|
|
||||||
NewQualifiedOperators
|
|
||||||
NoArrows
|
|
||||||
NoBangPatterns
|
|
||||||
NoCPP
|
|
||||||
NoConstrainedClassMethods
|
|
||||||
NoDeriveDataTypeable
|
|
||||||
NoDisambiguateRecordFields
|
|
||||||
NoEmptyDataDecls
|
|
||||||
NoExistentialQuantification
|
|
||||||
NoExtendedDefaultRules
|
|
||||||
NoFlexibleContexts
|
|
||||||
NoFlexibleInstances
|
|
||||||
NoForeignFunctionInterface
|
|
||||||
NoFunctionnalDependencies
|
|
||||||
NoGADTs
|
|
||||||
NoGeneralizedNewtypeDeriving
|
|
||||||
NoGenerics
|
|
||||||
NoImplicitParams
|
|
||||||
NoImplicitPrelude
|
|
||||||
NoImpredicativeTypes
|
|
||||||
NoIncoherentInstances
|
|
||||||
NoKindSignatures
|
|
||||||
NoLiberalTypeSynonyms
|
|
||||||
NoMagicHash
|
|
||||||
NoMonoPatBinds
|
|
||||||
NoMonomorphismRestriction
|
|
||||||
NoMultiParamTypeClasses
|
|
||||||
NoNamedFieldPuns
|
|
||||||
NoNewQualifiedOperators
|
|
||||||
NoOverlappingInstances
|
|
||||||
NoOverloadedStrings
|
|
||||||
NoPArr
|
|
||||||
NoPackageImports
|
|
||||||
NoParallelListComp
|
|
||||||
NoPatternGuards
|
|
||||||
NoPolymorphicComponents
|
|
||||||
NoQuasiQuotes
|
|
||||||
NoRank2Types
|
|
||||||
NoRankNTypes
|
|
||||||
NoRecordWildCards
|
|
||||||
NoRecursiveDo
|
|
||||||
NoRelaxedPolyRec
|
|
||||||
NoScopedTypeVariables
|
|
||||||
NoStandaloneDeriving
|
|
||||||
NoTemplateHaskell
|
|
||||||
NoTransformListComp
|
|
||||||
NoTypeFamilies
|
|
||||||
NoTypeOperators
|
|
||||||
NoTypeSynonymInstances
|
|
||||||
NoUnboxedTuples
|
|
||||||
NoUndecidableInstances
|
|
||||||
NoUnicodeSyntax
|
|
||||||
NoUnliftedFFITypes
|
|
||||||
NoViewPatterns
|
|
||||||
Nothing
|
|
||||||
Num
|
|
||||||
Numeric
|
|
||||||
OPTIONS_GHC
|
|
||||||
Ord
|
|
||||||
Ordering
|
|
||||||
OverlappingInstances
|
|
||||||
OverloadedStrings
|
|
||||||
PArr
|
|
||||||
PackageImports
|
|
||||||
ParallelListComp
|
|
||||||
PatternGuards
|
|
||||||
PolymorphicComponents
|
|
||||||
Prelude
|
|
||||||
QuasiQuotes
|
|
||||||
RULES
|
|
||||||
Rank2Types
|
|
||||||
RankNTypes
|
|
||||||
Ratio
|
|
||||||
Read
|
|
||||||
ReadS
|
|
||||||
Real
|
|
||||||
RealFloat
|
|
||||||
RealFrac
|
|
||||||
RecordWildCards
|
|
||||||
RecursiveDo
|
|
||||||
RelaxedPolyRec
|
|
||||||
Right
|
|
||||||
SOURCE
|
|
||||||
SPECIALIZE
|
|
||||||
ScopedTypeVariables
|
|
||||||
ShowS
|
|
||||||
StandaloneDeriving
|
|
||||||
String
|
|
||||||
System.CPUTime
|
|
||||||
System.Cmd
|
|
||||||
System.Console.Editline
|
|
||||||
System.Console.GetOpt
|
|
||||||
System.Console.Readline
|
|
||||||
System.Directory
|
|
||||||
System.Environment
|
|
||||||
System.Exit
|
|
||||||
System.FilePath
|
|
||||||
System.FilePath.Posix
|
|
||||||
System.FilePath.Windows
|
|
||||||
System.IO
|
|
||||||
System.IO.Error
|
|
||||||
System.IO.Unsafe
|
|
||||||
System.Info
|
|
||||||
System.Locale
|
|
||||||
System.Mem
|
|
||||||
System.Mem.StableName
|
|
||||||
System.Mem.Weak
|
|
||||||
System.Posix
|
|
||||||
System.Posix.Directory
|
|
||||||
System.Posix.DynamicLinker
|
|
||||||
System.Posix.DynamicLinker.Module
|
|
||||||
System.Posix.DynamicLinker.Prim
|
|
||||||
System.Posix.Env
|
|
||||||
System.Posix.Error
|
|
||||||
System.Posix.Files
|
|
||||||
System.Posix.IO
|
|
||||||
System.Posix.Process
|
|
||||||
System.Posix.Process.Internals
|
|
||||||
System.Posix.Resource
|
|
||||||
System.Posix.Semaphore
|
|
||||||
System.Posix.SharedMem
|
|
||||||
System.Posix.Signals
|
|
||||||
System.Posix.Signals.Exts
|
|
||||||
System.Posix.Temp
|
|
||||||
System.Posix.Terminal
|
|
||||||
System.Posix.Time
|
|
||||||
System.Posix.Types
|
|
||||||
System.Posix.Unistd
|
|
||||||
System.Posix.User
|
|
||||||
System.Process
|
|
||||||
System.Random
|
|
||||||
System.Time
|
|
||||||
System.Timeout
|
|
||||||
TemplateHaskell
|
|
||||||
Test.HUnit
|
|
||||||
Test.HUnit.Base
|
|
||||||
Test.HUnit.Lang
|
|
||||||
Test.HUnit.Terminal
|
|
||||||
Test.HUnit.Text
|
|
||||||
Test.QuickCheck
|
|
||||||
Test.QuickCheck.Batch
|
|
||||||
Test.QuickCheck.Poly
|
|
||||||
Test.QuickCheck.Utils
|
|
||||||
Text.Html
|
|
||||||
Text.Html.BlockTable
|
|
||||||
Text.ParserCombinators.Parsec
|
|
||||||
Text.ParserCombinators.Parsec.Char
|
|
||||||
Text.ParserCombinators.Parsec.Combinator
|
|
||||||
Text.ParserCombinators.Parsec.Error
|
|
||||||
Text.ParserCombinators.Parsec.Expr
|
|
||||||
Text.ParserCombinators.Parsec.Language
|
|
||||||
Text.ParserCombinators.Parsec.Perm
|
|
||||||
Text.ParserCombinators.Parsec.Pos
|
|
||||||
Text.ParserCombinators.Parsec.Prim
|
|
||||||
Text.ParserCombinators.Parsec.Token
|
|
||||||
Text.ParserCombinators.ReadP
|
|
||||||
Text.ParserCombinators.ReadPrec
|
|
||||||
Text.PrettyPrint
|
|
||||||
Text.PrettyPrint.HughesPJ
|
|
||||||
Text.Printf
|
|
||||||
Text.Read
|
|
||||||
Text.Read.Lex
|
|
||||||
Text.Regex.Base
|
|
||||||
Text.Regex.Base.Context
|
|
||||||
Text.Regex.Base.Impl
|
|
||||||
Text.Regex.Base.RegexLike
|
|
||||||
Text.Regex.Posix
|
|
||||||
Text.Regex.Posix.ByteString
|
|
||||||
Text.Regex.Posix.String
|
|
||||||
Text.Regex.Posix.Wrap
|
|
||||||
Text.Show
|
|
||||||
Text.Show.Functions
|
|
||||||
Text.XHtml
|
|
||||||
Text.XHtml.Debug
|
|
||||||
Text.XHtml.Frameset
|
|
||||||
Text.XHtml.Strict
|
|
||||||
Text.XHtml.Table
|
|
||||||
Text.XHtml.Transitional
|
|
||||||
Trace.Hpc.Mix
|
|
||||||
Trace.Hpc.Reflect
|
|
||||||
Trace.Hpc.Tix
|
|
||||||
Trace.Hpc.Util
|
|
||||||
TransformListComp
|
|
||||||
True
|
|
||||||
TypeFamilies
|
|
||||||
TypeOperators
|
|
||||||
TypeSynonymInstances
|
|
||||||
UNPACK
|
|
||||||
UnboxedTuples
|
|
||||||
UndecidableInstances
|
|
||||||
UnicodeSyntax
|
|
||||||
UnliftedFFITypes
|
|
||||||
Unsafe.Coerce
|
|
||||||
ViewPatterns
|
|
||||||
WARNING
|
|
||||||
abs
|
|
||||||
acos
|
|
||||||
acosh
|
|
||||||
all
|
|
||||||
and
|
|
||||||
any
|
|
||||||
appendFile
|
|
||||||
as
|
|
||||||
asTypeOf
|
|
||||||
asin
|
|
||||||
asinh
|
|
||||||
atan
|
|
||||||
atan2
|
|
||||||
atanh
|
|
||||||
break
|
|
||||||
case
|
|
||||||
catch
|
|
||||||
ceiling
|
|
||||||
class
|
|
||||||
compare
|
|
||||||
concat
|
|
||||||
concatMap
|
|
||||||
const
|
|
||||||
cos
|
|
||||||
cosh
|
|
||||||
curry
|
|
||||||
cycle
|
|
||||||
data
|
|
||||||
decodeFloat
|
|
||||||
default
|
|
||||||
deriving
|
|
||||||
div
|
|
||||||
divMod
|
|
||||||
do
|
|
||||||
drop
|
|
||||||
dropWhile
|
|
||||||
either
|
|
||||||
elem
|
|
||||||
else
|
|
||||||
encodeFloat
|
|
||||||
enumFrom
|
|
||||||
enumFromThen
|
|
||||||
enumFromThenTo
|
|
||||||
enumFromTo
|
|
||||||
error
|
|
||||||
exp
|
|
||||||
exponent
|
|
||||||
fail
|
|
||||||
filter
|
|
||||||
flip
|
|
||||||
floatDigits
|
|
||||||
floatRadix
|
|
||||||
floatRange
|
|
||||||
floor
|
|
||||||
fmap
|
|
||||||
fold
|
|
||||||
fold1
|
|
||||||
foldr
|
|
||||||
foldr1
|
|
||||||
fromEnum
|
|
||||||
fromInteger
|
|
||||||
fromIntegral
|
|
||||||
fromRational
|
|
||||||
fst
|
|
||||||
gcd
|
|
||||||
getChar
|
|
||||||
getContents
|
|
||||||
getLine
|
|
||||||
head
|
|
||||||
hiding
|
|
||||||
id
|
|
||||||
if
|
|
||||||
import
|
|
||||||
in
|
|
||||||
infix
|
|
||||||
infixl
|
|
||||||
infixr
|
|
||||||
init
|
|
||||||
instance
|
|
||||||
intract
|
|
||||||
ioError
|
|
||||||
isDenormalized
|
|
||||||
isIEEE
|
|
||||||
isInfinite
|
|
||||||
isNan
|
|
||||||
isNegativeZero
|
|
||||||
iterate
|
|
||||||
last
|
|
||||||
lcm
|
|
||||||
length
|
|
||||||
let
|
|
||||||
lex
|
|
||||||
lines
|
|
||||||
log
|
|
||||||
logBase
|
|
||||||
lookup
|
|
||||||
map
|
|
||||||
mapM
|
|
||||||
mapM_
|
|
||||||
max
|
|
||||||
maxBound
|
|
||||||
maximum
|
|
||||||
maybe
|
|
||||||
min
|
|
||||||
minBound
|
|
||||||
minimum
|
|
||||||
mod
|
|
||||||
module
|
|
||||||
negate
|
|
||||||
newtype
|
|
||||||
not
|
|
||||||
notElem
|
|
||||||
null
|
|
||||||
odd
|
|
||||||
of
|
|
||||||
or
|
|
||||||
otherwise
|
|
||||||
pi
|
|
||||||
pred
|
|
||||||
print
|
|
||||||
product
|
|
||||||
properFraction
|
|
||||||
putChar
|
|
||||||
putStr
|
|
||||||
putStrLn
|
|
||||||
qualified
|
|
||||||
quot
|
|
||||||
quotRem
|
|
||||||
read
|
|
||||||
readFile
|
|
||||||
readIO
|
|
||||||
readList
|
|
||||||
readLn
|
|
||||||
readParen
|
|
||||||
reads
|
|
||||||
readsPrec
|
|
||||||
realtoFrac
|
|
||||||
recip
|
|
||||||
rem
|
|
||||||
repeat
|
|
||||||
replicate
|
|
||||||
return
|
|
||||||
reverse
|
|
||||||
round
|
|
||||||
scaleFloat
|
|
||||||
scanl
|
|
||||||
scanl1
|
|
||||||
scanr
|
|
||||||
scanr1
|
|
||||||
seq
|
|
||||||
sequence
|
|
||||||
sequence_
|
|
||||||
show
|
|
||||||
showChar
|
|
||||||
showList
|
|
||||||
showParen
|
|
||||||
showString
|
|
||||||
shows
|
|
||||||
showsPrec
|
|
||||||
significand
|
|
||||||
signum
|
|
||||||
sin
|
|
||||||
sinh
|
|
||||||
snd
|
|
||||||
span
|
|
||||||
splitAt
|
|
||||||
sqrt
|
|
||||||
subtract
|
|
||||||
succ
|
|
||||||
sum
|
|
||||||
tail
|
|
||||||
take
|
|
||||||
takeWhile
|
|
||||||
tan
|
|
||||||
tanh
|
|
||||||
then
|
|
||||||
toEnum
|
|
||||||
toInteger
|
|
||||||
toRational
|
|
||||||
truncate
|
|
||||||
type
|
|
||||||
uncurry
|
|
||||||
undefined
|
|
||||||
unlines
|
|
||||||
until
|
|
||||||
unwords
|
|
||||||
unzip
|
|
||||||
unzip3
|
|
||||||
userError
|
|
||||||
where
|
|
||||||
words
|
|
||||||
writeFile
|
|
||||||
zip
|
|
||||||
zip3
|
|
||||||
zipWith
|
|
||||||
zipWith3
|
|
||||||
@@ -1,53 +0,0 @@
|
|||||||
abstract
|
|
||||||
assert
|
|
||||||
boolean
|
|
||||||
break
|
|
||||||
byte
|
|
||||||
case
|
|
||||||
catch
|
|
||||||
char
|
|
||||||
class
|
|
||||||
const
|
|
||||||
continue
|
|
||||||
default
|
|
||||||
do
|
|
||||||
double
|
|
||||||
else
|
|
||||||
enum
|
|
||||||
extends
|
|
||||||
final
|
|
||||||
finally
|
|
||||||
float
|
|
||||||
for
|
|
||||||
goto
|
|
||||||
if
|
|
||||||
implements
|
|
||||||
import
|
|
||||||
instanceof
|
|
||||||
int
|
|
||||||
interface
|
|
||||||
long
|
|
||||||
native
|
|
||||||
new
|
|
||||||
package
|
|
||||||
private
|
|
||||||
protected
|
|
||||||
public
|
|
||||||
return
|
|
||||||
short
|
|
||||||
static
|
|
||||||
strictfp
|
|
||||||
super
|
|
||||||
switch
|
|
||||||
synchronized
|
|
||||||
this
|
|
||||||
throw
|
|
||||||
throws
|
|
||||||
transient
|
|
||||||
try
|
|
||||||
void
|
|
||||||
volatile
|
|
||||||
while
|
|
||||||
@Override
|
|
||||||
@Deprecated
|
|
||||||
@SuppressWarnings
|
|
||||||
@@ -1,148 +0,0 @@
|
|||||||
Anchor
|
|
||||||
Area
|
|
||||||
Array
|
|
||||||
Boolean
|
|
||||||
Button
|
|
||||||
Checkbox
|
|
||||||
Date
|
|
||||||
Document
|
|
||||||
Element
|
|
||||||
FileUpload
|
|
||||||
Form
|
|
||||||
Frame
|
|
||||||
Function
|
|
||||||
Hidden
|
|
||||||
History
|
|
||||||
Image
|
|
||||||
Infinity
|
|
||||||
JavaArray
|
|
||||||
JavaClass
|
|
||||||
JavaObject
|
|
||||||
JavaPackage
|
|
||||||
Link
|
|
||||||
Location
|
|
||||||
Math
|
|
||||||
MimeType
|
|
||||||
NaN
|
|
||||||
Navigator
|
|
||||||
Number
|
|
||||||
Object
|
|
||||||
Option
|
|
||||||
Packages
|
|
||||||
Password
|
|
||||||
Plugin
|
|
||||||
Radio
|
|
||||||
RegExp
|
|
||||||
Reset
|
|
||||||
Select
|
|
||||||
String
|
|
||||||
Submit
|
|
||||||
Text
|
|
||||||
Textarea
|
|
||||||
Window
|
|
||||||
alert
|
|
||||||
arguments
|
|
||||||
assign
|
|
||||||
blur
|
|
||||||
break
|
|
||||||
callee
|
|
||||||
caller
|
|
||||||
captureEvents
|
|
||||||
case
|
|
||||||
clearInterval
|
|
||||||
clearTimeout
|
|
||||||
close
|
|
||||||
closed
|
|
||||||
comment
|
|
||||||
confirm
|
|
||||||
constructor
|
|
||||||
continue
|
|
||||||
default
|
|
||||||
defaultStatus
|
|
||||||
delete
|
|
||||||
do
|
|
||||||
document
|
|
||||||
else
|
|
||||||
escape
|
|
||||||
eval
|
|
||||||
export
|
|
||||||
find
|
|
||||||
focus
|
|
||||||
for
|
|
||||||
frames
|
|
||||||
function
|
|
||||||
getClass
|
|
||||||
history
|
|
||||||
home
|
|
||||||
if
|
|
||||||
import
|
|
||||||
in
|
|
||||||
innerHeight
|
|
||||||
innerWidth
|
|
||||||
isFinite
|
|
||||||
isNan
|
|
||||||
java
|
|
||||||
label
|
|
||||||
length
|
|
||||||
location
|
|
||||||
locationbar
|
|
||||||
menubar
|
|
||||||
moveBy
|
|
||||||
moveTo
|
|
||||||
name
|
|
||||||
navigate
|
|
||||||
navigator
|
|
||||||
netscape
|
|
||||||
new
|
|
||||||
onBlur
|
|
||||||
onError
|
|
||||||
onFocus
|
|
||||||
onLoad
|
|
||||||
onUnload
|
|
||||||
open
|
|
||||||
opener
|
|
||||||
outerHeight
|
|
||||||
outerWidth
|
|
||||||
pageXoffset
|
|
||||||
pageYoffset
|
|
||||||
parent
|
|
||||||
parseFloat
|
|
||||||
parseInt
|
|
||||||
personalbar
|
|
||||||
print
|
|
||||||
prompt
|
|
||||||
prototype
|
|
||||||
ref
|
|
||||||
releaseEvents
|
|
||||||
resizeBy
|
|
||||||
resizeTo
|
|
||||||
return
|
|
||||||
routeEvent
|
|
||||||
scroll
|
|
||||||
scrollBy
|
|
||||||
scrollTo
|
|
||||||
scrollbars
|
|
||||||
self
|
|
||||||
setInterval
|
|
||||||
setTimeout
|
|
||||||
status
|
|
||||||
statusbar
|
|
||||||
stop
|
|
||||||
sun
|
|
||||||
switch
|
|
||||||
taint
|
|
||||||
this
|
|
||||||
toString
|
|
||||||
toolbar
|
|
||||||
top
|
|
||||||
typeof
|
|
||||||
unescape
|
|
||||||
untaint
|
|
||||||
unwatch
|
|
||||||
valueOf
|
|
||||||
var
|
|
||||||
void
|
|
||||||
watch
|
|
||||||
while
|
|
||||||
window
|
|
||||||
with
|
|
||||||
@@ -1,37 +0,0 @@
|
|||||||
abstract
|
|
||||||
break
|
|
||||||
case
|
|
||||||
catch
|
|
||||||
const
|
|
||||||
continue
|
|
||||||
do
|
|
||||||
else
|
|
||||||
elseif
|
|
||||||
end
|
|
||||||
eval
|
|
||||||
export
|
|
||||||
false
|
|
||||||
finally
|
|
||||||
for
|
|
||||||
function
|
|
||||||
global
|
|
||||||
if
|
|
||||||
ifelse
|
|
||||||
immutable
|
|
||||||
import
|
|
||||||
importall
|
|
||||||
in
|
|
||||||
let
|
|
||||||
macro
|
|
||||||
module
|
|
||||||
otherwise
|
|
||||||
quote
|
|
||||||
return
|
|
||||||
switch
|
|
||||||
throw
|
|
||||||
true
|
|
||||||
try
|
|
||||||
type
|
|
||||||
typealias
|
|
||||||
using
|
|
||||||
while
|
|
||||||
@@ -1,21 +0,0 @@
|
|||||||
and
|
|
||||||
break
|
|
||||||
do
|
|
||||||
else
|
|
||||||
elseif
|
|
||||||
end
|
|
||||||
false
|
|
||||||
for
|
|
||||||
function
|
|
||||||
if
|
|
||||||
in
|
|
||||||
local
|
|
||||||
nil
|
|
||||||
not
|
|
||||||
or
|
|
||||||
repeat
|
|
||||||
return
|
|
||||||
then
|
|
||||||
true
|
|
||||||
until
|
|
||||||
while
|
|
||||||
@@ -1,70 +0,0 @@
|
|||||||
addr
|
|
||||||
and
|
|
||||||
as
|
|
||||||
asm
|
|
||||||
atomic
|
|
||||||
bind
|
|
||||||
block
|
|
||||||
break
|
|
||||||
case
|
|
||||||
cast
|
|
||||||
concept
|
|
||||||
const
|
|
||||||
continue
|
|
||||||
converter
|
|
||||||
defer
|
|
||||||
discard
|
|
||||||
distinct
|
|
||||||
div
|
|
||||||
do
|
|
||||||
elif
|
|
||||||
else
|
|
||||||
end
|
|
||||||
enum
|
|
||||||
except
|
|
||||||
export
|
|
||||||
finally
|
|
||||||
for
|
|
||||||
from
|
|
||||||
func
|
|
||||||
generic
|
|
||||||
if
|
|
||||||
import
|
|
||||||
in
|
|
||||||
include
|
|
||||||
interface
|
|
||||||
is
|
|
||||||
isnot
|
|
||||||
iterator
|
|
||||||
let
|
|
||||||
macro
|
|
||||||
method
|
|
||||||
mixin
|
|
||||||
mod
|
|
||||||
nil
|
|
||||||
not
|
|
||||||
notin
|
|
||||||
object
|
|
||||||
of
|
|
||||||
or
|
|
||||||
out
|
|
||||||
proc
|
|
||||||
ptr
|
|
||||||
raise
|
|
||||||
ref
|
|
||||||
return
|
|
||||||
shl
|
|
||||||
shr
|
|
||||||
static
|
|
||||||
template
|
|
||||||
try
|
|
||||||
tuple
|
|
||||||
type
|
|
||||||
using
|
|
||||||
var
|
|
||||||
when
|
|
||||||
while
|
|
||||||
with
|
|
||||||
without
|
|
||||||
xor
|
|
||||||
yield
|
|
||||||
@@ -1,161 +0,0 @@
|
|||||||
auto
|
|
||||||
break
|
|
||||||
case
|
|
||||||
char
|
|
||||||
const
|
|
||||||
continue
|
|
||||||
default
|
|
||||||
do
|
|
||||||
double
|
|
||||||
else
|
|
||||||
enum
|
|
||||||
extern
|
|
||||||
float
|
|
||||||
for
|
|
||||||
goto
|
|
||||||
if
|
|
||||||
inline
|
|
||||||
int
|
|
||||||
long
|
|
||||||
register
|
|
||||||
restrict
|
|
||||||
return
|
|
||||||
short
|
|
||||||
signed
|
|
||||||
sizeof
|
|
||||||
static
|
|
||||||
struct
|
|
||||||
switch
|
|
||||||
typedef
|
|
||||||
union
|
|
||||||
unsigned
|
|
||||||
void
|
|
||||||
volatile
|
|
||||||
while
|
|
||||||
_Alignas
|
|
||||||
_Alignof
|
|
||||||
_Atomic
|
|
||||||
_Bool
|
|
||||||
_Complex
|
|
||||||
_Generic
|
|
||||||
_Imaginary
|
|
||||||
_Noreturn
|
|
||||||
_Static_assert
|
|
||||||
_Thread_local
|
|
||||||
alignas
|
|
||||||
alignof
|
|
||||||
atomic_
|
|
||||||
bool
|
|
||||||
complex
|
|
||||||
imaginary
|
|
||||||
noreturn
|
|
||||||
static_assert
|
|
||||||
thread_local
|
|
||||||
#if
|
|
||||||
#elif
|
|
||||||
#else
|
|
||||||
#endif
|
|
||||||
defined
|
|
||||||
#ifdef
|
|
||||||
#ifndef
|
|
||||||
#define
|
|
||||||
#undef
|
|
||||||
#include
|
|
||||||
#line
|
|
||||||
#error
|
|
||||||
#pragma
|
|
||||||
_Pragma
|
|
||||||
asm
|
|
||||||
fortran
|
|
||||||
#import
|
|
||||||
self
|
|
||||||
_cmd
|
|
||||||
instancetype
|
|
||||||
__bridge
|
|
||||||
__bridge_transfer
|
|
||||||
__bridge_retained
|
|
||||||
__bridge_retain
|
|
||||||
@not_keyword
|
|
||||||
@class
|
|
||||||
@compatibility_alias
|
|
||||||
@defs
|
|
||||||
@encode
|
|
||||||
@end
|
|
||||||
@implementation
|
|
||||||
@interface
|
|
||||||
@private
|
|
||||||
@protected
|
|
||||||
@protocol
|
|
||||||
@public
|
|
||||||
@selector
|
|
||||||
@throw
|
|
||||||
@try
|
|
||||||
@catch
|
|
||||||
@finally
|
|
||||||
@synchronized
|
|
||||||
@autoreleasepool
|
|
||||||
@property
|
|
||||||
@package
|
|
||||||
@required
|
|
||||||
@optional
|
|
||||||
@synthesize
|
|
||||||
@dynamic
|
|
||||||
@import
|
|
||||||
@available
|
|
||||||
__attribute__((visibility("default")))
|
|
||||||
__attribute__((visibility("hidden")))
|
|
||||||
__attribute__((deprecated))
|
|
||||||
__attribute__((unavailable))
|
|
||||||
__attribute__((objc_exception))
|
|
||||||
__attribute__((objc_root_class))
|
|
||||||
__covariant
|
|
||||||
__contravariant
|
|
||||||
__kindof
|
|
||||||
getter=
|
|
||||||
setter=
|
|
||||||
readonly
|
|
||||||
readwrite
|
|
||||||
assign
|
|
||||||
retain
|
|
||||||
copy
|
|
||||||
nonatomic
|
|
||||||
atomic
|
|
||||||
strong
|
|
||||||
weak
|
|
||||||
unsafe_unretained
|
|
||||||
nonnull
|
|
||||||
nullable
|
|
||||||
null_unspecified
|
|
||||||
null_resettable
|
|
||||||
class
|
|
||||||
__attribute__((deprecated))
|
|
||||||
in
|
|
||||||
out
|
|
||||||
inout
|
|
||||||
oneway
|
|
||||||
bycopy
|
|
||||||
byref
|
|
||||||
nonnull
|
|
||||||
nullable
|
|
||||||
null_unspecified
|
|
||||||
__attribute__((unused))
|
|
||||||
super
|
|
||||||
true
|
|
||||||
false
|
|
||||||
__objc_yes
|
|
||||||
__objc_no
|
|
||||||
Class
|
|
||||||
id
|
|
||||||
SEL
|
|
||||||
IMP
|
|
||||||
BOOL
|
|
||||||
STR
|
|
||||||
NSInteger
|
|
||||||
NSUInteger
|
|
||||||
YES
|
|
||||||
NO
|
|
||||||
Nil
|
|
||||||
nil
|
|
||||||
__strong
|
|
||||||
__unsafe_unretained
|
|
||||||
__autoreleasing
|
|
||||||
@@ -1,46 +0,0 @@
|
|||||||
# GNU Octave, and probably proprietary MATLAB
|
|
||||||
# https://www.gnu.org/software/octave/doc/interpreter/Keywords.html
|
|
||||||
|
|
||||||
__FILE__
|
|
||||||
__LINE__
|
|
||||||
break
|
|
||||||
case
|
|
||||||
catch
|
|
||||||
classdef
|
|
||||||
continue
|
|
||||||
do
|
|
||||||
else
|
|
||||||
elseif
|
|
||||||
end
|
|
||||||
end_try_catch
|
|
||||||
end_unwind_protect
|
|
||||||
endclassdef
|
|
||||||
endenumeration
|
|
||||||
endevents
|
|
||||||
endfor
|
|
||||||
endfunction
|
|
||||||
endif
|
|
||||||
endmethods
|
|
||||||
endparfor
|
|
||||||
endproperties
|
|
||||||
endswitch
|
|
||||||
endwhile
|
|
||||||
enumeration
|
|
||||||
events
|
|
||||||
for
|
|
||||||
function
|
|
||||||
global
|
|
||||||
if
|
|
||||||
methods
|
|
||||||
otherwise
|
|
||||||
parfor
|
|
||||||
persistent
|
|
||||||
properties
|
|
||||||
return
|
|
||||||
static
|
|
||||||
switch
|
|
||||||
try
|
|
||||||
unitl
|
|
||||||
unwind_protect
|
|
||||||
unwind_protect_cleanup
|
|
||||||
while
|
|
||||||
File diff suppressed because it is too large
Load Diff
@@ -1,379 +0,0 @@
|
|||||||
ArithmeticError
|
|
||||||
AssertionError
|
|
||||||
AttributeError
|
|
||||||
BaseException
|
|
||||||
BufferError
|
|
||||||
BytesWarning
|
|
||||||
DeprecationWarning
|
|
||||||
EOFError
|
|
||||||
Ellipsis
|
|
||||||
EnvironmentError
|
|
||||||
Exception
|
|
||||||
False
|
|
||||||
FloatingPointError
|
|
||||||
FutureWarning
|
|
||||||
GeneratorExit
|
|
||||||
IOError
|
|
||||||
ImportError
|
|
||||||
ImportWarning
|
|
||||||
IndentationError
|
|
||||||
IndexError
|
|
||||||
KeyError
|
|
||||||
KeyboardInterrupt
|
|
||||||
LookupError
|
|
||||||
MemoryError
|
|
||||||
NameError
|
|
||||||
None
|
|
||||||
NotImplemented
|
|
||||||
NotImplementedError
|
|
||||||
OSError
|
|
||||||
OverflowError
|
|
||||||
PendingDeprecationWarning
|
|
||||||
ReferenceError
|
|
||||||
RuntimeError
|
|
||||||
RuntimeWarning
|
|
||||||
StandardError
|
|
||||||
StopIteration
|
|
||||||
SyntaxError
|
|
||||||
SyntaxWarning
|
|
||||||
SystemError
|
|
||||||
SystemExit
|
|
||||||
TabError
|
|
||||||
True
|
|
||||||
TypeError
|
|
||||||
UnboundLocalError
|
|
||||||
UnicodeDecodeError
|
|
||||||
UnicodeEncodeError
|
|
||||||
UnicodeError
|
|
||||||
UnicodeTranslateError
|
|
||||||
UnicodeWarning
|
|
||||||
UserWarning
|
|
||||||
ValueError
|
|
||||||
Warning
|
|
||||||
ZeroDivisionError
|
|
||||||
__builtins__
|
|
||||||
__debug__
|
|
||||||
__doc__
|
|
||||||
__file__
|
|
||||||
__future__
|
|
||||||
__import__
|
|
||||||
__init__
|
|
||||||
__main__
|
|
||||||
__name__
|
|
||||||
__package__
|
|
||||||
_dummy_thread
|
|
||||||
_thread
|
|
||||||
abc
|
|
||||||
abs
|
|
||||||
aifc
|
|
||||||
all
|
|
||||||
and
|
|
||||||
any
|
|
||||||
apply
|
|
||||||
argparse
|
|
||||||
array
|
|
||||||
as
|
|
||||||
assert
|
|
||||||
ast
|
|
||||||
asynchat
|
|
||||||
asyncio
|
|
||||||
asyncore
|
|
||||||
atexit
|
|
||||||
audioop
|
|
||||||
base64
|
|
||||||
basestring
|
|
||||||
bdb
|
|
||||||
bin
|
|
||||||
binascii
|
|
||||||
binhex
|
|
||||||
bisect
|
|
||||||
bool
|
|
||||||
break
|
|
||||||
buffer
|
|
||||||
builtins
|
|
||||||
bytearray
|
|
||||||
bytes
|
|
||||||
bz2
|
|
||||||
calendar
|
|
||||||
callable
|
|
||||||
cgi
|
|
||||||
cgitb
|
|
||||||
chr
|
|
||||||
chuck
|
|
||||||
class
|
|
||||||
classmethod
|
|
||||||
cmath
|
|
||||||
cmd
|
|
||||||
cmp
|
|
||||||
code
|
|
||||||
codecs
|
|
||||||
codeop
|
|
||||||
coerce
|
|
||||||
collections
|
|
||||||
colorsys
|
|
||||||
compile
|
|
||||||
compileall
|
|
||||||
complex
|
|
||||||
concurrent
|
|
||||||
configparser
|
|
||||||
contextlib
|
|
||||||
continue
|
|
||||||
copy
|
|
||||||
copyreg
|
|
||||||
copyright
|
|
||||||
credits
|
|
||||||
crypt
|
|
||||||
csv
|
|
||||||
ctypes
|
|
||||||
curses
|
|
||||||
datetime
|
|
||||||
dbm
|
|
||||||
decimal
|
|
||||||
def
|
|
||||||
del
|
|
||||||
delattr
|
|
||||||
dict
|
|
||||||
difflib
|
|
||||||
dir
|
|
||||||
dis
|
|
||||||
distutils
|
|
||||||
divmod
|
|
||||||
doctest
|
|
||||||
dummy_threading
|
|
||||||
elif
|
|
||||||
else
|
|
||||||
email
|
|
||||||
enumerate
|
|
||||||
ensurepip
|
|
||||||
enum
|
|
||||||
errno
|
|
||||||
eval
|
|
||||||
except
|
|
||||||
exec
|
|
||||||
execfile
|
|
||||||
exit
|
|
||||||
faulthandler
|
|
||||||
fcntl
|
|
||||||
file
|
|
||||||
filecmp
|
|
||||||
fileinput
|
|
||||||
filter
|
|
||||||
finally
|
|
||||||
float
|
|
||||||
fnmatch
|
|
||||||
for
|
|
||||||
format
|
|
||||||
formatter
|
|
||||||
fpectl
|
|
||||||
fractions
|
|
||||||
from
|
|
||||||
frozenset
|
|
||||||
ftplib
|
|
||||||
functools
|
|
||||||
gc
|
|
||||||
getattr
|
|
||||||
getopt
|
|
||||||
getpass
|
|
||||||
gettext
|
|
||||||
glob
|
|
||||||
global
|
|
||||||
globals
|
|
||||||
grp
|
|
||||||
gzip
|
|
||||||
hasattr
|
|
||||||
hash
|
|
||||||
hashlib
|
|
||||||
heapq
|
|
||||||
help
|
|
||||||
hex
|
|
||||||
hmac
|
|
||||||
html
|
|
||||||
http
|
|
||||||
id
|
|
||||||
if
|
|
||||||
imghdr
|
|
||||||
imp
|
|
||||||
impalib
|
|
||||||
import
|
|
||||||
importlib
|
|
||||||
in
|
|
||||||
input
|
|
||||||
inspect
|
|
||||||
int
|
|
||||||
intern
|
|
||||||
io
|
|
||||||
ipaddress
|
|
||||||
is
|
|
||||||
isinstance
|
|
||||||
issubclass
|
|
||||||
iter
|
|
||||||
itertools
|
|
||||||
json
|
|
||||||
keyword
|
|
||||||
lambda
|
|
||||||
len
|
|
||||||
license
|
|
||||||
linecache
|
|
||||||
list
|
|
||||||
locale
|
|
||||||
locals
|
|
||||||
logging
|
|
||||||
long
|
|
||||||
lzma
|
|
||||||
macpath
|
|
||||||
mailbox
|
|
||||||
mailcap
|
|
||||||
map
|
|
||||||
marshal
|
|
||||||
math
|
|
||||||
max
|
|
||||||
memoryview
|
|
||||||
mimetypes
|
|
||||||
min
|
|
||||||
mmap
|
|
||||||
modulefinder
|
|
||||||
msilib
|
|
||||||
msvcrt
|
|
||||||
multiprocessing
|
|
||||||
netrc
|
|
||||||
next
|
|
||||||
nis
|
|
||||||
nntplib
|
|
||||||
not
|
|
||||||
numbers
|
|
||||||
object
|
|
||||||
oct
|
|
||||||
open
|
|
||||||
operator
|
|
||||||
optparse
|
|
||||||
or
|
|
||||||
ord
|
|
||||||
os
|
|
||||||
ossaudiodev
|
|
||||||
parser
|
|
||||||
pass
|
|
||||||
pathlib
|
|
||||||
pdb
|
|
||||||
pickle
|
|
||||||
pickletools
|
|
||||||
pipes
|
|
||||||
pkgutil
|
|
||||||
platform
|
|
||||||
plistlib
|
|
||||||
poplib
|
|
||||||
posix
|
|
||||||
pow
|
|
||||||
pprint
|
|
||||||
print
|
|
||||||
profile
|
|
||||||
property
|
|
||||||
pty
|
|
||||||
pwd
|
|
||||||
py_compiler
|
|
||||||
pyclbr
|
|
||||||
pydoc
|
|
||||||
queue
|
|
||||||
quit
|
|
||||||
quopri
|
|
||||||
raise
|
|
||||||
random
|
|
||||||
range
|
|
||||||
raw_input
|
|
||||||
re
|
|
||||||
readline
|
|
||||||
reduce
|
|
||||||
reload
|
|
||||||
repr
|
|
||||||
reprlib
|
|
||||||
resource
|
|
||||||
return
|
|
||||||
reversed
|
|
||||||
rlcompleter
|
|
||||||
round
|
|
||||||
runpy
|
|
||||||
sched
|
|
||||||
select
|
|
||||||
selectors
|
|
||||||
self
|
|
||||||
set
|
|
||||||
setattr
|
|
||||||
shelve
|
|
||||||
shlex
|
|
||||||
shutil
|
|
||||||
signal
|
|
||||||
site
|
|
||||||
slice
|
|
||||||
smtpd
|
|
||||||
smtplib
|
|
||||||
sndhdr
|
|
||||||
socket
|
|
||||||
socketserver
|
|
||||||
sorted
|
|
||||||
spwd
|
|
||||||
sqlite3
|
|
||||||
ssl
|
|
||||||
stat
|
|
||||||
staticmethod
|
|
||||||
statistics
|
|
||||||
str
|
|
||||||
string
|
|
||||||
stringprep
|
|
||||||
struct
|
|
||||||
subprocess
|
|
||||||
sum
|
|
||||||
sunau
|
|
||||||
super
|
|
||||||
symbol
|
|
||||||
symtable
|
|
||||||
sys
|
|
||||||
sysconfig
|
|
||||||
syslog
|
|
||||||
tabnanny
|
|
||||||
tarfile
|
|
||||||
telnetlib
|
|
||||||
tempfile
|
|
||||||
termios
|
|
||||||
test
|
|
||||||
textwrap
|
|
||||||
threading
|
|
||||||
time
|
|
||||||
timeit
|
|
||||||
tkinter
|
|
||||||
token
|
|
||||||
tokenize
|
|
||||||
trace
|
|
||||||
traceback
|
|
||||||
tracemalloc
|
|
||||||
try
|
|
||||||
tty
|
|
||||||
tuple
|
|
||||||
turtle
|
|
||||||
type
|
|
||||||
types
|
|
||||||
unichr
|
|
||||||
unicode
|
|
||||||
unicodedata
|
|
||||||
unittest
|
|
||||||
urllib
|
|
||||||
uu
|
|
||||||
uuid
|
|
||||||
vars
|
|
||||||
venv
|
|
||||||
warnings
|
|
||||||
wave
|
|
||||||
weakref
|
|
||||||
webbrowser
|
|
||||||
while
|
|
||||||
winsound
|
|
||||||
winreg
|
|
||||||
with
|
|
||||||
wsgiref
|
|
||||||
xdrlib
|
|
||||||
xml
|
|
||||||
xmlrpc
|
|
||||||
xrange
|
|
||||||
yield
|
|
||||||
zip
|
|
||||||
zipfile
|
|
||||||
zipimport
|
|
||||||
zlib
|
|
||||||
@@ -1,183 +0,0 @@
|
|||||||
AlignBottom
|
|
||||||
AlignCenter
|
|
||||||
AlignHCenter
|
|
||||||
AlignLeft
|
|
||||||
AlignRight
|
|
||||||
AlignTop
|
|
||||||
AlignVCenter
|
|
||||||
AnchorAnimation
|
|
||||||
AnchorChanges
|
|
||||||
Audio
|
|
||||||
Behavior
|
|
||||||
Binding
|
|
||||||
BorderImage
|
|
||||||
ColorAnimation
|
|
||||||
Column
|
|
||||||
Component
|
|
||||||
Connections
|
|
||||||
Easing
|
|
||||||
Flickable
|
|
||||||
Flipable
|
|
||||||
Flow
|
|
||||||
FocusScope
|
|
||||||
GestureArea
|
|
||||||
Grid
|
|
||||||
GridView
|
|
||||||
Horizontal
|
|
||||||
Image
|
|
||||||
InBack
|
|
||||||
InBounce
|
|
||||||
InCirc
|
|
||||||
InCubic
|
|
||||||
InElastic
|
|
||||||
InExpo
|
|
||||||
InOutBack
|
|
||||||
InOutBounce
|
|
||||||
InOutCirc
|
|
||||||
InOutCubic
|
|
||||||
InOutElastic
|
|
||||||
InOutExpo
|
|
||||||
InOutQuad
|
|
||||||
InOutQuart
|
|
||||||
InOutQuint
|
|
||||||
InQuad
|
|
||||||
InQuart
|
|
||||||
InQuint
|
|
||||||
InQuint
|
|
||||||
InSine
|
|
||||||
Item
|
|
||||||
LayoutItem
|
|
||||||
LeftButton
|
|
||||||
Linear
|
|
||||||
ListElement
|
|
||||||
ListModel
|
|
||||||
ListView
|
|
||||||
Loader
|
|
||||||
MidButton
|
|
||||||
MiddleButton
|
|
||||||
MouseArea
|
|
||||||
NoButton
|
|
||||||
NumberAnimation
|
|
||||||
OutBack
|
|
||||||
OutBounce
|
|
||||||
OutCirc
|
|
||||||
OutCubic
|
|
||||||
OutElastic
|
|
||||||
OutExpo
|
|
||||||
OutInBack
|
|
||||||
OutInBounce
|
|
||||||
OutInCirc
|
|
||||||
OutInCubic
|
|
||||||
OutInElastic
|
|
||||||
OutInExpo
|
|
||||||
OutInQuad
|
|
||||||
OutInQuart
|
|
||||||
OutInQuint
|
|
||||||
OutQuad
|
|
||||||
OutQuart
|
|
||||||
OutQuint
|
|
||||||
OutSine
|
|
||||||
Package
|
|
||||||
ParallelAnimation
|
|
||||||
ParentAnimation
|
|
||||||
ParentChange
|
|
||||||
ParticleMotionGravity
|
|
||||||
ParticleMotionLinear
|
|
||||||
ParticleMotionWander
|
|
||||||
Particles
|
|
||||||
Path
|
|
||||||
PathAttribute
|
|
||||||
PathCubic
|
|
||||||
PathLine
|
|
||||||
PathPercent
|
|
||||||
PathQuad
|
|
||||||
PathView
|
|
||||||
PauseAnimation
|
|
||||||
PropertyAction
|
|
||||||
PropertyAnimation
|
|
||||||
PropertyChanges
|
|
||||||
Qt
|
|
||||||
QtObject
|
|
||||||
Rectangle
|
|
||||||
Repeater
|
|
||||||
RightButton
|
|
||||||
Rotation
|
|
||||||
RotationAnimation
|
|
||||||
Row
|
|
||||||
Scale
|
|
||||||
ScriptAction
|
|
||||||
SequentialAnimation
|
|
||||||
SmoothedAnimation
|
|
||||||
SoundEffect
|
|
||||||
SpringFollow
|
|
||||||
State
|
|
||||||
StateChangeScript
|
|
||||||
StateGroup
|
|
||||||
SystemPalette
|
|
||||||
Text
|
|
||||||
TextEdit
|
|
||||||
TextInput
|
|
||||||
Timer
|
|
||||||
Transition
|
|
||||||
Translate
|
|
||||||
Vertical
|
|
||||||
Video
|
|
||||||
ViewsPositionersMediaEffects
|
|
||||||
VisualDataModel
|
|
||||||
VisualItemModel
|
|
||||||
WebView
|
|
||||||
WorkerScript
|
|
||||||
XmlListModel
|
|
||||||
XmlRole
|
|
||||||
alias
|
|
||||||
as
|
|
||||||
bool
|
|
||||||
break
|
|
||||||
case
|
|
||||||
catch
|
|
||||||
color
|
|
||||||
const
|
|
||||||
continue
|
|
||||||
date
|
|
||||||
debugger
|
|
||||||
default
|
|
||||||
delete
|
|
||||||
do
|
|
||||||
double
|
|
||||||
else
|
|
||||||
enum
|
|
||||||
false
|
|
||||||
false
|
|
||||||
finally
|
|
||||||
for
|
|
||||||
function
|
|
||||||
if
|
|
||||||
import
|
|
||||||
import
|
|
||||||
in
|
|
||||||
instanceof
|
|
||||||
int
|
|
||||||
let
|
|
||||||
new
|
|
||||||
null
|
|
||||||
on
|
|
||||||
parent
|
|
||||||
property
|
|
||||||
real
|
|
||||||
return
|
|
||||||
signal
|
|
||||||
string
|
|
||||||
switch
|
|
||||||
this
|
|
||||||
throw
|
|
||||||
true
|
|
||||||
try
|
|
||||||
typeof
|
|
||||||
undefined
|
|
||||||
url
|
|
||||||
var
|
|
||||||
variant
|
|
||||||
void
|
|
||||||
while
|
|
||||||
with
|
|
||||||
yield
|
|
||||||
@@ -1,181 +0,0 @@
|
|||||||
$!
|
|
||||||
$"
|
|
||||||
$$
|
|
||||||
$&
|
|
||||||
$'
|
|
||||||
$*
|
|
||||||
$+
|
|
||||||
$,
|
|
||||||
$-0
|
|
||||||
$-F
|
|
||||||
$-I
|
|
||||||
$-K
|
|
||||||
$-a
|
|
||||||
$-d
|
|
||||||
$-i
|
|
||||||
$-l
|
|
||||||
$-p
|
|
||||||
$-v
|
|
||||||
$-w
|
|
||||||
$.
|
|
||||||
$/
|
|
||||||
$0
|
|
||||||
$1
|
|
||||||
$10
|
|
||||||
$11
|
|
||||||
$2
|
|
||||||
$3
|
|
||||||
$4
|
|
||||||
$5
|
|
||||||
$6
|
|
||||||
$7
|
|
||||||
$8
|
|
||||||
$9
|
|
||||||
$:
|
|
||||||
$;
|
|
||||||
$<
|
|
||||||
$=
|
|
||||||
$>
|
|
||||||
$?
|
|
||||||
$@
|
|
||||||
$DEBUG
|
|
||||||
$FILENAME
|
|
||||||
$KCODE
|
|
||||||
$LOADED_FEATURES
|
|
||||||
$LOAD_PATH
|
|
||||||
$PROGRAM_NAME
|
|
||||||
$SAFE
|
|
||||||
$VERBOSE
|
|
||||||
$\
|
|
||||||
$_
|
|
||||||
$`
|
|
||||||
$deferr
|
|
||||||
$defout
|
|
||||||
$stderr
|
|
||||||
$stdin
|
|
||||||
$stdout
|
|
||||||
$~
|
|
||||||
ARGF
|
|
||||||
ARGV
|
|
||||||
Array
|
|
||||||
BEGIN
|
|
||||||
DATA
|
|
||||||
END
|
|
||||||
ENV
|
|
||||||
FALSE
|
|
||||||
Float
|
|
||||||
Integer
|
|
||||||
NIL
|
|
||||||
PLATFORM
|
|
||||||
RELEASE_DATE
|
|
||||||
RUBY_COPYRIGHT
|
|
||||||
RUBY_DESCRIPTION
|
|
||||||
RUBY_PATCHLEVEL
|
|
||||||
RUBY_PLATFORM
|
|
||||||
RUBY_RELEASE_DATE
|
|
||||||
RUBY_VERSION
|
|
||||||
SCRIPT_LINES__
|
|
||||||
STDERR
|
|
||||||
STDIN
|
|
||||||
STDOUT
|
|
||||||
String
|
|
||||||
TOPLEVEL_BINDING
|
|
||||||
TRUE
|
|
||||||
VERSION
|
|
||||||
__method__
|
|
||||||
`
|
|
||||||
abort
|
|
||||||
alias
|
|
||||||
and
|
|
||||||
at_exit
|
|
||||||
autoload
|
|
||||||
autoload?
|
|
||||||
begin
|
|
||||||
binding
|
|
||||||
block_given
|
|
||||||
break
|
|
||||||
callcc
|
|
||||||
caller
|
|
||||||
case
|
|
||||||
catch
|
|
||||||
chomp
|
|
||||||
chomp!
|
|
||||||
chop
|
|
||||||
chop
|
|
||||||
class
|
|
||||||
def
|
|
||||||
defined?
|
|
||||||
do
|
|
||||||
else
|
|
||||||
elsif
|
|
||||||
end
|
|
||||||
ensure
|
|
||||||
eval
|
|
||||||
exec
|
|
||||||
exit
|
|
||||||
exit!
|
|
||||||
fail
|
|
||||||
false
|
|
||||||
for
|
|
||||||
fork
|
|
||||||
format
|
|
||||||
getc
|
|
||||||
gets
|
|
||||||
global_variables
|
|
||||||
gsub
|
|
||||||
gsub!
|
|
||||||
if
|
|
||||||
in
|
|
||||||
iterator?
|
|
||||||
lambda
|
|
||||||
load
|
|
||||||
local_variables
|
|
||||||
loop
|
|
||||||
module
|
|
||||||
next
|
|
||||||
nil
|
|
||||||
not
|
|
||||||
open
|
|
||||||
or
|
|
||||||
p
|
|
||||||
printf
|
|
||||||
proc
|
|
||||||
putc
|
|
||||||
puts
|
|
||||||
raise
|
|
||||||
rand
|
|
||||||
readline
|
|
||||||
readlines
|
|
||||||
redo
|
|
||||||
require
|
|
||||||
require_relative
|
|
||||||
rescue
|
|
||||||
retry
|
|
||||||
return
|
|
||||||
scan
|
|
||||||
select
|
|
||||||
self
|
|
||||||
set_trace_func
|
|
||||||
sleep
|
|
||||||
split
|
|
||||||
sprintf
|
|
||||||
srand
|
|
||||||
sub
|
|
||||||
sub!
|
|
||||||
super
|
|
||||||
syscall
|
|
||||||
system
|
|
||||||
test
|
|
||||||
then
|
|
||||||
throw
|
|
||||||
trace_var
|
|
||||||
trap
|
|
||||||
true
|
|
||||||
undef
|
|
||||||
unless
|
|
||||||
until
|
|
||||||
untrace_var
|
|
||||||
warn
|
|
||||||
when
|
|
||||||
while
|
|
||||||
yield
|
|
||||||
File diff suppressed because it is too large
Load Diff
@@ -1,216 +0,0 @@
|
|||||||
case-lambda
|
|
||||||
call/cc
|
|
||||||
class
|
|
||||||
define-class
|
|
||||||
exit-handler
|
|
||||||
field
|
|
||||||
import
|
|
||||||
inherit
|
|
||||||
init-field
|
|
||||||
interface
|
|
||||||
let*-values
|
|
||||||
let-values
|
|
||||||
let/ec
|
|
||||||
mixin
|
|
||||||
opt-lambda
|
|
||||||
override
|
|
||||||
protect
|
|
||||||
provide
|
|
||||||
public
|
|
||||||
rename
|
|
||||||
require
|
|
||||||
require-for-syntax
|
|
||||||
syntax
|
|
||||||
syntax-case
|
|
||||||
syntax-error
|
|
||||||
unit/sig
|
|
||||||
unless
|
|
||||||
when
|
|
||||||
with-syntax
|
|
||||||
and
|
|
||||||
begin
|
|
||||||
call-with-current-continuation
|
|
||||||
call-with-input-file
|
|
||||||
call-with-output-file
|
|
||||||
case
|
|
||||||
cond
|
|
||||||
define
|
|
||||||
define-syntax
|
|
||||||
delay
|
|
||||||
do
|
|
||||||
dynamic-wind
|
|
||||||
else
|
|
||||||
for-each
|
|
||||||
if
|
|
||||||
lambda
|
|
||||||
let
|
|
||||||
let*
|
|
||||||
let-syntax
|
|
||||||
letrec
|
|
||||||
letrec-syntax
|
|
||||||
map
|
|
||||||
or
|
|
||||||
syntax-rules
|
|
||||||
abs
|
|
||||||
acos
|
|
||||||
angle
|
|
||||||
append
|
|
||||||
apply
|
|
||||||
asin
|
|
||||||
assoc
|
|
||||||
assq
|
|
||||||
assv
|
|
||||||
atan
|
|
||||||
boolean?
|
|
||||||
caar
|
|
||||||
cadr
|
|
||||||
call-with-input-file
|
|
||||||
call-with-output-file
|
|
||||||
call-with-values
|
|
||||||
car
|
|
||||||
cdddar
|
|
||||||
cddddr
|
|
||||||
cdr
|
|
||||||
ceiling
|
|
||||||
char->integer
|
|
||||||
char-alphabetic?
|
|
||||||
char-ci<=?
|
|
||||||
char-ci<?
|
|
||||||
char-ci=?
|
|
||||||
char-ci>=?
|
|
||||||
char-ci>?
|
|
||||||
char-downcase
|
|
||||||
char-lower-case?
|
|
||||||
char-numeric?
|
|
||||||
char-ready?
|
|
||||||
char-upcase
|
|
||||||
char-upper-case?
|
|
||||||
char-whitespace?
|
|
||||||
char<=?
|
|
||||||
char<?
|
|
||||||
char=?
|
|
||||||
char>=?
|
|
||||||
char>?
|
|
||||||
char?
|
|
||||||
close-input-port
|
|
||||||
close-output-port
|
|
||||||
complex?
|
|
||||||
cons
|
|
||||||
cos
|
|
||||||
current-input-port
|
|
||||||
current-output-port
|
|
||||||
denominator
|
|
||||||
display
|
|
||||||
eof-object?
|
|
||||||
eq?
|
|
||||||
equal?
|
|
||||||
eqv?
|
|
||||||
eval
|
|
||||||
even?
|
|
||||||
exact->inexact
|
|
||||||
exact?
|
|
||||||
exp
|
|
||||||
expt
|
|
||||||
#f
|
|
||||||
floor
|
|
||||||
force
|
|
||||||
gcd
|
|
||||||
imag-part
|
|
||||||
inexact->exact
|
|
||||||
inexact?
|
|
||||||
input-port?
|
|
||||||
integer->char
|
|
||||||
integer?
|
|
||||||
interaction-environment
|
|
||||||
lcm
|
|
||||||
length
|
|
||||||
list
|
|
||||||
list->string
|
|
||||||
list->vector
|
|
||||||
list-ref
|
|
||||||
list-tail
|
|
||||||
list?
|
|
||||||
load
|
|
||||||
log
|
|
||||||
magnitude
|
|
||||||
make-polar
|
|
||||||
make-rectangular
|
|
||||||
make-string
|
|
||||||
make-vector
|
|
||||||
max
|
|
||||||
member
|
|
||||||
memq
|
|
||||||
memv
|
|
||||||
min
|
|
||||||
modulo
|
|
||||||
negative?
|
|
||||||
newline
|
|
||||||
not
|
|
||||||
null-environment
|
|
||||||
null?
|
|
||||||
number->string
|
|
||||||
number?
|
|
||||||
numerator
|
|
||||||
odd?
|
|
||||||
open-input-file
|
|
||||||
open-output-file
|
|
||||||
output-port?
|
|
||||||
pair?
|
|
||||||
peek-char
|
|
||||||
port?
|
|
||||||
positive?
|
|
||||||
procedure?
|
|
||||||
quasiquote
|
|
||||||
quote
|
|
||||||
quotient
|
|
||||||
rational?
|
|
||||||
rationalize
|
|
||||||
read
|
|
||||||
read-char
|
|
||||||
real-part
|
|
||||||
real?
|
|
||||||
remainder
|
|
||||||
reverse
|
|
||||||
round
|
|
||||||
scheme-report-environment
|
|
||||||
set!
|
|
||||||
set-car!
|
|
||||||
set-cdr!
|
|
||||||
sin
|
|
||||||
sqrt
|
|
||||||
string
|
|
||||||
string->list
|
|
||||||
string->number
|
|
||||||
string->symbol
|
|
||||||
string-append
|
|
||||||
string-ci<=?
|
|
||||||
string-ci<?
|
|
||||||
string-ci=?
|
|
||||||
string-ci>=?
|
|
||||||
string-ci>?
|
|
||||||
string-copy
|
|
||||||
string-fill!
|
|
||||||
string-length
|
|
||||||
string-ref
|
|
||||||
string-set!
|
|
||||||
string<=?
|
|
||||||
string<?
|
|
||||||
string=?
|
|
||||||
string>=?
|
|
||||||
string>?
|
|
||||||
string?
|
|
||||||
substring
|
|
||||||
symbol->string
|
|
||||||
symbol?
|
|
||||||
#t
|
|
||||||
tan
|
|
||||||
transcript-off
|
|
||||||
transcript-on
|
|
||||||
truncate
|
|
||||||
values
|
|
||||||
vector
|
|
||||||
vector->list
|
|
||||||
vector-fill!
|
|
||||||
vector-length
|
|
||||||
vector-ref
|
|
||||||
vector-set!
|
|
||||||
File diff suppressed because it is too large
Load Diff
@@ -1,182 +0,0 @@
|
|||||||
# Bash Family Shell Dictionary
|
|
||||||
# http://www.gnu.org/software/bash/manual/bash.html
|
|
||||||
|
|
||||||
.
|
|
||||||
:
|
|
||||||
[
|
|
||||||
alias
|
|
||||||
bg
|
|
||||||
bind
|
|
||||||
break
|
|
||||||
builtin
|
|
||||||
caller
|
|
||||||
cd
|
|
||||||
command
|
|
||||||
compgen
|
|
||||||
complete
|
|
||||||
compopt
|
|
||||||
continue
|
|
||||||
declare
|
|
||||||
dirs
|
|
||||||
disown
|
|
||||||
echo
|
|
||||||
enable
|
|
||||||
eval
|
|
||||||
exec
|
|
||||||
exit
|
|
||||||
export
|
|
||||||
fc
|
|
||||||
fg
|
|
||||||
getopts
|
|
||||||
hash
|
|
||||||
help
|
|
||||||
history
|
|
||||||
jobs
|
|
||||||
kill
|
|
||||||
let
|
|
||||||
local
|
|
||||||
logout
|
|
||||||
mapfile
|
|
||||||
popd
|
|
||||||
printf
|
|
||||||
pushd
|
|
||||||
pwd
|
|
||||||
read
|
|
||||||
readarray
|
|
||||||
readonly
|
|
||||||
return
|
|
||||||
set
|
|
||||||
shift
|
|
||||||
shopt
|
|
||||||
source
|
|
||||||
suspend
|
|
||||||
test
|
|
||||||
times
|
|
||||||
trap
|
|
||||||
type
|
|
||||||
typeset
|
|
||||||
ulimit
|
|
||||||
umask
|
|
||||||
unalias
|
|
||||||
unset
|
|
||||||
wait
|
|
||||||
!
|
|
||||||
[[
|
|
||||||
]]
|
|
||||||
case
|
|
||||||
do
|
|
||||||
done
|
|
||||||
elif
|
|
||||||
else
|
|
||||||
esac
|
|
||||||
fi
|
|
||||||
for
|
|
||||||
function
|
|
||||||
if
|
|
||||||
in
|
|
||||||
select
|
|
||||||
then
|
|
||||||
time
|
|
||||||
until
|
|
||||||
while
|
|
||||||
{
|
|
||||||
}
|
|
||||||
!
|
|
||||||
#
|
|
||||||
$
|
|
||||||
*
|
|
||||||
-
|
|
||||||
0
|
|
||||||
?
|
|
||||||
@
|
|
||||||
_
|
|
||||||
BASH
|
|
||||||
BASH_ALIASES
|
|
||||||
BASH_ARGC
|
|
||||||
BASH_ARGV
|
|
||||||
BASH_CMDS
|
|
||||||
BASH_COMMAND
|
|
||||||
BASH_ENV
|
|
||||||
BASH_EXECUTION_STRING
|
|
||||||
BASH_LINENO
|
|
||||||
BASH_REMATCH
|
|
||||||
BASH_SOURCE
|
|
||||||
BASH_SUBSHELL
|
|
||||||
BASH_VERSINFO
|
|
||||||
BASH_VERSION
|
|
||||||
BASH_XTRACEFD
|
|
||||||
BASHOPTS
|
|
||||||
BASHPID
|
|
||||||
CDPATH
|
|
||||||
COLUMNS
|
|
||||||
COMP_CWORD
|
|
||||||
COMP_KEY
|
|
||||||
COMP_LINE
|
|
||||||
COMP_POINT
|
|
||||||
COMP_TYPE
|
|
||||||
COMP_WORDBREAKS
|
|
||||||
COMP_WORDS
|
|
||||||
COMPREPLY
|
|
||||||
DIRSTACK
|
|
||||||
EMACS
|
|
||||||
EUID
|
|
||||||
FCEDIT
|
|
||||||
FIGNORE
|
|
||||||
FUNCNAME
|
|
||||||
GLOBIGNORE
|
|
||||||
GROUPS
|
|
||||||
HISTCMD
|
|
||||||
HISTCONTROL
|
|
||||||
HISTFILE
|
|
||||||
HISTFILESIZE
|
|
||||||
HISTIGNORE
|
|
||||||
HISTSIZE
|
|
||||||
HISTTIMEFORMAT
|
|
||||||
HOME
|
|
||||||
HOSTFILE
|
|
||||||
HOSTNAME
|
|
||||||
HOSTTYPE
|
|
||||||
IFS
|
|
||||||
IGNOREEOF
|
|
||||||
INPUTRC
|
|
||||||
LANG
|
|
||||||
LC_ALL
|
|
||||||
LC_COLLATE
|
|
||||||
LC_CTYPE
|
|
||||||
LC_MESSAGES
|
|
||||||
LC_MESSAGES
|
|
||||||
LC_NUMERIC
|
|
||||||
LINENO
|
|
||||||
LINES
|
|
||||||
MACHTYPE
|
|
||||||
MAIL
|
|
||||||
MAILCHECK
|
|
||||||
MAILPATH
|
|
||||||
OLDPWD
|
|
||||||
OPTARG
|
|
||||||
OPTERR
|
|
||||||
OPTIND
|
|
||||||
OSTYPE
|
|
||||||
PATH
|
|
||||||
PIPESTATUS
|
|
||||||
POSIXLY_CORRECT
|
|
||||||
PPID
|
|
||||||
PROMPT_COMMAND
|
|
||||||
PROMPT_DIRTRIM
|
|
||||||
PS1
|
|
||||||
PS2
|
|
||||||
PS3
|
|
||||||
PS4
|
|
||||||
PWD
|
|
||||||
RANDOM
|
|
||||||
REPLY
|
|
||||||
SECONDS
|
|
||||||
SHELL
|
|
||||||
SHELLOPTS
|
|
||||||
SHLVL
|
|
||||||
TEXTDOMAIN
|
|
||||||
TEXTDOMAINDIR
|
|
||||||
TIMEFORMAT
|
|
||||||
TMOUT
|
|
||||||
TMPDIR
|
|
||||||
UID
|
|
||||||
@@ -1,87 +0,0 @@
|
|||||||
associatedtype
|
|
||||||
class
|
|
||||||
deinit
|
|
||||||
enum
|
|
||||||
extension
|
|
||||||
func
|
|
||||||
import
|
|
||||||
init
|
|
||||||
inout
|
|
||||||
let
|
|
||||||
operator
|
|
||||||
precedencegroup
|
|
||||||
protocol
|
|
||||||
struct
|
|
||||||
subscript
|
|
||||||
typealias
|
|
||||||
var
|
|
||||||
fileprivate
|
|
||||||
internal
|
|
||||||
private
|
|
||||||
public
|
|
||||||
static
|
|
||||||
undef
|
|
||||||
sil
|
|
||||||
sil_stage
|
|
||||||
sil_vtable
|
|
||||||
sil_global
|
|
||||||
sil_witness_table
|
|
||||||
sil_default_witness_table
|
|
||||||
sil_coverage_map
|
|
||||||
sil_scope
|
|
||||||
defer
|
|
||||||
if
|
|
||||||
guard
|
|
||||||
do
|
|
||||||
repeat
|
|
||||||
else
|
|
||||||
for
|
|
||||||
in
|
|
||||||
while
|
|
||||||
return
|
|
||||||
break
|
|
||||||
continue
|
|
||||||
fallthrough
|
|
||||||
switch
|
|
||||||
case
|
|
||||||
default
|
|
||||||
where
|
|
||||||
catch
|
|
||||||
as
|
|
||||||
Any
|
|
||||||
false
|
|
||||||
is
|
|
||||||
nil
|
|
||||||
rethrows
|
|
||||||
super
|
|
||||||
self
|
|
||||||
Self
|
|
||||||
throw
|
|
||||||
true
|
|
||||||
try
|
|
||||||
throws
|
|
||||||
__FILE__
|
|
||||||
__LINE__
|
|
||||||
__COLUMN__
|
|
||||||
__FUNCTION__
|
|
||||||
__DSO_HANDLE__
|
|
||||||
_
|
|
||||||
#if
|
|
||||||
#else
|
|
||||||
#elseif
|
|
||||||
#endif
|
|
||||||
#keyPath
|
|
||||||
#line
|
|
||||||
#sourceLocation
|
|
||||||
#selector
|
|
||||||
#available
|
|
||||||
#fileLiteral
|
|
||||||
#imageLiteral
|
|
||||||
#colorLiteral
|
|
||||||
#FileReference
|
|
||||||
#Image
|
|
||||||
#Color
|
|
||||||
#file
|
|
||||||
#column
|
|
||||||
#function
|
|
||||||
#dsohandle
|
|
||||||
@@ -1,172 +0,0 @@
|
|||||||
after
|
|
||||||
append
|
|
||||||
apply
|
|
||||||
array
|
|
||||||
auto_execok
|
|
||||||
auto_import
|
|
||||||
auto_load
|
|
||||||
auto_load_index
|
|
||||||
auto_mkindex
|
|
||||||
auto_mkindex_old
|
|
||||||
auto_qualify
|
|
||||||
auto_reset
|
|
||||||
bell
|
|
||||||
binary
|
|
||||||
bind
|
|
||||||
bindtags
|
|
||||||
break
|
|
||||||
button
|
|
||||||
canvas
|
|
||||||
case
|
|
||||||
catch
|
|
||||||
cd
|
|
||||||
chan
|
|
||||||
checkbutton
|
|
||||||
clipboard
|
|
||||||
clock
|
|
||||||
close
|
|
||||||
concat
|
|
||||||
continue
|
|
||||||
destroy
|
|
||||||
dict
|
|
||||||
encoding
|
|
||||||
entry
|
|
||||||
eof
|
|
||||||
error
|
|
||||||
eval
|
|
||||||
event
|
|
||||||
exec
|
|
||||||
exit
|
|
||||||
expr
|
|
||||||
fblocked
|
|
||||||
fconfigure
|
|
||||||
fcopy
|
|
||||||
file
|
|
||||||
fileevent
|
|
||||||
flush
|
|
||||||
focus
|
|
||||||
font
|
|
||||||
for
|
|
||||||
foreach
|
|
||||||
format
|
|
||||||
frame
|
|
||||||
gets
|
|
||||||
glob
|
|
||||||
global
|
|
||||||
grab
|
|
||||||
grid
|
|
||||||
if
|
|
||||||
image
|
|
||||||
incr
|
|
||||||
info
|
|
||||||
interp
|
|
||||||
join
|
|
||||||
label
|
|
||||||
labelframe
|
|
||||||
lappend
|
|
||||||
lassign
|
|
||||||
lindex
|
|
||||||
linsert
|
|
||||||
list
|
|
||||||
listbox
|
|
||||||
llength
|
|
||||||
load
|
|
||||||
lower
|
|
||||||
lrange
|
|
||||||
lrepeat
|
|
||||||
lreplace
|
|
||||||
lreverse
|
|
||||||
lsearch
|
|
||||||
lset
|
|
||||||
lsort
|
|
||||||
menu
|
|
||||||
menubutton
|
|
||||||
message
|
|
||||||
namespace
|
|
||||||
open
|
|
||||||
option
|
|
||||||
pack
|
|
||||||
package
|
|
||||||
panedwindow
|
|
||||||
pid
|
|
||||||
pkg_mkIndex
|
|
||||||
place
|
|
||||||
proc
|
|
||||||
puts
|
|
||||||
pwd
|
|
||||||
radiobutton
|
|
||||||
raise
|
|
||||||
read
|
|
||||||
regexp
|
|
||||||
registry
|
|
||||||
regsub
|
|
||||||
rename
|
|
||||||
return
|
|
||||||
scale
|
|
||||||
scan
|
|
||||||
scrollbar
|
|
||||||
seek
|
|
||||||
selection
|
|
||||||
set
|
|
||||||
socket
|
|
||||||
source
|
|
||||||
spinbox
|
|
||||||
split
|
|
||||||
string
|
|
||||||
subst
|
|
||||||
switch
|
|
||||||
tclLog
|
|
||||||
tclPkgSetup
|
|
||||||
tclPkgUnknown
|
|
||||||
tcl_findLibrary
|
|
||||||
tell
|
|
||||||
text
|
|
||||||
time
|
|
||||||
tk
|
|
||||||
tk_chooseColor
|
|
||||||
tk_chooseDirectory
|
|
||||||
tk_getOpenFile
|
|
||||||
tk_getSaveFile
|
|
||||||
tk_menuSetFocus
|
|
||||||
tk_messageBox
|
|
||||||
tk_popup
|
|
||||||
tk_textCopy
|
|
||||||
tk_textCut
|
|
||||||
tk_textPaste
|
|
||||||
tkwait
|
|
||||||
toplevel
|
|
||||||
ttk::button
|
|
||||||
ttk::checkbutton
|
|
||||||
ttk::combobox
|
|
||||||
ttk::entry
|
|
||||||
ttk::focusFirst
|
|
||||||
ttk::frame
|
|
||||||
ttk::label
|
|
||||||
ttk::labelframe
|
|
||||||
ttk::menubutton
|
|
||||||
ttk::notebook
|
|
||||||
ttk::paned
|
|
||||||
ttk::panedwindow
|
|
||||||
ttk::progressbar
|
|
||||||
ttk::radiobutton
|
|
||||||
ttk::scale
|
|
||||||
ttk::scrollbar
|
|
||||||
ttk::separator
|
|
||||||
ttk::setTheme
|
|
||||||
ttk::sizegrip
|
|
||||||
ttk::style
|
|
||||||
ttk::takefocus
|
|
||||||
ttk::themes
|
|
||||||
ttk::treeview
|
|
||||||
trace
|
|
||||||
unknown
|
|
||||||
unload
|
|
||||||
unset
|
|
||||||
update
|
|
||||||
uplevel
|
|
||||||
upvar
|
|
||||||
variable
|
|
||||||
vwait
|
|
||||||
while
|
|
||||||
winfo
|
|
||||||
wm
|
|
||||||
@@ -1,797 +0,0 @@
|
|||||||
absRefPrefix
|
|
||||||
accessibility
|
|
||||||
accessibilityWrap
|
|
||||||
accessKey
|
|
||||||
ACT
|
|
||||||
ACTIFSUB
|
|
||||||
ACTIVSUBRO
|
|
||||||
ACTRO
|
|
||||||
addAttributes
|
|
||||||
addExtUrlsAndShortCuts
|
|
||||||
additionalHeaders
|
|
||||||
additionalParams
|
|
||||||
addParams
|
|
||||||
addQueryString
|
|
||||||
addQueryString
|
|
||||||
adjustItemsH
|
|
||||||
adjustSubItemsH
|
|
||||||
adminPanelStyles
|
|
||||||
after
|
|
||||||
age
|
|
||||||
align
|
|
||||||
align.field
|
|
||||||
all
|
|
||||||
allowedAttribs
|
|
||||||
allowedGroups
|
|
||||||
allowEdit
|
|
||||||
allowNew
|
|
||||||
allowTags
|
|
||||||
allStdWrap
|
|
||||||
allWrap
|
|
||||||
alternativeSortingField
|
|
||||||
alternativeTempPath
|
|
||||||
altImgResource
|
|
||||||
altTarget
|
|
||||||
altText
|
|
||||||
alwaysActivePIDlist
|
|
||||||
alwaysLink
|
|
||||||
andWhere
|
|
||||||
angle
|
|
||||||
antiAlias
|
|
||||||
append
|
|
||||||
applyTotalH
|
|
||||||
applyTotalW
|
|
||||||
arrayReturnMode
|
|
||||||
arrowACT
|
|
||||||
arrowImgParams
|
|
||||||
arrowNO
|
|
||||||
ATagBeforeWrap
|
|
||||||
ATagParams
|
|
||||||
ATagTitle
|
|
||||||
atLeast
|
|
||||||
atMost
|
|
||||||
authcodeFields
|
|
||||||
autoInsertPID
|
|
||||||
autostart
|
|
||||||
backColor
|
|
||||||
badMess
|
|
||||||
base64
|
|
||||||
baseURL
|
|
||||||
beforeImg
|
|
||||||
beforeImgLink
|
|
||||||
beforeImgTagParams
|
|
||||||
beforeROImg
|
|
||||||
beforeWrap
|
|
||||||
begin
|
|
||||||
begin
|
|
||||||
beginAtLevel
|
|
||||||
beLoginLinkIPList
|
|
||||||
beLoginLinkIPList_login
|
|
||||||
beLoginLinkIPList_logout
|
|
||||||
beUserLogin
|
|
||||||
bgImg
|
|
||||||
blankStrEqFalse
|
|
||||||
blur
|
|
||||||
bm
|
|
||||||
bodyTag
|
|
||||||
bodyTag
|
|
||||||
bodyTagAdd
|
|
||||||
bodyTagCObject
|
|
||||||
bodyTagMargins
|
|
||||||
border
|
|
||||||
border
|
|
||||||
borderCol
|
|
||||||
bordersWithin
|
|
||||||
borderThick
|
|
||||||
bottomContent
|
|
||||||
bottomHeight
|
|
||||||
br
|
|
||||||
breakSpace
|
|
||||||
breakWidth
|
|
||||||
brTag
|
|
||||||
bytes
|
|
||||||
c
|
|
||||||
cache_clearAtMidnight
|
|
||||||
cached
|
|
||||||
cache_period
|
|
||||||
caption
|
|
||||||
captionAlign
|
|
||||||
captionSplit
|
|
||||||
case
|
|
||||||
case
|
|
||||||
CASE
|
|
||||||
casesensitiveComp
|
|
||||||
cellpadding
|
|
||||||
cellspacing
|
|
||||||
char
|
|
||||||
charcoal
|
|
||||||
clearCacheOfPages
|
|
||||||
cMargins
|
|
||||||
COA
|
|
||||||
COA_INT
|
|
||||||
cObject
|
|
||||||
cObjNum
|
|
||||||
code
|
|
||||||
collapse
|
|
||||||
color
|
|
||||||
color1
|
|
||||||
color2
|
|
||||||
color3
|
|
||||||
color.default
|
|
||||||
color.field
|
|
||||||
colRelations
|
|
||||||
cols
|
|
||||||
cols
|
|
||||||
colSpace
|
|
||||||
COLUMNS
|
|
||||||
COMMENT
|
|
||||||
commentWrap
|
|
||||||
compensateFieldWidth
|
|
||||||
compX
|
|
||||||
compY
|
|
||||||
concatenateJsAndCss
|
|
||||||
conf
|
|
||||||
config
|
|
||||||
config
|
|
||||||
CONFIG
|
|
||||||
constants
|
|
||||||
CONTENT
|
|
||||||
content_fallback
|
|
||||||
content_from_pid_allowOutsideDomain
|
|
||||||
controllerActionName
|
|
||||||
controllerExtensionName
|
|
||||||
controllerName
|
|
||||||
crop
|
|
||||||
cropHTML
|
|
||||||
csConv
|
|
||||||
cssInline
|
|
||||||
CSS_inlineStyle
|
|
||||||
CTABLE
|
|
||||||
CUR
|
|
||||||
CURIFSUB
|
|
||||||
CURIFSUBRO
|
|
||||||
current
|
|
||||||
CURRO
|
|
||||||
cWidth
|
|
||||||
data
|
|
||||||
dataArray
|
|
||||||
dataWrap
|
|
||||||
date
|
|
||||||
debug
|
|
||||||
debugData
|
|
||||||
debugFunc
|
|
||||||
debugItemConf
|
|
||||||
debugRenumberedObject
|
|
||||||
decimals
|
|
||||||
dec_point
|
|
||||||
default
|
|
||||||
defaultAlign
|
|
||||||
defaultCmd
|
|
||||||
defaultCode
|
|
||||||
defaultGetVars
|
|
||||||
delete
|
|
||||||
denyTags
|
|
||||||
depth
|
|
||||||
dimensions
|
|
||||||
directImageLink
|
|
||||||
directionLeft
|
|
||||||
directionUp
|
|
||||||
directReturn
|
|
||||||
disableAllHeaderCode
|
|
||||||
disableAltText
|
|
||||||
disableCharsetHeader
|
|
||||||
disableImgBorderAttr
|
|
||||||
disablePageExternalUrl
|
|
||||||
disablePrefixComment
|
|
||||||
disablePreviewNotification
|
|
||||||
displayActiveOnLoad
|
|
||||||
displayActiveOnLoad
|
|
||||||
displayrecord
|
|
||||||
distributeX
|
|
||||||
distributeY
|
|
||||||
doctype
|
|
||||||
doctypeSwitch
|
|
||||||
doNotLinkIt
|
|
||||||
doNotShowLink
|
|
||||||
doNotStripHTML
|
|
||||||
dontCheckPid
|
|
||||||
dontFollowMouse
|
|
||||||
dontHideOnMouseUp
|
|
||||||
dontLinkIfSubmenu
|
|
||||||
dontMd5FieldNames
|
|
||||||
dontWrapInTable
|
|
||||||
doubleBrTag
|
|
||||||
doublePostCheck
|
|
||||||
dWorkArea
|
|
||||||
edge
|
|
||||||
edit
|
|
||||||
editIcons
|
|
||||||
editIcons
|
|
||||||
editPanel
|
|
||||||
EDITPANEL
|
|
||||||
EDITPANEL
|
|
||||||
effects
|
|
||||||
email
|
|
||||||
emailMess
|
|
||||||
emboss
|
|
||||||
emptyTitleHandling
|
|
||||||
emptyTitleHandling
|
|
||||||
emptyTitleHandling
|
|
||||||
enable
|
|
||||||
enableContentLengthHeader
|
|
||||||
encapsLines
|
|
||||||
encapsLinesStdWrap
|
|
||||||
encapsTagList
|
|
||||||
entryLevel
|
|
||||||
equalH
|
|
||||||
equals
|
|
||||||
evalErrors
|
|
||||||
evalFunc
|
|
||||||
excludeDoktypes
|
|
||||||
excludeNoSearchPages
|
|
||||||
excludeUidList
|
|
||||||
expAll
|
|
||||||
explode
|
|
||||||
ext
|
|
||||||
extbase
|
|
||||||
externalBlocks
|
|
||||||
extOnReady
|
|
||||||
extTarget
|
|
||||||
face.default
|
|
||||||
face.field
|
|
||||||
FEData
|
|
||||||
fe_userEditSelf
|
|
||||||
fe_userOwnSelf
|
|
||||||
field
|
|
||||||
fieldPrefix
|
|
||||||
fieldRequired
|
|
||||||
fieldWrap
|
|
||||||
file
|
|
||||||
FILE
|
|
||||||
filelink
|
|
||||||
fileList
|
|
||||||
fileTarget
|
|
||||||
firstLabel
|
|
||||||
firstLabelGeneral
|
|
||||||
flip
|
|
||||||
flop
|
|
||||||
foldSpeed
|
|
||||||
foldTimer
|
|
||||||
fontFile
|
|
||||||
fontSize
|
|
||||||
fontSizeMultiplicator
|
|
||||||
fontTag
|
|
||||||
footerData
|
|
||||||
forceAbsoluteUrl
|
|
||||||
forceTypeValue
|
|
||||||
FORM
|
|
||||||
format
|
|
||||||
formName
|
|
||||||
formurl
|
|
||||||
frame
|
|
||||||
frameReloadIfNotInFrameset
|
|
||||||
frameSet
|
|
||||||
freezeMouseover
|
|
||||||
ftu
|
|
||||||
gamma
|
|
||||||
gapBgCol
|
|
||||||
gapLineCol
|
|
||||||
gapLineThickness
|
|
||||||
gapWidth
|
|
||||||
gif
|
|
||||||
GIFBUILDER
|
|
||||||
globalNesting
|
|
||||||
GMENU
|
|
||||||
goodMess
|
|
||||||
gray
|
|
||||||
gr_list
|
|
||||||
groupBy
|
|
||||||
headerComment
|
|
||||||
headerData
|
|
||||||
headTag
|
|
||||||
height
|
|
||||||
hiddenFields
|
|
||||||
hide
|
|
||||||
hideButCreateMap
|
|
||||||
hideMenuTimer
|
|
||||||
hideMenuWhenNotOver
|
|
||||||
hideNonTranslated
|
|
||||||
highColor
|
|
||||||
HMENU
|
|
||||||
hover
|
|
||||||
hoverStyle
|
|
||||||
HRULER
|
|
||||||
HTML
|
|
||||||
html5
|
|
||||||
htmlmail
|
|
||||||
HTMLparser
|
|
||||||
htmlSpecialChars
|
|
||||||
htmlTag_dir
|
|
||||||
htmlTag_langKey
|
|
||||||
htmlTag_setParams
|
|
||||||
http
|
|
||||||
icon
|
|
||||||
iconCObject
|
|
||||||
icon_image_ext_list
|
|
||||||
icon_link
|
|
||||||
icon_thumbSize
|
|
||||||
if
|
|
||||||
ifBlank
|
|
||||||
ifEmpty
|
|
||||||
IFSUB
|
|
||||||
IFSUBRO
|
|
||||||
ignore
|
|
||||||
IMAGE
|
|
||||||
image_compression
|
|
||||||
image_effects
|
|
||||||
image_frames
|
|
||||||
imgList
|
|
||||||
imgMap
|
|
||||||
imgMapExtras
|
|
||||||
imgMax
|
|
||||||
imgNameNotRandom
|
|
||||||
imgNamePrefix
|
|
||||||
imgObjNum
|
|
||||||
imgParams
|
|
||||||
imgPath
|
|
||||||
imgStart
|
|
||||||
IMGTEXT
|
|
||||||
import
|
|
||||||
inBranch
|
|
||||||
includeCSS
|
|
||||||
includeJS
|
|
||||||
includeJSFooter
|
|
||||||
includeJSFooterlibs
|
|
||||||
includeJSlibs
|
|
||||||
includeLibrary
|
|
||||||
includeLibs
|
|
||||||
includeNotInMenu
|
|
||||||
incT3Lib_htmlmail
|
|
||||||
index_descrLgd
|
|
||||||
index_enable
|
|
||||||
index_externals
|
|
||||||
index_metatags
|
|
||||||
infomail
|
|
||||||
inlineJS
|
|
||||||
inlineLanguageLabel
|
|
||||||
inlineSettings
|
|
||||||
inlineStyle2TempFile
|
|
||||||
innerStdWrap_all
|
|
||||||
innerWrap
|
|
||||||
innerWrap2
|
|
||||||
inputLevels
|
|
||||||
insertClassesFromRTE
|
|
||||||
insertData
|
|
||||||
intensity
|
|
||||||
intTarget
|
|
||||||
intval
|
|
||||||
invert
|
|
||||||
IProcFunc
|
|
||||||
isFalse
|
|
||||||
isGreaterThan
|
|
||||||
isInList
|
|
||||||
isLessThan
|
|
||||||
isPositive
|
|
||||||
isTrue
|
|
||||||
itemArrayProcFunc
|
|
||||||
items
|
|
||||||
iterations
|
|
||||||
javascriptLibs
|
|
||||||
join
|
|
||||||
jpg
|
|
||||||
jsFooterInline
|
|
||||||
jsInline
|
|
||||||
JSMENU
|
|
||||||
JSwindow
|
|
||||||
JSwindow.altUrl
|
|
||||||
JSwindow.altUrl_noDefaultParams
|
|
||||||
JSwindow.expand
|
|
||||||
JSwindow.newWindow
|
|
||||||
JSwindow_params
|
|
||||||
jumpurl
|
|
||||||
jumpurl_enable
|
|
||||||
jumpurl_mailto_disable
|
|
||||||
keep
|
|
||||||
keepNonMatchedTags
|
|
||||||
keywords
|
|
||||||
keywordsField
|
|
||||||
labelStdWrap
|
|
||||||
labelWrap
|
|
||||||
lang
|
|
||||||
language
|
|
||||||
language_alt
|
|
||||||
languageField
|
|
||||||
layer_menu_id
|
|
||||||
layerStyle
|
|
||||||
layout
|
|
||||||
layoutRootPath
|
|
||||||
leftjoin
|
|
||||||
leftOffset
|
|
||||||
levels
|
|
||||||
limit
|
|
||||||
lineColor
|
|
||||||
lineThickness
|
|
||||||
linkAccessRestrictedPages
|
|
||||||
linkParams
|
|
||||||
linkVars
|
|
||||||
linkWrap
|
|
||||||
list
|
|
||||||
listNum
|
|
||||||
lm
|
|
||||||
LOAD_REGISTER
|
|
||||||
locale_all
|
|
||||||
localNesting
|
|
||||||
locationData
|
|
||||||
lockFilePath
|
|
||||||
lockPosition
|
|
||||||
lockPosition_addSelf
|
|
||||||
lockPosition_adjust
|
|
||||||
loginUser
|
|
||||||
longdescURL
|
|
||||||
loop
|
|
||||||
lowColor
|
|
||||||
lower
|
|
||||||
mailto
|
|
||||||
main
|
|
||||||
mainScript
|
|
||||||
makelinks
|
|
||||||
markers
|
|
||||||
markerWrap
|
|
||||||
mask
|
|
||||||
max
|
|
||||||
maxAge
|
|
||||||
maxH
|
|
||||||
maxHeight
|
|
||||||
maxItems
|
|
||||||
maxW
|
|
||||||
maxWidth
|
|
||||||
maxWInText
|
|
||||||
m.bgImg
|
|
||||||
m.bottomImg
|
|
||||||
m.bottomImg_mask
|
|
||||||
md5
|
|
||||||
meaningfulTempFilePrefix
|
|
||||||
menuBackColor
|
|
||||||
menuHeight
|
|
||||||
menuOffset
|
|
||||||
menuWidth
|
|
||||||
message_page_is_being_generated
|
|
||||||
message_preview
|
|
||||||
message_preview_workspace
|
|
||||||
meta
|
|
||||||
metaCharset
|
|
||||||
method
|
|
||||||
minH
|
|
||||||
minifyCSS
|
|
||||||
minifyJS
|
|
||||||
minItems
|
|
||||||
minItems
|
|
||||||
minW
|
|
||||||
m.mask
|
|
||||||
moveJsFromHeaderToFooter
|
|
||||||
MP_defaults
|
|
||||||
MP_disableTypolinkClosestMPvalue
|
|
||||||
MP_mapRootPoints
|
|
||||||
MULTIMEDIA
|
|
||||||
name
|
|
||||||
namespaces
|
|
||||||
negate
|
|
||||||
newRecordFromTable
|
|
||||||
newRecordInPid
|
|
||||||
next
|
|
||||||
niceText
|
|
||||||
NO
|
|
||||||
noAttrib
|
|
||||||
noBlur
|
|
||||||
no_cache
|
|
||||||
noCols
|
|
||||||
noLink
|
|
||||||
noLinkUnderline
|
|
||||||
nonCachedSubst
|
|
||||||
none
|
|
||||||
nonTypoTagStdWrap
|
|
||||||
nonTypoTagUserFunc
|
|
||||||
nonWrappedTag
|
|
||||||
noOrderBy
|
|
||||||
noPageTitle
|
|
||||||
noResultObj
|
|
||||||
normalWhenNoLanguage
|
|
||||||
noRows
|
|
||||||
noScale
|
|
||||||
noScaleUp
|
|
||||||
noscript
|
|
||||||
noStretchAndMarginCells
|
|
||||||
notification_email_charset
|
|
||||||
notification_email_encoding
|
|
||||||
notification_email_urlmode
|
|
||||||
noTrimWrap
|
|
||||||
noValueInsert
|
|
||||||
noWrapAttr
|
|
||||||
numberFormat
|
|
||||||
numRows
|
|
||||||
obj
|
|
||||||
offset
|
|
||||||
offset
|
|
||||||
_offset
|
|
||||||
offsetWrap
|
|
||||||
onlyCurrentPid
|
|
||||||
opacity
|
|
||||||
options
|
|
||||||
orderBy
|
|
||||||
OTABLE
|
|
||||||
outerWrap
|
|
||||||
outline
|
|
||||||
output
|
|
||||||
outputLevels
|
|
||||||
override
|
|
||||||
overrideAttribs
|
|
||||||
overrideEdit
|
|
||||||
overrideId
|
|
||||||
PAGE
|
|
||||||
pageGenScript
|
|
||||||
pageRendererTemplateFile
|
|
||||||
pageTitleFirst
|
|
||||||
parameter
|
|
||||||
params
|
|
||||||
parseFunc
|
|
||||||
parseFunc
|
|
||||||
parseValues
|
|
||||||
partialRootPath
|
|
||||||
path
|
|
||||||
pidInList
|
|
||||||
pixelSpaceFontSizeRef
|
|
||||||
plainTextStdWrap
|
|
||||||
pluginNames
|
|
||||||
png
|
|
||||||
postCObject
|
|
||||||
postUserFunc
|
|
||||||
postUserFunkInt
|
|
||||||
preCObject
|
|
||||||
prefixComment
|
|
||||||
prefixLocalAnchors
|
|
||||||
prefixLocalAnchors
|
|
||||||
prefixRelPathWith
|
|
||||||
preIfEmptyListNum
|
|
||||||
prepend
|
|
||||||
preUserFunc
|
|
||||||
prev
|
|
||||||
previewBorder
|
|
||||||
printBeforeContent
|
|
||||||
prioriCalc
|
|
||||||
processScript
|
|
||||||
properties
|
|
||||||
protect
|
|
||||||
protectLvar
|
|
||||||
quality
|
|
||||||
quality
|
|
||||||
radioInputWrap
|
|
||||||
radioWrap
|
|
||||||
range
|
|
||||||
range
|
|
||||||
rawUrlEncode
|
|
||||||
recipient
|
|
||||||
RECORDS
|
|
||||||
recursive
|
|
||||||
redirect
|
|
||||||
reduceColors
|
|
||||||
relativeToParentLayer
|
|
||||||
relativeToTriggerItem
|
|
||||||
relPathPrefix
|
|
||||||
remap
|
|
||||||
remapTag
|
|
||||||
removeBadHTML
|
|
||||||
removeDefaultJS
|
|
||||||
removeIfEquals
|
|
||||||
removeIfFalse
|
|
||||||
removeObjectsOfDummy
|
|
||||||
removePrependedNumbers
|
|
||||||
removeTags
|
|
||||||
removeWrapping
|
|
||||||
renderCharset
|
|
||||||
renderObj
|
|
||||||
renderWrap
|
|
||||||
REQ
|
|
||||||
required
|
|
||||||
required
|
|
||||||
resources
|
|
||||||
resultObj
|
|
||||||
returnKey
|
|
||||||
returnLast
|
|
||||||
reverseOrder
|
|
||||||
rightjoin
|
|
||||||
rm
|
|
||||||
rmTagIfNoAttrib
|
|
||||||
RO_chBgColor
|
|
||||||
rootline
|
|
||||||
rotate
|
|
||||||
rows
|
|
||||||
rowSpace
|
|
||||||
sample
|
|
||||||
sample
|
|
||||||
section
|
|
||||||
sectionIndex
|
|
||||||
select
|
|
||||||
sendCacheHeaders
|
|
||||||
sendCacheHeaders_onlyWhenLoginDeniedInBranch
|
|
||||||
separator
|
|
||||||
setContentToCurrent
|
|
||||||
setCurrent
|
|
||||||
setfixed
|
|
||||||
setFixedHeight
|
|
||||||
setFixedWidth
|
|
||||||
setJS_mouseOver
|
|
||||||
setJS_openPic
|
|
||||||
setKeywords
|
|
||||||
shadow
|
|
||||||
sharpen
|
|
||||||
shear
|
|
||||||
short
|
|
||||||
shortcutIcon
|
|
||||||
showAccessRestrictedPages
|
|
||||||
showActive
|
|
||||||
showFirst
|
|
||||||
simulateStaticDocuments
|
|
||||||
simulateStaticDocuments_addTitle
|
|
||||||
simulateStaticDocuments_dontRedirectPathInfoError
|
|
||||||
simulateStaticDocuments_noTypeIfNoTitle
|
|
||||||
simulateStaticDocuments_pEnc
|
|
||||||
simulateStaticDocuments_pEnc_onlyP
|
|
||||||
simulateStaticDocuments_replacementChar
|
|
||||||
sitetitle
|
|
||||||
size
|
|
||||||
size.default
|
|
||||||
size.field
|
|
||||||
slide
|
|
||||||
smallFormFields
|
|
||||||
solarize
|
|
||||||
source
|
|
||||||
space
|
|
||||||
spaceAfter
|
|
||||||
spaceBefore
|
|
||||||
spaceBelowAbove
|
|
||||||
spaceLeft
|
|
||||||
spaceRight
|
|
||||||
spacing
|
|
||||||
spamProtectEmailAddresses
|
|
||||||
spamProtectEmailAddresses_atSubst
|
|
||||||
spamProtectEmailAddresses_lastDotSubst
|
|
||||||
SPC
|
|
||||||
special
|
|
||||||
split
|
|
||||||
splitRendering
|
|
||||||
src
|
|
||||||
stat
|
|
||||||
stat_apache
|
|
||||||
stat_apache_logfile
|
|
||||||
stat_apache_niceTitle
|
|
||||||
stat_apache_noHost
|
|
||||||
stat_apache_noRoot
|
|
||||||
stat_apache_notExtended
|
|
||||||
stat_apache_pagenames
|
|
||||||
stat_excludeBEuserHits
|
|
||||||
stat_excludeIPList
|
|
||||||
stat_mysql
|
|
||||||
stat_pageLen
|
|
||||||
stat_titleLen
|
|
||||||
stat_typeNumList
|
|
||||||
stayFolded
|
|
||||||
stdWrap
|
|
||||||
stdWrap2
|
|
||||||
strftime
|
|
||||||
stripHtml
|
|
||||||
stripProfile
|
|
||||||
stylesheet
|
|
||||||
submenuObjSuffixes
|
|
||||||
subMenuOffset
|
|
||||||
subparts
|
|
||||||
subst_elementUid
|
|
||||||
subst_elementUid
|
|
||||||
substMarksSeparately
|
|
||||||
substring
|
|
||||||
swirl
|
|
||||||
sword
|
|
||||||
sword_noMixedCase
|
|
||||||
sword_standAlone
|
|
||||||
sys_language_mode
|
|
||||||
sys_language_overlay
|
|
||||||
sys_language_softExclude
|
|
||||||
sys_language_softMergeIfNotBlank
|
|
||||||
sys_language_uid
|
|
||||||
sys_page
|
|
||||||
table
|
|
||||||
tableParams
|
|
||||||
tables
|
|
||||||
tableStdWrap
|
|
||||||
tableStyle
|
|
||||||
tags
|
|
||||||
target
|
|
||||||
TCAselectItem
|
|
||||||
TDparams
|
|
||||||
template
|
|
||||||
TEMPLATE
|
|
||||||
templateFile
|
|
||||||
text
|
|
||||||
TEXT
|
|
||||||
textMargin
|
|
||||||
textMargin_outOfText
|
|
||||||
textMaxLength
|
|
||||||
textObjNum
|
|
||||||
textPos
|
|
||||||
textStyle
|
|
||||||
thickness
|
|
||||||
thousands_sep
|
|
||||||
title
|
|
||||||
titleTagFunction
|
|
||||||
titleText
|
|
||||||
titleText
|
|
||||||
tm
|
|
||||||
TMENU
|
|
||||||
token
|
|
||||||
topOffset
|
|
||||||
totalWidth
|
|
||||||
transparentBackground
|
|
||||||
transparentColor
|
|
||||||
trim
|
|
||||||
twice
|
|
||||||
typeNum
|
|
||||||
types
|
|
||||||
typolink
|
|
||||||
typolinkCheckRootline
|
|
||||||
typolinkEnableLinksAcrossDomains
|
|
||||||
typolinkLinkAccessRestrictedPages
|
|
||||||
typolinkLinkAccessRestrictedPages_addParams
|
|
||||||
uid
|
|
||||||
uidInList
|
|
||||||
uniqueGlobal
|
|
||||||
uniqueLinkVars
|
|
||||||
uniqueLocal
|
|
||||||
unset
|
|
||||||
unsetEmpty
|
|
||||||
upper
|
|
||||||
url
|
|
||||||
useCacheHash
|
|
||||||
useLargestItemX
|
|
||||||
useLargestItemY
|
|
||||||
USER
|
|
||||||
USERDEF1
|
|
||||||
USERDEF1RO
|
|
||||||
USERDEF2RO
|
|
||||||
USERFEF2
|
|
||||||
userFunc
|
|
||||||
userFunc_updateArray
|
|
||||||
userIdColumn
|
|
||||||
USER_INT
|
|
||||||
USERNAME_substToken
|
|
||||||
USERUID_substToken
|
|
||||||
USR
|
|
||||||
USRRO
|
|
||||||
value
|
|
||||||
variables
|
|
||||||
wave
|
|
||||||
where
|
|
||||||
width
|
|
||||||
wordSpacing
|
|
||||||
workArea
|
|
||||||
workOnSubpart
|
|
||||||
wrap
|
|
||||||
wrap2
|
|
||||||
wrap3
|
|
||||||
wrapAlign
|
|
||||||
wrapFieldName
|
|
||||||
wrapItemAndSub
|
|
||||||
wrapNoWrappedLines
|
|
||||||
wraps
|
|
||||||
xhtml_11
|
|
||||||
xhtml_2
|
|
||||||
xhtml_basic
|
|
||||||
xhtml_cleaning
|
|
||||||
xhtmlDoctype
|
|
||||||
xhtml_frames
|
|
||||||
xhtml+rdfa_10
|
|
||||||
xhtml_strict
|
|
||||||
xhtml_trans
|
|
||||||
xml_10
|
|
||||||
xml_11
|
|
||||||
xmlprologue
|
|
||||||
xPosOffset
|
|
||||||
yPosOffset
|
|
||||||
@@ -1,231 +0,0 @@
|
|||||||
# OCaml 3.12.1
|
|
||||||
|
|
||||||
# Keywords
|
|
||||||
and
|
|
||||||
as
|
|
||||||
assert
|
|
||||||
begin
|
|
||||||
class
|
|
||||||
constraint
|
|
||||||
do
|
|
||||||
done
|
|
||||||
downto
|
|
||||||
else
|
|
||||||
end
|
|
||||||
exception
|
|
||||||
external
|
|
||||||
false
|
|
||||||
for
|
|
||||||
fun
|
|
||||||
function
|
|
||||||
functor
|
|
||||||
if
|
|
||||||
in
|
|
||||||
include
|
|
||||||
inherit
|
|
||||||
initializer
|
|
||||||
lazy
|
|
||||||
let
|
|
||||||
match
|
|
||||||
method
|
|
||||||
module
|
|
||||||
mutable
|
|
||||||
new
|
|
||||||
object
|
|
||||||
of
|
|
||||||
open
|
|
||||||
or
|
|
||||||
private
|
|
||||||
rec
|
|
||||||
sig
|
|
||||||
struct
|
|
||||||
then
|
|
||||||
to
|
|
||||||
true
|
|
||||||
try
|
|
||||||
type
|
|
||||||
val
|
|
||||||
virtual
|
|
||||||
when
|
|
||||||
while
|
|
||||||
with
|
|
||||||
|
|
||||||
# Pervasives
|
|
||||||
!
|
|
||||||
!=
|
|
||||||
&
|
|
||||||
&&
|
|
||||||
*
|
|
||||||
**
|
|
||||||
*.
|
|
||||||
+
|
|
||||||
+.
|
|
||||||
-
|
|
||||||
-.
|
|
||||||
/
|
|
||||||
/.
|
|
||||||
:=
|
|
||||||
<
|
|
||||||
<=
|
|
||||||
<>
|
|
||||||
=
|
|
||||||
==
|
|
||||||
>
|
|
||||||
>=
|
|
||||||
@
|
|
||||||
FP_infinite
|
|
||||||
FP_nan
|
|
||||||
FP_normal
|
|
||||||
FP_subnormal
|
|
||||||
FP_zero
|
|
||||||
LargeFile
|
|
||||||
Open_append
|
|
||||||
Open_binary
|
|
||||||
Open_creat
|
|
||||||
Open_nonblock
|
|
||||||
Open_rdonly
|
|
||||||
Open_text
|
|
||||||
Open_trunc
|
|
||||||
Open_wronly
|
|
||||||
Oupen_excl
|
|
||||||
^
|
|
||||||
^^
|
|
||||||
abs
|
|
||||||
abs_float
|
|
||||||
acos
|
|
||||||
asin
|
|
||||||
asr
|
|
||||||
at_exit
|
|
||||||
atan
|
|
||||||
atan2
|
|
||||||
bool_of_string
|
|
||||||
ceil
|
|
||||||
char_of_int
|
|
||||||
classify_float
|
|
||||||
close_in
|
|
||||||
close_in_noerr
|
|
||||||
close_out
|
|
||||||
close_out_noerr
|
|
||||||
compare
|
|
||||||
cos
|
|
||||||
cosh
|
|
||||||
decr
|
|
||||||
do_at_exit
|
|
||||||
epsilon_float
|
|
||||||
exit
|
|
||||||
exp
|
|
||||||
expm1
|
|
||||||
failwith
|
|
||||||
float
|
|
||||||
float_of_int
|
|
||||||
float_of_string
|
|
||||||
floor
|
|
||||||
flush
|
|
||||||
flush_all
|
|
||||||
format
|
|
||||||
format4
|
|
||||||
format_of_string
|
|
||||||
fpclass
|
|
||||||
frexp
|
|
||||||
fst
|
|
||||||
ignore
|
|
||||||
in_channel
|
|
||||||
in_channel_length
|
|
||||||
incr
|
|
||||||
infinity
|
|
||||||
input
|
|
||||||
input_binary_int
|
|
||||||
input_byte
|
|
||||||
input_char
|
|
||||||
input_line
|
|
||||||
input_value
|
|
||||||
int_of_char
|
|
||||||
int_of_float
|
|
||||||
int_of_string
|
|
||||||
invalid_arg
|
|
||||||
land
|
|
||||||
ldexp
|
|
||||||
lnot
|
|
||||||
log
|
|
||||||
log10
|
|
||||||
log1p
|
|
||||||
lor
|
|
||||||
lsl
|
|
||||||
lsr
|
|
||||||
lxor
|
|
||||||
max
|
|
||||||
max_float
|
|
||||||
max_int
|
|
||||||
min
|
|
||||||
min_float
|
|
||||||
min_int
|
|
||||||
mod
|
|
||||||
mod_float
|
|
||||||
modf
|
|
||||||
nan
|
|
||||||
neg_infinity
|
|
||||||
not
|
|
||||||
open_flag
|
|
||||||
open_in
|
|
||||||
open_in_bin
|
|
||||||
open_in_gen
|
|
||||||
open_out
|
|
||||||
open_out_bin
|
|
||||||
open_out_gen
|
|
||||||
or
|
|
||||||
out_channel
|
|
||||||
out_channel_length
|
|
||||||
output
|
|
||||||
output_binary_int
|
|
||||||
output_byte
|
|
||||||
output_char
|
|
||||||
output_string
|
|
||||||
output_value
|
|
||||||
pos_in
|
|
||||||
pos_out
|
|
||||||
pred
|
|
||||||
prerr_char
|
|
||||||
prerr_endline
|
|
||||||
prerr_float
|
|
||||||
prerr_int
|
|
||||||
prerr_newline
|
|
||||||
prerr_string
|
|
||||||
print_char
|
|
||||||
print_endline
|
|
||||||
print_float
|
|
||||||
print_int
|
|
||||||
print_newline
|
|
||||||
print_string
|
|
||||||
raise
|
|
||||||
read_float
|
|
||||||
read_int
|
|
||||||
read_line
|
|
||||||
really_input
|
|
||||||
ref
|
|
||||||
seek_in
|
|
||||||
seek_out
|
|
||||||
set_binary_mode_in
|
|
||||||
set_binary_mode_out
|
|
||||||
sin
|
|
||||||
sinh
|
|
||||||
snd
|
|
||||||
sqrt
|
|
||||||
stderr
|
|
||||||
stdin
|
|
||||||
stdout
|
|
||||||
string_of_bool
|
|
||||||
string_of_float
|
|
||||||
string_of_format
|
|
||||||
string_of_int
|
|
||||||
succ
|
|
||||||
tan
|
|
||||||
tanh
|
|
||||||
truncate
|
|
||||||
unsafe_really_input
|
|
||||||
valid_float_lexem
|
|
||||||
||
|
|
||||||
~
|
|
||||||
~+
|
|
||||||
~+.
|
|
||||||
~-
|
|
||||||
~-.
|
|
||||||
@@ -1,313 +0,0 @@
|
|||||||
`define
|
|
||||||
`else
|
|
||||||
`endif
|
|
||||||
`ifdef
|
|
||||||
`ifndef
|
|
||||||
`macromodule
|
|
||||||
`module
|
|
||||||
`primitive
|
|
||||||
`timescale
|
|
||||||
above
|
|
||||||
abs
|
|
||||||
absdelay
|
|
||||||
ac_stim
|
|
||||||
acos
|
|
||||||
acosh
|
|
||||||
alias
|
|
||||||
aliasparam
|
|
||||||
always
|
|
||||||
always_comb
|
|
||||||
always_ff
|
|
||||||
always_latch
|
|
||||||
analog
|
|
||||||
analysis
|
|
||||||
and
|
|
||||||
asin
|
|
||||||
asinh
|
|
||||||
assert
|
|
||||||
assign
|
|
||||||
assume
|
|
||||||
atan
|
|
||||||
atan2
|
|
||||||
atanh
|
|
||||||
automatic
|
|
||||||
before
|
|
||||||
begin
|
|
||||||
bind
|
|
||||||
bins
|
|
||||||
binsof
|
|
||||||
bit
|
|
||||||
branch
|
|
||||||
break
|
|
||||||
buf
|
|
||||||
bufif0
|
|
||||||
bufif1
|
|
||||||
byte
|
|
||||||
case
|
|
||||||
casex
|
|
||||||
casez
|
|
||||||
cell
|
|
||||||
chandle
|
|
||||||
class
|
|
||||||
clocking
|
|
||||||
cmos
|
|
||||||
config
|
|
||||||
connectmodule
|
|
||||||
connectrules
|
|
||||||
const
|
|
||||||
constraint
|
|
||||||
context
|
|
||||||
continue
|
|
||||||
cos
|
|
||||||
cosh
|
|
||||||
cover
|
|
||||||
covergroup
|
|
||||||
coverpoint
|
|
||||||
cross
|
|
||||||
ddt
|
|
||||||
ddx
|
|
||||||
deassign
|
|
||||||
default
|
|
||||||
define
|
|
||||||
defparam
|
|
||||||
design
|
|
||||||
disable
|
|
||||||
discipline
|
|
||||||
dist
|
|
||||||
do
|
|
||||||
driver_update
|
|
||||||
edge
|
|
||||||
else
|
|
||||||
end
|
|
||||||
endcase
|
|
||||||
endclass
|
|
||||||
endclocking
|
|
||||||
endconfig
|
|
||||||
endconnectrules
|
|
||||||
enddiscipline
|
|
||||||
endfunction
|
|
||||||
endgenerate
|
|
||||||
endgroup
|
|
||||||
endif
|
|
||||||
endinterface
|
|
||||||
endmodule
|
|
||||||
endnature
|
|
||||||
endpackage
|
|
||||||
endparamset
|
|
||||||
endprimitive
|
|
||||||
endprogram
|
|
||||||
endproperty
|
|
||||||
endsequence
|
|
||||||
endspecify
|
|
||||||
endtable
|
|
||||||
endtask
|
|
||||||
enum
|
|
||||||
event
|
|
||||||
exclude
|
|
||||||
exp
|
|
||||||
expect
|
|
||||||
export
|
|
||||||
extends
|
|
||||||
extern
|
|
||||||
final
|
|
||||||
final_step
|
|
||||||
first_match
|
|
||||||
flicker_noise
|
|
||||||
floor
|
|
||||||
flow
|
|
||||||
for
|
|
||||||
force
|
|
||||||
foreach
|
|
||||||
forever
|
|
||||||
fork
|
|
||||||
forkjoin
|
|
||||||
from
|
|
||||||
function
|
|
||||||
generate
|
|
||||||
genvar
|
|
||||||
ground
|
|
||||||
highz0
|
|
||||||
highz1
|
|
||||||
hypot
|
|
||||||
idt
|
|
||||||
idtmod
|
|
||||||
if
|
|
||||||
ifdef
|
|
||||||
iff
|
|
||||||
ifndef
|
|
||||||
ifnone
|
|
||||||
ignore_bins
|
|
||||||
illegal_bins
|
|
||||||
import
|
|
||||||
incdir
|
|
||||||
include
|
|
||||||
inf
|
|
||||||
initial
|
|
||||||
initial_step
|
|
||||||
inout
|
|
||||||
input
|
|
||||||
inside
|
|
||||||
instance
|
|
||||||
int
|
|
||||||
integer
|
|
||||||
interface
|
|
||||||
intersect
|
|
||||||
join
|
|
||||||
join_any
|
|
||||||
join_none
|
|
||||||
laplace_nd
|
|
||||||
laplace_np
|
|
||||||
laplace_zd
|
|
||||||
laplace_zp
|
|
||||||
large
|
|
||||||
last_crossing
|
|
||||||
liblist
|
|
||||||
library
|
|
||||||
limexp
|
|
||||||
ln
|
|
||||||
local
|
|
||||||
localparam
|
|
||||||
log
|
|
||||||
logic
|
|
||||||
longint
|
|
||||||
macromodule
|
|
||||||
mailbox
|
|
||||||
matches
|
|
||||||
max
|
|
||||||
medium
|
|
||||||
min
|
|
||||||
modport
|
|
||||||
module
|
|
||||||
nand
|
|
||||||
nand
|
|
||||||
nature
|
|
||||||
negedge
|
|
||||||
net_resolution
|
|
||||||
new
|
|
||||||
nmos
|
|
||||||
nmos
|
|
||||||
noise_table
|
|
||||||
nor
|
|
||||||
noshowcancelled
|
|
||||||
not
|
|
||||||
notif0
|
|
||||||
notif1
|
|
||||||
null
|
|
||||||
or
|
|
||||||
output
|
|
||||||
package
|
|
||||||
packed
|
|
||||||
parameter
|
|
||||||
paramset
|
|
||||||
pmos
|
|
||||||
pmos
|
|
||||||
posedge
|
|
||||||
potential
|
|
||||||
pow
|
|
||||||
primitive
|
|
||||||
priority
|
|
||||||
program
|
|
||||||
property
|
|
||||||
protected
|
|
||||||
pull0
|
|
||||||
pull1
|
|
||||||
pullup
|
|
||||||
pulsestyle_ondetect
|
|
||||||
pulsestyle_onevent
|
|
||||||
pure
|
|
||||||
rand
|
|
||||||
randc
|
|
||||||
randcase
|
|
||||||
randcase
|
|
||||||
randsequence
|
|
||||||
rcmos
|
|
||||||
real
|
|
||||||
realtime
|
|
||||||
ref
|
|
||||||
reg
|
|
||||||
release
|
|
||||||
repeat
|
|
||||||
return
|
|
||||||
rnmos
|
|
||||||
rpmos
|
|
||||||
rtran
|
|
||||||
rtranif0
|
|
||||||
rtranif1
|
|
||||||
scalared
|
|
||||||
semaphore
|
|
||||||
sequence
|
|
||||||
shortint
|
|
||||||
shortreal
|
|
||||||
showcancelled
|
|
||||||
signed
|
|
||||||
sin
|
|
||||||
sinh
|
|
||||||
slew
|
|
||||||
small
|
|
||||||
solve
|
|
||||||
specify
|
|
||||||
specparam
|
|
||||||
sqrt
|
|
||||||
static
|
|
||||||
string
|
|
||||||
strong0
|
|
||||||
strong1
|
|
||||||
struct
|
|
||||||
super
|
|
||||||
supply
|
|
||||||
supply0
|
|
||||||
supply1
|
|
||||||
table
|
|
||||||
tagged
|
|
||||||
tan
|
|
||||||
tanh
|
|
||||||
task
|
|
||||||
then
|
|
||||||
this
|
|
||||||
throughout
|
|
||||||
time
|
|
||||||
timeprecision
|
|
||||||
timer
|
|
||||||
timescale
|
|
||||||
timeunit
|
|
||||||
tran
|
|
||||||
tran
|
|
||||||
tranif0
|
|
||||||
tranif1
|
|
||||||
transition
|
|
||||||
tri
|
|
||||||
tri
|
|
||||||
tri0
|
|
||||||
tri1
|
|
||||||
triand
|
|
||||||
trior
|
|
||||||
trireg
|
|
||||||
type
|
|
||||||
typedef
|
|
||||||
union
|
|
||||||
unique
|
|
||||||
unsigned
|
|
||||||
use
|
|
||||||
uwire
|
|
||||||
var
|
|
||||||
vectored
|
|
||||||
virtual
|
|
||||||
void
|
|
||||||
wait
|
|
||||||
wait_order
|
|
||||||
wand
|
|
||||||
weak0
|
|
||||||
weak1
|
|
||||||
while
|
|
||||||
white_noise
|
|
||||||
wildcard
|
|
||||||
wire
|
|
||||||
with
|
|
||||||
within
|
|
||||||
wor
|
|
||||||
wreal
|
|
||||||
xnor
|
|
||||||
xor
|
|
||||||
zi_nd
|
|
||||||
zi_np
|
|
||||||
zi_zd
|
|
||||||
@@ -1,219 +0,0 @@
|
|||||||
;;; cargo-autoloads.el --- automatically extracted autoloads
|
|
||||||
;;
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(add-to-list 'load-path (directory-file-name
|
|
||||||
(or (file-name-directory #$) (car load-path))))
|
|
||||||
|
|
||||||
|
|
||||||
;;;### (autoloads nil "cargo" "cargo.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from cargo.el
|
|
||||||
|
|
||||||
(autoload 'cargo-minor-mode "cargo" "\
|
|
||||||
Cargo minor mode. Used to hold keybindings for cargo-mode.
|
|
||||||
|
|
||||||
\\{cargo-minor-mode-map}
|
|
||||||
|
|
||||||
\(fn &optional ARG)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "cargo" '("cargo-minor-mode")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "cargo-process" "cargo-process.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from cargo-process.el
|
|
||||||
|
|
||||||
(autoload 'cargo-process-bench "cargo-process" "\
|
|
||||||
Run the Cargo bench command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Run the benchmarks.
|
|
||||||
|
|
||||||
\(fn)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-build "cargo-process" "\
|
|
||||||
Run the Cargo build command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Compile the current project.
|
|
||||||
|
|
||||||
\(fn)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-clean "cargo-process" "\
|
|
||||||
Run the Cargo clean command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Remove the target directory.
|
|
||||||
|
|
||||||
\(fn)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-doc "cargo-process" "\
|
|
||||||
Run the Cargo doc command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Build this project's and its dependencies' documentation.
|
|
||||||
|
|
||||||
\(fn)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-doc-open "cargo-process" "\
|
|
||||||
Run the Cargo doc command with the --open switch.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Open this project's documentation.
|
|
||||||
|
|
||||||
\(fn)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-new "cargo-process" "\
|
|
||||||
Run the Cargo new command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
NAME is the name of your application.
|
|
||||||
If BIN is t then create a binary application, otherwise a library.
|
|
||||||
Cargo: Create a new cargo project.
|
|
||||||
|
|
||||||
\(fn NAME &optional BIN)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-init "cargo-process" "\
|
|
||||||
Run the Cargo init command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
DIRECTORY is the directory you want to create a cargo project in.
|
|
||||||
If BIN is t then create a binary application, otherwise a library.
|
|
||||||
Cargo: Create a new cargo project in current directory.
|
|
||||||
|
|
||||||
DIRECTORY is created if necessary.
|
|
||||||
|
|
||||||
\(fn DIRECTORY &optional BIN)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-run "cargo-process" "\
|
|
||||||
Run the Cargo run command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Build and execute src/main.rs.
|
|
||||||
|
|
||||||
\(fn)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-run-bin "cargo-process" "\
|
|
||||||
Run the Cargo run command --bin <name>.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Build and execute a specific binary
|
|
||||||
|
|
||||||
\(fn COMMAND)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-run-example "cargo-process" "\
|
|
||||||
Run the Cargo run command --example <name>.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Build and execute with --example <name>.
|
|
||||||
|
|
||||||
\(fn COMMAND)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-search "cargo-process" "\
|
|
||||||
Run the Cargo search command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
SEARCH-TERM is used as the search term for the Cargo registry.
|
|
||||||
Cargo: Search registry for crates.
|
|
||||||
|
|
||||||
\(fn SEARCH-TERM)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-test "cargo-process" "\
|
|
||||||
Run the Cargo test command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Run the tests.
|
|
||||||
|
|
||||||
\(fn)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-current-test "cargo-process" "\
|
|
||||||
Run the Cargo test command for the current test.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Run the tests.
|
|
||||||
|
|
||||||
\(fn)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-current-file-tests "cargo-process" "\
|
|
||||||
Run the Cargo test command for the current file.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Run the tests.
|
|
||||||
|
|
||||||
\(fn)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-update "cargo-process" "\
|
|
||||||
Run the Cargo update command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Update dependencies listed in Cargo.lock.
|
|
||||||
|
|
||||||
\(fn)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-fmt "cargo-process" "\
|
|
||||||
Run the Cargo fmt command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Requires Cargo Fmt to be installed.
|
|
||||||
|
|
||||||
\(fn)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-outdated "cargo-process" "\
|
|
||||||
Run the Cargo outdated command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Requires Cargo Outdated to be installed.
|
|
||||||
|
|
||||||
\(fn)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-check "cargo-process" "\
|
|
||||||
Run the Cargo check command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Check compile the current project.
|
|
||||||
Requires cargo-check to be installed.
|
|
||||||
|
|
||||||
\(fn)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-clippy "cargo-process" "\
|
|
||||||
Run the Cargo clippy command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Clippy compile the current project.
|
|
||||||
Requires Cargo clippy to be installed.
|
|
||||||
|
|
||||||
\(fn)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-add "cargo-process" "\
|
|
||||||
Run the Cargo add command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
CRATES is the name of the crate to add.
|
|
||||||
Cargo: This command allows you to add a dependency to a Cargo.toml manifest file.
|
|
||||||
|
|
||||||
\(fn CRATE)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-audit "cargo-process" "\
|
|
||||||
Run the Cargo audit command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Audit checks the current project's Cargo.lock for security vulnerabilities.
|
|
||||||
Requires Cargo Audit to be installed.
|
|
||||||
|
|
||||||
\(fn)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-rm "cargo-process" "\
|
|
||||||
Run the Cargo rm command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
CRATE is the name of the crate to remove.
|
|
||||||
Cargo: Remove a dependency from a Cargo.toml manifest file.
|
|
||||||
|
|
||||||
\(fn CRATE)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-upgrade "cargo-process" "\
|
|
||||||
Run the Cargo update command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
If ALL is t then update all crates, otherwise specify CRATES.
|
|
||||||
Cargo: Upgrade dependencies as specified in the local manifest file
|
|
||||||
|
|
||||||
\(fn &optional ALL CRATES)" t nil)
|
|
||||||
|
|
||||||
(autoload 'cargo-process-repeat "cargo-process" "\
|
|
||||||
Run the last cargo-process command.
|
|
||||||
|
|
||||||
\(fn)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "cargo-process" '("cargo-process-" "manifest-path-argument" "set-rust-backtrace" "rustc-errno")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil nil ("cargo-pkg.el") (0 0 0 0))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;; Local Variables:
|
|
||||||
;; version-control: never
|
|
||||||
;; no-byte-compile: t
|
|
||||||
;; no-update-autoloads: t
|
|
||||||
;; coding: utf-8
|
|
||||||
;; End:
|
|
||||||
;;; cargo-autoloads.el ends here
|
|
||||||
@@ -1,13 +0,0 @@
|
|||||||
(define-package "cargo" "20191121.1116" "Emacs Minor Mode for Cargo, Rust's Package Manager."
|
|
||||||
'((emacs "24.3")
|
|
||||||
(rust-mode "0.2.0")
|
|
||||||
(markdown-mode "2.4"))
|
|
||||||
:keywords
|
|
||||||
'("tools")
|
|
||||||
:authors
|
|
||||||
'(("Kevin W. van Rooijen" . "kevin.van.rooijen@attichacker.com"))
|
|
||||||
:maintainer
|
|
||||||
'("Kevin W. van Rooijen" . "kevin.van.rooijen@attichacker.com"))
|
|
||||||
;; Local Variables:
|
|
||||||
;; no-byte-compile: t
|
|
||||||
;; End:
|
|
||||||
@@ -1,692 +0,0 @@
|
|||||||
;;; cargo-process.el --- Cargo Process Major Mode -*-lexical-binding: t-*-
|
|
||||||
|
|
||||||
;; Copyright (C) 2015 Kevin W. van Rooijen
|
|
||||||
|
|
||||||
;; Author: Kevin W. van Rooijen <kevin.van.rooijen@attichacker.com>
|
|
||||||
;; Keywords: processes, tools
|
|
||||||
|
|
||||||
;; 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:
|
|
||||||
|
|
||||||
;; Cargo Process Major mode.
|
|
||||||
;; Used to run Cargo background processes.
|
|
||||||
;; Current supported Cargo functions:
|
|
||||||
;; * cargo-process-bench - Run the benchmarks.
|
|
||||||
;; * cargo-process-build - Compile the current project.
|
|
||||||
;; * cargo-process-clean - Remove the target directory.
|
|
||||||
;; * cargo-process-doc - Build this project's and its dependencies' documentation.
|
|
||||||
;; * cargo-process-doc-open - Open this project's documentation.
|
|
||||||
;; * cargo-process-new - Create a new cargo project.
|
|
||||||
;; * cargo-process-init - Create a new cargo project inside an existing directory.
|
|
||||||
;; * cargo-process-run - Build and execute src/main.rs.
|
|
||||||
;; * cargo-process-run-example - Build and execute with --example <name>.
|
|
||||||
;; * cargo-process-run-bin - Build and execute a specific binary.
|
|
||||||
;; * cargo-process-search - Search registry for crates.
|
|
||||||
;; * cargo-process-test - Run all unit tests.
|
|
||||||
;; * cargo-process-update - Update dependencies listed in Cargo.lock.
|
|
||||||
;; * cargo-process-repeat - Run the last cargo-process command.
|
|
||||||
;; * cargo-process-current-test - Run the current unit test.
|
|
||||||
;; * cargo-process-current-file-tests - Run the current file unit tests.
|
|
||||||
;; * cargo-process-fmt - Run the optional cargo command fmt.
|
|
||||||
;; * cargo-process-check - Run the optional cargo command check.
|
|
||||||
;; * cargo-process-clippy - Run the optional cargo command clippy.
|
|
||||||
;; * cargo-process-add - Run the optional cargo command add.
|
|
||||||
;; * cargo-process-rm - Run the optional cargo command rm.
|
|
||||||
;; * cargo-process-upgrade - Run the optional cargo command upgrade.
|
|
||||||
;; * cargo-process-outdated - Run the optional cargo command outdated.
|
|
||||||
;; * cargo-process-audit - Run the optional cargo command audit.
|
|
||||||
|
|
||||||
;;
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'compile)
|
|
||||||
(require 'button)
|
|
||||||
(require 'rust-mode)
|
|
||||||
(require 'markdown-mode)
|
|
||||||
|
|
||||||
(defgroup cargo-process nil
|
|
||||||
"Cargo Process group."
|
|
||||||
:prefix "cargo-process-"
|
|
||||||
:group 'cargo)
|
|
||||||
|
|
||||||
(defcustom cargo-process--custom-path-to-bin
|
|
||||||
(or (executable-find "cargo")
|
|
||||||
(expand-file-name "cargo" "~/.cargo/bin")
|
|
||||||
"/usr/local/bin/cargo")
|
|
||||||
"Custom path to the cargo executable"
|
|
||||||
:type 'file
|
|
||||||
:group 'cargo-process)
|
|
||||||
|
|
||||||
(defcustom cargo-process--rustc-cmd
|
|
||||||
(or (executable-find "rustc")
|
|
||||||
(expand-file-name "rustc" "~/.cargo/bin")
|
|
||||||
"/usr/local/bin/rustc")
|
|
||||||
"Custom path to the rustc executable"
|
|
||||||
:type 'file
|
|
||||||
:group 'cargo-process)
|
|
||||||
|
|
||||||
(defcustom cargo-process--enable-rust-backtrace nil
|
|
||||||
"Set RUST_BACKTRACE environment variable to 1 for tasks test and run"
|
|
||||||
:type 'boolean
|
|
||||||
:group 'cargo-process)
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-flags ""
|
|
||||||
"Flags to be added to every cargo command when run."
|
|
||||||
:group 'cargo-process)
|
|
||||||
|
|
||||||
(defvar cargo-process-mode-map
|
|
||||||
(nconc (make-sparse-keymap) compilation-mode-map)
|
|
||||||
"Keymap for Cargo major mode.")
|
|
||||||
|
|
||||||
(defvar cargo-process--no-manifest-commands
|
|
||||||
'("New" "Init" "Search" "Fmt" "Audit")
|
|
||||||
"These commands should not specify a manifest file.")
|
|
||||||
|
|
||||||
(defvar cargo-process-last-command nil "Command used last for repeating.")
|
|
||||||
|
|
||||||
(make-variable-buffer-local 'cargo-process-last-command)
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-bench "bench"
|
|
||||||
"Subcommand used by `cargo-process-bench'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-build "build"
|
|
||||||
"Subcommand used by `cargo-process-build'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-clean "clean"
|
|
||||||
"Subcommand used by `cargo-process-clean'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-doc "doc"
|
|
||||||
"Subcommand used by `cargo-process-doc'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-doc-open "doc --open"
|
|
||||||
"Subcommand used by `cargo-process-doc'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-new "new"
|
|
||||||
"Subcommand used by `cargo-process-new'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-init "init"
|
|
||||||
"Subcommand used by `cargo-process-init'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-run "run"
|
|
||||||
"Subcommand used by `cargo-process-run'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-run-bin "run --bin"
|
|
||||||
"Subcommand used by `cargo-process-run-bin'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-run-example "run --example"
|
|
||||||
"Subcommand used by `cargo-process-run-example'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-search "search"
|
|
||||||
"Subcommand used by `cargo-process-search'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-test "test"
|
|
||||||
"Subcommand used by `cargo-process-test'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-current-test "test"
|
|
||||||
"Subcommand used by `cargo-process-current-test'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-current-file-tests "test"
|
|
||||||
"Subcommand used by `cargo-process-current-file-tests'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-update "update"
|
|
||||||
"Subcommand used by `cargo-process-update'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-fmt "fmt"
|
|
||||||
"Subcommand used by `cargo-process-fmt'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-outdated "outdated -R"
|
|
||||||
"Subcommand used by `cargo-process-outdated'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-check "check"
|
|
||||||
"Subcommand used by `cargo-process-check'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-clippy "clippy"
|
|
||||||
"Subcommand used by `cargo-process-clippy'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-add "add"
|
|
||||||
"Subcommand used by `cargo-process-add'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-rm "rm"
|
|
||||||
"Subcommand used by `cargo-process-rm'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-upgrade "upgrade"
|
|
||||||
"Subcommand used by `cargo-process-upgrade'.")
|
|
||||||
|
|
||||||
(defcustom cargo-process--command-audit "audit -f"
|
|
||||||
"Subcommand used by `cargo-process-audit'.")
|
|
||||||
|
|
||||||
(defvar cargo-process-favorite-crates nil)
|
|
||||||
|
|
||||||
(defface cargo-process--ok-face
|
|
||||||
'((t (:inherit success)))
|
|
||||||
"Ok face"
|
|
||||||
:group 'cargo-process)
|
|
||||||
|
|
||||||
(defface cargo-process--error-face
|
|
||||||
'((t (:inherit error)))
|
|
||||||
"Error face"
|
|
||||||
:group 'cargo-process)
|
|
||||||
|
|
||||||
(defface cargo-process--warning-face
|
|
||||||
'((t (:inherit warning)))
|
|
||||||
"Warning face"
|
|
||||||
:group 'cargo-process)
|
|
||||||
|
|
||||||
(defface cargo-process--pointer-face
|
|
||||||
'((t (:inherit font-lock-negation-char-face)))
|
|
||||||
"Pointer face"
|
|
||||||
:group 'cargo-process)
|
|
||||||
|
|
||||||
(defface cargo-process--standard-face
|
|
||||||
'((t (:inherit font-lock-comment-face)))
|
|
||||||
"Standard face"
|
|
||||||
:group 'cargo-process)
|
|
||||||
|
|
||||||
(defface cargo-process--errno-face
|
|
||||||
'((t (:inherit link)))
|
|
||||||
"Error number face"
|
|
||||||
:group 'cargo-process)
|
|
||||||
|
|
||||||
(defconst cargo-process--rust-backtrace "RUST_BACKTRACE")
|
|
||||||
|
|
||||||
(defconst cargo-process-test-regexp "^[[:space:]]*fn[[:space:]]*"
|
|
||||||
"Regex to find Rust unit test function.")
|
|
||||||
|
|
||||||
(defconst cargo-process-test-mod-regexp "^[[:space:]]*mod[[:space:]]+[[:word:][:multibyte:]_][[:word:][:multibyte:]_[:digit:]]*[[:space:]]*{")
|
|
||||||
|
|
||||||
(defconst cargo-process-font-lock-keywords
|
|
||||||
'(("^error\\:?" . 'cargo-process--error-face)
|
|
||||||
("^warning\\:?" . 'cargo-process--warning-face)
|
|
||||||
("^\s*\\^\\~*\s*$" . 'cargo-process--pointer-face)
|
|
||||||
("^\s*Compiling.*" . 'cargo-process--standard-face)
|
|
||||||
("^\s*Running.*" . 'cargo-process--standard-face)
|
|
||||||
("^\s*Updating.*" . 'cargo-process--standard-face)
|
|
||||||
("test result: FAILED." . 'cargo-process--error-face)
|
|
||||||
("test result: ok." . 'cargo-process--ok-face)
|
|
||||||
("test\s.*\sFAILED" . 'cargo-process--error-face)
|
|
||||||
("test\s.*\sok" . 'cargo-process--ok-face))
|
|
||||||
"Minimal highlighting expressions for cargo-process mode.")
|
|
||||||
|
|
||||||
;; Bind `case-fold-search' to nil before using the regex.
|
|
||||||
(defconst cargo-process--errno-regex "\\bE[0-9]\\{4\\}\\b"
|
|
||||||
"A regular expression to match Rust error number.")
|
|
||||||
|
|
||||||
(define-button-type 'rustc-errno
|
|
||||||
'follow-link t
|
|
||||||
'face 'cargo-process--errno-face
|
|
||||||
'action #'cargo-process--explain-action)
|
|
||||||
|
|
||||||
(defun cargo-process--defun-at-point-p ()
|
|
||||||
(string-match cargo-process-test-regexp
|
|
||||||
(buffer-substring-no-properties (line-beginning-position)
|
|
||||||
(line-end-position))))
|
|
||||||
|
|
||||||
(defun cargo-process--project-root (&optional extra)
|
|
||||||
"Find the root of the current Cargo project."
|
|
||||||
(let ((root (locate-dominating-file (or buffer-file-name default-directory) "Cargo.toml")))
|
|
||||||
(when root
|
|
||||||
(file-truename (concat root extra)))))
|
|
||||||
|
|
||||||
(define-derived-mode cargo-process-mode compilation-mode "Cargo-Process."
|
|
||||||
"Major mode for the Cargo process buffer."
|
|
||||||
(use-local-map cargo-process-mode-map)
|
|
||||||
(setq major-mode 'cargo-process-mode)
|
|
||||||
(setq mode-name "Cargo-Process")
|
|
||||||
(setq-local truncate-lines t)
|
|
||||||
(run-hooks 'cargo-process-mode-hook)
|
|
||||||
(add-hook 'compilation-filter-hook #'cargo-process--add-errno-buttons)
|
|
||||||
(font-lock-add-keywords nil cargo-process-font-lock-keywords))
|
|
||||||
|
|
||||||
(defun cargo-process--finished-sentinel (process event)
|
|
||||||
"Execute after PROCESS return and EVENT is 'finished'."
|
|
||||||
(compilation-sentinel process event)
|
|
||||||
(when (equal event "finished\n")
|
|
||||||
(message "Cargo Process finished.")))
|
|
||||||
|
|
||||||
(defun cargo-process--activate-mode (buffer)
|
|
||||||
"Execute commands BUFFER at process start."
|
|
||||||
(with-current-buffer buffer
|
|
||||||
(funcall 'cargo-process-mode)
|
|
||||||
(setq-local window-point-insertion-type t)))
|
|
||||||
|
|
||||||
(defun set-rust-backtrace (command)
|
|
||||||
"Set RUST_BACKTRACE variable depending on the COMMAND used.
|
|
||||||
Always set to nil if cargo-process--enable-rust-backtrace is nil"
|
|
||||||
(if (and cargo-process--enable-rust-backtrace
|
|
||||||
(string-match "\\(test\\|run\\)" command))
|
|
||||||
(setenv cargo-process--rust-backtrace "1")
|
|
||||||
(setenv cargo-process--rust-backtrace nil)))
|
|
||||||
|
|
||||||
(defun cargo-process--workspace-root ()
|
|
||||||
"Find the workspace root using `cargo metadata`."
|
|
||||||
(when (cargo-process--project-root)
|
|
||||||
(let* ((metadata-text (shell-command-to-string
|
|
||||||
(concat (shell-quote-argument cargo-process--custom-path-to-bin)
|
|
||||||
" metadata --format-version 1 --no-deps")))
|
|
||||||
(metadata-json (json-read-from-string metadata-text))
|
|
||||||
(workspace-root (cdr (assoc 'workspace_root metadata-json))))
|
|
||||||
workspace-root)))
|
|
||||||
|
|
||||||
(defun manifest-path-argument (name)
|
|
||||||
(let ((manifest-filename (cargo-process--project-root "Cargo.toml")))
|
|
||||||
(when (and manifest-filename
|
|
||||||
(not (member name cargo-process--no-manifest-commands)))
|
|
||||||
(concat "--manifest-path " (shell-quote-argument manifest-filename)))))
|
|
||||||
|
|
||||||
(defun cargo-process--start (name command &optional last-cmd opens-external)
|
|
||||||
"Start the Cargo process NAME with the cargo command COMMAND.
|
|
||||||
OPENS-EXTERNAL is non-nil if the COMMAND is expected to open an external application.
|
|
||||||
Returns the created process."
|
|
||||||
(set-rust-backtrace command)
|
|
||||||
(let* ((buffer (concat "*Cargo " name "*"))
|
|
||||||
(project-root (cargo-process--project-root))
|
|
||||||
(cmd
|
|
||||||
(or last-cmd
|
|
||||||
(cargo-process--maybe-read-command
|
|
||||||
(cargo-process--augment-cmd-for-os opens-external
|
|
||||||
(mapconcat #'identity (list (shell-quote-argument cargo-process--custom-path-to-bin)
|
|
||||||
command
|
|
||||||
(manifest-path-argument name)
|
|
||||||
cargo-process--command-flags)
|
|
||||||
" ")))))
|
|
||||||
(default-directory (or project-root default-directory)))
|
|
||||||
(save-some-buffers (not compilation-ask-about-save)
|
|
||||||
(lambda ()
|
|
||||||
(and project-root
|
|
||||||
buffer-file-name
|
|
||||||
(string-prefix-p project-root (file-truename buffer-file-name)))))
|
|
||||||
(setq cargo-process-last-command (list name command cmd))
|
|
||||||
(let ((default-directory (or (cargo-process--workspace-root)
|
|
||||||
default-directory)))
|
|
||||||
(compilation-start cmd 'cargo-process-mode (lambda(_) buffer)))
|
|
||||||
(let ((process (get-buffer-process buffer)))
|
|
||||||
(set-process-sentinel process 'cargo-process--finished-sentinel)
|
|
||||||
process)))
|
|
||||||
|
|
||||||
(defun cargo-process--explain-action (button)
|
|
||||||
"Action called when the user activates Rust errno BUTTON."
|
|
||||||
(cargo-process--explain-help (button-label button)))
|
|
||||||
|
|
||||||
(defun cargo-process--explain-help (errno)
|
|
||||||
"Display a detailed explaination of ERRNO in a markdown buffer."
|
|
||||||
(pop-to-buffer
|
|
||||||
(let ((current-window (selected-window))
|
|
||||||
(inhibit-message t))
|
|
||||||
(with-current-buffer (get-buffer-create "*rust errno*")
|
|
||||||
(let ((buffer-read-only nil))
|
|
||||||
(erase-buffer)
|
|
||||||
(insert (shell-command-to-string
|
|
||||||
(concat cargo-process--rustc-cmd " --explain=" errno))))
|
|
||||||
(markdown-view-mode)
|
|
||||||
(setq-local markdown-fontify-code-blocks-natively t)
|
|
||||||
(setq-local markdown-fontify-code-block-default-mode 'rust-mode)
|
|
||||||
(setq-local kill-buffer-hook (lambda ()
|
|
||||||
(when (window-live-p current-window)
|
|
||||||
(select-window current-window))))
|
|
||||||
(setq
|
|
||||||
header-line-format
|
|
||||||
(concat (propertize " " 'display
|
|
||||||
`(space :align-to (- right-fringe ,(1+ (length errno)))))
|
|
||||||
(propertize errno 'face 'error)))
|
|
||||||
(markdown-toggle-markup-hiding 1)
|
|
||||||
(goto-char 1)
|
|
||||||
(current-buffer)))))
|
|
||||||
|
|
||||||
(defun cargo-process--add-errno-buttons ()
|
|
||||||
"Turn error numbers into clickable links in Cargo process output.
|
|
||||||
Meant to be run as a `compilation-filter-hook'."
|
|
||||||
(save-excursion
|
|
||||||
(let ((start compilation-filter-start)
|
|
||||||
(end (point))
|
|
||||||
(case-fold-search nil))
|
|
||||||
(goto-char start)
|
|
||||||
(while (re-search-forward cargo-process--errno-regex end t)
|
|
||||||
(make-button (match-beginning 0)
|
|
||||||
(match-end 0)
|
|
||||||
:type 'rustc-errno)))))
|
|
||||||
|
|
||||||
(defun cargo-process--get-current-test ()
|
|
||||||
"Return the current test."
|
|
||||||
(save-excursion
|
|
||||||
(unless (cargo-process--defun-at-point-p)
|
|
||||||
(rust-beginning-of-defun))
|
|
||||||
(beginning-of-line)
|
|
||||||
(search-forward "fn ")
|
|
||||||
(let* ((line (buffer-substring-no-properties (point)
|
|
||||||
(line-end-position)))
|
|
||||||
(lines (split-string line "("))
|
|
||||||
(function-name (car lines)))
|
|
||||||
function-name)))
|
|
||||||
|
|
||||||
(defun cargo-process--get-current-mod ()
|
|
||||||
"Return the current mod."
|
|
||||||
(save-excursion
|
|
||||||
(when (search-backward-regexp cargo-process-test-mod-regexp nil t)
|
|
||||||
(let* ((line (buffer-substring-no-properties (line-beginning-position)
|
|
||||||
(line-end-position)))
|
|
||||||
(line (string-trim-left line))
|
|
||||||
(lines (split-string line " \\|{"))
|
|
||||||
(mod (cadr lines)))
|
|
||||||
mod))))
|
|
||||||
|
|
||||||
(defun cargo-process--get-current-test-fullname ()
|
|
||||||
(if (cargo-process--get-current-mod)
|
|
||||||
(concat (cargo-process--get-current-mod)
|
|
||||||
"::"
|
|
||||||
(cargo-process--get-current-test))
|
|
||||||
(cargo-process--get-current-test)))
|
|
||||||
|
|
||||||
(defun cargo-process--maybe-read-command (default)
|
|
||||||
"Prompt to modify the DEFAULT command when the prefix argument is present.
|
|
||||||
Without the prefix argument, return DEFAULT immediately."
|
|
||||||
(if current-prefix-arg
|
|
||||||
(read-shell-command "Cargo command: " default)
|
|
||||||
default))
|
|
||||||
|
|
||||||
(defun cargo-process--get-dependencies (&optional manifest)
|
|
||||||
"Extract the list of dependencies from the
|
|
||||||
MANIFEST (i.e. Cargo.toml)."
|
|
||||||
(with-current-buffer (find-file-noselect (or manifest
|
|
||||||
(cargo-process--project-root "Cargo.toml")))
|
|
||||||
(save-excursion
|
|
||||||
(let ((deps-list))
|
|
||||||
(widen)
|
|
||||||
(goto-char (point-min))
|
|
||||||
(search-forward "[dependencies]" nil t)
|
|
||||||
(while (re-search-forward "^[a-zA-Z\-\_]* *=" nil t)
|
|
||||||
(beginning-of-line)
|
|
||||||
(setq deps-list
|
|
||||||
(cons (thing-at-point 'sexp t) deps-list))
|
|
||||||
(end-of-line))
|
|
||||||
deps-list))))
|
|
||||||
|
|
||||||
(defun cargo-process--augment-cmd-for-os (opens-external cmd)
|
|
||||||
"Augment the cargo CMD according to OS. OPENS-EXTERNAL is non-nil
|
|
||||||
if the CMD is expected to open and external application."
|
|
||||||
(if (and opens-external
|
|
||||||
(not (member system-type '(windows-nt ms-dos)))
|
|
||||||
(executable-find "setsid"))
|
|
||||||
(concat "setsid -w " cmd)
|
|
||||||
cmd))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-bench ()
|
|
||||||
"Run the Cargo bench command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Run the benchmarks."
|
|
||||||
(interactive)
|
|
||||||
(cargo-process--start "Bench" cargo-process--command-bench))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-build ()
|
|
||||||
"Run the Cargo build command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Compile the current project."
|
|
||||||
(interactive)
|
|
||||||
(cargo-process--start "Build" cargo-process--command-build))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-clean ()
|
|
||||||
"Run the Cargo clean command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Remove the target directory."
|
|
||||||
(interactive)
|
|
||||||
(cargo-process--start "Clean" cargo-process--command-clean))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-doc ()
|
|
||||||
"Run the Cargo doc command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Build this project's and its dependencies' documentation."
|
|
||||||
(interactive)
|
|
||||||
(cargo-process--start "Doc" cargo-process--command-doc))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-doc-open ()
|
|
||||||
"Run the Cargo doc command with the --open switch.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Open this project's documentation."
|
|
||||||
(interactive)
|
|
||||||
(cargo-process--start "Doc" cargo-process--command-doc-open nil t))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-new (name &optional bin)
|
|
||||||
"Run the Cargo new command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
NAME is the name of your application.
|
|
||||||
If BIN is t then create a binary application, otherwise a library.
|
|
||||||
Cargo: Create a new cargo project."
|
|
||||||
(interactive "sProject name: ")
|
|
||||||
(let ((bin (if (or bin
|
|
||||||
(y-or-n-p "Create Bin Project? "))
|
|
||||||
" --bin"
|
|
||||||
" --lib")))
|
|
||||||
(cargo-process--start "New" (concat cargo-process--command-new
|
|
||||||
" "
|
|
||||||
name
|
|
||||||
bin))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-init (directory &optional bin)
|
|
||||||
"Run the Cargo init command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
DIRECTORY is the directory you want to create a cargo project in.
|
|
||||||
If BIN is t then create a binary application, otherwise a library.
|
|
||||||
Cargo: Create a new cargo project in current directory.
|
|
||||||
|
|
||||||
DIRECTORY is created if necessary."
|
|
||||||
(interactive
|
|
||||||
(list (read-directory-name "Directory: " nil default-directory nil)))
|
|
||||||
(let* ((bin (if (or bin (y-or-n-p "Create Bin Project? "))
|
|
||||||
" --bin"
|
|
||||||
" --lib"))
|
|
||||||
(process
|
|
||||||
(cargo-process--start "Init" (concat cargo-process--command-init
|
|
||||||
" "
|
|
||||||
directory
|
|
||||||
bin))))
|
|
||||||
(set-process-sentinel
|
|
||||||
process
|
|
||||||
(lambda (process event)
|
|
||||||
(cargo-process--open-manifest process
|
|
||||||
event
|
|
||||||
(expand-file-name "Cargo.toml" directory))))))
|
|
||||||
|
|
||||||
(defun cargo-process--open-manifest (process event manifest-path)
|
|
||||||
"Open the manifest file when process ends."
|
|
||||||
(when (equal event "finished\n")
|
|
||||||
(find-file manifest-path)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-run ()
|
|
||||||
"Run the Cargo run command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Build and execute src/main.rs."
|
|
||||||
(interactive)
|
|
||||||
(cargo-process--start "Run" cargo-process--command-run))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-run-bin (command)
|
|
||||||
"Run the Cargo run command --bin <name>.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Build and execute a specific binary"
|
|
||||||
(interactive "sBinary name: ")
|
|
||||||
(cargo-process--start (concat "Run " command)
|
|
||||||
(concat cargo-process--command-run-bin " " command)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-run-example (command)
|
|
||||||
"Run the Cargo run command --example <name>.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Build and execute with --example <name>."
|
|
||||||
(interactive "sExample name: ")
|
|
||||||
(cargo-process--start (concat "Example " command)
|
|
||||||
(concat cargo-process--command-run-example " " command)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-search (search-term)
|
|
||||||
"Run the Cargo search command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
SEARCH-TERM is used as the search term for the Cargo registry.
|
|
||||||
Cargo: Search registry for crates."
|
|
||||||
(interactive "sSearch: ")
|
|
||||||
(cargo-process--start "Search"
|
|
||||||
(concat cargo-process--command-search " " search-term)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-test ()
|
|
||||||
"Run the Cargo test command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Run the tests."
|
|
||||||
(interactive)
|
|
||||||
(cargo-process--start "Test" cargo-process--command-test))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-current-test ()
|
|
||||||
"Run the Cargo test command for the current test.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Run the tests."
|
|
||||||
(interactive)
|
|
||||||
(cargo-process--start "Test"
|
|
||||||
(concat cargo-process--command-current-test
|
|
||||||
" "
|
|
||||||
(cargo-process--get-current-test-fullname))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-current-file-tests ()
|
|
||||||
"Run the Cargo test command for the current file.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Run the tests."
|
|
||||||
(interactive)
|
|
||||||
(cargo-process--start "Test" (concat cargo-process--command-current-file-tests
|
|
||||||
" "
|
|
||||||
(cargo-process--get-current-mod))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-update ()
|
|
||||||
"Run the Cargo update command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Update dependencies listed in Cargo.lock."
|
|
||||||
(interactive)
|
|
||||||
(cargo-process--start "Update" cargo-process--command-update))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-fmt ()
|
|
||||||
"Run the Cargo fmt command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Requires Cargo Fmt to be installed."
|
|
||||||
(interactive)
|
|
||||||
(cargo-process--start "Fmt" cargo-process--command-fmt))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-outdated ()
|
|
||||||
"Run the Cargo outdated command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Requires Cargo Outdated to be installed."
|
|
||||||
(interactive)
|
|
||||||
(cargo-process--start "Outdated" cargo-process--command-outdated))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-check ()
|
|
||||||
"Run the Cargo check command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Check compile the current project.
|
|
||||||
Requires cargo-check to be installed."
|
|
||||||
(interactive)
|
|
||||||
(cargo-process--start "Check" cargo-process--command-check))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-clippy ()
|
|
||||||
"Run the Cargo clippy command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Clippy compile the current project.
|
|
||||||
Requires Cargo clippy to be installed."
|
|
||||||
(interactive)
|
|
||||||
(cargo-process--start "Clippy" cargo-process--command-clippy))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-add (crate)
|
|
||||||
"Run the Cargo add command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
CRATES is the name of the crate to add.
|
|
||||||
Cargo: This command allows you to add a dependency to a Cargo.toml manifest file."
|
|
||||||
(interactive (list
|
|
||||||
(completing-read "Crate(s) to add: " cargo-process-favorite-crates)))
|
|
||||||
(cargo-process--start "Add" (concat cargo-process--command-add
|
|
||||||
" "
|
|
||||||
crate)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-audit ()
|
|
||||||
"Run the Cargo audit command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
Cargo: Audit checks the current project's Cargo.lock for security vulnerabilities.
|
|
||||||
Requires Cargo Audit to be installed."
|
|
||||||
(interactive)
|
|
||||||
(cargo-process--start "Audit" (concat cargo-process--command-audit
|
|
||||||
" "
|
|
||||||
(cargo-process--project-root "Cargo.lock"))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-rm (crate)
|
|
||||||
"Run the Cargo rm command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
CRATE is the name of the crate to remove.
|
|
||||||
Cargo: Remove a dependency from a Cargo.toml manifest file."
|
|
||||||
(interactive
|
|
||||||
(list
|
|
||||||
(let ((deplist (cargo-process--get-dependencies)))
|
|
||||||
(when deplist
|
|
||||||
(completing-read "Crate to remove: "
|
|
||||||
deplist nil t)))))
|
|
||||||
(if crate (cargo-process--start "Remove" (concat cargo-process--command-rm
|
|
||||||
" "
|
|
||||||
crate))
|
|
||||||
(message "No crates used in current project.")))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-upgrade (&optional all crates)
|
|
||||||
"Run the Cargo update command.
|
|
||||||
With the prefix argument, modify the command's invocation.
|
|
||||||
If ALL is t then update all crates, otherwise specify CRATES.
|
|
||||||
Cargo: Upgrade dependencies as specified in the local manifest file"
|
|
||||||
(interactive)
|
|
||||||
(let ((deplist (cargo-process--get-dependencies)))
|
|
||||||
(if deplist
|
|
||||||
(let* ((all (when (or all
|
|
||||||
(y-or-n-p "Upgrade all crates? "))
|
|
||||||
"--all"))
|
|
||||||
(crates (when (not all)
|
|
||||||
(completing-read "Crate(s) to upgrade: " deplist nil 'confirm))))
|
|
||||||
(cargo-process--start "Upgrade" (concat cargo-process--command-upgrade
|
|
||||||
" "
|
|
||||||
all
|
|
||||||
" "
|
|
||||||
crates)))
|
|
||||||
(message "No crates used in current project."))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun cargo-process-repeat ()
|
|
||||||
"Run the last cargo-process command."
|
|
||||||
(interactive)
|
|
||||||
(if cargo-process-last-command
|
|
||||||
(apply 'cargo-process--start cargo-process-last-command)
|
|
||||||
(message "No last Cargo command.")))
|
|
||||||
|
|
||||||
(define-key cargo-process-mode-map (kbd "n") 'forward-button)
|
|
||||||
(define-key cargo-process-mode-map (kbd "p") 'backward-button)
|
|
||||||
|
|
||||||
(provide 'cargo-process)
|
|
||||||
;;; cargo-process.el ends here
|
|
||||||
Binary file not shown.
@@ -1,97 +0,0 @@
|
|||||||
;;; cargo.el --- Emacs Minor Mode for Cargo, Rust's Package Manager.
|
|
||||||
|
|
||||||
;; Copyright (C) 2015 Kevin W. van Rooijen
|
|
||||||
|
|
||||||
;; Author: Kevin W. van Rooijen <kevin.van.rooijen@attichacker.com>
|
|
||||||
;; Version : 0.4.0
|
|
||||||
;; Keywords: tools
|
|
||||||
;; Package-Requires: ((emacs "24.3") (rust-mode "0.2.0") (markdown-mode "2.4"))
|
|
||||||
|
|
||||||
;; 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:
|
|
||||||
;;
|
|
||||||
;; Cargo Minor mode.
|
|
||||||
;; Provides a number of key combinations and functions for managing Cargo.
|
|
||||||
;; Current supported Cargo Key Combinations:
|
|
||||||
;; * C-c C-c C-e - cargo-process-bench
|
|
||||||
;; * C-c C-c C-b - cargo-process-build
|
|
||||||
;; * C-c C-c C-l - cargo-process-clean
|
|
||||||
;; * C-c C-c C-d - cargo-process-doc
|
|
||||||
;; * C-c C-c C-v - cargo-process-doc-open
|
|
||||||
;; * C-c C-c C-n - cargo-process-new
|
|
||||||
;; * C-c C-c C-i - cargo-process-init
|
|
||||||
;; * C-c C-c C-r - cargo-process-run
|
|
||||||
;; * C-c C-c C-x - cargo-process-run-example
|
|
||||||
;; * C-c C-c C-s - cargo-process-search
|
|
||||||
;; * C-c C-c C-t - cargo-process-test
|
|
||||||
;; * C-c C-c C-u - cargo-process-update
|
|
||||||
;; * C-c C-c C-c - cargo-process-repeat
|
|
||||||
;; * C-c C-c C-f - cargo-process-current-test
|
|
||||||
;; * C-c C-c C-o - cargo-process-current-file-tests
|
|
||||||
;; * C-c C-c C-O - cargo-process-outdated
|
|
||||||
;; * C-c C-c C-m - cargo-process-fmt
|
|
||||||
;; * C-c C-c C-k - cargo-process-check
|
|
||||||
;; * C-c C-c C-K - cargo-process-clippy
|
|
||||||
;; * C-c C-c C-a - cargo-process-add
|
|
||||||
;; * C-c C-c C-D - cargo-process-rm
|
|
||||||
;; * C-c C-c C-U - cargo-process-upgrade
|
|
||||||
;; * C-c C-c C-A - cargo-process-audit
|
|
||||||
|
|
||||||
;;
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'cargo-process)
|
|
||||||
|
|
||||||
(defgroup cargo nil
|
|
||||||
"Cargo group."
|
|
||||||
:prefix "cargo-"
|
|
||||||
:group 'tools)
|
|
||||||
|
|
||||||
(defvar cargo-minor-mode-map (make-keymap) "Cargo-mode keymap.")
|
|
||||||
(defvar cargo-minor-mode nil)
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(define-minor-mode cargo-minor-mode
|
|
||||||
"Cargo minor mode. Used to hold keybindings for cargo-mode.
|
|
||||||
|
|
||||||
\\{cargo-minor-mode-map}"
|
|
||||||
nil " cargo" cargo-minor-mode-map)
|
|
||||||
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-e") 'cargo-process-bench)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-b") 'cargo-process-build)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-l") 'cargo-process-clean)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-d") 'cargo-process-doc)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-v") 'cargo-process-doc-open)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-n") 'cargo-process-new)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-i") 'cargo-process-init)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-r") 'cargo-process-run)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-x") 'cargo-process-run-example)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-s") 'cargo-process-search)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-t") 'cargo-process-test)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-u") 'cargo-process-update)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-c") 'cargo-process-repeat)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-f") 'cargo-process-current-test)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-o") 'cargo-process-current-file-tests)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-S-o") 'cargo-process-outdated)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-m") 'cargo-process-fmt)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-k") 'cargo-process-check)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-S-k") 'cargo-process-clippy)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-a") 'cargo-process-add)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-S-d") 'cargo-process-rm)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-S-u") 'cargo-process-upgrade)
|
|
||||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-S-a") 'cargo-process-audit)
|
|
||||||
|
|
||||||
(provide 'cargo)
|
|
||||||
;;; cargo.el ends here
|
|
||||||
Binary file not shown.
@@ -1,50 +0,0 @@
|
|||||||
;;; company-abbrev.el --- company-mode completion backend for abbrev
|
|
||||||
|
|
||||||
;; Copyright (C) 2009-2011, 2015 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 <http://www.gnu.org/licenses/>.
|
|
||||||
|
|
||||||
|
|
||||||
;;; 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 backend 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))))
|
|
||||||
|
|
||||||
(provide 'company-abbrev)
|
|
||||||
;;; company-abbrev.el ends here
|
|
||||||
Binary file not shown.
@@ -1,383 +0,0 @@
|
|||||||
;;; company-autoloads.el --- automatically extracted autoloads
|
|
||||||
;;
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(add-to-list 'load-path (directory-file-name
|
|
||||||
(or (file-name-directory #$) (car load-path))))
|
|
||||||
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company" "company.el" (0 0 0 0))
|
|
||||||
;;; 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 backend, call
|
|
||||||
it interactively or use `company-begin-backend'.
|
|
||||||
|
|
||||||
By default, the completions list is sorted alphabetically, unless the
|
|
||||||
backend chooses otherwise, or `company-transformers' changes it later.
|
|
||||||
|
|
||||||
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 `global-company-mode' command
|
|
||||||
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)
|
|
||||||
|
|
||||||
(autoload 'company-manual-begin "company" "\
|
|
||||||
|
|
||||||
|
|
||||||
\(fn)" t nil)
|
|
||||||
|
|
||||||
(autoload 'company-complete "company" "\
|
|
||||||
Insert the common part of all candidates or the current selection.
|
|
||||||
The first time this is called, the common part is inserted, the second
|
|
||||||
time, or when the selection has been changed, the selected candidate is
|
|
||||||
inserted.
|
|
||||||
|
|
||||||
\(fn)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company" '("company-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-abbrev" "company-abbrev.el" (0 0 0
|
|
||||||
;;;;;; 0))
|
|
||||||
;;; Generated autoloads from company-abbrev.el
|
|
||||||
|
|
||||||
(autoload 'company-abbrev "company-abbrev" "\
|
|
||||||
`company-mode' completion backend for abbrev.
|
|
||||||
|
|
||||||
\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-abbrev" '("company-abbrev-insert")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-bbdb" "company-bbdb.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from company-bbdb.el
|
|
||||||
|
|
||||||
(autoload 'company-bbdb "company-bbdb" "\
|
|
||||||
`company-mode' completion backend for BBDB.
|
|
||||||
|
|
||||||
\(fn COMMAND &optional ARG &rest IGNORE)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-bbdb" '("company-bbdb-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-capf" "company-capf.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from company-capf.el
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-capf" '("company-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-clang" "company-clang.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from company-clang.el
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-clang" '("company-clang")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-cmake" "company-cmake.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from company-cmake.el
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-cmake" '("company-cmake")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-css" "company-css.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from company-css.el
|
|
||||||
|
|
||||||
(autoload 'company-css "company-css" "\
|
|
||||||
`company-mode' completion backend for `css-mode'.
|
|
||||||
|
|
||||||
\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-css" '("company-css-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-dabbrev" "company-dabbrev.el" (0 0
|
|
||||||
;;;;;; 0 0))
|
|
||||||
;;; Generated autoloads from company-dabbrev.el
|
|
||||||
|
|
||||||
(autoload 'company-dabbrev "company-dabbrev" "\
|
|
||||||
dabbrev-like `company-mode' completion backend.
|
|
||||||
|
|
||||||
\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-dabbrev" '("company-dabbrev-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-dabbrev-code" "company-dabbrev-code.el"
|
|
||||||
;;;;;; (0 0 0 0))
|
|
||||||
;;; Generated autoloads from company-dabbrev-code.el
|
|
||||||
|
|
||||||
(autoload 'company-dabbrev-code "company-dabbrev-code" "\
|
|
||||||
dabbrev-like `company-mode' backend for code.
|
|
||||||
The backend looks for all symbols in the current buffer that aren't in
|
|
||||||
comments or strings.
|
|
||||||
|
|
||||||
\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-dabbrev-code" '("company-dabbrev-code-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-eclim" "company-eclim.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from company-eclim.el
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-eclim" '("company-eclim")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-elisp" "company-elisp.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from company-elisp.el
|
|
||||||
|
|
||||||
(autoload 'company-elisp "company-elisp" "\
|
|
||||||
`company-mode' completion backend for Emacs Lisp.
|
|
||||||
|
|
||||||
\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-elisp" '("company-elisp-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-etags" "company-etags.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from company-etags.el
|
|
||||||
|
|
||||||
(autoload 'company-etags "company-etags" "\
|
|
||||||
`company-mode' completion backend for etags.
|
|
||||||
|
|
||||||
\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-etags" '("company-etags-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-files" "company-files.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from company-files.el
|
|
||||||
|
|
||||||
(autoload 'company-files "company-files" "\
|
|
||||||
`company-mode' completion backend existing file names.
|
|
||||||
Completions works for proper absolute and relative files paths.
|
|
||||||
File paths with spaces are only supported inside strings.
|
|
||||||
|
|
||||||
\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-files" '("company-file")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-gtags" "company-gtags.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from company-gtags.el
|
|
||||||
|
|
||||||
(autoload 'company-gtags "company-gtags" "\
|
|
||||||
`company-mode' completion backend for GNU Global.
|
|
||||||
|
|
||||||
\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-gtags" '("company-gtags-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-ispell" "company-ispell.el" (0 0 0
|
|
||||||
;;;;;; 0))
|
|
||||||
;;; Generated autoloads from company-ispell.el
|
|
||||||
|
|
||||||
(autoload 'company-ispell "company-ispell" "\
|
|
||||||
`company-mode' completion backend using Ispell.
|
|
||||||
|
|
||||||
\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-ispell" '("company-ispell-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-keywords" "company-keywords.el" (0
|
|
||||||
;;;;;; 0 0 0))
|
|
||||||
;;; Generated autoloads from company-keywords.el
|
|
||||||
|
|
||||||
(autoload 'company-keywords "company-keywords" "\
|
|
||||||
`company-mode' backend for programming language keywords.
|
|
||||||
|
|
||||||
\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-keywords" '("company-keywords-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-nxml" "company-nxml.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from company-nxml.el
|
|
||||||
|
|
||||||
(autoload 'company-nxml "company-nxml" "\
|
|
||||||
`company-mode' completion backend for `nxml-mode'.
|
|
||||||
|
|
||||||
\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-nxml" '("company-nxml-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-oddmuse" "company-oddmuse.el" (0 0
|
|
||||||
;;;;;; 0 0))
|
|
||||||
;;; Generated autoloads from company-oddmuse.el
|
|
||||||
|
|
||||||
(autoload 'company-oddmuse "company-oddmuse" "\
|
|
||||||
`company-mode' completion backend for `oddmuse-mode'.
|
|
||||||
|
|
||||||
\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-oddmuse" '("company-oddmuse-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-semantic" "company-semantic.el" (0
|
|
||||||
;;;;;; 0 0 0))
|
|
||||||
;;; Generated autoloads from company-semantic.el
|
|
||||||
|
|
||||||
(autoload 'company-semantic "company-semantic" "\
|
|
||||||
`company-mode' completion backend using CEDET Semantic.
|
|
||||||
|
|
||||||
\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-semantic" '("company-semantic-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-template" "company-template.el" (0
|
|
||||||
;;;;;; 0 0 0))
|
|
||||||
;;; Generated autoloads from company-template.el
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-template" '("company-template-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-tempo" "company-tempo.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from company-tempo.el
|
|
||||||
|
|
||||||
(autoload 'company-tempo "company-tempo" "\
|
|
||||||
`company-mode' completion backend for tempo.
|
|
||||||
|
|
||||||
\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-tempo" '("company-tempo-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-tng" "company-tng.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from company-tng.el
|
|
||||||
|
|
||||||
(autoload 'company-tng-frontend "company-tng" "\
|
|
||||||
When the user changes the selection at least once, this
|
|
||||||
frontend will display the candidate in the buffer as if it's
|
|
||||||
already there and any key outside of `company-active-map' will
|
|
||||||
confirm the selection and finish the completion.
|
|
||||||
|
|
||||||
\(fn COMMAND)" nil nil)
|
|
||||||
|
|
||||||
(autoload 'company-tng-configure-default "company-tng" "\
|
|
||||||
Applies the default configuration to enable company-tng.
|
|
||||||
|
|
||||||
\(fn)" nil nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-tng" '("company-tng--")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-xcode" "company-xcode.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from company-xcode.el
|
|
||||||
|
|
||||||
(autoload 'company-xcode "company-xcode" "\
|
|
||||||
`company-mode' completion backend for Xcode projects.
|
|
||||||
|
|
||||||
\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-xcode" '("company-xcode-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "company-yasnippet" "company-yasnippet.el"
|
|
||||||
;;;;;; (0 0 0 0))
|
|
||||||
;;; Generated autoloads from company-yasnippet.el
|
|
||||||
|
|
||||||
(autoload 'company-yasnippet "company-yasnippet" "\
|
|
||||||
`company-mode' backend for `yasnippet'.
|
|
||||||
|
|
||||||
This backend should be used with care, because as long as there are
|
|
||||||
snippets defined for the current major mode, this backend will always
|
|
||||||
shadow backends that come after it. Recommended usages:
|
|
||||||
|
|
||||||
* In a buffer-local value of `company-backends', grouped with a backend 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 backends.
|
|
||||||
|
|
||||||
(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)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-yasnippet" '("company-yasnippet--")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil nil ("company-pkg.el") (0 0 0 0))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;; Local Variables:
|
|
||||||
;; version-control: never
|
|
||||||
;; no-byte-compile: t
|
|
||||||
;; no-update-autoloads: t
|
|
||||||
;; coding: utf-8
|
|
||||||
;; End:
|
|
||||||
;;; company-autoloads.el ends here
|
|
||||||
@@ -1,61 +0,0 @@
|
|||||||
;;; company-bbdb.el --- company-mode completion backend for BBDB in message-mode
|
|
||||||
|
|
||||||
;; Copyright (C) 2013-2014, 2016 Free Software Foundation, Inc.
|
|
||||||
|
|
||||||
;; Author: Jan Tatarik <jan.tatarik@gmail.com>
|
|
||||||
|
|
||||||
;; 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 <http://www.gnu.org/licenses/>.
|
|
||||||
|
|
||||||
(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")
|
|
||||||
|
|
||||||
(defgroup company-bbdb nil
|
|
||||||
"Completion backend for BBDB."
|
|
||||||
:group 'company)
|
|
||||||
|
|
||||||
(defcustom company-bbdb-modes '(message-mode)
|
|
||||||
"Major modes in which `company-bbdb' may complete."
|
|
||||||
:type '(repeat (symbol :tag "Major mode"))
|
|
||||||
:package-version '(company . "0.8.8"))
|
|
||||||
|
|
||||||
(defun company-bbdb--candidates (arg)
|
|
||||||
(cl-mapcan (lambda (record)
|
|
||||||
(mapcar (lambda (mail) (bbdb-dwim-mail record mail))
|
|
||||||
(bbdb-record-get-field record 'mail)))
|
|
||||||
(eval '(bbdb-search (bbdb-records) arg nil arg))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun company-bbdb (command &optional arg &rest ignore)
|
|
||||||
"`company-mode' completion backend for BBDB."
|
|
||||||
(interactive (list 'interactive))
|
|
||||||
(cl-case command
|
|
||||||
(interactive (company-begin-backend 'company-bbdb))
|
|
||||||
(prefix (and (memq major-mode company-bbdb-modes)
|
|
||||||
(featurep 'bbdb-com)
|
|
||||||
(looking-back "^\\(To\\|Cc\\|Bcc\\): *.*? *\\([^,;]*\\)"
|
|
||||||
(line-beginning-position))
|
|
||||||
(match-string-no-properties 2)))
|
|
||||||
(candidates (company-bbdb--candidates arg))
|
|
||||||
(sorted t)
|
|
||||||
(no-cache t)))
|
|
||||||
|
|
||||||
(provide 'company-bbdb)
|
|
||||||
;;; company-bbdb.el ends here
|
|
||||||
Binary file not shown.
@@ -1,206 +0,0 @@
|
|||||||
;;; company-capf.el --- company-mode completion-at-point-functions backend -*- lexical-binding: t -*-
|
|
||||||
|
|
||||||
;; Copyright (C) 2013-2019 Free Software Foundation, Inc.
|
|
||||||
|
|
||||||
;; Author: Stefan Monnier <monnier@iro.umontreal.ca>
|
|
||||||
|
|
||||||
;; 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 <http://www.gnu.org/licenses/>.
|
|
||||||
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
;;
|
|
||||||
;; The CAPF back-end provides a bridge to the standard
|
|
||||||
;; completion-at-point-functions facility, and thus can support any major mode
|
|
||||||
;; that defines a proper completion function, including emacs-lisp-mode,
|
|
||||||
;; css-mode and nxml-mode.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'company)
|
|
||||||
(require 'cl-lib)
|
|
||||||
|
|
||||||
;; Amortizes several calls to a c-a-p-f from the same position.
|
|
||||||
(defvar company--capf-cache nil)
|
|
||||||
|
|
||||||
;; FIXME: Provide a way to save this info once in Company itself
|
|
||||||
;; (https://github.com/company-mode/company-mode/pull/845).
|
|
||||||
(defvar-local company-capf--current-completion-data nil
|
|
||||||
"Value last returned by `company-capf' when called with `candidates'.
|
|
||||||
For most properties/actions, this is just what we need: the exact values
|
|
||||||
that accompanied the completion table that's currently is use.
|
|
||||||
|
|
||||||
`company-capf', however, could be called at some different positions during
|
|
||||||
a completion session (most importantly, by `company-sort-by-occurrence'),
|
|
||||||
so we can't just use the preceding variable instead.")
|
|
||||||
|
|
||||||
(defun company--capf-data ()
|
|
||||||
(let ((cache company--capf-cache))
|
|
||||||
(if (and (equal (current-buffer) (car cache))
|
|
||||||
(equal (point) (car (setq cache (cdr cache))))
|
|
||||||
(equal (buffer-chars-modified-tick) (car (setq cache (cdr cache)))))
|
|
||||||
(cadr cache)
|
|
||||||
(let ((data (company--capf-data-real)))
|
|
||||||
(setq company--capf-cache
|
|
||||||
(list (current-buffer) (point) (buffer-chars-modified-tick) data))
|
|
||||||
data))))
|
|
||||||
|
|
||||||
(defun company--capf-data-real ()
|
|
||||||
(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)))
|
|
||||||
(completion-at-point-functions (company--capf-workaround))
|
|
||||||
(data (run-hook-wrapped 'completion-at-point-functions
|
|
||||||
;; Ignore misbehaving functions.
|
|
||||||
#'completion--capf-wrapper 'optimist)))
|
|
||||||
(when (and (consp (cdr data)) (integer-or-marker-p (nth 1 data))) data)))
|
|
||||||
|
|
||||||
(declare-function python-shell-get-process "python")
|
|
||||||
|
|
||||||
(defun company--capf-workaround ()
|
|
||||||
;; For http://debbugs.gnu.org/cgi/bugreport.cgi?bug=18067
|
|
||||||
(if (or (not (listp completion-at-point-functions))
|
|
||||||
(not (memq 'python-completion-complete-at-point completion-at-point-functions))
|
|
||||||
(python-shell-get-process))
|
|
||||||
completion-at-point-functions
|
|
||||||
(remq 'python-completion-complete-at-point completion-at-point-functions)))
|
|
||||||
|
|
||||||
(defun company-capf--save-current-data (data)
|
|
||||||
(setq company-capf--current-completion-data data)
|
|
||||||
(add-hook 'company-after-completion-hook
|
|
||||||
#'company-capf--clear-current-data nil t))
|
|
||||||
|
|
||||||
(defun company-capf--clear-current-data (_ignored)
|
|
||||||
(setq company-capf--current-completion-data nil))
|
|
||||||
|
|
||||||
(defvar-local company-capf--sorted nil)
|
|
||||||
|
|
||||||
(defun company-capf (command &optional arg &rest _args)
|
|
||||||
"`company-mode' backend using `completion-at-point-functions'."
|
|
||||||
(interactive (list 'interactive))
|
|
||||||
(pcase command
|
|
||||||
(`interactive (company-begin-backend 'company-capf))
|
|
||||||
(`prefix
|
|
||||||
(let ((res (company--capf-data)))
|
|
||||||
(when res
|
|
||||||
(let ((length (plist-get (nthcdr 4 res) :company-prefix-length))
|
|
||||||
(prefix (buffer-substring-no-properties (nth 1 res) (point))))
|
|
||||||
(cond
|
|
||||||
((> (nth 2 res) (point)) 'stop)
|
|
||||||
(length (cons prefix length))
|
|
||||||
(t prefix))))))
|
|
||||||
(`candidates
|
|
||||||
(company-capf--candidates arg))
|
|
||||||
(`sorted
|
|
||||||
company-capf--sorted)
|
|
||||||
(`match
|
|
||||||
;; Ask the for the `:company-match' function. If that doesn't help,
|
|
||||||
;; fallback to sniffing for face changes to get a suitable value.
|
|
||||||
(let ((f (plist-get (nthcdr 4 company-capf--current-completion-data)
|
|
||||||
:company-match)))
|
|
||||||
(if f (funcall f arg)
|
|
||||||
(let* ((match-start nil) (pos -1)
|
|
||||||
(prop-value nil) (faces nil)
|
|
||||||
(has-face-p nil) chunks
|
|
||||||
(limit (length arg)))
|
|
||||||
(while (< pos limit)
|
|
||||||
(setq pos
|
|
||||||
(if (< pos 0) 0 (next-property-change pos arg limit)))
|
|
||||||
(setq prop-value (or
|
|
||||||
(get-text-property pos 'face arg)
|
|
||||||
(get-text-property pos 'font-lock-face arg))
|
|
||||||
faces (if (listp prop-value) prop-value (list prop-value))
|
|
||||||
has-face-p (memq 'completions-common-part faces))
|
|
||||||
(cond ((and (not match-start) has-face-p)
|
|
||||||
(setq match-start pos))
|
|
||||||
((and match-start (not has-face-p))
|
|
||||||
(push (cons match-start pos) chunks)
|
|
||||||
(setq match-start nil))))
|
|
||||||
(nreverse chunks)))))
|
|
||||||
(`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--current-completion-data)
|
|
||||||
:company-docsig)))
|
|
||||||
(when f (funcall f arg))))
|
|
||||||
(`doc-buffer
|
|
||||||
(let ((f (plist-get (nthcdr 4 company-capf--current-completion-data)
|
|
||||||
:company-doc-buffer)))
|
|
||||||
(when f (funcall f arg))))
|
|
||||||
(`location
|
|
||||||
(let ((f (plist-get (nthcdr 4 company-capf--current-completion-data)
|
|
||||||
:company-location)))
|
|
||||||
(when f (funcall f arg))))
|
|
||||||
(`annotation
|
|
||||||
(let ((f (plist-get (nthcdr 4 company-capf--current-completion-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
|
|
||||||
(company--capf-post-completion arg))
|
|
||||||
))
|
|
||||||
|
|
||||||
(defun company-capf--candidates (input)
|
|
||||||
(let ((res (company--capf-data)))
|
|
||||||
(company-capf--save-current-data res)
|
|
||||||
(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))
|
|
||||||
(candidates (completion-all-completions input table pred
|
|
||||||
(length input)
|
|
||||||
meta))
|
|
||||||
(sortfun (cdr (assq 'display-sort-function meta)))
|
|
||||||
(last (last candidates))
|
|
||||||
(base-size (and (numberp (cdr last)) (cdr last))))
|
|
||||||
(when base-size
|
|
||||||
(setcdr last nil))
|
|
||||||
(setq company-capf--sorted (functionp sortfun))
|
|
||||||
(when sortfun
|
|
||||||
(setq candidates (funcall sortfun candidates)))
|
|
||||||
(if (not (zerop (or base-size 0)))
|
|
||||||
(let ((before (substring input 0 base-size)))
|
|
||||||
(mapcar (lambda (candidate)
|
|
||||||
(concat before candidate))
|
|
||||||
candidates))
|
|
||||||
candidates)))))
|
|
||||||
|
|
||||||
(defun company--capf-post-completion (arg)
|
|
||||||
(let* ((res company-capf--current-completion-data)
|
|
||||||
(exit-function (plist-get (nthcdr 4 res) :exit-function))
|
|
||||||
(table (nth 3 res))
|
|
||||||
(pred (plist-get (nthcdr 4 res) :predicate)))
|
|
||||||
(if exit-function
|
|
||||||
;; Follow the example of `completion--done'.
|
|
||||||
(funcall exit-function arg
|
|
||||||
;; FIXME: Should probably use an additional heuristic:
|
|
||||||
;; completion-at-point doesn't know when the user picked a
|
|
||||||
;; particular candidate explicitly (it only checks whether
|
|
||||||
;; further completions exist). Whereas company user can press
|
|
||||||
;; RET (or use implicit completion with company-tng).
|
|
||||||
(if (eq (try-completion arg table pred) t)
|
|
||||||
'finished 'sole)))))
|
|
||||||
|
|
||||||
(provide 'company-capf)
|
|
||||||
|
|
||||||
;;; company-capf.el ends here
|
|
||||||
Binary file not shown.
@@ -1,351 +0,0 @@
|
|||||||
;;; company-clang.el --- company-mode completion backend for Clang -*- lexical-binding: t -*-
|
|
||||||
|
|
||||||
;; Copyright (C) 2009, 2011, 2013-2019 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 <http://www.gnu.org/licenses/>.
|
|
||||||
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
;;
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'company)
|
|
||||||
(require 'company-template)
|
|
||||||
(require 'cl-lib)
|
|
||||||
|
|
||||||
(defgroup company-clang nil
|
|
||||||
"Completion backend 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
|
|
||||||
\":\"."
|
|
||||||
:type 'boolean)
|
|
||||||
|
|
||||||
(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")))
|
|
||||||
|
|
||||||
(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_:]*\\)\\(?:\\(?: (InBase)\\)? : \\(.*\\)$\\)?$")
|
|
||||||
|
|
||||||
(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 ((ann (company-clang--annotation-1 candidate)))
|
|
||||||
(if (not (and ann (string-prefix-p "(*)" ann)))
|
|
||||||
ann
|
|
||||||
(with-temp-buffer
|
|
||||||
(insert ann)
|
|
||||||
(search-backward ")")
|
|
||||||
(let ((pt (1+ (point))))
|
|
||||||
(re-search-forward ".\\_>" nil t)
|
|
||||||
(delete-region pt (point)))
|
|
||||||
(buffer-string)))))
|
|
||||||
|
|
||||||
(defun company-clang--annotation-1 (candidate)
|
|
||||||
(let ((meta (company-clang--meta candidate)))
|
|
||||||
(cond
|
|
||||||
((null meta) nil)
|
|
||||||
((string-match "[^:]:[^:]" meta)
|
|
||||||
(substring meta (1+ (match-beginning 0))))
|
|
||||||
((string-match "(anonymous)" meta) nil)
|
|
||||||
((string-match "\\((.*)[ a-z]*\\'\\)" meta)
|
|
||||||
(let ((paren (match-beginning 1)))
|
|
||||||
(if (not (eq (aref meta (1- paren)) ?>))
|
|
||||||
(match-string 1 meta)
|
|
||||||
(with-temp-buffer
|
|
||||||
(insert meta)
|
|
||||||
(goto-char paren)
|
|
||||||
(substring meta (1- (search-backward "<"))))))))))
|
|
||||||
|
|
||||||
(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 ""))
|
|
||||||
(message-truncate-lines t)
|
|
||||||
(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: %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*"))
|
|
||||||
;; Looks unnecessary in Emacs 25.1 and later.
|
|
||||||
(process-adaptive-read-buffering nil)
|
|
||||||
(existing-process (get-buffer-process buf)))
|
|
||||||
(when existing-process
|
|
||||||
(kill-process existing-process))
|
|
||||||
(with-current-buffer buf
|
|
||||||
(erase-buffer)
|
|
||||||
(setq buffer-undo-list t))
|
|
||||||
(let* ((process-connection-type nil)
|
|
||||||
(process (apply #'start-file-process "company-clang" buf
|
|
||||||
company-clang-executable args)))
|
|
||||||
(set-process-sentinel
|
|
||||||
process
|
|
||||||
(lambda (proc status)
|
|
||||||
(unless (string-match-p "hangup\\|killed" 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
|
|
||||||
(if (company-clang--check-version 4.0 9.0)
|
|
||||||
(point)
|
|
||||||
(- (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 ()
|
|
||||||
(not
|
|
||||||
(company-clang--check-version 2.9 3.1)))
|
|
||||||
|
|
||||||
(defun company-clang--check-version (min apple-min)
|
|
||||||
(pcase company-clang--version
|
|
||||||
(`(apple . ,ver) (>= ver apple-min))
|
|
||||||
(`(normal . ,ver) (>= ver min))
|
|
||||||
(_ (error "pcase-exhaustive is not in Emacs 24.3!"))))
|
|
||||||
|
|
||||||
(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\\|Apple LLVM\\|bcc32x\\|bcc64\\) version \\([0-9.]+\\)" nil t)
|
|
||||||
(cons
|
|
||||||
(if (equal (match-string-no-properties 1) "Apple LLVM")
|
|
||||||
'apple
|
|
||||||
'normal)
|
|
||||||
(string-to-number (match-string-no-properties 2)))
|
|
||||||
0)))
|
|
||||||
|
|
||||||
(defun company-clang (command &optional arg &rest ignored)
|
|
||||||
"`company-mode' completion backend 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))
|
|
||||||
(unless (company-clang--check-version
|
|
||||||
company-clang-required-version
|
|
||||||
company-clang-required-version)
|
|
||||||
(error "Company requires clang version %s"
|
|
||||||
company-clang-required-version))))
|
|
||||||
(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-template-objc-templatify anno)
|
|
||||||
(company-template-c-like-templatify
|
|
||||||
(concat arg anno))))))))
|
|
||||||
|
|
||||||
(provide 'company-clang)
|
|
||||||
;;; company-clang.el ends here
|
|
||||||
Binary file not shown.
@@ -1,206 +0,0 @@
|
|||||||
;;; company-cmake.el --- company-mode completion backend for CMake
|
|
||||||
|
|
||||||
;; Copyright (C) 2013-2014, 2017-2018 Free Software Foundation, Inc.
|
|
||||||
|
|
||||||
;; Author: Chen Bin <chenbin DOT sh AT gmail>
|
|
||||||
;; Version: 0.2
|
|
||||||
|
|
||||||
;; 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:
|
|
||||||
;;
|
|
||||||
;; 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 backend 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--candidates-cache nil
|
|
||||||
"Cache for the raw candidates.")
|
|
||||||
|
|
||||||
(defvar company-cmake--meta-command-cache nil
|
|
||||||
"Cache for command arguments to retrieve descriptions for the candidates.")
|
|
||||||
|
|
||||||
(defun company-cmake--replace-tags (rlt)
|
|
||||||
(setq rlt (replace-regexp-in-string
|
|
||||||
"\\(.*?\\(IS_GNU\\)?\\)<LANG>\\(.*\\)"
|
|
||||||
(lambda (_match)
|
|
||||||
(mapconcat 'identity
|
|
||||||
(if (match-beginning 2)
|
|
||||||
'("\\1CXX\\3" "\\1C\\3" "\\1G77\\3")
|
|
||||||
'("\\1CXX\\3" "\\1C\\3" "\\1Fortran\\3"))
|
|
||||||
"\n"))
|
|
||||||
rlt t))
|
|
||||||
(setq rlt (replace-regexp-in-string
|
|
||||||
"\\(.*\\)<CONFIG>\\(.*\\)"
|
|
||||||
(mapconcat 'identity '("\\1DEBUG\\2" "\\1RELEASE\\2"
|
|
||||||
"\\1RELWITHDEBINFO\\2" "\\1MINSIZEREL\\2")
|
|
||||||
"\n")
|
|
||||||
rlt))
|
|
||||||
rlt)
|
|
||||||
|
|
||||||
(defun company-cmake--fill-candidates-cache (arg)
|
|
||||||
"Fill candidates cache if needed."
|
|
||||||
(let (rlt)
|
|
||||||
(unless company-cmake--candidates-cache
|
|
||||||
(setq company-cmake--candidates-cache (make-hash-table :test 'equal)))
|
|
||||||
|
|
||||||
;; If hash is empty, fill it.
|
|
||||||
(unless (gethash arg company-cmake--candidates-cache)
|
|
||||||
(with-temp-buffer
|
|
||||||
(let ((res (call-process company-cmake-executable nil t nil arg)))
|
|
||||||
(unless (zerop res)
|
|
||||||
(message "cmake executable exited with error=%d" res)))
|
|
||||||
(setq rlt (buffer-string)))
|
|
||||||
(setq rlt (company-cmake--replace-tags rlt))
|
|
||||||
(puthash arg rlt company-cmake--candidates-cache))
|
|
||||||
))
|
|
||||||
|
|
||||||
(defun company-cmake--parse (prefix content cmd)
|
|
||||||
(let ((start 0)
|
|
||||||
(pattern (format company-cmake--completion-pattern
|
|
||||||
(regexp-quote prefix)
|
|
||||||
(if (zerop (length prefix)) "+" "*")))
|
|
||||||
(lines (split-string content "\n"))
|
|
||||||
match
|
|
||||||
rlt)
|
|
||||||
(dolist (line lines)
|
|
||||||
(when (string-match pattern line)
|
|
||||||
(let ((match (match-string 1 line)))
|
|
||||||
(when match
|
|
||||||
(puthash match cmd company-cmake--meta-command-cache)
|
|
||||||
(push match rlt)))))
|
|
||||||
rlt))
|
|
||||||
|
|
||||||
(defun company-cmake--candidates (prefix)
|
|
||||||
(let (results
|
|
||||||
cmd-opts
|
|
||||||
str)
|
|
||||||
|
|
||||||
(unless company-cmake--meta-command-cache
|
|
||||||
(setq company-cmake--meta-command-cache (make-hash-table :test 'equal)))
|
|
||||||
|
|
||||||
(dolist (arg company-cmake-executable-arguments)
|
|
||||||
(company-cmake--fill-candidates-cache arg)
|
|
||||||
(setq cmd-opts (replace-regexp-in-string "-list$" "" arg) )
|
|
||||||
|
|
||||||
(setq str (gethash arg company-cmake--candidates-cache))
|
|
||||||
(when str
|
|
||||||
(setq results (nconc results
|
|
||||||
(company-cmake--parse prefix str cmd-opts)))))
|
|
||||||
results))
|
|
||||||
|
|
||||||
(defun company-cmake--unexpand-candidate (candidate)
|
|
||||||
(cond
|
|
||||||
((string-match "^CMAKE_\\(C\\|CXX\\|Fortran\\)\\(_.*\\)$" candidate)
|
|
||||||
(setq candidate (concat "CMAKE_<LANG>" (match-string 2 candidate))))
|
|
||||||
|
|
||||||
;; C flags
|
|
||||||
((string-match "^\\(.*_\\)IS_GNU\\(C\\|CXX\\|G77\\)$" candidate)
|
|
||||||
(setq candidate (concat (match-string 1 candidate) "IS_GNU<LANG>")))
|
|
||||||
|
|
||||||
;; C flags
|
|
||||||
((string-match "^\\(.*_\\)OVERRIDE_\\(C\\|CXX\\|Fortran\\)$" candidate)
|
|
||||||
(setq candidate (concat (match-string 1 candidate) "OVERRIDE_<LANG>")))
|
|
||||||
|
|
||||||
((string-match "^\\(.*\\)\\(_DEBUG\\|_RELEASE\\|_RELWITHDEBINFO\\|_MINSIZEREL\\)\\(.*\\)$" candidate)
|
|
||||||
(setq candidate (concat (match-string 1 candidate)
|
|
||||||
"_<CONFIG>"
|
|
||||||
(match-string 3 candidate)))))
|
|
||||||
candidate)
|
|
||||||
|
|
||||||
(defun company-cmake--meta (candidate)
|
|
||||||
(let ((cmd-opts (gethash candidate company-cmake--meta-command-cache))
|
|
||||||
result)
|
|
||||||
(setq candidate (company-cmake--unexpand-candidate candidate))
|
|
||||||
|
|
||||||
;; Don't cache the documentation of every candidate (command)
|
|
||||||
;; Cache in this case will cost too much memory.
|
|
||||||
(with-temp-buffer
|
|
||||||
(call-process company-cmake-executable nil t nil cmd-opts candidate)
|
|
||||||
;; 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 (candidate)
|
|
||||||
(let ((cmd-opts (gethash candidate company-cmake--meta-command-cache)))
|
|
||||||
|
|
||||||
(setq candidate (company-cmake--unexpand-candidate candidate))
|
|
||||||
(with-temp-buffer
|
|
||||||
(call-process company-cmake-executable nil t nil cmd-opts candidate)
|
|
||||||
;; 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-prefix-dollar-brace-p ()
|
|
||||||
"Test if the current symbol follows ${."
|
|
||||||
(save-excursion
|
|
||||||
(skip-syntax-backward "w_")
|
|
||||||
(and (eq (char-before (point)) ?\{)
|
|
||||||
(eq (char-before (1- (point))) ?$))))
|
|
||||||
|
|
||||||
(defun company-cmake (command &optional arg &rest ignored)
|
|
||||||
"`company-mode' completion backend 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)
|
|
||||||
(or (not (company-in-string-or-comment))
|
|
||||||
(company-cmake-prefix-dollar-brace-p))
|
|
||||||
(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
|
|
||||||
Binary file not shown.
@@ -1,446 +0,0 @@
|
|||||||
;;; company-css.el --- company-mode completion backend for css-mode -*- lexical-binding: t -*-
|
|
||||||
|
|
||||||
;; Copyright (C) 2009, 2011, 2014, 2018 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 <http://www.gnu.org/licenses/>.
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
;;
|
|
||||||
;; In Emacs >= 26, company-capf is used instead.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'company)
|
|
||||||
(require 'cl-lib)
|
|
||||||
|
|
||||||
(declare-function web-mode-language-at-pos "web-mode" (&optional pos))
|
|
||||||
|
|
||||||
(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
|
|
||||||
;; <angle><frequency><identifier><integer><length><number><padding-width>
|
|
||||||
;; <percentage><specific-voice><string><time><uri>
|
|
||||||
|
|
||||||
(defconst company-css-html-tags
|
|
||||||
'("a" "abbr" "acronym" "address" "applet" "area" "b" "base" "basefont" "bdo"
|
|
||||||
"big" "blockquote" "body" "br" "button" "caption" "center" "cite" "code"
|
|
||||||
"col" "colgroup" "dd" "del" "dfn" "dir" "div" "dl" "dt" "em" "fieldset"
|
|
||||||
"font" "form" "frame" "frameset" "h1" "h2" "h3" "h4" "h5" "h6" "head" "hr"
|
|
||||||
"html" "i" "iframe" "img" "input" "ins" "isindex" "kbd" "label" "legend"
|
|
||||||
"li" "link" "map" "menu" "meta" "noframes" "noscript" "object" "ol"
|
|
||||||
"optgroup" "option" "p" "param" "pre" "q" "s" "samp" "script" "select"
|
|
||||||
"small" "span" "strike" "strong" "style" "sub" "sup" "table" "tbody" "td"
|
|
||||||
"textarea" "tfoot" "th" "thead" "title" "tr" "tt" "u" "ul" "var"
|
|
||||||
;; HTML5
|
|
||||||
"section" "article" "aside" "header" "footer" "nav" "figure" "figcaption"
|
|
||||||
"time" "mark" "main")
|
|
||||||
"A list of HTML tags for use in CSS completion.")
|
|
||||||
|
|
||||||
(defconst company-css-pseudo-classes
|
|
||||||
'("active" "after" "before" "first" "first-child" "first-letter" "first-line"
|
|
||||||
"focus" "hover" "lang" "left" "link" "right" "visited")
|
|
||||||
"Identifiers for CSS pseudo-elements and pseudo-classes.")
|
|
||||||
|
|
||||||
(defconst company-css-property-cache (make-hash-table :size 115 :test 'equal))
|
|
||||||
|
|
||||||
(defun company-css-property-values (attribute)
|
|
||||||
"Access the `company-css-property-alist' cached and flattened."
|
|
||||||
(or (gethash attribute company-css-property-cache)
|
|
||||||
(let (results)
|
|
||||||
(dolist (value (cdr (assoc attribute company-css-property-alist)))
|
|
||||||
(if (symbolp value)
|
|
||||||
(dolist (child (or (cdr (assoc value company-css-value-classes))
|
|
||||||
(company-css-property-values
|
|
||||||
(symbol-name value))))
|
|
||||||
(push child results))
|
|
||||||
(push value results)))
|
|
||||||
(setq results (sort results 'string<))
|
|
||||||
(puthash attribute
|
|
||||||
(if (fboundp 'delete-consecutive-dups)
|
|
||||||
(delete-consecutive-dups results)
|
|
||||||
(delete-dups results))
|
|
||||||
company-css-property-cache)
|
|
||||||
results)))
|
|
||||||
|
|
||||||
;;; bracket detection
|
|
||||||
|
|
||||||
(defconst company-css-braces-syntax-table
|
|
||||||
(let ((table (make-syntax-table)))
|
|
||||||
(setf (aref table ?{) '(4 . 125))
|
|
||||||
(setf (aref table ?}) '(5 . 123))
|
|
||||||
table)
|
|
||||||
"A syntax table giving { and } paren syntax.")
|
|
||||||
|
|
||||||
(defun company-css-inside-braces-p ()
|
|
||||||
"Return non-nil, if point is within matched { and }."
|
|
||||||
(ignore-errors
|
|
||||||
(with-syntax-table company-css-braces-syntax-table
|
|
||||||
(let ((parse-sexp-ignore-comments t))
|
|
||||||
(scan-lists (point) -1 1)))))
|
|
||||||
|
|
||||||
;;; tags
|
|
||||||
(defconst company-css-tag-regexp
|
|
||||||
(concat "\\(?:\\`\\|}\\)[[:space:]]*"
|
|
||||||
;; multiple
|
|
||||||
"\\(?:"
|
|
||||||
;; previous tags:
|
|
||||||
"\\(?:#\\|\\_<[[:alpha:]]\\)[[:alnum:]-#]*\\(?:\\[[^]]*\\]\\)?"
|
|
||||||
;; space or selectors
|
|
||||||
"\\(?:[[:space:]]+\\|[[:space:]]*[+,>][[:space:]]*\\)"
|
|
||||||
"\\)*"
|
|
||||||
"\\(\\(?:#\\|\\_<[[:alpha:]]\\)\\(?:[[:alnum:]-#]*\\_>\\)?\\_>\\|\\)"
|
|
||||||
"\\=")
|
|
||||||
"A regular expression matching CSS tags.")
|
|
||||||
|
|
||||||
;;; pseudo id
|
|
||||||
(defconst company-css-pseudo-regexp
|
|
||||||
(concat "\\(?:\\`\\|}\\)[[:space:]]*"
|
|
||||||
;; multiple
|
|
||||||
"\\(?:"
|
|
||||||
;; previous tags:
|
|
||||||
"\\(?:#\\|\\_<[[:alpha:]]\\)[[:alnum:]-#]*\\(?:\\[[^]]*\\]\\)?"
|
|
||||||
;; space or delimiters
|
|
||||||
"\\(?:[[:space:]]+\\|[[:space:]]*[+,>][[:space:]]*\\)"
|
|
||||||
"\\)*"
|
|
||||||
"\\(?:\\(?:\\#\\|\\_<[[:alpha:]]\\)[[:alnum:]-#]*\\):"
|
|
||||||
"\\([[:alpha:]-]+\\_>\\|\\)\\_>\\=")
|
|
||||||
"A regular expression matching CSS pseudo classes.")
|
|
||||||
|
|
||||||
;;; properties
|
|
||||||
|
|
||||||
(defun company-css-grab-property ()
|
|
||||||
"Return the CSS property before point, if any.
|
|
||||||
Returns \"\" if no property found, but feasible at this position."
|
|
||||||
(when (company-css-inside-braces-p)
|
|
||||||
(company-grab-symbol)))
|
|
||||||
|
|
||||||
;;; values
|
|
||||||
(defconst company-css-property-value-regexp
|
|
||||||
"\\_<\\([[:alpha:]-]+\\):\\(?:[^{};]*[[:space:]]+\\)?\\([^{};]*\\_>\\|\\)\\="
|
|
||||||
"A regular expression matching CSS tags.")
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun company-css (command &optional arg &rest ignored)
|
|
||||||
"`company-mode' completion backend for `css-mode'."
|
|
||||||
(interactive (list 'interactive))
|
|
||||||
(cl-case command
|
|
||||||
(interactive (company-begin-backend 'company-css))
|
|
||||||
(prefix (and (or (derived-mode-p 'css-mode)
|
|
||||||
(and (derived-mode-p 'web-mode)
|
|
||||||
(string= (web-mode-language-at-pos) "css")))
|
|
||||||
(or (company-grab company-css-tag-regexp 1)
|
|
||||||
(company-grab company-css-pseudo-regexp 1)
|
|
||||||
(company-grab company-css-property-value-regexp 2
|
|
||||||
(line-beginning-position))
|
|
||||||
(company-css-grab-property))))
|
|
||||||
(candidates
|
|
||||||
(cond
|
|
||||||
((company-grab company-css-tag-regexp 1)
|
|
||||||
(all-completions arg company-css-html-tags))
|
|
||||||
((company-grab company-css-pseudo-regexp 1)
|
|
||||||
(all-completions arg company-css-pseudo-classes))
|
|
||||||
((company-grab company-css-property-value-regexp 2
|
|
||||||
(line-beginning-position))
|
|
||||||
(all-completions arg
|
|
||||||
(company-css-property-values
|
|
||||||
(company-grab company-css-property-value-regexp 1))))
|
|
||||||
((company-css-grab-property)
|
|
||||||
(all-completions arg company-css-property-alist))))
|
|
||||||
(sorted t)))
|
|
||||||
|
|
||||||
(provide 'company-css)
|
|
||||||
;;; company-css.el ends here
|
|
||||||
Binary file not shown.
@@ -1,104 +0,0 @@
|
|||||||
;;; company-dabbrev-code.el --- dabbrev-like company-mode backend for code -*- 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 <http://www.gnu.org/licenses/>.
|
|
||||||
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
;;
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'company)
|
|
||||||
(require 'company-dabbrev)
|
|
||||||
(require 'cl-lib)
|
|
||||||
|
|
||||||
(defgroup company-dabbrev-code nil
|
|
||||||
"dabbrev-like completion backend for code."
|
|
||||||
:group 'company)
|
|
||||||
|
|
||||||
(defcustom company-dabbrev-code-modes
|
|
||||||
'(prog-mode
|
|
||||||
batch-file-mode csharp-mode css-mode erlang-mode haskell-mode jde-mode
|
|
||||||
lua-mode python-mode)
|
|
||||||
"Modes that use `company-dabbrev-code'.
|
|
||||||
In all these modes (and their derivatives) `company-dabbrev-code' will
|
|
||||||
complete only symbols, not text in comments or strings. In other modes
|
|
||||||
`company-dabbrev-code' will pass control to other backends
|
|
||||||
\(e.g. `company-dabbrev'\). Value t means complete in all modes."
|
|
||||||
:type '(choice (repeat :tag "Some modes" (symbol :tag "Major mode"))
|
|
||||||
(const :tag "All modes" t)))
|
|
||||||
|
|
||||||
(defcustom company-dabbrev-code-other-buffers t
|
|
||||||
"Determines whether `company-dabbrev-code' should search other buffers.
|
|
||||||
If `all', search all other buffers, except the ignored ones. If t, search
|
|
||||||
buffers with the same major mode. If `code', search all buffers with major
|
|
||||||
modes in `company-dabbrev-code-modes', or derived from one of them. See
|
|
||||||
also `company-dabbrev-code-time-limit'."
|
|
||||||
:type '(choice (const :tag "Off" nil)
|
|
||||||
(const :tag "Same major mode" t)
|
|
||||||
(const :tag "Code major modes" code)
|
|
||||||
(const :tag "All" all)))
|
|
||||||
|
|
||||||
(defcustom company-dabbrev-code-time-limit .1
|
|
||||||
"Determines how long `company-dabbrev-code' should look for matches."
|
|
||||||
:type '(choice (const :tag "Off" nil)
|
|
||||||
(number :tag "Seconds")))
|
|
||||||
|
|
||||||
(defcustom company-dabbrev-code-everywhere nil
|
|
||||||
"Non-nil to offer completions in comments and strings."
|
|
||||||
:type 'boolean)
|
|
||||||
|
|
||||||
(defcustom company-dabbrev-code-ignore-case nil
|
|
||||||
"Non-nil to ignore case when collecting completion candidates."
|
|
||||||
:type 'boolean)
|
|
||||||
|
|
||||||
(defun company-dabbrev-code--make-regexp (prefix)
|
|
||||||
(concat "\\_<" (if (equal prefix "")
|
|
||||||
"\\([a-zA-Z]\\|\\s_\\)"
|
|
||||||
(regexp-quote prefix))
|
|
||||||
"\\(\\sw\\|\\s_\\)*\\_>"))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun company-dabbrev-code (command &optional arg &rest ignored)
|
|
||||||
"dabbrev-like `company-mode' backend for code.
|
|
||||||
The backend looks for all symbols in the current buffer that aren't in
|
|
||||||
comments or strings."
|
|
||||||
(interactive (list 'interactive))
|
|
||||||
(cl-case command
|
|
||||||
(interactive (company-begin-backend 'company-dabbrev-code))
|
|
||||||
(prefix (and (or (eq t company-dabbrev-code-modes)
|
|
||||||
(apply #'derived-mode-p company-dabbrev-code-modes))
|
|
||||||
(or company-dabbrev-code-everywhere
|
|
||||||
(not (company-in-string-or-comment)))
|
|
||||||
(or (company-grab-symbol) 'stop)))
|
|
||||||
(candidates (let ((case-fold-search company-dabbrev-code-ignore-case))
|
|
||||||
(company-dabbrev--search
|
|
||||||
(company-dabbrev-code--make-regexp arg)
|
|
||||||
company-dabbrev-code-time-limit
|
|
||||||
(pcase company-dabbrev-code-other-buffers
|
|
||||||
(`t (list major-mode))
|
|
||||||
(`code company-dabbrev-code-modes)
|
|
||||||
(`all `all))
|
|
||||||
(not company-dabbrev-code-everywhere))))
|
|
||||||
(ignore-case company-dabbrev-code-ignore-case)
|
|
||||||
(duplicates t)))
|
|
||||||
|
|
||||||
(provide 'company-dabbrev-code)
|
|
||||||
;;; company-dabbrev-code.el ends here
|
|
||||||
Binary file not shown.
@@ -1,206 +0,0 @@
|
|||||||
;;; company-dabbrev.el --- dabbrev-like company-mode completion backend -*- lexical-binding: t -*-
|
|
||||||
|
|
||||||
;; Copyright (C) 2009, 2011, 2014, 2015, 2016 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 <http://www.gnu.org/licenses/>.
|
|
||||||
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
;;
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'company)
|
|
||||||
(require 'cl-lib)
|
|
||||||
|
|
||||||
(defgroup company-dabbrev nil
|
|
||||||
"dabbrev-like completion backend."
|
|
||||||
:group 'company)
|
|
||||||
|
|
||||||
(defcustom company-dabbrev-other-buffers 'all
|
|
||||||
"Determines whether `company-dabbrev' should search other buffers.
|
|
||||||
If `all', search all other buffers, except the ignored ones. If t, search
|
|
||||||
buffers with the same major mode. See also `company-dabbrev-time-limit'."
|
|
||||||
:type '(choice (const :tag "Off" nil)
|
|
||||||
(const :tag "Same major mode" t)
|
|
||||||
(const :tag "All" all)))
|
|
||||||
|
|
||||||
(defcustom company-dabbrev-ignore-buffers "\\`[ *]"
|
|
||||||
"Regexp matching the names of buffers to ignore.
|
|
||||||
Or a function that returns non-nil for such buffers."
|
|
||||||
:type '(choice (regexp :tag "Regexp")
|
|
||||||
(function :tag "Predicate"))
|
|
||||||
:package-version '(company . "0.9.0"))
|
|
||||||
|
|
||||||
(defcustom company-dabbrev-time-limit .1
|
|
||||||
"Determines how many seconds `company-dabbrev' should look for matches."
|
|
||||||
:type '(choice (const :tag "Off" nil)
|
|
||||||
(number :tag "Seconds")))
|
|
||||||
|
|
||||||
(defcustom company-dabbrev-char-regexp "\\sw"
|
|
||||||
"A regular expression matching the characters `company-dabbrev' looks for."
|
|
||||||
:type 'regexp)
|
|
||||||
|
|
||||||
(defcustom company-dabbrev-ignore-case 'keep-prefix
|
|
||||||
"Non-nil to ignore case when collecting completion candidates.
|
|
||||||
When it's `keep-prefix', the text before point will remain unchanged after
|
|
||||||
candidate is inserted, even some of its characters have different case."
|
|
||||||
:type '(choice
|
|
||||||
(const :tag "Don't ignore case" nil)
|
|
||||||
(const :tag "Ignore case" t)
|
|
||||||
(const :tag "Keep case before point" keep-prefix)))
|
|
||||||
|
|
||||||
(defcustom company-dabbrev-downcase 'case-replace
|
|
||||||
"Whether to downcase the returned candidates.
|
|
||||||
|
|
||||||
The value of nil means keep them as-is.
|
|
||||||
`case-replace' means use the value of `case-replace'.
|
|
||||||
Any other value means downcase.
|
|
||||||
|
|
||||||
If you set this value to nil, you may also want to set
|
|
||||||
`company-dabbrev-ignore-case' to any value other than `keep-prefix'."
|
|
||||||
:type '(choice
|
|
||||||
(const :tag "Keep as-is" nil)
|
|
||||||
(const :tag "Downcase" t)
|
|
||||||
(const :tag "Use case-replace" case-replace)))
|
|
||||||
|
|
||||||
(defcustom company-dabbrev-minimum-length 4
|
|
||||||
"The minimum length for the completion candidate to be included.
|
|
||||||
This variable affects both `company-dabbrev' and `company-dabbrev-code'."
|
|
||||||
:type 'integer
|
|
||||||
:package-version '(company . "0.8.3"))
|
|
||||||
|
|
||||||
(defcustom company-dabbrev-ignore-invisible nil
|
|
||||||
"Non-nil to skip invisible text."
|
|
||||||
:type 'boolean
|
|
||||||
:package-version '(company . "0.9.0"))
|
|
||||||
|
|
||||||
(defmacro company-dabbrev--time-limit-while (test start limit freq &rest body)
|
|
||||||
(declare (indent 3) (debug t))
|
|
||||||
`(let ((company-time-limit-while-counter 0))
|
|
||||||
(catch 'done
|
|
||||||
(while ,test
|
|
||||||
,@body
|
|
||||||
(and ,limit
|
|
||||||
(= (cl-incf company-time-limit-while-counter) ,freq)
|
|
||||||
(setq company-time-limit-while-counter 0)
|
|
||||||
(> (float-time (time-since ,start)) ,limit)
|
|
||||||
(throw 'done 'company-time-out))))))
|
|
||||||
|
|
||||||
(defun company-dabbrev--make-regexp ()
|
|
||||||
(concat "\\(?:" company-dabbrev-char-regexp "\\)+"))
|
|
||||||
|
|
||||||
(defun company-dabbrev--search-buffer (regexp pos symbols start limit
|
|
||||||
ignore-comments)
|
|
||||||
(save-excursion
|
|
||||||
(cl-labels ((maybe-collect-match
|
|
||||||
()
|
|
||||||
(let ((match (match-string-no-properties 0)))
|
|
||||||
(when (and (>= (length match) company-dabbrev-minimum-length)
|
|
||||||
(not (and company-dabbrev-ignore-invisible
|
|
||||||
(invisible-p (match-beginning 0)))))
|
|
||||||
(push match symbols)))))
|
|
||||||
(goto-char (if pos (1- pos) (point-min)))
|
|
||||||
;; Search before pos.
|
|
||||||
(let ((tmp-end (point)))
|
|
||||||
(company-dabbrev--time-limit-while (and (not (input-pending-p))
|
|
||||||
(> tmp-end (point-min)))
|
|
||||||
start limit 1
|
|
||||||
(ignore-errors
|
|
||||||
(forward-char -10000))
|
|
||||||
(forward-line 0)
|
|
||||||
(save-excursion
|
|
||||||
;; Before, we used backward search, but it matches non-greedily, and
|
|
||||||
;; that forced us to use the "beginning/end of word" anchors in
|
|
||||||
;; `company-dabbrev--make-regexp'. It's also about 2x slower.
|
|
||||||
(while (and (not (input-pending-p))
|
|
||||||
(re-search-forward regexp tmp-end t))
|
|
||||||
(if (and ignore-comments (save-match-data (company-in-string-or-comment)))
|
|
||||||
(re-search-forward "\\s>\\|\\s!\\|\\s\"" tmp-end t)
|
|
||||||
(maybe-collect-match))))
|
|
||||||
(setq tmp-end (point))))
|
|
||||||
(goto-char (or pos (point-min)))
|
|
||||||
;; Search after pos.
|
|
||||||
(company-dabbrev--time-limit-while (and (not (input-pending-p))
|
|
||||||
(re-search-forward regexp nil t))
|
|
||||||
start limit 25
|
|
||||||
(if (and ignore-comments (save-match-data (company-in-string-or-comment)))
|
|
||||||
(re-search-forward "\\s>\\|\\s!\\|\\s\"" nil t)
|
|
||||||
(maybe-collect-match)))
|
|
||||||
symbols)))
|
|
||||||
|
|
||||||
(defun company-dabbrev--search (regexp &optional limit other-buffer-modes
|
|
||||||
ignore-comments)
|
|
||||||
(let* ((start (current-time))
|
|
||||||
(symbols (company-dabbrev--search-buffer regexp (point) nil start limit
|
|
||||||
ignore-comments)))
|
|
||||||
(when other-buffer-modes
|
|
||||||
(cl-dolist (buffer (delq (current-buffer) (buffer-list)))
|
|
||||||
(unless (if (stringp company-dabbrev-ignore-buffers)
|
|
||||||
(string-match-p company-dabbrev-ignore-buffers
|
|
||||||
(buffer-name buffer))
|
|
||||||
(funcall company-dabbrev-ignore-buffers buffer))
|
|
||||||
(with-current-buffer buffer
|
|
||||||
(when (or (eq other-buffer-modes 'all)
|
|
||||||
(apply #'derived-mode-p other-buffer-modes))
|
|
||||||
(setq symbols
|
|
||||||
(company-dabbrev--search-buffer regexp nil symbols start
|
|
||||||
limit ignore-comments)))))
|
|
||||||
(and limit
|
|
||||||
(> (float-time (time-since start)) limit)
|
|
||||||
(cl-return))))
|
|
||||||
symbols))
|
|
||||||
|
|
||||||
(defun company-dabbrev--prefix ()
|
|
||||||
;; Not in the middle of a word.
|
|
||||||
(unless (looking-at company-dabbrev-char-regexp)
|
|
||||||
;; Emacs can't do greedy backward-search.
|
|
||||||
(company-grab-line (format "\\(?:^\\| \\)[^ ]*?\\(\\(?:%s\\)*\\)"
|
|
||||||
company-dabbrev-char-regexp)
|
|
||||||
1)))
|
|
||||||
|
|
||||||
(defun company-dabbrev--filter (prefix candidates)
|
|
||||||
(let ((completion-ignore-case company-dabbrev-ignore-case))
|
|
||||||
(all-completions prefix candidates)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun company-dabbrev (command &optional arg &rest ignored)
|
|
||||||
"dabbrev-like `company-mode' completion backend."
|
|
||||||
(interactive (list 'interactive))
|
|
||||||
(cl-case command
|
|
||||||
(interactive (company-begin-backend 'company-dabbrev))
|
|
||||||
(prefix (company-dabbrev--prefix))
|
|
||||||
(candidates
|
|
||||||
(let* ((case-fold-search company-dabbrev-ignore-case)
|
|
||||||
(words (company-dabbrev--search (company-dabbrev--make-regexp)
|
|
||||||
company-dabbrev-time-limit
|
|
||||||
(pcase company-dabbrev-other-buffers
|
|
||||||
(`t (list major-mode))
|
|
||||||
(`all `all))))
|
|
||||||
(downcase-p (if (eq company-dabbrev-downcase 'case-replace)
|
|
||||||
case-replace
|
|
||||||
company-dabbrev-downcase)))
|
|
||||||
(setq words (company-dabbrev--filter arg words))
|
|
||||||
(if downcase-p
|
|
||||||
(mapcar 'downcase words)
|
|
||||||
words)))
|
|
||||||
(ignore-case company-dabbrev-ignore-case)
|
|
||||||
(duplicates t)))
|
|
||||||
|
|
||||||
(provide 'company-dabbrev)
|
|
||||||
;;; company-dabbrev.el ends here
|
|
||||||
Binary file not shown.
@@ -1,186 +0,0 @@
|
|||||||
;;; company-eclim.el --- company-mode completion backend for Eclim
|
|
||||||
|
|
||||||
;; Copyright (C) 2009, 2011, 2013, 2015 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 <http://www.gnu.org/licenses/>.
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
;;
|
|
||||||
;; Using `emacs-eclim' together with (or instead of) this backend is
|
|
||||||
;; recommended, as it allows you to use other Eclim features.
|
|
||||||
;;
|
|
||||||
;; The alternative backend provided by `emacs-eclim' uses `yasnippet'
|
|
||||||
;; instead of `company-template' to expand function calls, and it supports
|
|
||||||
;; some languages other than Java.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'company)
|
|
||||||
(require 'company-template)
|
|
||||||
(require 'cl-lib)
|
|
||||||
|
|
||||||
(defgroup company-eclim nil
|
|
||||||
"Completion backend for Eclim."
|
|
||||||
:group 'company)
|
|
||||||
|
|
||||||
(defun company-eclim-executable-find ()
|
|
||||||
(let (file)
|
|
||||||
(cl-dolist (eclipse-root '("/Applications/eclipse" "/usr/lib/eclipse"
|
|
||||||
"/usr/local/lib/eclipse"))
|
|
||||||
(and (file-exists-p (setq file (expand-file-name "plugins" eclipse-root)))
|
|
||||||
(setq file (car (last (directory-files file t "^org.eclim_"))))
|
|
||||||
(file-exists-p (setq file (expand-file-name "bin/eclim" file)))
|
|
||||||
(cl-return file)))))
|
|
||||||
|
|
||||||
(defcustom company-eclim-executable
|
|
||||||
(or (bound-and-true-p eclim-executable)
|
|
||||||
(executable-find "eclim")
|
|
||||||
(company-eclim-executable-find))
|
|
||||||
"Location of eclim executable."
|
|
||||||
:type 'file)
|
|
||||||
|
|
||||||
(defcustom company-eclim-auto-save t
|
|
||||||
"Determines whether to save the buffer when retrieving completions.
|
|
||||||
eclim can only complete correctly when the buffer has been saved."
|
|
||||||
:type '(choice (const :tag "Off" nil)
|
|
||||||
(const :tag "On" t)))
|
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
||||||
|
|
||||||
(defvar-local company-eclim--project-dir 'unknown)
|
|
||||||
|
|
||||||
(defvar-local company-eclim--project-name nil)
|
|
||||||
|
|
||||||
(declare-function json-read "json")
|
|
||||||
(defvar json-array-type)
|
|
||||||
|
|
||||||
(defun company-eclim--call-process (&rest args)
|
|
||||||
(let ((coding-system-for-read 'utf-8)
|
|
||||||
res)
|
|
||||||
(require 'json)
|
|
||||||
(with-temp-buffer
|
|
||||||
(if (= 0 (setq res (apply 'call-process company-eclim-executable nil t nil
|
|
||||||
"-command" args)))
|
|
||||||
(let ((json-array-type 'list))
|
|
||||||
(goto-char (point-min))
|
|
||||||
(unless (eobp)
|
|
||||||
(json-read)))
|
|
||||||
(message "Company-eclim command failed with error %d:\n%s" res
|
|
||||||
(buffer-substring (point-min) (point-max)))
|
|
||||||
nil))))
|
|
||||||
|
|
||||||
(defun company-eclim--project-list ()
|
|
||||||
(company-eclim--call-process "project_list"))
|
|
||||||
|
|
||||||
(defun company-eclim--project-dir ()
|
|
||||||
(if (eq company-eclim--project-dir 'unknown)
|
|
||||||
(let ((dir (locate-dominating-file buffer-file-name ".project")))
|
|
||||||
(when dir
|
|
||||||
(setq company-eclim--project-dir
|
|
||||||
(directory-file-name
|
|
||||||
(expand-file-name dir)))))
|
|
||||||
company-eclim--project-dir))
|
|
||||||
|
|
||||||
(defun company-eclim--project-name ()
|
|
||||||
(or company-eclim--project-name
|
|
||||||
(let ((dir (company-eclim--project-dir)))
|
|
||||||
(when dir
|
|
||||||
(setq company-eclim--project-name
|
|
||||||
(cl-loop for project in (company-eclim--project-list)
|
|
||||||
when (equal (cdr (assoc 'path project)) dir)
|
|
||||||
return (cdr (assoc 'name project))))))))
|
|
||||||
|
|
||||||
(defun company-eclim--candidates (prefix)
|
|
||||||
(interactive "d")
|
|
||||||
(let ((project-file (file-relative-name buffer-file-name
|
|
||||||
(company-eclim--project-dir)))
|
|
||||||
completions)
|
|
||||||
(when company-eclim-auto-save
|
|
||||||
(when (buffer-modified-p)
|
|
||||||
(basic-save-buffer))
|
|
||||||
;; FIXME: Sometimes this isn't finished when we complete.
|
|
||||||
(company-eclim--call-process "java_src_update"
|
|
||||||
"-p" (company-eclim--project-name)
|
|
||||||
"-f" project-file))
|
|
||||||
(dolist (item (cdr (assoc 'completions
|
|
||||||
(company-eclim--call-process
|
|
||||||
"java_complete" "-p" (company-eclim--project-name)
|
|
||||||
"-f" project-file
|
|
||||||
"-o" (number-to-string
|
|
||||||
(company-eclim--search-point prefix))
|
|
||||||
"-e" "utf-8"
|
|
||||||
"-l" "standard"))))
|
|
||||||
(let* ((meta (cdr (assoc 'info item)))
|
|
||||||
(completion meta))
|
|
||||||
(when (string-match " ?[(:-]" completion)
|
|
||||||
(setq completion (substring completion 0 (match-beginning 0))))
|
|
||||||
(put-text-property 0 1 'meta meta completion)
|
|
||||||
(push completion completions)))
|
|
||||||
(let ((completion-ignore-case nil))
|
|
||||||
(all-completions prefix completions))))
|
|
||||||
|
|
||||||
(defun company-eclim--search-point (prefix)
|
|
||||||
(if (or (cl-plusp (length prefix)) (eq (char-before) ?.))
|
|
||||||
(1- (point))
|
|
||||||
(point)))
|
|
||||||
|
|
||||||
(defun company-eclim--meta (candidate)
|
|
||||||
(get-text-property 0 'meta candidate))
|
|
||||||
|
|
||||||
(defun company-eclim--annotation (candidate)
|
|
||||||
(let ((meta (company-eclim--meta candidate)))
|
|
||||||
(when (string-match "\\(([^-]*\\) -" meta)
|
|
||||||
(substring meta (match-beginning 1) (match-end 1)))))
|
|
||||||
|
|
||||||
(defun company-eclim--prefix ()
|
|
||||||
(let ((prefix (company-grab-symbol)))
|
|
||||||
(when prefix
|
|
||||||
;; Completion candidates for annotations don't include '@'.
|
|
||||||
(when (eq ?@ (string-to-char prefix))
|
|
||||||
(setq prefix (substring prefix 1)))
|
|
||||||
prefix)))
|
|
||||||
|
|
||||||
(defun company-eclim (command &optional arg &rest ignored)
|
|
||||||
"`company-mode' completion backend for Eclim.
|
|
||||||
Eclim provides access to Eclipse Java IDE features for other editors.
|
|
||||||
|
|
||||||
Eclim version 1.7.13 or newer (?) is required.
|
|
||||||
|
|
||||||
Completions only work correctly when the buffer has been saved.
|
|
||||||
`company-eclim-auto-save' determines whether to do this automatically."
|
|
||||||
(interactive (list 'interactive))
|
|
||||||
(cl-case command
|
|
||||||
(interactive (company-begin-backend 'company-eclim))
|
|
||||||
(prefix (and (derived-mode-p 'java-mode 'jde-mode)
|
|
||||||
buffer-file-name
|
|
||||||
company-eclim-executable
|
|
||||||
(company-eclim--project-name)
|
|
||||||
(not (company-in-string-or-comment))
|
|
||||||
(or (company-eclim--prefix) 'stop)))
|
|
||||||
(candidates (company-eclim--candidates arg))
|
|
||||||
(meta (company-eclim--meta arg))
|
|
||||||
;; because "" doesn't return everything
|
|
||||||
(no-cache (equal arg ""))
|
|
||||||
(annotation (company-eclim--annotation arg))
|
|
||||||
(post-completion (let ((anno (company-eclim--annotation arg)))
|
|
||||||
(when anno
|
|
||||||
(insert anno)
|
|
||||||
(company-template-c-like-templatify anno))))))
|
|
||||||
|
|
||||||
(provide 'company-eclim)
|
|
||||||
;;; company-eclim.el ends here
|
|
||||||
Binary file not shown.
@@ -1,226 +0,0 @@
|
|||||||
;;; company-elisp.el --- company-mode completion backend for Emacs Lisp -*- lexical-binding: t -*-
|
|
||||||
|
|
||||||
;; Copyright (C) 2009, 2011-2013, 2017 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 <http://www.gnu.org/licenses/>.
|
|
||||||
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
;;
|
|
||||||
;; In newer versions of Emacs, company-capf is used instead.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'company)
|
|
||||||
(require 'cl-lib)
|
|
||||||
(require 'help-mode)
|
|
||||||
(require 'find-func)
|
|
||||||
|
|
||||||
(defgroup company-elisp nil
|
|
||||||
"Completion backend for Emacs Lisp."
|
|
||||||
:group 'company)
|
|
||||||
|
|
||||||
(defcustom company-elisp-detect-function-context t
|
|
||||||
"If enabled, offer Lisp functions only in appropriate contexts.
|
|
||||||
Functions are offered for completion only after ' and \(."
|
|
||||||
:type '(choice (const :tag "Off" nil)
|
|
||||||
(const :tag "On" t)))
|
|
||||||
|
|
||||||
(defcustom company-elisp-show-locals-first t
|
|
||||||
"If enabled, locally bound variables and functions are displayed
|
|
||||||
first in the candidates list."
|
|
||||||
:type '(choice (const :tag "Off" nil)
|
|
||||||
(const :tag "On" t)))
|
|
||||||
|
|
||||||
(defun company-elisp--prefix ()
|
|
||||||
(let ((prefix (company-grab-symbol)))
|
|
||||||
(if prefix
|
|
||||||
(when (if (company-in-string-or-comment)
|
|
||||||
(= (char-before (- (point) (length prefix))) ?`)
|
|
||||||
(company-elisp--should-complete))
|
|
||||||
prefix)
|
|
||||||
'stop)))
|
|
||||||
|
|
||||||
(defun company-elisp--predicate (symbol)
|
|
||||||
(or (boundp symbol)
|
|
||||||
(fboundp symbol)
|
|
||||||
(facep symbol)
|
|
||||||
(featurep symbol)))
|
|
||||||
|
|
||||||
(defun company-elisp--fns-regexp (&rest names)
|
|
||||||
(concat "\\_<\\(?:cl-\\)?" (regexp-opt names) "\\*?\\_>"))
|
|
||||||
|
|
||||||
(defvar company-elisp-parse-limit 30)
|
|
||||||
(defvar company-elisp-parse-depth 100)
|
|
||||||
|
|
||||||
(defvar company-elisp-defun-names '("defun" "defmacro" "defsubst"))
|
|
||||||
|
|
||||||
(defvar company-elisp-var-binding-regexp
|
|
||||||
(apply #'company-elisp--fns-regexp "let" "lambda" "lexical-let"
|
|
||||||
company-elisp-defun-names)
|
|
||||||
"Regular expression matching head of a multiple variable bindings form.")
|
|
||||||
|
|
||||||
(defvar company-elisp-var-binding-regexp-1
|
|
||||||
(company-elisp--fns-regexp "dolist" "dotimes")
|
|
||||||
"Regular expression matching head of a form with one variable binding.")
|
|
||||||
|
|
||||||
(defvar company-elisp-fun-binding-regexp
|
|
||||||
(company-elisp--fns-regexp "flet" "labels")
|
|
||||||
"Regular expression matching head of a function bindings form.")
|
|
||||||
|
|
||||||
(defvar company-elisp-defuns-regexp
|
|
||||||
(concat "([ \t\n]*"
|
|
||||||
(apply #'company-elisp--fns-regexp company-elisp-defun-names)))
|
|
||||||
|
|
||||||
(defun company-elisp--should-complete ()
|
|
||||||
(let ((start (point))
|
|
||||||
(depth (car (syntax-ppss))))
|
|
||||||
(not
|
|
||||||
(when (> depth 0)
|
|
||||||
(save-excursion
|
|
||||||
(up-list (- depth))
|
|
||||||
(when (looking-at company-elisp-defuns-regexp)
|
|
||||||
(forward-char)
|
|
||||||
(forward-sexp 1)
|
|
||||||
(unless (= (point) start)
|
|
||||||
(condition-case nil
|
|
||||||
(let ((args-end (scan-sexps (point) 2)))
|
|
||||||
(or (null args-end)
|
|
||||||
(> args-end start)))
|
|
||||||
(scan-error
|
|
||||||
t)))))))))
|
|
||||||
|
|
||||||
(defun company-elisp--locals (prefix functions-p)
|
|
||||||
(let ((regexp (concat "[ \t\n]*\\(\\_<" (regexp-quote prefix)
|
|
||||||
"\\(?:\\sw\\|\\s_\\)*\\_>\\)"))
|
|
||||||
(pos (point))
|
|
||||||
res)
|
|
||||||
(condition-case nil
|
|
||||||
(save-excursion
|
|
||||||
(dotimes (_ company-elisp-parse-depth)
|
|
||||||
(up-list -1)
|
|
||||||
(save-excursion
|
|
||||||
(when (eq (char-after) ?\()
|
|
||||||
(forward-char 1)
|
|
||||||
(when (ignore-errors
|
|
||||||
(save-excursion (forward-list)
|
|
||||||
(<= (point) pos)))
|
|
||||||
(skip-chars-forward " \t\n")
|
|
||||||
(cond
|
|
||||||
((looking-at (if functions-p
|
|
||||||
company-elisp-fun-binding-regexp
|
|
||||||
company-elisp-var-binding-regexp))
|
|
||||||
(down-list 1)
|
|
||||||
(condition-case nil
|
|
||||||
(dotimes (_ company-elisp-parse-limit)
|
|
||||||
(save-excursion
|
|
||||||
(when (looking-at "[ \t\n]*(")
|
|
||||||
(down-list 1))
|
|
||||||
(when (looking-at regexp)
|
|
||||||
(cl-pushnew (match-string-no-properties 1) res)))
|
|
||||||
(forward-sexp))
|
|
||||||
(scan-error nil)))
|
|
||||||
((unless functions-p
|
|
||||||
(looking-at company-elisp-var-binding-regexp-1))
|
|
||||||
(down-list 1)
|
|
||||||
(when (looking-at regexp)
|
|
||||||
(cl-pushnew (match-string-no-properties 1) res)))))))))
|
|
||||||
(scan-error nil))
|
|
||||||
res))
|
|
||||||
|
|
||||||
(defun company-elisp-candidates (prefix)
|
|
||||||
(let* ((predicate (company-elisp--candidates-predicate prefix))
|
|
||||||
(locals (company-elisp--locals prefix (eq predicate 'fboundp)))
|
|
||||||
(globals (company-elisp--globals prefix predicate))
|
|
||||||
(locals (cl-loop for local in locals
|
|
||||||
when (not (member local globals))
|
|
||||||
collect local)))
|
|
||||||
(if company-elisp-show-locals-first
|
|
||||||
(append (sort locals 'string<)
|
|
||||||
(sort globals 'string<))
|
|
||||||
(append locals globals))))
|
|
||||||
|
|
||||||
(defun company-elisp--globals (prefix predicate)
|
|
||||||
(all-completions prefix obarray predicate))
|
|
||||||
|
|
||||||
(defun company-elisp--candidates-predicate (prefix)
|
|
||||||
(let* ((completion-ignore-case nil)
|
|
||||||
(beg (- (point) (length prefix)))
|
|
||||||
(before (char-before beg)))
|
|
||||||
(if (and company-elisp-detect-function-context
|
|
||||||
(not (memq before '(?' ?`))))
|
|
||||||
(if (and (eq before ?\()
|
|
||||||
(not
|
|
||||||
(save-excursion
|
|
||||||
(ignore-errors
|
|
||||||
(goto-char (1- beg))
|
|
||||||
(or (company-elisp--before-binding-varlist-p)
|
|
||||||
(progn
|
|
||||||
(up-list -1)
|
|
||||||
(company-elisp--before-binding-varlist-p)))))))
|
|
||||||
'fboundp
|
|
||||||
'boundp)
|
|
||||||
'company-elisp--predicate)))
|
|
||||||
|
|
||||||
(defun company-elisp--before-binding-varlist-p ()
|
|
||||||
(save-excursion
|
|
||||||
(and (prog1 (search-backward "(")
|
|
||||||
(forward-char 1))
|
|
||||||
(looking-at company-elisp-var-binding-regexp))))
|
|
||||||
|
|
||||||
(defun company-elisp--doc (symbol)
|
|
||||||
(let* ((symbol (intern symbol))
|
|
||||||
(doc (if (fboundp symbol)
|
|
||||||
(documentation symbol t)
|
|
||||||
(documentation-property symbol 'variable-documentation t))))
|
|
||||||
(and (stringp doc)
|
|
||||||
(string-match ".*$" doc)
|
|
||||||
(match-string 0 doc))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun company-elisp (command &optional arg &rest ignored)
|
|
||||||
"`company-mode' completion backend for Emacs Lisp."
|
|
||||||
(interactive (list 'interactive))
|
|
||||||
(cl-case command
|
|
||||||
(interactive (company-begin-backend 'company-elisp))
|
|
||||||
(prefix (and (derived-mode-p 'emacs-lisp-mode 'inferior-emacs-lisp-mode)
|
|
||||||
(company-elisp--prefix)))
|
|
||||||
(candidates (company-elisp-candidates arg))
|
|
||||||
(sorted company-elisp-show-locals-first)
|
|
||||||
(meta (company-elisp--doc arg))
|
|
||||||
(doc-buffer (let ((symbol (intern arg)))
|
|
||||||
(save-window-excursion
|
|
||||||
(ignore-errors
|
|
||||||
(cond
|
|
||||||
((fboundp symbol) (describe-function symbol))
|
|
||||||
((boundp symbol) (describe-variable symbol))
|
|
||||||
((featurep symbol) (describe-package symbol))
|
|
||||||
((facep symbol) (describe-face symbol))
|
|
||||||
(t (signal 'user-error nil)))
|
|
||||||
(help-buffer)))))
|
|
||||||
(location (let ((sym (intern arg)))
|
|
||||||
(cond
|
|
||||||
((fboundp sym) (find-definition-noselect sym nil))
|
|
||||||
((boundp sym) (find-definition-noselect sym 'defvar))
|
|
||||||
((featurep sym) (cons (find-file-noselect (find-library-name
|
|
||||||
(symbol-name sym)))
|
|
||||||
0))
|
|
||||||
((facep sym) (find-definition-noselect sym 'defface)))))))
|
|
||||||
|
|
||||||
(provide 'company-elisp)
|
|
||||||
;;; company-elisp.el ends here
|
|
||||||
Binary file not shown.
@@ -1,108 +0,0 @@
|
|||||||
;;; company-etags.el --- company-mode completion backend for etags
|
|
||||||
|
|
||||||
;; 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 <http://www.gnu.org/licenses/>.
|
|
||||||
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
;;
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'company)
|
|
||||||
(require 'cl-lib)
|
|
||||||
(require 'etags)
|
|
||||||
|
|
||||||
(defgroup company-etags nil
|
|
||||||
"Completion backend for etags."
|
|
||||||
:group 'company)
|
|
||||||
|
|
||||||
(defcustom company-etags-use-main-table-list t
|
|
||||||
"Always search `tags-table-list' if set.
|
|
||||||
If this is disabled, `company-etags' will try to find the one table for each
|
|
||||||
buffer automatically."
|
|
||||||
:type '(choice (const :tag "off" nil)
|
|
||||||
(const :tag "on" t)))
|
|
||||||
|
|
||||||
(defcustom company-etags-ignore-case nil
|
|
||||||
"Non-nil to ignore case in completion candidates."
|
|
||||||
:type 'boolean
|
|
||||||
:package-version '(company . "0.7.3"))
|
|
||||||
|
|
||||||
(defcustom company-etags-everywhere nil
|
|
||||||
"Non-nil to offer completions in comments and strings.
|
|
||||||
Set it to t or to a list of major modes."
|
|
||||||
:type '(choice (const :tag "Off" nil)
|
|
||||||
(const :tag "Any supported mode" t)
|
|
||||||
(repeat :tag "Some major modes"
|
|
||||||
(symbol :tag "Major mode")))
|
|
||||||
:package-version '(company . "0.9.0"))
|
|
||||||
|
|
||||||
(defvar company-etags-modes '(prog-mode c-mode objc-mode c++-mode java-mode
|
|
||||||
jde-mode pascal-mode perl-mode python-mode))
|
|
||||||
|
|
||||||
(defvar-local company-etags-buffer-table 'unknown)
|
|
||||||
|
|
||||||
(defun company-etags-find-table ()
|
|
||||||
(let ((file (expand-file-name
|
|
||||||
"TAGS"
|
|
||||||
(locate-dominating-file (or buffer-file-name
|
|
||||||
default-directory)
|
|
||||||
"TAGS"))))
|
|
||||||
(when (and file (file-regular-p file))
|
|
||||||
(list file))))
|
|
||||||
|
|
||||||
(defun company-etags-buffer-table ()
|
|
||||||
(or (and company-etags-use-main-table-list tags-table-list)
|
|
||||||
(if (eq company-etags-buffer-table 'unknown)
|
|
||||||
(setq company-etags-buffer-table (company-etags-find-table))
|
|
||||||
company-etags-buffer-table)))
|
|
||||||
|
|
||||||
(defun company-etags--candidates (prefix)
|
|
||||||
(let ((tags-table-list (company-etags-buffer-table))
|
|
||||||
(tags-file-name tags-file-name)
|
|
||||||
(completion-ignore-case company-etags-ignore-case))
|
|
||||||
(and (or tags-file-name tags-table-list)
|
|
||||||
(fboundp 'tags-completion-table)
|
|
||||||
(save-excursion
|
|
||||||
(visit-tags-table-buffer)
|
|
||||||
(all-completions prefix (tags-completion-table))))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun company-etags (command &optional arg &rest ignored)
|
|
||||||
"`company-mode' completion backend for etags."
|
|
||||||
(interactive (list 'interactive))
|
|
||||||
(cl-case command
|
|
||||||
(interactive (company-begin-backend 'company-etags))
|
|
||||||
(prefix (and (apply #'derived-mode-p company-etags-modes)
|
|
||||||
(or (eq t company-etags-everywhere)
|
|
||||||
(apply #'derived-mode-p company-etags-everywhere)
|
|
||||||
(not (company-in-string-or-comment)))
|
|
||||||
(company-etags-buffer-table)
|
|
||||||
(or (company-grab-symbol) 'stop)))
|
|
||||||
(candidates (company-etags--candidates arg))
|
|
||||||
(location (let ((tags-table-list (company-etags-buffer-table)))
|
|
||||||
(when (fboundp 'find-tag-noselect)
|
|
||||||
(save-excursion
|
|
||||||
(let ((buffer (find-tag-noselect arg)))
|
|
||||||
(cons buffer (with-current-buffer buffer (point))))))))
|
|
||||||
(ignore-case company-etags-ignore-case)))
|
|
||||||
|
|
||||||
(provide 'company-etags)
|
|
||||||
;;; company-etags.el ends here
|
|
||||||
Binary file not shown.
@@ -1,148 +0,0 @@
|
|||||||
;;; company-files.el --- company-mode completion backend for file names
|
|
||||||
|
|
||||||
;; Copyright (C) 2009-2011, 2014-2015 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 <http://www.gnu.org/licenses/>.
|
|
||||||
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
;;
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'company)
|
|
||||||
(require 'cl-lib)
|
|
||||||
|
|
||||||
(defgroup company-files nil
|
|
||||||
"Completion backend for file names."
|
|
||||||
:group 'company)
|
|
||||||
|
|
||||||
(defcustom company-files-exclusions nil
|
|
||||||
"File name extensions and directory names to ignore.
|
|
||||||
The values should use the same format as `completion-ignored-extensions'."
|
|
||||||
:type '(const string)
|
|
||||||
:package-version '(company . "0.9.1"))
|
|
||||||
|
|
||||||
(defun company-files--directory-files (dir prefix)
|
|
||||||
;; Don't use directory-files. It produces directories without trailing /.
|
|
||||||
(condition-case err
|
|
||||||
(let ((comp (sort (file-name-all-completions prefix dir)
|
|
||||||
(lambda (s1 s2) (string-lessp (downcase s1) (downcase s2))))))
|
|
||||||
(when company-files-exclusions
|
|
||||||
(setq comp (company-files--exclusions-filtered comp)))
|
|
||||||
(if (equal prefix "")
|
|
||||||
(delete "../" (delete "./" comp))
|
|
||||||
comp))
|
|
||||||
(file-error nil)))
|
|
||||||
|
|
||||||
(defun company-files--exclusions-filtered (completions)
|
|
||||||
(let* ((dir-exclusions (cl-delete-if-not #'company-files--trailing-slash-p
|
|
||||||
company-files-exclusions))
|
|
||||||
(file-exclusions (cl-set-difference company-files-exclusions
|
|
||||||
dir-exclusions)))
|
|
||||||
(cl-loop for c in completions
|
|
||||||
unless (if (company-files--trailing-slash-p c)
|
|
||||||
(member c dir-exclusions)
|
|
||||||
(cl-find-if (lambda (exclusion)
|
|
||||||
(string-suffix-p exclusion c))
|
|
||||||
file-exclusions))
|
|
||||||
collect c)))
|
|
||||||
|
|
||||||
(defvar company-files--regexps
|
|
||||||
(let* ((root (if (eq system-type 'windows-nt)
|
|
||||||
"[a-zA-Z]:/"
|
|
||||||
"/"))
|
|
||||||
(begin (concat "\\(?:\\.\\{1,2\\}/\\|~/\\|" root "\\)")))
|
|
||||||
(list (concat "\"\\(" begin "[^\"\n]*\\)")
|
|
||||||
(concat "\'\\(" begin "[^\'\n]*\\)")
|
|
||||||
(concat "\\(?:[ \t=]\\|^\\)\\(" begin "[^ \t\n]*\\)"))))
|
|
||||||
|
|
||||||
(defun company-files--grab-existing-name ()
|
|
||||||
;; Grab the file name.
|
|
||||||
;; When surrounded with quotes, it can include spaces.
|
|
||||||
(let (file dir)
|
|
||||||
(and (cl-dolist (regexp company-files--regexps)
|
|
||||||
(when (setq file (company-grab-line regexp 1))
|
|
||||||
(cl-return file)))
|
|
||||||
(company-files--connected-p file)
|
|
||||||
(setq dir (file-name-directory file))
|
|
||||||
(not (string-match "//" dir))
|
|
||||||
(file-exists-p dir)
|
|
||||||
file)))
|
|
||||||
|
|
||||||
(defun company-files--connected-p (file)
|
|
||||||
(or (not (file-remote-p file))
|
|
||||||
(file-remote-p file nil t)))
|
|
||||||
|
|
||||||
(defun company-files--trailing-slash-p (file)
|
|
||||||
;; `file-directory-p' is very expensive on remotes. We are relying on
|
|
||||||
;; `file-name-all-completions' returning directories with trailing / instead.
|
|
||||||
(let ((len (length file)))
|
|
||||||
(and (> len 0) (eq (aref file (1- len)) ?/))))
|
|
||||||
|
|
||||||
(defvar company-files--completion-cache nil)
|
|
||||||
|
|
||||||
(defun company-files--complete (prefix)
|
|
||||||
(let* ((dir (file-name-directory prefix))
|
|
||||||
(file (file-name-nondirectory prefix))
|
|
||||||
(key (list file
|
|
||||||
(expand-file-name dir)
|
|
||||||
(nth 5 (file-attributes dir))))
|
|
||||||
(completion-ignore-case read-file-name-completion-ignore-case))
|
|
||||||
(unless (company-file--keys-match-p key (car company-files--completion-cache))
|
|
||||||
(let* ((candidates (mapcar (lambda (f) (concat dir f))
|
|
||||||
(company-files--directory-files dir file)))
|
|
||||||
(directories (unless (file-remote-p dir)
|
|
||||||
(cl-remove-if-not (lambda (f)
|
|
||||||
(and (company-files--trailing-slash-p f)
|
|
||||||
(not (file-remote-p f))
|
|
||||||
(company-files--connected-p f)))
|
|
||||||
candidates)))
|
|
||||||
(children (and directories
|
|
||||||
(cl-mapcan (lambda (d)
|
|
||||||
(mapcar (lambda (c) (concat d c))
|
|
||||||
(company-files--directory-files d "")))
|
|
||||||
directories))))
|
|
||||||
(setq company-files--completion-cache
|
|
||||||
(cons key (append candidates children)))))
|
|
||||||
(all-completions prefix
|
|
||||||
(cdr company-files--completion-cache))))
|
|
||||||
|
|
||||||
(defun company-file--keys-match-p (new old)
|
|
||||||
(and (equal (cdr old) (cdr new))
|
|
||||||
(string-prefix-p (car old) (car new))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun company-files (command &optional arg &rest ignored)
|
|
||||||
"`company-mode' completion backend existing file names.
|
|
||||||
Completions works for proper absolute and relative files paths.
|
|
||||||
File paths with spaces are only supported inside strings."
|
|
||||||
(interactive (list 'interactive))
|
|
||||||
(cl-case command
|
|
||||||
(interactive (company-begin-backend 'company-files))
|
|
||||||
(prefix (company-files--grab-existing-name))
|
|
||||||
(candidates (company-files--complete arg))
|
|
||||||
(location (cons (dired-noselect
|
|
||||||
(file-name-directory (directory-file-name arg))) 1))
|
|
||||||
(post-completion (when (company-files--trailing-slash-p arg)
|
|
||||||
(delete-char -1)))
|
|
||||||
(sorted t)
|
|
||||||
(no-cache t)))
|
|
||||||
|
|
||||||
(provide 'company-files)
|
|
||||||
;;; company-files.el ends here
|
|
||||||
Binary file not shown.
@@ -1,117 +0,0 @@
|
|||||||
;;; company-gtags.el --- company-mode completion backend for GNU Global
|
|
||||||
|
|
||||||
;; 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 <http://www.gnu.org/licenses/>.
|
|
||||||
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
;;
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'company)
|
|
||||||
(require 'company-template)
|
|
||||||
(require 'cl-lib)
|
|
||||||
|
|
||||||
(defgroup company-gtags nil
|
|
||||||
"Completion backend for GNU Global."
|
|
||||||
:group 'company)
|
|
||||||
|
|
||||||
(define-obsolete-variable-alias
|
|
||||||
'company-gtags-gnu-global-program-name
|
|
||||||
'company-gtags-executable "earlier")
|
|
||||||
|
|
||||||
(defcustom company-gtags-executable
|
|
||||||
(executable-find "global")
|
|
||||||
"Location of GNU global executable."
|
|
||||||
:type 'string)
|
|
||||||
|
|
||||||
(defcustom company-gtags-insert-arguments t
|
|
||||||
"When non-nil, insert function arguments as a template after completion."
|
|
||||||
:type 'boolean
|
|
||||||
:package-version '(company . "0.8.1"))
|
|
||||||
|
|
||||||
(defvar-local company-gtags--tags-available-p 'unknown)
|
|
||||||
|
|
||||||
(defcustom company-gtags-modes '(prog-mode jde-mode)
|
|
||||||
"Modes that use `company-gtags'.
|
|
||||||
In all these modes (and their derivatives) `company-gtags' will perform
|
|
||||||
completion."
|
|
||||||
:type '(repeat (symbol :tag "Major mode"))
|
|
||||||
:package-version '(company . "0.8.4"))
|
|
||||||
|
|
||||||
(defun company-gtags--tags-available-p ()
|
|
||||||
(if (eq company-gtags--tags-available-p 'unknown)
|
|
||||||
(setq company-gtags--tags-available-p
|
|
||||||
(locate-dominating-file buffer-file-name "GTAGS"))
|
|
||||||
company-gtags--tags-available-p))
|
|
||||||
|
|
||||||
(defun company-gtags--fetch-tags (prefix)
|
|
||||||
(with-temp-buffer
|
|
||||||
(let (tags)
|
|
||||||
(when (= 0 (process-file company-gtags-executable nil
|
|
||||||
;; "-T" goes through all the tag files listed in GTAGSLIBPATH
|
|
||||||
(list (current-buffer) nil) nil "-xGqT" (concat "^" prefix)))
|
|
||||||
(goto-char (point-min))
|
|
||||||
(cl-loop while
|
|
||||||
(re-search-forward (concat
|
|
||||||
"^"
|
|
||||||
"\\([^ ]*\\)" ;; completion
|
|
||||||
"[ \t]+\\([[:digit:]]+\\)" ;; linum
|
|
||||||
"[ \t]+\\([^ \t]+\\)" ;; file
|
|
||||||
"[ \t]+\\(.*\\)" ;; definition
|
|
||||||
"$"
|
|
||||||
) nil t)
|
|
||||||
collect
|
|
||||||
(propertize (match-string 1)
|
|
||||||
'meta (match-string 4)
|
|
||||||
'location (cons (expand-file-name (match-string 3))
|
|
||||||
(string-to-number (match-string 2)))
|
|
||||||
))))))
|
|
||||||
|
|
||||||
(defun company-gtags--annotation (arg)
|
|
||||||
(let ((meta (get-text-property 0 'meta arg)))
|
|
||||||
(when (string-match (concat arg "\\((.*)\\).*") meta)
|
|
||||||
(match-string 1 meta))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun company-gtags (command &optional arg &rest ignored)
|
|
||||||
"`company-mode' completion backend for GNU Global."
|
|
||||||
(interactive (list 'interactive))
|
|
||||||
(cl-case command
|
|
||||||
(interactive (company-begin-backend 'company-gtags))
|
|
||||||
(prefix (and company-gtags-executable
|
|
||||||
buffer-file-name
|
|
||||||
(apply #'derived-mode-p company-gtags-modes)
|
|
||||||
(not (company-in-string-or-comment))
|
|
||||||
(company-gtags--tags-available-p)
|
|
||||||
(or (company-grab-symbol) 'stop)))
|
|
||||||
(candidates (company-gtags--fetch-tags arg))
|
|
||||||
(sorted t)
|
|
||||||
(duplicates t)
|
|
||||||
(annotation (company-gtags--annotation arg))
|
|
||||||
(meta (get-text-property 0 'meta arg))
|
|
||||||
(location (get-text-property 0 'location arg))
|
|
||||||
(post-completion (let ((anno (company-gtags--annotation arg)))
|
|
||||||
(when (and company-gtags-insert-arguments anno)
|
|
||||||
(insert anno)
|
|
||||||
(company-template-c-like-templatify anno))))))
|
|
||||||
|
|
||||||
(provide 'company-gtags)
|
|
||||||
;;; company-gtags.el ends here
|
|
||||||
Binary file not shown.
@@ -1,82 +0,0 @@
|
|||||||
;;; company-ispell.el --- company-mode completion backend using Ispell
|
|
||||||
|
|
||||||
;; Copyright (C) 2009-2011, 2013-2016 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 <http://www.gnu.org/licenses/>.
|
|
||||||
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
;;
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'company)
|
|
||||||
(require 'cl-lib)
|
|
||||||
(require 'ispell)
|
|
||||||
|
|
||||||
(defgroup company-ispell nil
|
|
||||||
"Completion backend using Ispell."
|
|
||||||
:group 'company)
|
|
||||||
|
|
||||||
(defcustom company-ispell-dictionary nil
|
|
||||||
"Dictionary to use for `company-ispell'.
|
|
||||||
If nil, use `ispell-complete-word-dict'."
|
|
||||||
:type '(choice (const :tag "default (nil)" nil)
|
|
||||||
(file :tag "dictionary" t)))
|
|
||||||
|
|
||||||
(defvar company-ispell-available 'unknown)
|
|
||||||
|
|
||||||
(defalias 'company-ispell--lookup-words
|
|
||||||
(if (fboundp 'ispell-lookup-words)
|
|
||||||
'ispell-lookup-words
|
|
||||||
'lookup-words))
|
|
||||||
|
|
||||||
(defun company-ispell-available ()
|
|
||||||
(when (eq company-ispell-available 'unknown)
|
|
||||||
(condition-case err
|
|
||||||
(progn
|
|
||||||
(company-ispell--lookup-words "WHATEVER")
|
|
||||||
(setq company-ispell-available t))
|
|
||||||
(error
|
|
||||||
(message "Company-Ispell: %s" (error-message-string err))
|
|
||||||
(setq company-ispell-available nil))))
|
|
||||||
company-ispell-available)
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun company-ispell (command &optional arg &rest ignored)
|
|
||||||
"`company-mode' completion backend using Ispell."
|
|
||||||
(interactive (list 'interactive))
|
|
||||||
(cl-case command
|
|
||||||
(interactive (company-begin-backend 'company-ispell))
|
|
||||||
(prefix (when (company-ispell-available)
|
|
||||||
(company-grab-word)))
|
|
||||||
(candidates
|
|
||||||
(let ((words (company-ispell--lookup-words
|
|
||||||
arg
|
|
||||||
(or company-ispell-dictionary ispell-complete-word-dict)))
|
|
||||||
(completion-ignore-case t))
|
|
||||||
(if (string= arg "")
|
|
||||||
;; Small optimization.
|
|
||||||
words
|
|
||||||
;; Work around issue #284.
|
|
||||||
(all-completions arg words))))
|
|
||||||
(sorted t)
|
|
||||||
(ignore-case 'keep-prefix)))
|
|
||||||
|
|
||||||
(provide 'company-ispell)
|
|
||||||
;;; company-ispell.el ends here
|
|
||||||
Binary file not shown.
@@ -1,306 +0,0 @@
|
|||||||
;;; company-keywords.el --- A company backend for programming language keywords
|
|
||||||
|
|
||||||
;; Copyright (C) 2009-2011, 2016 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 <http://www.gnu.org/licenses/>.
|
|
||||||
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
;;
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'company)
|
|
||||||
(require 'cl-lib)
|
|
||||||
|
|
||||||
(defun company-keywords-upper-lower (&rest lst)
|
|
||||||
;; Upcase order is different for _.
|
|
||||||
(nconc (sort (mapcar 'upcase lst) 'string<) lst))
|
|
||||||
|
|
||||||
(defvar company-keywords-alist
|
|
||||||
;; Please contribute corrections or additions.
|
|
||||||
`((c++-mode
|
|
||||||
"alignas" "alignof" "asm" "auto" "bool" "break" "case" "catch" "char"
|
|
||||||
"char16_t" "char32_t" "class" "const" "const_cast" "constexpr" "continue"
|
|
||||||
"decltype" "default" "delete" "do" "double" "dynamic_cast" "else" "enum"
|
|
||||||
"explicit" "export" "extern" "false" "final" "float" "for" "friend"
|
|
||||||
"goto" "if" "inline" "int" "long" "mutable" "namespace" "new" "noexcept"
|
|
||||||
"nullptr" "operator" "override"
|
|
||||||
"private" "protected" "public" "register" "reinterpret_cast"
|
|
||||||
"return" "short" "signed" "sizeof" "static" "static_assert"
|
|
||||||
"static_cast" "struct" "switch" "template" "this" "thread_local"
|
|
||||||
"throw" "true" "try" "typedef" "typeid" "typename"
|
|
||||||
"union" "unsigned" "using" "virtual" "void" "volatile" "wchar_t" "while")
|
|
||||||
(c-mode
|
|
||||||
"auto" "break" "case" "char" "const" "continue" "default" "do"
|
|
||||||
"double" "else" "enum" "extern" "float" "for" "goto" "if" "int" "long"
|
|
||||||
"register" "return" "short" "signed" "sizeof" "static" "struct"
|
|
||||||
"switch" "typedef" "union" "unsigned" "void" "volatile" "while")
|
|
||||||
(csharp-mode
|
|
||||||
"abstract" "add" "alias" "as" "base" "bool" "break" "byte" "case"
|
|
||||||
"catch" "char" "checked" "class" "const" "continue" "decimal" "default"
|
|
||||||
"delegate" "do" "double" "else" "enum" "event" "explicit" "extern"
|
|
||||||
"false" "finally" "fixed" "float" "for" "foreach" "get" "global" "goto"
|
|
||||||
"if" "implicit" "in" "int" "interface" "internal" "is" "lock" "long"
|
|
||||||
"namespace" "new" "null" "object" "operator" "out" "override" "params"
|
|
||||||
"partial" "private" "protected" "public" "readonly" "ref" "remove"
|
|
||||||
"return" "sbyte" "sealed" "set" "short" "sizeof" "stackalloc" "static"
|
|
||||||
"string" "struct" "switch" "this" "throw" "true" "try" "typeof" "uint"
|
|
||||||
"ulong" "unchecked" "unsafe" "ushort" "using" "value" "var" "virtual"
|
|
||||||
"void" "volatile" "where" "while" "yield")
|
|
||||||
(d-mode
|
|
||||||
;; from http://www.digitalmars.com/d/2.0/lex.html
|
|
||||||
"abstract" "alias" "align" "asm"
|
|
||||||
"assert" "auto" "body" "bool" "break" "byte" "case" "cast" "catch"
|
|
||||||
"cdouble" "cent" "cfloat" "char" "class" "const" "continue" "creal"
|
|
||||||
"dchar" "debug" "default" "delegate" "delete" "deprecated" "do"
|
|
||||||
"double" "else" "enum" "export" "extern" "false" "final" "finally"
|
|
||||||
"float" "for" "foreach" "foreach_reverse" "function" "goto" "idouble"
|
|
||||||
"if" "ifloat" "import" "in" "inout" "int" "interface" "invariant"
|
|
||||||
"ireal" "is" "lazy" "long" "macro" "mixin" "module" "new" "nothrow"
|
|
||||||
"null" "out" "override" "package" "pragma" "private" "protected"
|
|
||||||
"public" "pure" "real" "ref" "return" "scope" "short" "static" "struct"
|
|
||||||
"super" "switch" "synchronized" "template" "this" "throw" "true" "try"
|
|
||||||
"typedef" "typeid" "typeof" "ubyte" "ucent" "uint" "ulong" "union"
|
|
||||||
"unittest" "ushort" "version" "void" "volatile" "wchar" "while" "with")
|
|
||||||
(f90-mode .
|
|
||||||
;; from f90.el
|
|
||||||
;; ".AND." ".GE." ".GT." ".LT." ".LE." ".NE." ".OR." ".TRUE." ".FALSE."
|
|
||||||
,(company-keywords-upper-lower
|
|
||||||
"abs" "abstract" "achar" "acos" "adjustl" "adjustr" "aimag" "aint"
|
|
||||||
"align" "all" "all_prefix" "all_scatter" "all_suffix" "allocatable"
|
|
||||||
"allocate" "allocated" "and" "anint" "any" "any_prefix" "any_scatter"
|
|
||||||
"any_suffix" "asin" "assign" "assignment" "associate" "associated"
|
|
||||||
"asynchronous" "atan" "atan2" "backspace" "bind" "bit_size" "block"
|
|
||||||
"btest" "c_alert" "c_associated" "c_backspace" "c_bool"
|
|
||||||
"c_carriage_return" "c_char" "c_double" "c_double_complex" "c_f_pointer"
|
|
||||||
"c_f_procpointer" "c_float" "c_float_complex" "c_form_feed" "c_funloc"
|
|
||||||
"c_funptr" "c_horizontal_tab" "c_int" "c_int16_t" "c_int32_t" "c_int64_t"
|
|
||||||
"c_int8_t" "c_int_fast16_t" "c_int_fast32_t" "c_int_fast64_t"
|
|
||||||
"c_int_fast8_t" "c_int_least16_t" "c_int_least32_t" "c_int_least64_t"
|
|
||||||
"c_int_least8_t" "c_intmax_t" "c_intptr_t" "c_loc" "c_long"
|
|
||||||
"c_long_double" "c_long_double_complex" "c_long_long" "c_new_line"
|
|
||||||
"c_null_char" "c_null_funptr" "c_null_ptr" "c_ptr" "c_short"
|
|
||||||
"c_signed_char" "c_size_t" "c_vertical_tab" "call" "case" "ceiling"
|
|
||||||
"char" "character" "character_storage_size" "class" "close" "cmplx"
|
|
||||||
"command_argument_count" "common" "complex" "conjg" "contains" "continue"
|
|
||||||
"copy_prefix" "copy_scatter" "copy_suffix" "cos" "cosh" "count"
|
|
||||||
"count_prefix" "count_scatter" "count_suffix" "cpu_time" "cshift"
|
|
||||||
"cycle" "cyclic" "data" "date_and_time" "dble" "deallocate" "deferred"
|
|
||||||
"digits" "dim" "dimension" "distribute" "do" "dot_product" "double"
|
|
||||||
"dprod" "dynamic" "elemental" "else" "elseif" "elsewhere" "end" "enddo"
|
|
||||||
"endfile" "endif" "entry" "enum" "enumerator" "eoshift" "epsilon" "eq"
|
|
||||||
"equivalence" "eqv" "error_unit" "exit" "exp" "exponent" "extends"
|
|
||||||
"extends_type_of" "external" "extrinsic" "false" "file_storage_size"
|
|
||||||
"final" "floor" "flush" "forall" "format" "fraction" "function" "ge"
|
|
||||||
"generic" "get_command" "get_command_argument" "get_environment_variable"
|
|
||||||
"goto" "grade_down" "grade_up" "gt" "hpf_alignment" "hpf_distribution"
|
|
||||||
"hpf_template" "huge" "iachar" "iall" "iall_prefix" "iall_scatter"
|
|
||||||
"iall_suffix" "iand" "iany" "iany_prefix" "iany_scatter" "iany_suffix"
|
|
||||||
"ibclr" "ibits" "ibset" "ichar" "ieee_arithmetic" "ieee_exceptions"
|
|
||||||
"ieee_features" "ieee_get_underflow_mode" "ieee_set_underflow_mode"
|
|
||||||
"ieee_support_underflow_control" "ieor" "if" "ilen" "implicit"
|
|
||||||
"import" "include" "independent" "index" "inherit" "input_unit"
|
|
||||||
"inquire" "int" "integer" "intent" "interface" "intrinsic" "ior"
|
|
||||||
"iostat_end" "iostat_eor" "iparity" "iparity_prefix" "iparity_scatter"
|
|
||||||
"iparity_suffix" "ishft" "ishftc" "iso_c_binding" "iso_fortran_env"
|
|
||||||
"kind" "lbound" "le" "leadz" "len" "len_trim" "lge" "lgt" "lle" "llt"
|
|
||||||
"log" "log10" "logical" "lt" "matmul" "max" "maxexponent" "maxloc"
|
|
||||||
"maxval" "maxval_prefix" "maxval_scatter" "maxval_suffix" "merge"
|
|
||||||
"min" "minexponent" "minloc" "minval" "minval_prefix" "minval_scatter"
|
|
||||||
"minval_suffix" "mod" "module" "modulo" "move_alloc" "mvbits" "namelist"
|
|
||||||
"ne" "nearest" "neqv" "new" "new_line" "nint" "non_intrinsic"
|
|
||||||
"non_overridable" "none" "nopass" "not" "null" "nullify"
|
|
||||||
"number_of_processors" "numeric_storage_size" "only" "onto" "open"
|
|
||||||
"operator" "optional" "or" "output_unit" "pack" "parameter" "parity"
|
|
||||||
"parity_prefix" "parity_scatter" "parity_suffix" "pass" "pause"
|
|
||||||
"pointer" "popcnt" "poppar" "precision" "present" "print" "private"
|
|
||||||
"procedure" "processors" "processors_shape" "product" "product_prefix"
|
|
||||||
"product_scatter" "product_suffix" "program" "protected" "public"
|
|
||||||
"pure" "radix" "random_number" "random_seed" "range" "read" "real"
|
|
||||||
"realign" "recursive" "redistribute" "repeat" "reshape" "result"
|
|
||||||
"return" "rewind" "rrspacing" "same_type_as" "save" "scale" "scan"
|
|
||||||
"select" "selected_char_kind" "selected_int_kind" "selected_real_kind"
|
|
||||||
"sequence" "set_exponent" "shape" "sign" "sin" "sinh" "size" "spacing"
|
|
||||||
"spread" "sqrt" "stop" "subroutine" "sum" "sum_prefix" "sum_scatter"
|
|
||||||
"sum_suffix" "system_clock" "tan" "tanh" "target" "template" "then"
|
|
||||||
"tiny" "transfer" "transpose" "trim" "true" "type" "ubound" "unpack"
|
|
||||||
"use" "value" "verify" "volatile" "wait" "where" "while" "with" "write"))
|
|
||||||
(go-mode
|
|
||||||
;; 1. Keywords ref: https://golang.org/ref/spec#Keywords
|
|
||||||
;; 2. Builtin functions and types ref: https://golang.org/pkg/builtin/
|
|
||||||
"append" "bool" "break" "byte" "cap" "case" "chan" "close" "complex" "complex128"
|
|
||||||
"complex64" "const" "continue" "copy" "default" "defer" "delete" "else" "error"
|
|
||||||
"fallthrough" "false" "float32" "float64" "for" "func" "go" "goto" "if" "imag"
|
|
||||||
"import" "int" "int16" "int32" "int64" "int8" "interface" "len" "make"
|
|
||||||
"map" "new" "nil" "package" "panic" "print" "println" "range" "real" "recover"
|
|
||||||
"return" "rune" "select" "string" "struct" "switch" "true" "type" "uint" "uint16"
|
|
||||||
"uint32" "uint64" "uint8" "uintptr" "var")
|
|
||||||
(java-mode
|
|
||||||
"abstract" "assert" "boolean" "break" "byte" "case" "catch" "char" "class"
|
|
||||||
"continue" "default" "do" "double" "else" "enum" "extends" "final"
|
|
||||||
"finally" "float" "for" "if" "implements" "import" "instanceof" "int"
|
|
||||||
"interface" "long" "native" "new" "package" "private" "protected" "public"
|
|
||||||
"return" "short" "static" "strictfp" "super" "switch" "synchronized"
|
|
||||||
"this" "throw" "throws" "transient" "try" "void" "volatile" "while")
|
|
||||||
(javascript-mode
|
|
||||||
;; https://tc39.github.io/ecma262/ + async, static and undefined
|
|
||||||
"async" "await" "break" "case" "catch" "class" "const" "continue"
|
|
||||||
"debugger" "default" "delete" "do" "else" "enum" "export" "extends" "false"
|
|
||||||
"finally" "for" "function" "if" "import" "in" "instanceof" "let" "new"
|
|
||||||
"null" "return" "static" "super" "switch" "this" "throw" "true" "try"
|
|
||||||
"typeof" "undefined" "var" "void" "while" "with" "yield")
|
|
||||||
(kotlin-mode
|
|
||||||
"abstract" "annotation" "as" "break" "by" "catch" "class" "companion"
|
|
||||||
"const" "constructor" "continue" "data" "do" "else" "enum" "false" "final"
|
|
||||||
"finally" "for" "fun" "if" "import" "in" "init" "inner" "interface"
|
|
||||||
"internal" "is" "lateinit" "nested" "null" "object" "open" "out" "override"
|
|
||||||
"package" "private" "protected" "public" "return" "super" "this" "throw"
|
|
||||||
"trait" "true" "try" "typealias" "val" "var" "when" "while")
|
|
||||||
(objc-mode
|
|
||||||
"@catch" "@class" "@encode" "@end" "@finally" "@implementation"
|
|
||||||
"@interface" "@private" "@protected" "@protocol" "@public"
|
|
||||||
"@selector" "@synchronized" "@throw" "@try" "alloc" "autorelease"
|
|
||||||
"bycopy" "byref" "in" "inout" "oneway" "out" "release" "retain")
|
|
||||||
(perl-mode
|
|
||||||
;; from cperl.el
|
|
||||||
"AUTOLOAD" "BEGIN" "CHECK" "CORE" "DESTROY" "END" "INIT" "__END__"
|
|
||||||
"__FILE__" "__LINE__" "abs" "accept" "alarm" "and" "atan2" "bind"
|
|
||||||
"binmode" "bless" "caller" "chdir" "chmod" "chomp" "chop" "chown" "chr"
|
|
||||||
"chroot" "close" "closedir" "cmp" "connect" "continue" "cos"
|
|
||||||
"crypt" "dbmclose" "dbmopen" "defined" "delete" "die" "do" "dump" "each"
|
|
||||||
"else" "elsif" "endgrent" "endhostent" "endnetent" "endprotoent"
|
|
||||||
"endpwent" "endservent" "eof" "eq" "eval" "exec" "exists" "exit" "exp"
|
|
||||||
"fcntl" "fileno" "flock" "for" "foreach" "fork" "format" "formline"
|
|
||||||
"ge" "getc" "getgrent" "getgrgid" "getgrnam" "gethostbyaddr"
|
|
||||||
"gethostbyname" "gethostent" "getlogin" "getnetbyaddr" "getnetbyname"
|
|
||||||
"getnetent" "getpeername" "getpgrp" "getppid" "getpriority"
|
|
||||||
"getprotobyname" "getprotobynumber" "getprotoent" "getpwent" "getpwnam"
|
|
||||||
"getpwuid" "getservbyname" "getservbyport" "getservent" "getsockname"
|
|
||||||
"getsockopt" "glob" "gmtime" "goto" "grep" "gt" "hex" "if" "index" "int"
|
|
||||||
"ioctl" "join" "keys" "kill" "last" "lc" "lcfirst" "le" "length"
|
|
||||||
"link" "listen" "local" "localtime" "lock" "log" "lstat" "lt" "map"
|
|
||||||
"mkdir" "msgctl" "msgget" "msgrcv" "msgsnd" "my" "ne" "next" "no"
|
|
||||||
"not" "oct" "open" "opendir" "or" "ord" "our" "pack" "package" "pipe"
|
|
||||||
"pop" "pos" "print" "printf" "push" "q" "qq" "quotemeta" "qw" "qx"
|
|
||||||
"rand" "read" "readdir" "readline" "readlink" "readpipe" "recv" "redo"
|
|
||||||
"ref" "rename" "require" "reset" "return" "reverse" "rewinddir" "rindex"
|
|
||||||
"rmdir" "scalar" "seek" "seekdir" "select" "semctl" "semget" "semop"
|
|
||||||
"send" "setgrent" "sethostent" "setnetent" "setpgrp" "setpriority"
|
|
||||||
"setprotoent" "setpwent" "setservent" "setsockopt" "shift" "shmctl"
|
|
||||||
"shmget" "shmread" "shmwrite" "shutdown" "sin" "sleep" "socket"
|
|
||||||
"socketpair" "sort" "splice" "split" "sprintf" "sqrt" "srand" "stat"
|
|
||||||
"study" "sub" "substr" "symlink" "syscall" "sysopen" "sysread" "system"
|
|
||||||
"syswrite" "tell" "telldir" "tie" "time" "times" "tr" "truncate" "uc"
|
|
||||||
"ucfirst" "umask" "undef" "unless" "unlink" "unpack" "unshift" "untie"
|
|
||||||
"until" "use" "utime" "values" "vec" "wait" "waitpid"
|
|
||||||
"wantarray" "warn" "while" "write" "x" "xor" "y")
|
|
||||||
(php-mode
|
|
||||||
"__CLASS__" "__DIR__" "__FILE__" "__FUNCTION__" "__LINE__" "__METHOD__"
|
|
||||||
"__NAMESPACE__" "_once" "abstract" "and" "array" "as" "break" "case"
|
|
||||||
"catch" "cfunction" "class" "clone" "const" "continue" "declare"
|
|
||||||
"default" "die" "do" "echo" "else" "elseif" "empty" "enddeclare"
|
|
||||||
"endfor" "endforeach" "endif" "endswitch" "endwhile" "eval" "exception"
|
|
||||||
"exit" "extends" "final" "for" "foreach" "function" "global"
|
|
||||||
"goto" "if" "implements" "include" "instanceof" "interface"
|
|
||||||
"isset" "list" "namespace" "new" "old_function" "or" "php_user_filter"
|
|
||||||
"print" "private" "protected" "public" "require" "require_once" "return"
|
|
||||||
"static" "switch" "this" "throw" "try" "unset" "use" "var" "while" "xor")
|
|
||||||
(python-mode
|
|
||||||
;; https://docs.python.org/3/reference/lexical_analysis.html#keywords
|
|
||||||
"False" "None" "True" "and" "as" "assert" "break" "class" "continue" "def"
|
|
||||||
"del" "elif" "else" "except" "exec" "finally" "for" "from" "global" "if"
|
|
||||||
"import" "in" "is" "lambda" "nonlocal" "not" "or" "pass" "print" "raise"
|
|
||||||
"return" "try" "while" "with" "yield")
|
|
||||||
(ruby-mode
|
|
||||||
"BEGIN" "END" "alias" "and" "begin" "break" "case" "class" "def" "defined?"
|
|
||||||
"do" "else" "elsif" "end" "ensure" "false" "for" "if" "in" "module"
|
|
||||||
"next" "nil" "not" "or" "redo" "rescue" "retry" "return" "self" "super"
|
|
||||||
"then" "true" "undef" "unless" "until" "when" "while" "yield")
|
|
||||||
;; From https://doc.rust-lang.org/grammar.html#keywords
|
|
||||||
;; but excluding unused reserved words: https://www.reddit.com/r/rust/comments/34fq0k/is_there_a_good_list_of_rusts_keywords/cqucvnj
|
|
||||||
(rust-mode
|
|
||||||
"Self"
|
|
||||||
"as" "box" "break" "const" "continue" "crate" "else" "enum" "extern"
|
|
||||||
"false" "fn" "for" "if" "impl" "in" "let" "loop" "macro" "match" "mod"
|
|
||||||
"move" "mut" "pub" "ref" "return" "self" "static" "struct" "super"
|
|
||||||
"trait" "true" "type" "unsafe" "use" "where" "while")
|
|
||||||
(scala-mode
|
|
||||||
"abstract" "case" "catch" "class" "def" "do" "else" "extends" "false"
|
|
||||||
"final" "finally" "for" "forSome" "if" "implicit" "import" "lazy" "match"
|
|
||||||
"new" "null" "object" "override" "package" "private" "protected"
|
|
||||||
"return" "sealed" "super" "this" "throw" "trait" "true" "try" "type" "val"
|
|
||||||
"var" "while" "with" "yield")
|
|
||||||
(swift-mode
|
|
||||||
"Protocol" "Self" "Type" "and" "as" "assignment" "associatedtype"
|
|
||||||
"associativity" "available" "break" "case" "catch" "class" "column" "continue"
|
|
||||||
"convenience" "default" "defer" "deinit" "didSet" "do" "dynamic" "dynamicType"
|
|
||||||
"else" "elseif" "endif" "enum" "extension" "fallthrough" "false" "file"
|
|
||||||
"fileprivate" "final" "for" "func" "function" "get" "guard" "higherThan" "if"
|
|
||||||
"import" "in" "indirect" "infix" "init" "inout" "internal" "is" "lazy" "left"
|
|
||||||
"let" "line" "lowerThan" "mutating" "nil" "none" "nonmutating" "open"
|
|
||||||
"operator" "optional" "override" "postfix" "precedence" "precedencegroup"
|
|
||||||
"prefix" "private" "protocol" "public" "repeat" "required" "rethrows" "return"
|
|
||||||
"right" "selector" "self" "set" "static" "struct" "subscript" "super" "switch"
|
|
||||||
"throw" "throws" "true" "try" "typealias" "unowned" "var" "weak" "where"
|
|
||||||
"while" "willSet")
|
|
||||||
(julia-mode
|
|
||||||
"abstract" "break" "case" "catch" "const" "continue" "do" "else" "elseif"
|
|
||||||
"end" "eval" "export" "false" "finally" "for" "function" "global" "if"
|
|
||||||
"ifelse" "immutable" "import" "importall" "in" "let" "macro" "module"
|
|
||||||
"otherwise" "quote" "return" "switch" "throw" "true" "try" "type"
|
|
||||||
"typealias" "using" "while"
|
|
||||||
)
|
|
||||||
;; From https://github.com/apache/thrift/blob/master/contrib/thrift.el
|
|
||||||
(thrift-mode
|
|
||||||
"binary" "bool" "byte" "const" "double" "enum" "exception" "extends"
|
|
||||||
"i16" "i32" "i64" "include" "list" "map" "oneway" "optional" "required"
|
|
||||||
"service" "set" "string" "struct" "throws" "typedef" "void"
|
|
||||||
)
|
|
||||||
;; aliases
|
|
||||||
(js2-mode . javascript-mode)
|
|
||||||
(js2-jsx-mode . javascript-mode)
|
|
||||||
(espresso-mode . javascript-mode)
|
|
||||||
(js-mode . javascript-mode)
|
|
||||||
(js-jsx-mode . javascript-mode)
|
|
||||||
(rjsx-mode . javascript-mode)
|
|
||||||
(cperl-mode . perl-mode)
|
|
||||||
(jde-mode . java-mode)
|
|
||||||
(ess-julia-mode . julia-mode)
|
|
||||||
(enh-ruby-mode . ruby-mode))
|
|
||||||
"Alist mapping major-modes to sorted keywords for `company-keywords'.")
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun company-keywords (command &optional arg &rest ignored)
|
|
||||||
"`company-mode' backend for programming language keywords."
|
|
||||||
(interactive (list 'interactive))
|
|
||||||
(cl-case command
|
|
||||||
(interactive (company-begin-backend 'company-keywords))
|
|
||||||
(prefix (and (assq major-mode company-keywords-alist)
|
|
||||||
(not (company-in-string-or-comment))
|
|
||||||
(or (company-grab-symbol) 'stop)))
|
|
||||||
(candidates
|
|
||||||
(let ((completion-ignore-case nil)
|
|
||||||
(symbols (cdr (assq major-mode company-keywords-alist))))
|
|
||||||
(all-completions arg (if (consp symbols)
|
|
||||||
symbols
|
|
||||||
(cdr (assq symbols company-keywords-alist))))))
|
|
||||||
(sorted t)))
|
|
||||||
|
|
||||||
(provide 'company-keywords)
|
|
||||||
;;; company-keywords.el ends here
|
|
||||||
Binary file not shown.
@@ -1,143 +0,0 @@
|
|||||||
;;; company-nxml.el --- company-mode completion backend for nxml-mode
|
|
||||||
|
|
||||||
;; Copyright (C) 2009-2011, 2013, 2018 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 <http://www.gnu.org/licenses/>.
|
|
||||||
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
;;
|
|
||||||
;; In Emacs >= 26, company-capf is used instead.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'company)
|
|
||||||
(require 'cl-lib)
|
|
||||||
|
|
||||||
(defvar rng-open-elements)
|
|
||||||
(defvar rng-validate-mode)
|
|
||||||
(defvar rng-in-attribute-regex)
|
|
||||||
(defvar rng-in-attribute-value-regex)
|
|
||||||
(declare-function rng-set-state-after "rng-nxml")
|
|
||||||
(declare-function rng-match-possible-start-tag-names "rng-match")
|
|
||||||
(declare-function rng-adjust-state-for-attribute "rng-nxml")
|
|
||||||
(declare-function rng-match-possible-attribute-names "rng-match")
|
|
||||||
(declare-function rng-adjust-state-for-attribute-value "rng-nxml")
|
|
||||||
(declare-function rng-match-possible-value-strings "rng-match")
|
|
||||||
|
|
||||||
(defconst company-nxml-token-regexp
|
|
||||||
"\\(?:[_[:alpha:]][-._[:alnum:]]*\\_>\\)")
|
|
||||||
|
|
||||||
(defvar company-nxml-in-attribute-value-regexp
|
|
||||||
(replace-regexp-in-string "w" company-nxml-token-regexp
|
|
||||||
"<w\\(?::w\\)?\
|
|
||||||
\\(?:[ \t\r\n]+w\\(?::w\\)?[ \t\r\n]*=\
|
|
||||||
\[ \t\r\n]*\\(?:\"[^\"]*\"\\|'[^']*'\\)\\)*\
|
|
||||||
\[ \t\r\n]+\\(w\\(:w\\)?\\)[ \t\r\n]*=[ \t\r\n]*\
|
|
||||||
\\(\"\\([^\"]*\\>\\)\\|'\\([^']*\\>\\)\\)\\="
|
|
||||||
t t))
|
|
||||||
|
|
||||||
(defvar company-nxml-in-tag-name-regexp
|
|
||||||
(replace-regexp-in-string "w" company-nxml-token-regexp
|
|
||||||
"<\\(/?w\\(?::w?\\)?\\)?\\=" t t))
|
|
||||||
|
|
||||||
(defun company-nxml-all-completions (prefix alist)
|
|
||||||
(let ((candidates (mapcar 'cdr alist))
|
|
||||||
(case-fold-search nil)
|
|
||||||
filtered)
|
|
||||||
(when (cdar rng-open-elements)
|
|
||||||
(push (concat "/" (cdar rng-open-elements)) candidates))
|
|
||||||
(setq candidates (sort (all-completions prefix candidates) 'string<))
|
|
||||||
(while candidates
|
|
||||||
(unless (equal (car candidates) (car filtered))
|
|
||||||
(push (car candidates) filtered))
|
|
||||||
(pop candidates))
|
|
||||||
(nreverse filtered)))
|
|
||||||
|
|
||||||
(defmacro company-nxml-prepared (&rest body)
|
|
||||||
(declare (indent 0) (debug t))
|
|
||||||
`(let ((lt-pos (save-excursion (search-backward "<" nil t)))
|
|
||||||
xmltok-dtd)
|
|
||||||
(when (and lt-pos (= (rng-set-state-after lt-pos) lt-pos))
|
|
||||||
,@body)))
|
|
||||||
|
|
||||||
(defun company-nxml-tag (command &optional arg &rest ignored)
|
|
||||||
(cl-case command
|
|
||||||
(prefix (and (derived-mode-p 'nxml-mode)
|
|
||||||
rng-validate-mode
|
|
||||||
(company-grab company-nxml-in-tag-name-regexp 1)))
|
|
||||||
(candidates (company-nxml-prepared
|
|
||||||
(company-nxml-all-completions
|
|
||||||
arg (rng-match-possible-start-tag-names))))
|
|
||||||
(sorted t)))
|
|
||||||
|
|
||||||
(defun company-nxml-attribute (command &optional arg &rest ignored)
|
|
||||||
(cl-case command
|
|
||||||
(prefix (and (derived-mode-p 'nxml-mode)
|
|
||||||
rng-validate-mode
|
|
||||||
(memq (char-after) '(?\ ?\t ?\n)) ;; outside word
|
|
||||||
(company-grab rng-in-attribute-regex 1)))
|
|
||||||
(candidates (company-nxml-prepared
|
|
||||||
(and (rng-adjust-state-for-attribute
|
|
||||||
lt-pos (- (point) (length arg)))
|
|
||||||
(company-nxml-all-completions
|
|
||||||
arg (rng-match-possible-attribute-names)))))
|
|
||||||
(sorted t)))
|
|
||||||
|
|
||||||
(defun company-nxml-attribute-value (command &optional arg &rest ignored)
|
|
||||||
(cl-case command
|
|
||||||
(prefix (and (derived-mode-p 'nxml-mode)
|
|
||||||
rng-validate-mode
|
|
||||||
(and (memq (char-after) '(?' ?\" ?\ ?\t ?\n)) ;; outside word
|
|
||||||
(looking-back company-nxml-in-attribute-value-regexp nil)
|
|
||||||
(or (match-string-no-properties 4)
|
|
||||||
(match-string-no-properties 5)
|
|
||||||
""))))
|
|
||||||
(candidates (company-nxml-prepared
|
|
||||||
(let (attr-start attr-end colon)
|
|
||||||
(and (looking-back rng-in-attribute-value-regex lt-pos)
|
|
||||||
(setq colon (match-beginning 2)
|
|
||||||
attr-start (match-beginning 1)
|
|
||||||
attr-end (match-end 1))
|
|
||||||
(rng-adjust-state-for-attribute lt-pos attr-start)
|
|
||||||
(rng-adjust-state-for-attribute-value
|
|
||||||
attr-start colon attr-end)
|
|
||||||
(all-completions
|
|
||||||
arg (rng-match-possible-value-strings))))))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun company-nxml (command &optional arg &rest ignored)
|
|
||||||
"`company-mode' completion backend for `nxml-mode'."
|
|
||||||
(interactive (list 'interactive))
|
|
||||||
(cl-case command
|
|
||||||
(interactive (company-begin-backend 'company-nxml))
|
|
||||||
(prefix (or (company-nxml-tag 'prefix)
|
|
||||||
(company-nxml-attribute 'prefix)
|
|
||||||
(company-nxml-attribute-value 'prefix)))
|
|
||||||
(candidates (cond
|
|
||||||
((company-nxml-tag 'prefix)
|
|
||||||
(company-nxml-tag 'candidates arg))
|
|
||||||
((company-nxml-attribute 'prefix)
|
|
||||||
(company-nxml-attribute 'candidates arg))
|
|
||||||
((company-nxml-attribute-value 'prefix)
|
|
||||||
(sort (company-nxml-attribute-value 'candidates arg)
|
|
||||||
'string<))))
|
|
||||||
(sorted t)))
|
|
||||||
|
|
||||||
(provide 'company-nxml)
|
|
||||||
;;; company-nxml.el ends here
|
|
||||||
Binary file not shown.
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user