diff options
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/elisp-slime-nav-20160128.1109')
4 files changed, 191 insertions, 0 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/elisp-slime-nav-20160128.1109/elisp-slime-nav-autoloads.el b/configs/shared/emacs/.emacs.d/elpa/elisp-slime-nav-20160128.1109/elisp-slime-nav-autoloads.el new file mode 100644 index 000000000000..0cf4313593ab --- /dev/null +++ b/configs/shared/emacs/.emacs.d/elpa/elisp-slime-nav-20160128.1109/elisp-slime-nav-autoloads.el @@ -0,0 +1,49 @@ +;;; elisp-slime-nav-autoloads.el --- automatically extracted autoloads +;; +;;; Code: +(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) + +;;;### (autoloads nil "elisp-slime-nav" "elisp-slime-nav.el" (23377 +;;;;;; 61613 957143 248000)) +;;; Generated autoloads from elisp-slime-nav.el + +(autoload 'elisp-slime-nav-mode "elisp-slime-nav" "\ +Enable Slime-style navigation of elisp symbols using M-. and M-, + +\(fn &optional ARG)" t nil) + +(autoload 'turn-on-elisp-slime-nav-mode "elisp-slime-nav" "\ +Explicitly enable `elisp-slime-nav-mode'. + +\(fn)" nil nil) + +(autoload 'elisp-slime-nav-find-elisp-thing-at-point "elisp-slime-nav" "\ +Find the elisp thing at point, be it a function, variable, library or face. + +With a prefix arg, or if there is no thing at point, prompt for +the symbol to jump to. + +Argument SYM-NAME is the thing to find. + +\(fn SYM-NAME)" t nil) + +(autoload 'elisp-slime-nav-describe-elisp-thing-at-point "elisp-slime-nav" "\ +Display the full documentation of the elisp thing at point. + +The named subject may be a function, variable, library or face. + +With a prefix arg, or if there is not \"thing\" at point, prompt +for the symbol to jump to. + +Argument SYM-NAME is the thing to find. + +\(fn SYM-NAME)" t nil) + +;;;*** + +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; End: +;;; elisp-slime-nav-autoloads.el ends here diff --git a/configs/shared/emacs/.emacs.d/elpa/elisp-slime-nav-20160128.1109/elisp-slime-nav-pkg.el b/configs/shared/emacs/.emacs.d/elpa/elisp-slime-nav-20160128.1109/elisp-slime-nav-pkg.el new file mode 100644 index 000000000000..fe6e5d7bf263 --- /dev/null +++ b/configs/shared/emacs/.emacs.d/elpa/elisp-slime-nav-20160128.1109/elisp-slime-nav-pkg.el @@ -0,0 +1,2 @@ +;;; -*- no-byte-compile: t -*- +(define-package "elisp-slime-nav" "20160128.1109" "Make M-. and M-, work in elisp like they do in slime" '((cl-lib "0.2"))) diff --git a/configs/shared/emacs/.emacs.d/elpa/elisp-slime-nav-20160128.1109/elisp-slime-nav.el b/configs/shared/emacs/.emacs.d/elpa/elisp-slime-nav-20160128.1109/elisp-slime-nav.el new file mode 100644 index 000000000000..267d39fecda7 --- /dev/null +++ b/configs/shared/emacs/.emacs.d/elpa/elisp-slime-nav-20160128.1109/elisp-slime-nav.el @@ -0,0 +1,140 @@ +;;; elisp-slime-nav.el --- Make M-. and M-, work in elisp like they do in slime + +;; Copyright (C) 2016 Steve Purcell + +;; Author: Steve Purcell <steve@sanityinc.com> +;; Keywords: navigation slime elisp emacs-lisp +;; URL: https://github.com/purcell/elisp-slime-nav +;; Package-Version: 20160128.1109 +;; Package-X-Original-Version: 0 +;; Package-Requires: ((cl-lib "0.2")) + +;; 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: +;; +;; This package provides Slime's convenient "M-." and "M-," navigation +;; in `emacs-lisp-mode', together with an elisp equivalent of +;; `slime-describe-symbol', bound by default to `C-c C-d d`. +;; +;; When the main functions are given a prefix argument, they will +;; prompt for the symbol upon which to operate. +;; +;; Usage: +;; +;; Enable the package in elisp and ielm modes as follows: +;; +;; (require 'elisp-slime-nav) ;; optional if installed via package.el +;; (dolist (hook '(emacs-lisp-mode-hook ielm-mode-hook)) +;; (add-hook hook 'turn-on-elisp-slime-nav-mode)) +;; +;; Known issues: +;; +;; When navigating into Emacs' C source, "M-," will not be bound to +;; the same command, but "M-*" will typically do the trick. +;; +;;; Code: + +(require 'etags) +(require 'help-mode) + +(defvar elisp-slime-nav-mode-map + (let ((map (make-sparse-keymap))) + (define-key map (kbd "M-.") 'elisp-slime-nav-find-elisp-thing-at-point) + (define-key map (kbd "M-,") 'pop-tag-mark) + (define-key map (kbd "C-c C-d d") 'elisp-slime-nav-describe-elisp-thing-at-point) + (define-key map (kbd "C-c C-d C-d") 'elisp-slime-nav-describe-elisp-thing-at-point) + map)) + +;;;###autoload +(define-minor-mode elisp-slime-nav-mode + "Enable Slime-style navigation of elisp symbols using M-. and M-," + nil " SliNav" elisp-slime-nav-mode-map) + +;;;###autoload +(defun turn-on-elisp-slime-nav-mode () + "Explicitly enable `elisp-slime-nav-mode'." + (elisp-slime-nav-mode 1)) + +(defun elisp-slime-nav--all-navigable-symbol-names () + "Return a list of strings for the symbols to which navigation is possible." + (let ((result '())) + (mapatoms + (lambda (x) + (when (or (fboundp x) (boundp x) (symbol-plist x) (facep x)) + (push (symbol-name x) result)))) + result)) + +(defun elisp-slime-nav--read-symbol-at-point () + "Return the symbol at point as a string. +If `current-prefix-arg' is not nil, the user is prompted for the symbol." + (let* ((sym-at-point (symbol-at-point)) + (at-point (and sym-at-point (symbol-name sym-at-point)))) + (if (or current-prefix-arg (null at-point)) + (completing-read "Symbol: " + (elisp-slime-nav--all-navigable-symbol-names) + nil t nil nil at-point) + at-point))) + +;;;###autoload +(defun elisp-slime-nav-find-elisp-thing-at-point (sym-name) + "Find the elisp thing at point, be it a function, variable, library or face. + +With a prefix arg, or if there is no thing at point, prompt for +the symbol to jump to. + +Argument SYM-NAME is the thing to find." + (interactive (list (elisp-slime-nav--read-symbol-at-point))) + (when sym-name + (let ((sym (intern sym-name))) + (message "Searching for %s..." sym-name) + (if (fboundp 'xref-push-marker-stack) + (xref-push-marker-stack) + (with-no-warnings + (ring-insert find-tag-marker-ring (point-marker)))) + (cond + ((fboundp sym) + (find-function sym)) + ((boundp sym) + (find-variable sym)) + ((or (featurep sym) (locate-library sym-name)) + (find-library sym-name)) + ((facep sym) + (find-face-definition sym)) + (t + (pop-tag-mark) + (error "Don't know how to find '%s'" sym)))))) + +;;;###autoload +(defun elisp-slime-nav-describe-elisp-thing-at-point (sym-name) + "Display the full documentation of the elisp thing at point. + +The named subject may be a function, variable, library or face. + +With a prefix arg, or if there is not \"thing\" at point, prompt +for the symbol to jump to. + +Argument SYM-NAME is the thing to find." + (interactive (list (elisp-slime-nav--read-symbol-at-point))) + (if (fboundp 'describe-symbol) + (describe-symbol (intern sym-name)) + (with-no-warnings + (help-xref-interned (intern sym-name))))) + + +(provide 'elisp-slime-nav) +;; Local Variables: +;; indent-tabs-mode: nil +;; End: +;;; elisp-slime-nav.el ends here diff --git a/configs/shared/emacs/.emacs.d/elpa/elisp-slime-nav-20160128.1109/elisp-slime-nav.elc b/configs/shared/emacs/.emacs.d/elpa/elisp-slime-nav-20160128.1109/elisp-slime-nav.elc new file mode 100644 index 000000000000..c861b56ae081 --- /dev/null +++ b/configs/shared/emacs/.emacs.d/elpa/elisp-slime-nav-20160128.1109/elisp-slime-nav.elc Binary files differ |