diff options
author | William Carroll <wpcarro@gmail.com> | 2019-01-13T19·33-0500 |
---|---|---|
committer | William Carroll <wpcarro@gmail.com> | 2019-01-13T19·45-0500 |
commit | 481df5a3855ccd5ea3bf4d5f41ae780f4773b7b4 (patch) | |
tree | 3aeb7e20eaba176536cb8d10ba531ac39674fc4a /configs/shared/emacs/.emacs.d/elpa/company-20180913.805/company-xcode.el | |
parent | 18b9930b8604134f087ca61fe94740b31f94327c (diff) |
Remove Emacs spam
My inconsistent git history-keeping is coming to bite me here. At the moment, I can only speculate about what went wrong here. The gist is this: I unintentionally committed files that were supposed to be ignored This commit removes those files which includes: - auto-save-list - elpa packages - quelpa packages - misc
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/company-20180913.805/company-xcode.el')
-rw-r--r-- | configs/shared/emacs/.emacs.d/elpa/company-20180913.805/company-xcode.el | 123 |
1 files changed, 0 insertions, 123 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/company-20180913.805/company-xcode.el b/configs/shared/emacs/.emacs.d/elpa/company-20180913.805/company-xcode.el deleted file mode 100644 index 56da19890b2d..000000000000 --- a/configs/shared/emacs/.emacs.d/elpa/company-20180913.805/company-xcode.el +++ /dev/null @@ -1,123 +0,0 @@ -;;; company-xcode.el --- company-mode completion backend for Xcode projects - -;; 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) - -(defgroup company-xcode nil - "Completion backend for Xcode projects." - :group 'company) - -(defcustom company-xcode-xcodeindex-executable (executable-find "xcodeindex") - "Location of xcodeindex executable." - :type 'file) - -(defvar company-xcode-tags nil) - -(defun company-xcode-reset () - "Reset the cached tags." - (interactive) - (setq company-xcode-tags nil)) - -(defcustom company-xcode-types - '("Class" "Constant" "Enum" "Macro" "Modeled Class" "Structure" - "Type" "Union" "Function") - "The types of symbols offered by `company-xcode'. -No context-enabled completion is available. Types like methods will be -offered regardless of whether the class supports them. The defaults should be -valid in most contexts." - :set (lambda (variable value) - (set variable value) - (company-xcode-reset)) - :type '(set (const "Category") (const "Class") (const "Class Method") - (const "Class Variable") (const "Constant") (const "Enum") - (const "Field") (const "Instance Method") - (const "Instance Variable") (const "Macro") - (const "Modeled Class") (const "Modeled Method") - (const "Modeled Property") (const "Property") (const "Protocol") - (const "Structure") (const "Type") (const "Union") - (const "Variable") (const "Function"))) - -(defvar-local company-xcode-project 'unknown) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(defun company-xcode-fetch (project-bundle) - (setq project-bundle (directory-file-name project-bundle)) - (message "Retrieving dump from %s..." project-bundle) - (with-temp-buffer - (let ((default-directory (file-name-directory project-bundle))) - (call-process company-xcode-xcodeindex-executable nil (current-buffer) - nil "dump" "-project" - (file-name-nondirectory project-bundle) "-quiet") - (goto-char (point-min)) - (let ((regexp (concat "^\\([^\t\n]*\\)\t[^\t\n]*\t" - (regexp-opt company-xcode-types) - "\t[^\t\n]*\t[^\t\n]*")) - candidates) - (while (re-search-forward regexp nil t) - (cl-pushnew (match-string 1) candidates :test #'equal)) - (message "Retrieving dump from %s...done" project-bundle) - candidates)))) - -(defun company-xcode-find-project () - (let ((dir (if buffer-file-name - (file-name-directory buffer-file-name) - (expand-file-name default-directory))) - (prev-dir nil) - file) - (while (not (or file (equal dir prev-dir))) - (setq file (car (directory-files dir t ".xcodeproj\\'" t)) - prev-dir dir - dir (file-name-directory (directory-file-name dir)))) - file)) - -(defun company-xcode-tags () - (when (eq company-xcode-project 'unknown) - (setq company-xcode-project (company-xcode-find-project))) - (when company-xcode-project - (cdr (or (assoc company-xcode-project company-xcode-tags) - (car (push (cons company-xcode-project - (company-xcode-fetch company-xcode-project)) - company-xcode-tags)))))) -;;;###autoload -(defun company-xcode (command &optional arg &rest ignored) - "`company-mode' completion backend for Xcode projects." - (interactive (list 'interactive)) - (cl-case command - (interactive (company-begin-backend 'company-xcode)) - (prefix (and company-xcode-xcodeindex-executable - (company-xcode-tags) - (not (company-in-string-or-comment)) - (or (company-grab-symbol) 'stop))) - (candidates (let ((completion-ignore-case nil)) - (company-xcode-tags) - (all-completions arg (company-xcode-tags)))))) - - -(provide 'company-xcode) -;;; company-xcode.el ends here |