From 44a59fdcb3496f1b3ba21901d3597f8c9ecbc3a1 Mon Sep 17 00:00:00 2001 From: brettlangdon Date: Sat, 18 Oct 2014 17:28:14 -0400 Subject: [PATCH] dont use auto-complete-exuhberant-ctags --- emacs | 2 - ...auto-complete-exuberant-ctags-autoloads.el | 16 -- .../auto-complete-exuberant-ctags-pkg.el | 1 - .../auto-complete-exuberant-ctags.el | 215 ------------------ 4 files changed, 234 deletions(-) delete mode 100644 emacs.d/elpa/auto-complete-exuberant-ctags-20140320.24/auto-complete-exuberant-ctags-autoloads.el delete mode 100644 emacs.d/elpa/auto-complete-exuberant-ctags-20140320.24/auto-complete-exuberant-ctags-pkg.el delete mode 100644 emacs.d/elpa/auto-complete-exuberant-ctags-20140320.24/auto-complete-exuberant-ctags.el diff --git a/emacs b/emacs index d3a4d07..8c9d6b0 100644 --- a/emacs +++ b/emacs @@ -58,8 +58,6 @@ (set-face-attribute 'web-mode-html-tag-bracket-face nil :foreground "white"))) (add-hook 'php-mode-hook (lambda() (auto-complete-mode) - (require 'auto-complete-exuberant-ctags) - (ac-exuberant-ctags-setup) (flymake-php-mode))) (add-hook 'markdown-mode-hook (lambda() (require 'poly-markdown) diff --git a/emacs.d/elpa/auto-complete-exuberant-ctags-20140320.24/auto-complete-exuberant-ctags-autoloads.el b/emacs.d/elpa/auto-complete-exuberant-ctags-20140320.24/auto-complete-exuberant-ctags-autoloads.el deleted file mode 100644 index ff833e3..0000000 --- a/emacs.d/elpa/auto-complete-exuberant-ctags-20140320.24/auto-complete-exuberant-ctags-autoloads.el +++ /dev/null @@ -1,16 +0,0 @@ -;;; auto-complete-exuberant-ctags-autoloads.el --- automatically extracted autoloads -;; -;;; Code: -(add-to-list 'load-path (or (file-name-directory #$) (car load-path))) - -;;;### (autoloads nil nil ("auto-complete-exuberant-ctags.el") (21570 -;;;;;; 54875 587705 0)) - -;;;*** - -;; Local Variables: -;; version-control: never -;; no-byte-compile: t -;; no-update-autoloads: t -;; End: -;;; auto-complete-exuberant-ctags-autoloads.el ends here diff --git a/emacs.d/elpa/auto-complete-exuberant-ctags-20140320.24/auto-complete-exuberant-ctags-pkg.el b/emacs.d/elpa/auto-complete-exuberant-ctags-20140320.24/auto-complete-exuberant-ctags-pkg.el deleted file mode 100644 index 7c391c0..0000000 --- a/emacs.d/elpa/auto-complete-exuberant-ctags-20140320.24/auto-complete-exuberant-ctags-pkg.el +++ /dev/null @@ -1 +0,0 @@ -(define-package "auto-complete-exuberant-ctags" "20140320.24" "Exuberant ctags auto-complete.el source" '((auto-complete "1.4.0")) :url "http://code.101000lab.org" :keywords '("anto-complete" "exuberant ctags")) diff --git a/emacs.d/elpa/auto-complete-exuberant-ctags-20140320.24/auto-complete-exuberant-ctags.el b/emacs.d/elpa/auto-complete-exuberant-ctags-20140320.24/auto-complete-exuberant-ctags.el deleted file mode 100644 index adb223c..0000000 --- a/emacs.d/elpa/auto-complete-exuberant-ctags-20140320.24/auto-complete-exuberant-ctags.el +++ /dev/null @@ -1,215 +0,0 @@ -;;; auto-complete-exuberant-ctags.el --- Exuberant ctags auto-complete.el source - -;; Copyright (C) 2011-2014 by 101000code/101000LAB - -;;; This file is NOT part of GNU Emacs - -;;; License -;; -;; 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, 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; see the file COPYING. If not, write to -;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth -;; Floor, Boston, MA 02110-1301, USA. - -;; 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 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, write to the Free Software -;; Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA - -;; Filename: auto-complete-exuberant-ctags.el -;; Description: Exuberant ctags auto-complete.el source -;; Version: 20140320.24 -;; X-Original-Version: 0.0.7 -;; Author: Kenichirou Oyama -;; URL: http://code.101000lab.org -;; Keywords: anto-complete, exuberant ctags -;; Package-Requires: ((auto-complete "1.4.0")) -;; -;; Features that might be required by this library: -;; -;; `auto-complete' -;; - -;;; Commentary: -;; -;; This package provide Exuberant ctags auto-complete.el source -;; -;;; Installation: -;; -;; Put anything-exuberant-ctags.el to your load-path. -;; The load-path is usually ~/elisp/. -;; It's set in your ~/.emacs like this: -;; (add-to-list 'load-path (expand-file-name "~/elisp")) -;; -;; And the following to your ~/.emacs startup file. -;; -;; (require 'auto-complete-exuberant-ctags) -;; (ac-exuberant-ctags-setup) -;; -;; In your project root directory, do follow command to make tags file. -;; -;; ctags --verbose -R --fields="+afikKlmnsSzt" -;; -;; No need more. - -;;; Commands: -;; -;; Below are complete command list: -;; -;; -;;; Customizable Options: -;; -;; Below are customizable option list: -;; -;; `ac-exuberant-ctags-tag-file-name' -;; Exuberant ctags tag file name. -;; default = "tags" -;; `ac-exuberant-ctags-tag-file-search-limit' -;; The limit level of directory that search tag file. -;; default = 10 -;; `ac-exuberant-ctags-line-length-limit' -;; The limit level of line length. -;; default = 400 - -;;; Code: - -(require 'auto-complete) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Customize ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defgroup ac-exuberant-ctags nil - "Exuberant ctags auto-complete.el source" - :prefix "ac-exuberant-ctags-" - :group 'convenience) - -(defcustom ac-exuberant-ctags-tag-file-name "tags" - "Exuberant ctags tag file name." - :type 'string - :group 'ac-exuberant-ctags) - -(defcustom ac-exuberant-ctags-tag-file-search-limit 10 - "The limit level of directory that search tag file. -Don't search tag file deeply if outside this value. -This value only use when option -`ac-exuberant-ctags-tag-file-dir-cache' is nil." - :type 'number - :group 'ac-exuberant-ctags) - -(defcustom ac-exuberant-ctags-line-length-limit 400 - "The limit level of line length. -Don't search line longer if outside this value." - :type 'number - :group 'ac-exuberant-ctags) - -(defun ac-exuberant-ctags-setup () - "Setup ac-exuberant-ctags-setup." - (add-hook 'after-save-hook 'ac-exuberant-ctags-build-index)) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Variable ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defvar ac-exuberant-ctags-index nil - "Index of Exuberant ctags candidates.") - -(defvar ac-exuberant-ctags-tag-file-dir nil - "Exuberant ctags file directory.") - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Utilities Functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defun ac-exuberant-ctags-build-index () - "Build index." - (let (tag-name kind language) - (setq ac-exuberant-ctags-index nil) - (with-temp-buffer - (when (ac-exuberant-ctags-get-tag-file) - (insert-file-contents (ac-exuberant-ctags-get-tag-file)) - (goto-char (point-min)) - (flush-lines "^ *$") - (goto-char (point-min)) - (while (not (eobp)) - (let* ((start (point)) - (end (save-excursion (end-of-line) (point))) - (line (ac-exuberant-ctags-get-line start end))) - (if (not (string-match "^\\([^\t\s]+\\)\t\\([^\t]+\\)\t.*kind:\\([^\t\s]+\\)\t.*language:\\([^\t\s]+\\)" line)) - (goto-char (+ end 1)) - (setq tag-name (match-string 1 line)) - (setq kind (match-string 3 line)) - (setq language (match-string 4 line)) - (goto-char (+ end 1)) - (push (concat tag-name " " kind " " language) ac-exuberant-ctags-index))))) - ac-exuberant-ctags-index))) - -(defun ac-exuberant-ctags-get-line (s e) - (let ((substr (buffer-substring s e))) - (if (or (< ac-exuberant-ctags-line-length-limit (length substr)) (string-match "^!_" substr)) - "" - substr))) - -(defun ac-exuberant-ctags-get-tag-file () - "Get Exuberant ctags tag file." - ;; Get tag file from `default-directory' or upper directory. - (let ((current-dir (ac-exuberant-ctags-find-tag-file default-directory))) - ;; Return nil if not find tag file. - (when current-dir - (setq ac-exuberant-ctags-tag-file-dir current-dir) ;set tag file directory - (expand-file-name ac-exuberant-ctags-tag-file-name current-dir)))) - -(defun ac-exuberant-ctags-find-tag-file (current-dir) - "Find tag file. -Try to find tag file in upper directory if haven't found in CURRENT-DIR." - (flet ((file-exists? (dir) - (let ((tag-path (expand-file-name ac-exuberant-ctags-tag-file-name dir))) - (and (stringp tag-path) - (file-exists-p tag-path) - (file-readable-p tag-path))))) - (loop with count = 0 - until (file-exists? current-dir) - ;; Return nil if outside the value of - ;; `ac-exuberant-ctags-tag-file-search-limit'. - if (= count ac-exuberant-ctags-tag-file-search-limit) - do (return nil) - ;; Or search upper directories. - else - do (incf count) - (setq current-dir (expand-file-name (concat current-dir "../"))) - finally return current-dir))) - -(defun ac-exuberant-ctags-candidate () - (let* ((index (sort (all-completions ac-target ac-exuberant-ctags-index) #'string<)) - (len (length candidates)) - (backward-str (buffer-substring (- ac-point 3) ac-point)) - (count 0) - candidate) - (loop for x in index - unless (> (length candidate) ac-exuberant-ctags-line-length-limit) - do (progn - (unless (not (string-match "^\\([^\t\s]+\\) \\([^\t\s]+\\) \\([^\t\s]+\\)" x)) - ;; @todo use property - (push (match-string 1 x) candidate)))) - candidate)) - -(ac-define-source exuberant-ctags - '((init . (lambda () (unless ac-exuberant-ctags-index - (ac-exuberant-ctags-build-index)))) - (candidates . ac-exuberant-ctags-candidate) - (requires . 3) - (symbol . "s"))) - -(provide 'auto-complete-exuberant-ctags) - -;;; auto-complete-exuberant-ctags.el ends here