about summary refs log tree commit diff
path: root/configs/shared/emacs/.emacs.d/elpa/flx-ido-20180117.1519
diff options
context:
space:
mode:
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/flx-ido-20180117.1519')
-rw-r--r--configs/shared/emacs/.emacs.d/elpa/flx-ido-20180117.1519/flx-ido-autoloads.el29
-rw-r--r--configs/shared/emacs/.emacs.d/elpa/flx-ido-20180117.1519/flx-ido-pkg.el2
-rw-r--r--configs/shared/emacs/.emacs.d/elpa/flx-ido-20180117.1519/flx-ido.el292
-rw-r--r--configs/shared/emacs/.emacs.d/elpa/flx-ido-20180117.1519/flx-ido.elcbin8497 -> 0 bytes
4 files changed, 0 insertions, 323 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/flx-ido-20180117.1519/flx-ido-autoloads.el b/configs/shared/emacs/.emacs.d/elpa/flx-ido-20180117.1519/flx-ido-autoloads.el
deleted file mode 100644
index 62fc6d5f8694..000000000000
--- a/configs/shared/emacs/.emacs.d/elpa/flx-ido-20180117.1519/flx-ido-autoloads.el
+++ /dev/null
@@ -1,29 +0,0 @@
-;;; flx-ido-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
-
-;;;### (autoloads nil "flx-ido" "flx-ido.el" (23450 31870 894680
-;;;;;;  554000))
-;;; Generated autoloads from flx-ido.el
-
-(defvar flx-ido-mode nil "\
-Non-nil if Flx-Ido mode is enabled.
-See the `flx-ido-mode' command
-for a description of this minor mode.")
-
-(custom-autoload 'flx-ido-mode "flx-ido" nil)
-
-(autoload 'flx-ido-mode "flx-ido" "\
-Toggle flx ido mode
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; End:
-;;; flx-ido-autoloads.el ends here
diff --git a/configs/shared/emacs/.emacs.d/elpa/flx-ido-20180117.1519/flx-ido-pkg.el b/configs/shared/emacs/.emacs.d/elpa/flx-ido-20180117.1519/flx-ido-pkg.el
deleted file mode 100644
index 3f9861ae238c..000000000000
--- a/configs/shared/emacs/.emacs.d/elpa/flx-ido-20180117.1519/flx-ido-pkg.el
+++ /dev/null
@@ -1,2 +0,0 @@
-;;; -*- no-byte-compile: t -*-
-(define-package "flx-ido" "20180117.1519" "flx integration for ido" '((flx "0.1") (cl-lib "0.3")) :commit "46040d0b096a0340d91235561f27a959a61d0fef" :authors '(("Le Wang")) :maintainer '("Le Wang") :url "https://github.com/lewang/flx")
diff --git a/configs/shared/emacs/.emacs.d/elpa/flx-ido-20180117.1519/flx-ido.el b/configs/shared/emacs/.emacs.d/elpa/flx-ido-20180117.1519/flx-ido.el
deleted file mode 100644
index ecb18132c891..000000000000
--- a/configs/shared/emacs/.emacs.d/elpa/flx-ido-20180117.1519/flx-ido.el
+++ /dev/null
@@ -1,292 +0,0 @@
-;;; flx-ido.el --- flx integration for ido
-
-;; Copyright © 2013, 2015 Le Wang
-
-;; Author: Le Wang
-;; Maintainer: Le Wang
-;; Description: flx integration for ido
-;; Created: Sun Apr 21 20:38:36 2013 (+0800)
-;; Version: 0.6.1
-;; Package-Version: 20180117.1519
-;; URL: https://github.com/lewang/flx
-;; Package-Requires: ((flx "0.1") (cl-lib "0.3"))
-
-;; 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.
-
-;;; Commentary:
-
-;; This package provides a more powerful alternative to `ido-mode''s
-;; built-in flex matching.
-
-;;; Acknowledgments
-
-;; Scott Frazer's blog entry
-;; http://scottfrazersblog.blogspot.com.au/2009/12/emacs-better-ido-flex-matching.html
-;; provided a lot of inspiration.
-;;
-;; ido-hacks was helpful for ido optimization and fontification ideas
-
-;;; Installation:
-
-;; Add the following code to your init file:
-;;
-;;     (require 'flx-ido)
-;;     (ido-mode 1)
-;;     (ido-everywhere 1)
-;;     (flx-ido-mode 1)
-;;     ;; disable ido faces to see flx highlights.
-;;     (setq ido-enable-flex-matching t)
-;;     (setq ido-use-faces nil)
-
-;;; Code:
-
-(require 'ido)
-(require 'flx)
-
-(eval-when-compile
-  (defvar ido-cur-item))
-
-(defcustom flx-ido-threshold 6000
-  "Threshold for activating flx algorithm.
-
-Flx will not kick in until collection is filtered below this
-size with idos' default \"flex\" algorithm."
-  :type 'integer
-  :group 'ido)
-
-
-(defcustom flx-ido-use-faces t
-  "Use `flx-highlight-face' to indicate characters contributing to best score."
-  :type 'boolean
-  :group 'ido)
-
-(unless (fboundp 'delete-consecutive-dups)
-  (defun delete-consecutive-dups (list &optional circular)
-    "Destructively remove `equal' consecutive duplicates from LIST.
-First and last elements are considered consecutive if CIRCULAR is
-non-nil."
-    (let ((tail list) last)
-      (while (consp tail)
-        (if (equal (car tail) (cadr tail))
-            (setcdr tail (cddr tail))
-          (setq last (car tail)
-                tail (cdr tail))))
-      (if (and circular
-               (cdr list)
-               (equal last (car list)))
-          (nbutlast list)
-        list))))
-
-(defvar flx-ido-narrowed-matches-hash (make-hash-table :test 'equal)
-  "Key is a query string.  Value is a list of narrowed matches.")
-
-(defvar flx-ido-debug nil)
-
-(defun flx-ido-debug (&rest args)
-  "Debugging util function.
-ARGS passed to message."
-  (when flx-ido-debug
-      (apply 'message args)))
-
-(defun flx-ido-is-prefix-match (str prefix)
-  "Return t if STR starts with PREFIX."
-  (when (and str prefix)
-    (let ((length (length prefix)))
-      (eq t (compare-strings prefix 0 length
-                             str 0 length)))))
-
-(defun flx-ido-narrowed (query items)
-  "Get the value from `flx-ido-narrowed-matches-hash' with the
-longest prefix match."
-  (flx-ido-debug "flx-ido-narrowed saw %s items" (length items))
-  (if (zerop (length query))
-      (list t (nreverse items))
-    (let ((query-key (flx-ido-key-for-query query))
-          best-match
-          exact
-          res)
-      (cl-loop for key being the hash-key of flx-ido-narrowed-matches-hash
-               do (when (and (>= (length query-key) (length key))
-                             (flx-ido-is-prefix-match query-key key)
-                             (or (null best-match)
-                                 (> (length key) (length best-match))))
-                    (setq best-match key)
-                    (when (= (length key)
-                             (length query-key))
-                      (setq exact t)
-                      (cl-return))))
-      (setq res (cond (exact
-                       (gethash best-match flx-ido-narrowed-matches-hash))
-                      (best-match
-                       (flx-ido-undecorate (gethash best-match flx-ido-narrowed-matches-hash)))
-                      (t
-                       (flx-ido-undecorate items))))
-      (list exact res))))
-
-(defun flx-ido-undecorate (strings)
-  "Remove decorations from STRINGS."
-  (flx-ido-decorate strings t))
-
-
-(defun flx-ido-decorate (things &optional clear)
-  "Add ido text properties to THINGS.
-If CLEAR is specified, clear them instead."
-  (if flx-ido-use-faces
-      (let ((decorate-count (min ido-max-prospects
-                                 (length things))))
-        (nconc
-         (cl-loop for thing in things
-               for i from 0 below decorate-count
-               collect (if clear
-                           (flx-propertize thing nil)
-                         (flx-propertize (car thing) (cdr thing))))
-         (if clear
-             (nthcdr decorate-count things)
-           (mapcar 'car (nthcdr decorate-count things)))))
-    (if clear
-        things
-      (mapcar 'car things))))
-
-(defun flx-ido-match-internal (query items)
-  "Match QUERY against ITEMS using flx scores.
-
-If filtered item count is still greater than `flx-ido-threshold', then use flex."
-  (flx-ido-debug "flx-ido-match-internal saw %s items" (length items))
-  (let ((flex-result (flx-flex-match query items)))
-    (flx-ido-debug "flex result count: %s" (length flex-result))
-    (if (< (length flex-result) flx-ido-threshold)
-        (let* ((matches (cl-loop for item in flex-result
-                                 for string = (ido-name item)
-                                 for score = (flx-score string query flx-file-cache)
-                                 if score
-                                 collect (cons item score)
-                                 into matches
-                                 finally return matches)))
-          (flx-ido-decorate (delete-consecutive-dups
-                             (sort matches
-                                   (lambda (x y) (> (cadr x) (cadr y))))
-                             t)))
-      flex-result)))
-
-(defun flx-ido-key-for-query (query)
-  "Canonicalize QUERY to form key."
-  (concat ido-current-directory query))
-
-(defun flx-ido-cache (query items)
-  "Possibly insert items into cache."
-  (if (memq ido-cur-item '(file dir))
-      items
-    (puthash (flx-ido-key-for-query query) items flx-ido-narrowed-matches-hash)))
-
-(defun flx-ido-reset ()
-  "Clean up flx variables between ido sessions."
-  (clrhash flx-ido-narrowed-matches-hash))
-
-(defun flx-ido-match (query items)
-  "Better sorting for flx ido matching."
-  (cl-destructuring-bind (exact res-items)
-      (flx-ido-narrowed query items)
-    (flx-ido-debug "exact: %s\nbefore hash count %s " exact (hash-table-count flx-ido-narrowed-matches-hash))
-    (flx-ido-cache query (if exact
-                             res-items
-                           (flx-ido-match-internal query res-items)))))
-
-(defun flx-ido-query-to-regexp (query)
-  "Convert QUERY to flx style case folding regexp."
-  (let* ((breakdown-str (mapcar (lambda (c)
-                                  (apply 'string c (when (= (downcase c) c)
-                                                       (list (upcase c)))))
-                                query))
-         (re (concat (format "[%s]" (nth 0 breakdown-str))
-                     (mapconcat (lambda (c)
-                                  (format "[^%s]*[%s]" c c))
-                                (cdr breakdown-str) ""))))
-    re))
-
-(defun flx-flex-match (query items)
-  "Reimplement ido's flex matching.
-Our implementation always uses flex and doesn't care about substring matches."
-  (if (zerop (length query))
-      items
-    (let* ((case-fold-search nil)
-           (re (flx-ido-query-to-regexp query))
-           matches)
-      (mapc
-       (lambda (item)
-         (let ((name (ido-name item)))
-           (if (string-match re name)
-               (setq matches (cons item matches)))))
-       items)
-      (delete-consecutive-dups (nreverse matches) t))))
-
-;;;###autoload
-(define-minor-mode flx-ido-mode
-  "Toggle flx ido mode"
-  :init-value nil
-  :lighter ""
-  :group 'ido
-  :global t)
-
-(defadvice ido-exit-minibuffer (around flx-ido-reset activate)
-  "Remove flx properties after."
-  (let* ((obj (car ido-matches))
-         (str (if (consp obj)
-                  (car obj)
-                obj)))
-    (when (and flx-ido-mode str)
-      (remove-text-properties 0 (length str)
-                              '(face flx-highlight-face) str))
-    (flx-ido-reset))
-
-  ad-do-it)
-
-(defadvice ido-read-internal (before flx-ido-reset activate)
-  "Clear flx narrowed hash beforehand."
-  (when flx-ido-mode
-    (flx-ido-reset)))
-
-(defadvice ido-restrict-to-matches (before flx-ido-reset activate)
-  "Clear flx narrowed hash."
-  (when flx-ido-mode
-    (flx-ido-reset)))
-
-(defadvice ido-set-matches-1 (around flx-ido-set-matches-1 activate compile)
-  "Choose between the regular ido-set-matches-1 and flx-ido-match"
-  (if (not flx-ido-mode)
-      ad-do-it
-    (let* ((query ido-text)
-           (original-items (ad-get-arg 0)))
-      (flx-ido-debug "query: %s" query)
-      (flx-ido-debug "id-set-matches-1 sees %s items" (length original-items))
-      (setq ad-return-value (flx-ido-match query original-items)))
-    (flx-ido-debug "id-set-matches-1 returning %s items starting with %s " (length ad-return-value) (car ad-return-value))))
-
-(defadvice ido-kill-buffer-at-head (before flx-ido-reset activate)
-  "Keep up with modification as required."
-  (when flx-ido-mode
-    ;; if not at EOB, query text is deleted.
-    (when (eobp)
-      (flx-ido-reset))))
-
-(add-hook 'ido-minibuffer-setup-hook 'flx-ido-reset nil)
-
-(provide 'flx-ido)
-
-;;; flx-ido.el ends here
diff --git a/configs/shared/emacs/.emacs.d/elpa/flx-ido-20180117.1519/flx-ido.elc b/configs/shared/emacs/.emacs.d/elpa/flx-ido-20180117.1519/flx-ido.elc
deleted file mode 100644
index 1fffd3735726..000000000000
--- a/configs/shared/emacs/.emacs.d/elpa/flx-ido-20180117.1519/flx-ido.elc
+++ /dev/null
Binary files differ