summaryrefslogtreecommitdiff
path: root/elpa/company-irony-20190124.2346
diff options
context:
space:
mode:
Diffstat (limited to 'elpa/company-irony-20190124.2346')
-rw-r--r--elpa/company-irony-20190124.2346/company-irony-autoloads.el36
-rw-r--r--elpa/company-irony-20190124.2346/company-irony-pkg.el2
-rw-r--r--elpa/company-irony-20190124.2346/company-irony.el158
-rw-r--r--elpa/company-irony-20190124.2346/company-irony.elcbin4225 -> 0 bytes
4 files changed, 0 insertions, 196 deletions
diff --git a/elpa/company-irony-20190124.2346/company-irony-autoloads.el b/elpa/company-irony-20190124.2346/company-irony-autoloads.el
deleted file mode 100644
index 9d180d1..0000000
--- a/elpa/company-irony-20190124.2346/company-irony-autoloads.el
+++ /dev/null
@@ -1,36 +0,0 @@
-;;; company-irony-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-
-;;;### (autoloads nil "company-irony" "company-irony.el" (0 0 0 0))
-;;; Generated autoloads from company-irony.el
-
-(autoload 'company-irony "company-irony" "\
-
-
-\(fn COMMAND &optional ARG &rest IGNORED)" t nil)
-
-(autoload 'company-irony-setup-begin-commands "company-irony" "\
-Include irony trigger commands to `company-begin-commands'.
-
-This allow completion to be automatically triggered after member
-accesses (obj.|, obj->|, ...).
-
-This may be useful to company < `0.8.4', newer version of company
-include these commands by default." nil nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "company-irony" '("company-irony-")))
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; company-irony-autoloads.el ends here
diff --git a/elpa/company-irony-20190124.2346/company-irony-pkg.el b/elpa/company-irony-20190124.2346/company-irony-pkg.el
deleted file mode 100644
index c671865..0000000
--- a/elpa/company-irony-20190124.2346/company-irony-pkg.el
+++ /dev/null
@@ -1,2 +0,0 @@
-;;; Generated package description from company-irony.el -*- no-byte-compile: t -*-
-(define-package "company-irony" "20190124.2346" "company-mode completion back-end for irony-mode" '((emacs "24.1") (company "0.8.0") (irony "1.1.0") (cl-lib "0.5")) :commit "b44711dfce445610c1ffaec4951c6ff3882b216a" :authors '(("Guillaume Papin" . "guillaume.papin@epitech.eu")) :maintainer '("Guillaume Papin" . "guillaume.papin@epitech.eu") :keywords '("convenience") :url "https://github.com/Sarcasm/company-irony/")
diff --git a/elpa/company-irony-20190124.2346/company-irony.el b/elpa/company-irony-20190124.2346/company-irony.el
deleted file mode 100644
index f25b0fd..0000000
--- a/elpa/company-irony-20190124.2346/company-irony.el
+++ /dev/null
@@ -1,158 +0,0 @@
-;;; company-irony.el --- company-mode completion back-end for irony-mode -*- lexical-binding: t -*-
-
-;; Copyright (C) 2014 Guillaume Papin
-
-;; Author: Guillaume Papin <guillaume.papin@epitech.eu>
-;; Keywords: convenience
-;; Package-Version: 20190124.2346
-;; Package-Commit: b44711dfce445610c1ffaec4951c6ff3882b216a
-;; Version: 1.1.0
-;; URL: https://github.com/Sarcasm/company-irony/
-;; Package-Requires: ((emacs "24.1") (company "0.8.0") (irony "1.1.0") (cl-lib "0.5"))
-
-;; 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:
-
-;; Usage:
-;;
-;; (eval-after-load 'company
-;; '(add-to-list 'company-backends 'company-irony))
-
-;;; Code:
-
-(require 'irony-completion)
-
-(require 'company)
-(require 'company-template)
-
-(require 'cl-lib)
-
-(defgroup company-irony nil
- "Company-mode completion back-end for Irony."
- :group 'company
- :group 'irony)
-
-(defcustom company-irony-ignore-case nil
- "If t, ignore case when collecting completion candidates.
-If this value is `smart', ignore case only when there is no
-uppercase letters."
- :type '(choice (const :tag "off" nil)
- (const smart)
- (other :tag "on" t)))
-
-(defsubst company-irony--irony-candidate (candidate)
- (get-text-property 0 'company-irony candidate))
-
-(defun company-irony-prefix ()
- (pcase-let ((`(,symbol-start . ,symbol-end) (irony-completion-symbol-bounds)))
- (if (and symbol-end (> symbol-end (point)))
- 'stop
- (when symbol-start
- (let ((prefix (buffer-substring-no-properties symbol-start (point))))
- (save-excursion
- (goto-char symbol-start)
- (if (irony-completion-at-trigger-point-p)
- (cons prefix t)
- prefix)))))))
-
-(defun company-irony--make-candidates (candidates)
- (cl-loop for candidate in candidates
- collect (propertize (car candidate) 'company-irony candidate)))
-
-(defun company-irony--get-matching-style ()
- (cl-case company-irony-ignore-case
- (smart 'smart-case)
- ((nil) 'exact)
- (t 'case-insensitive)))
-
-(defun company-irony--candidates (prefix)
- (cons :async
- (lambda (callback)
- (irony-completion-candidates-async
- (lambda (candidates) ;; closure, lexically bound
- (funcall callback
- (company-irony--make-candidates candidates)))
- prefix
- (company-irony--get-matching-style)))))
-
-(defun company-irony--annotation (candidate)
- (concat
- (irony-completion-annotation candidate)
- (let ((type (irony-completion-type candidate)))
- (when (not (zerop (length type)))
- (concat " -> " type)))))
-
-(defun company-irony--post-completion (candidate)
- ;; This check is necessary because Company triggers a 'post-completion even if
- ;; the candidate has just been typed without relying on the completion, but it
- ;; doesn't provide the full candidate information.
- (when candidate
- (let ((point-before-post-complete (point)))
- (if (irony-snippet-available-p)
- (irony-completion-post-complete candidate)
- (let ((str (irony-completion-post-comp-str candidate)))
- (insert str)
- (company-template-c-like-templatify str)))
- ;; Here we set this-command to a `self-insert-command' so that company may
- ;; retrigger idle completion after the snippet expansion
- ;; (~`company-post-command'). This is a bit of a hack and maybe that will
- ;; change in the future. This is useful for example when the completed
- ;; candidate is a namespace and the annotation text (inserted snippet) is
- ;; the scope operator.
- ;;
- ;; std| -> std:: (=> idle completion desired here)
- ;; stderr
- ;; ...
- ;;
- ;; See https://github.com/company-mode/company-mode/issues/143
- (unless (eq (point) point-before-post-complete)
- (setq this-command 'self-insert-command)))))
-
-;;;###autoload
-(defun company-irony (command &optional arg &rest ignored)
- (interactive (list 'interactive))
- (cl-case command
- (interactive (company-begin-backend 'company-irony))
- (prefix (and irony-mode (company-irony-prefix)))
- (candidates (company-irony--candidates arg))
- (annotation (company-irony--annotation
- (company-irony--irony-candidate arg)))
- (meta (irony-completion-brief
- (company-irony--irony-candidate arg)))
- (post-completion (company-irony--post-completion
- (company-irony--irony-candidate arg)))
- (ignore-case (eq company-irony-ignore-case t))
- (no-cache (eq company-irony-ignore-case 'smart))
- (sorted t)))
-
-;;;###autoload
-(defun company-irony-setup-begin-commands ()
- "Include irony trigger commands to `company-begin-commands'.
-
-This allow completion to be automatically triggered after member
-accesses (obj.|, obj->|, ...).
-
-This may be useful to company < `0.8.4', newer version of company
-include these commands by default."
- (if (listp company-begin-commands)
- (set (make-local-variable 'company-begin-commands)
- (delete-dups
- (append company-begin-commands irony-completion-trigger-commands)))
- (display-warning 'company-irony
- "`company-irony-setup-begin-commands' expects \
-`company-begin-commands' to be a list!")))
-
-(provide 'company-irony)
-;;; company-irony.el ends here
diff --git a/elpa/company-irony-20190124.2346/company-irony.elc b/elpa/company-irony-20190124.2346/company-irony.elc
deleted file mode 100644
index 354942f..0000000
--- a/elpa/company-irony-20190124.2346/company-irony.elc
+++ /dev/null
Binary files differ