diff options
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/smex-20151212.2209/smex.el')
| -rw-r--r-- | configs/shared/emacs/.emacs.d/elpa/smex-20151212.2209/smex.el | 484 |
1 files changed, 0 insertions, 484 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/smex-20151212.2209/smex.el b/configs/shared/emacs/.emacs.d/elpa/smex-20151212.2209/smex.el deleted file mode 100644 index a85821f2cd18..000000000000 --- a/configs/shared/emacs/.emacs.d/elpa/smex-20151212.2209/smex.el +++ /dev/null @@ -1,484 +0,0 @@ -;;; smex.el --- M-x interface with Ido-style fuzzy matching. -*- lexical-binding: t; -*- - -;; Copyright (C) 2009-2014 Cornelius Mika and contributors -;; -;; Author: Cornelius Mika <cornelius.mika@gmail.com> and contributors -;; URL: http://github.com/nonsequitur/smex/ -;; Package-Version: 20151212.2209 -;; Package-Requires: ((emacs "24")) -;; Version: 3.0 -;; Keywords: convenience, usability - -;; This file is not part of GNU Emacs. - -;;; License: - -;; Licensed under the same terms as Emacs. - -;;; Commentary: - -;; Quick start: -;; run (smex-initialize) -;; -;; Bind the following commands: -;; smex, smex-major-mode-commands -;; -;; For a detailed introduction see: -;; http://github.com/nonsequitur/smex/blob/master/README.markdown - -;;; Code: - -(require 'ido) - -(defgroup smex nil - "M-x interface with Ido-style fuzzy matching and ranking heuristics." - :group 'extensions - :group 'convenience - :link '(emacs-library-link :tag "Lisp File" "smex.el")) - -(defcustom smex-auto-update t - "If non-nil, `Smex' checks for new commands each time it is run. -Turn it off for minor speed improvements on older systems." - :type 'boolean - :group 'smex) - -(defcustom smex-save-file (locate-user-emacs-file "smex-items" ".smex-items") - "File in which the smex state is saved between Emacs sessions. -Variables stored are: `smex-data', `smex-history'. -Must be set before initializing Smex." - :type 'string - :group 'smex) - -(defcustom smex-history-length 7 - "Determines on how many recently executed commands -Smex should keep a record. -Must be set before initializing Smex." - :type 'integer - :group 'smex) - -(defcustom smex-prompt-string "M-x " - "String to display in the Smex prompt." - :type 'string - :group 'smex) - -(defcustom smex-flex-matching t - "Enables Ido flex matching. On by default. -Set this to nil to disable fuzzy matching." - :type 'boolean - :group 'smex) - -(defvar smex-initialized-p nil) -(defvar smex-cache) -(defvar smex-ido-cache) -(defvar smex-data) -(defvar smex-history) -(defvar smex-command-count 0) -(defvar smex-custom-action nil) - -;; Check if Smex is supported -(when (equal (cons 1 1) - (ignore-errors - (subr-arity (symbol-function 'execute-extended-command)))) - (error "Your Emacs has a non-elisp version of `execute-extended-command', which is incompatible with Smex")) - -;;-------------------------------------------------------------------------------- -;; Smex Interface - -;;;###autoload -(defun smex () - (interactive) - (unless smex-initialized-p - (smex-initialize)) - (if (smex-already-running) - (smex-update-and-rerun) - (and smex-auto-update - (smex-detect-new-commands) - (smex-update)) - (smex-read-and-run smex-ido-cache))) - -(defun smex-already-running () - (and (boundp 'ido-choice-list) - (eql ido-choice-list smex-ido-cache) - (minibuffer-window-active-p (selected-window)))) - -(defun smex-update-and-rerun () - (smex-do-with-selected-item - (lambda (_) (smex-update) (smex-read-and-run smex-ido-cache ido-text)))) - -(defun smex-read-and-run (commands &optional initial-input) - (let* ((chosen-item-name (smex-completing-read commands initial-input)) - (chosen-item (intern chosen-item-name))) - (if smex-custom-action - (let ((action smex-custom-action)) - (setq smex-custom-action nil) - (funcall action chosen-item)) - (unwind-protect - (with-no-warnings ; Don't warn about interactive use of `execute-extended-command' - (execute-extended-command current-prefix-arg chosen-item-name)) - (smex-rank chosen-item))))) - -;;;###autoload -(defun smex-major-mode-commands () - "Like `smex', but limited to commands that are relevant to the active major mode." - (interactive) - (unless smex-initialized-p - (smex-initialize)) - (let ((commands (delete-dups (append (smex-extract-commands-from-keymap (current-local-map)) - (smex-extract-commands-from-features major-mode))))) - (setq commands (smex-sort-according-to-cache commands)) - (setq commands (mapcar #'symbol-name commands)) - (smex-read-and-run commands))) - -(defun smex-completing-read (choices initial-input) - (let ((ido-completion-map ido-completion-map) - (ido-setup-hook (cons 'smex-prepare-ido-bindings ido-setup-hook)) - (ido-enable-prefix nil) - (ido-enable-flex-matching smex-flex-matching) - (ido-max-prospects 10) - (minibuffer-completion-table choices)) - (ido-completing-read (smex-prompt-with-prefix-arg) choices nil nil - initial-input 'extended-command-history (car choices)))) - -(defun smex-prompt-with-prefix-arg () - (if (not current-prefix-arg) - smex-prompt-string - (concat - (if (eq current-prefix-arg '-) - "- " - (if (integerp current-prefix-arg) - (format "%d " current-prefix-arg) - (if (= (car current-prefix-arg) 4) - "C-u " - (format "%d " (car current-prefix-arg))))) - smex-prompt-string))) - -(defun smex-prepare-ido-bindings () - (define-key ido-completion-map (kbd "TAB") 'minibuffer-complete) - (define-key ido-completion-map (kbd "C-h f") 'smex-describe-function) - (define-key ido-completion-map (kbd "C-h w") 'smex-where-is) - (define-key ido-completion-map (kbd "M-.") 'smex-find-function) - (define-key ido-completion-map (kbd "C-a") 'move-beginning-of-line)) - -;;-------------------------------------------------------------------------------- -;; Cache and Maintenance - -(defun smex-rebuild-cache () - (interactive) - (setq smex-cache nil) - - ;; Build up list 'new-commands' and later put it at the end of 'smex-cache'. - ;; This speeds up sorting. - (let (new-commands) - (mapatoms (lambda (symbol) - (when (commandp symbol) - (let ((known-command (assq symbol smex-data))) - (if known-command - (setq smex-cache (cons known-command smex-cache)) - (setq new-commands (cons (list symbol) new-commands))))))) - (if (eq (length smex-cache) 0) - (setq smex-cache new-commands) - (setcdr (last smex-cache) new-commands))) - - (setq smex-cache (sort smex-cache 'smex-sorting-rules)) - (smex-restore-history) - (setq smex-ido-cache (smex-convert-for-ido smex-cache))) - -(defun smex-convert-for-ido (command-items) - (mapcar (lambda (command-item) (symbol-name (car command-item))) command-items)) - -(defun smex-restore-history () - "Rearranges `smex-cache' according to `smex-history'" - (if (> (length smex-history) smex-history-length) - (setcdr (nthcdr (- smex-history-length 1) smex-history) nil)) - (mapc (lambda (command) - (unless (eq command (caar smex-cache)) - (let ((command-cell-position (smex-detect-position - smex-cache - (lambda (cell) - (eq command (caar cell)))))) - (when command-cell-position - (let ((command-cell (smex-remove-nth-cell - command-cell-position smex-cache))) - (setcdr command-cell smex-cache) - (setq smex-cache command-cell)))))) - (reverse smex-history))) - -(defun smex-sort-according-to-cache (list) - "Sorts a list of commands by their order in `smex-cache'" - (let (sorted) - (dolist (command-item smex-cache) - (let ((command (car command-item))) - (when (memq command list) - (setq sorted (cons command sorted)) - (setq list (delq command list))))) - (nreverse (append list sorted)))) - -(defun smex-update () - (interactive) - (smex-save-history) - (smex-rebuild-cache)) - -(defun smex-detect-new-commands () - (let ((i 0)) - (mapatoms (lambda (symbol) (if (commandp symbol) (setq i (1+ i))))) - (unless (= i smex-command-count) - (setq smex-command-count i)))) - -(defun smex-auto-update (&optional idle-time) - "Update Smex when Emacs has been idle for IDLE-TIME." - (unless idle-time (setq idle-time 60)) - (run-with-idle-timer idle-time t - '(lambda () (if (smex-detect-new-commands) (smex-update))))) - -;;;###autoload -(defun smex-initialize () - (interactive) - (unless ido-mode (smex-initialize-ido)) - (smex-load-save-file) - (smex-detect-new-commands) - (smex-rebuild-cache) - (add-hook 'kill-emacs-hook 'smex-save-to-file) - (setq smex-initialized-p t)) - -(defun smex-initialize-ido () - "Sets up a minimal Ido environment for `ido-completing-read'." - (with-no-warnings ; `ido-init-completion-maps' is deprecated in Emacs 25 - (ido-init-completion-maps)) - (add-hook 'minibuffer-setup-hook 'ido-minibuffer-setup)) - -(defsubst smex-save-file-not-empty-p () - (string-match-p "\[^[:space:]\]" (buffer-string))) - -(defun smex-load-save-file () - "Loads `smex-history' and `smex-data' from `smex-save-file'" - (let ((save-file (expand-file-name smex-save-file))) - (if (file-readable-p save-file) - (with-temp-buffer - (insert-file-contents save-file) - (condition-case nil - (setq smex-history (read (current-buffer)) - smex-data (read (current-buffer))) - (error (if (smex-save-file-not-empty-p) - (error "Invalid data in smex-save-file (%s). Can't restore history." - smex-save-file) - (unless (boundp 'smex-history) (setq smex-history nil)) - (unless (boundp 'smex-data) (setq smex-data nil)))))) - (setq smex-history nil smex-data nil)))) - -(defun smex-save-history () - "Updates `smex-history'" - (setq smex-history nil) - (let ((cell smex-cache)) - (dotimes (_ smex-history-length) - (setq smex-history (cons (caar cell) smex-history)) - (setq cell (cdr cell)))) - (setq smex-history (nreverse smex-history))) - -(defmacro smex-pp (list-var) - `(smex-pp* ,list-var ,(symbol-name list-var))) - -(defun smex-save-to-file () - (interactive) - (smex-save-history) - (with-temp-file (expand-file-name smex-save-file) - (smex-pp smex-history) - (smex-pp smex-data))) - -;;-------------------------------------------------------------------------------- -;; Ranking - -(defun smex-sorting-rules (command-item other-command-item) - "Returns true if COMMAND-ITEM should sort before OTHER-COMMAND-ITEM." - (let* ((count (or (cdr command-item ) 0)) - (other-count (or (cdr other-command-item) 0)) - (name (car command-item)) - (other-name (car other-command-item)) - (length (length (symbol-name name))) - (other-length (length (symbol-name other-name)))) - (or (> count other-count) ; 1. Frequency of use - (and (= count other-count) - (or (< length other-length) ; 2. Command length - (and (= length other-length) - (string< name other-name))))))) ; 3. Alphabetical order - -(defun smex-rank (command) - (let ((command-item (or (assq command smex-cache) - ;; Update caches and try again if not found. - (progn (smex-update) - (assq command smex-cache))))) - (when command-item - (smex-update-counter command-item) - - ;; Don't touch the cache order if the chosen command - ;; has just been execucted previously. - (unless (eq command-item (car smex-cache)) - (let (command-cell - (pos (smex-detect-position smex-cache (lambda (cell) - (eq command-item (car cell)))))) - ;; Remove the just executed command. - (setq command-cell (smex-remove-nth-cell pos smex-cache)) - ;; And put it on top of the cache. - (setcdr command-cell smex-cache) - (setq smex-cache command-cell) - - ;; Repeat the same for the ido cache. Should this be DRYed? - (setq command-cell (smex-remove-nth-cell pos smex-ido-cache)) - (setcdr command-cell smex-ido-cache) - (setq smex-ido-cache command-cell) - - ;; Now put the last history item back to its normal place. - (smex-sort-item-at smex-history-length)))))) - -(defun smex-update-counter (command-item) - (let ((count (cdr command-item))) - (setcdr command-item - (if count - (1+ count) - ;; Else: Command has just been executed for the first time. - ;; Add it to `smex-data'. - (if smex-data - (setcdr (last smex-data) (list command-item)) - (setq smex-data (list command-item))) - 1)))) - -(defun smex-sort-item-at (n) - "Sorts item at position N in `smex-cache'." - (let* ((command-cell (nthcdr n smex-cache)) - (command-item (car command-cell))) - (let ((insert-at (smex-detect-position - command-cell - (lambda (cell) - (smex-sorting-rules command-item (car cell)))))) - ;; TODO: Should we handle the case of 'insert-at' being nil? - ;; This will never happen in practice. - (when (> insert-at 1) - (setq command-cell (smex-remove-nth-cell n smex-cache)) - ;; smex-cache just got shorter by one element, so subtract '1' from insert-at. - (setq insert-at (+ n (- insert-at 1))) - (smex-insert-cell command-cell insert-at smex-cache) - - ;; Repeat the same for the ido cache. DRY? - (setq command-cell (smex-remove-nth-cell n smex-ido-cache)) - (smex-insert-cell command-cell insert-at smex-ido-cache))))) - -(defun smex-detect-position (cell function) - "Detects, relatively to CELL, the position of the cell -on which FUNCTION returns true. -Only checks cells after CELL, starting with the cell right after CELL. -Returns nil when reaching the end of the list." - (let ((pos 1)) - (catch 'break - (while t - (setq cell (cdr cell)) - (if (not cell) - (throw 'break nil) - (if (funcall function cell) (throw 'break pos)) - (setq pos (1+ pos))))))) - -(defun smex-remove-nth-cell (n list) - "Removes and returns the Nth cell in LIST." - (let* ((previous-cell (nthcdr (- n 1) list)) - (result (cdr previous-cell))) - (setcdr previous-cell (cdr result)) - result)) - -(defun smex-insert-cell (new-cell n list) - "Inserts cell at position N in LIST." - (let* ((cell (nthcdr (- n 1) list)) - (next-cell (cdr cell))) - (setcdr (setcdr cell new-cell) next-cell))) - -;;-------------------------------------------------------------------------------- -;; Help and Reference - -(defun smex-do-with-selected-item (fn) - (setq smex-custom-action fn) - (ido-exit-minibuffer)) - -(defun smex-describe-function () - (interactive) - (smex-do-with-selected-item (lambda (chosen) - (describe-function chosen) - (pop-to-buffer "*Help*")))) - -(defun smex-where-is () - (interactive) - (smex-do-with-selected-item 'where-is)) - -(defun smex-find-function () - (interactive) - (smex-do-with-selected-item 'find-function)) - -(defun smex-extract-commands-from-keymap (map) - (let (commands) - (smex-parse-keymap map commands) - commands)) - -(defun smex-parse-keymap (map commands) - (map-keymap (lambda (_binding element) - (if (and (listp element) (eq 'keymap (car element))) - (smex-parse-keymap element commands) - ;; Strings are commands, too. Reject them. - (if (and (symbolp element) (commandp element)) - (push element commands)))) - map)) - -(defun smex-extract-commands-from-features (mode) - (let ((library-path (symbol-file mode)) - (mode-name (symbol-name mode)) - commands) - - (string-match "\\(.+?\\)\\(-mode\\)?$" mode-name) - ;; 'lisp-mode' -> 'lisp' - (setq mode-name (match-string 1 mode-name)) - (if (string= mode-name "c") (setq mode-name "cc")) - (setq mode-name (regexp-quote mode-name)) - - (dolist (feature load-history) - (let ((feature-path (car feature))) - (when (and feature-path (or (equal feature-path library-path) - (string-match mode-name (file-name-nondirectory - feature-path)))) - (dolist (item (cdr feature)) - (if (and (listp item) (eq 'defun (car item))) - (let ((function (cdr item))) - (when (commandp function) - (setq commands (append commands (list function)))))))))) - commands)) - -(defun smex-show-unbound-commands () - "Shows unbound commands in a new buffer, -sorted by frequency of use." - (interactive) - (setq smex-data (sort smex-data 'smex-sorting-rules)) - (let ((unbound-commands (delq nil - (mapcar (lambda (command-item) - (unless (where-is-internal (car command-item)) - command-item)) - smex-data)))) - (view-buffer-other-window "*Smex: Unbound Commands*") - (setq buffer-read-only t) - (let ((inhibit-read-only t)) - (erase-buffer) - (smex-pp unbound-commands)) - (set-buffer-modified-p nil) - (goto-char (point-min)))) - -;; A copy of `ido-pp' that's compatible with lexical bindings -(defun smex-pp* (list list-name) - (let ((print-level nil) (eval-expression-print-level nil) - (print-length nil) (eval-expression-print-length nil)) - (insert "\n;; ----- " list-name " -----\n(\n ") - (while list - (let* ((elt (car list)) - (s (if (consp elt) (car elt) elt))) - (if (and (stringp s) (= (length s) 0)) - (setq s nil)) - (if s - (prin1 elt (current-buffer))) - (if (and (setq list (cdr list)) s) - (insert "\n ")))) - (insert "\n)\n"))) - -(provide 'smex) -;;; smex.el ends here |