emacs gitignore ig
This commit is contained in:
vibikim
parent
ee78f4a011
commit
fa9f73ccaf
31 changed files with 0 additions and 11703 deletions
File diff suppressed because it is too large
Load diff
|
|
@ -1 +0,0 @@
|
||||||
Good signature from 066DAFCB81E42C40 GNU ELPA Signing Agent (2019) <elpasign@elpa.gnu.org> (trust undefined) created at 2021-01-30T00:05:02+0200 using RSA
|
|
||||||
File diff suppressed because it is too large
Load diff
|
|
@ -1,2 +0,0 @@
|
||||||
(1 (org . [(20210201) ( ) "Outline-based notes management and organizer" tar])
|
|
||||||
(org-plus-contrib . [(20210201) ( ) "Outline-based notes management and organizer" tar]))
|
|
||||||
|
|
@ -1,84 +0,0 @@
|
||||||
;;; bind-key-autoloads.el --- automatically extracted autoloads
|
|
||||||
;;
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(add-to-list 'load-path (directory-file-name
|
|
||||||
(or (file-name-directory #$) (car load-path))))
|
|
||||||
|
|
||||||
|
|
||||||
;;;### (autoloads nil "bind-key" "bind-key.el" (0 0 0 0))
|
|
||||||
;;; Generated autoloads from bind-key.el
|
|
||||||
|
|
||||||
(autoload 'bind-key "bind-key" "\
|
|
||||||
Bind KEY-NAME to COMMAND in KEYMAP (`global-map' if not passed).
|
|
||||||
|
|
||||||
KEY-NAME may be a vector, in which case it is passed straight to
|
|
||||||
`define-key'. Or it may be a string to be interpreted as
|
|
||||||
spelled-out keystrokes, e.g., \"C-c C-z\". See documentation of
|
|
||||||
`edmacro-mode' for details.
|
|
||||||
|
|
||||||
COMMAND must be an interactive function or lambda form.
|
|
||||||
|
|
||||||
KEYMAP, if present, should be a keymap variable or symbol.
|
|
||||||
For example:
|
|
||||||
|
|
||||||
(bind-key \"M-h\" #'some-interactive-function my-mode-map)
|
|
||||||
|
|
||||||
(bind-key \"M-h\" #'some-interactive-function 'my-mode-map)
|
|
||||||
|
|
||||||
If PREDICATE is non-nil, it is a form evaluated to determine when
|
|
||||||
a key should be bound. It must return non-nil in such cases.
|
|
||||||
Emacs can evaluate this form at any time that it does redisplay
|
|
||||||
or operates on menu data structures, so you should write it so it
|
|
||||||
can safely be called at any time.
|
|
||||||
|
|
||||||
\(fn KEY-NAME COMMAND &optional KEYMAP PREDICATE)" nil t)
|
|
||||||
|
|
||||||
(autoload 'unbind-key "bind-key" "\
|
|
||||||
Unbind the given KEY-NAME, within the KEYMAP (if specified).
|
|
||||||
See `bind-key' for more details.
|
|
||||||
|
|
||||||
\(fn KEY-NAME &optional KEYMAP)" nil t)
|
|
||||||
|
|
||||||
(autoload 'bind-key* "bind-key" "\
|
|
||||||
Similar to `bind-key', but overrides any mode-specific bindings.
|
|
||||||
|
|
||||||
\(fn KEY-NAME COMMAND &optional PREDICATE)" nil t)
|
|
||||||
|
|
||||||
(autoload 'bind-keys "bind-key" "\
|
|
||||||
Bind multiple keys at once.
|
|
||||||
|
|
||||||
Accepts keyword arguments:
|
|
||||||
:map MAP - a keymap into which the keybindings should be
|
|
||||||
added
|
|
||||||
:prefix KEY - prefix key for these bindings
|
|
||||||
:prefix-map MAP - name of the prefix map that should be created
|
|
||||||
for these bindings
|
|
||||||
:prefix-docstring STR - docstring for the prefix-map variable
|
|
||||||
:menu-name NAME - optional menu string for prefix map
|
|
||||||
:filter FORM - optional form to determine when bindings apply
|
|
||||||
|
|
||||||
The rest of the arguments are conses of keybinding string and a
|
|
||||||
function symbol (unquoted).
|
|
||||||
|
|
||||||
\(fn &rest ARGS)" nil t)
|
|
||||||
|
|
||||||
(autoload 'bind-keys* "bind-key" "\
|
|
||||||
|
|
||||||
|
|
||||||
\(fn &rest ARGS)" nil t)
|
|
||||||
|
|
||||||
(autoload 'describe-personal-keybindings "bind-key" "\
|
|
||||||
Display all the personal keybindings defined by `bind-key'." t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "bind-key" '("bind-key" "compare-keybindings" "get-binding-description" "override-global-m" "personal-keybindings")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;; Local Variables:
|
|
||||||
;; version-control: never
|
|
||||||
;; no-byte-compile: t
|
|
||||||
;; no-update-autoloads: t
|
|
||||||
;; coding: utf-8
|
|
||||||
;; End:
|
|
||||||
;;; bind-key-autoloads.el ends here
|
|
||||||
|
|
@ -1,2 +0,0 @@
|
||||||
;;; Generated package description from /home/vibikim/.config/emacs/elpa/bind-key-20200805.1727/bind-key.el -*- no-byte-compile: t -*-
|
|
||||||
(define-package "bind-key" "20200805.1727" "A simple way to manage personal keybindings" 'nil :commit "b79c25d09babc67315577b555701324ab2f15eb6" :authors '(("John Wiegley" . "johnw@newartisans.com")) :maintainer '("John Wiegley" . "johnw@newartisans.com") :keywords '("keys" "keybinding" "config" "dotemacs") :url "https://github.com/jwiegley/use-package")
|
|
||||||
|
|
@ -1,459 +0,0 @@
|
||||||
;;; bind-key.el --- A simple way to manage personal keybindings
|
|
||||||
|
|
||||||
;; Copyright (c) 2012-2017 John Wiegley
|
|
||||||
|
|
||||||
;; Author: John Wiegley <johnw@newartisans.com>
|
|
||||||
;; Maintainer: John Wiegley <johnw@newartisans.com>
|
|
||||||
;; Created: 16 Jun 2012
|
|
||||||
;; Modified: 29 Nov 2017
|
|
||||||
;; Version: 2.4
|
|
||||||
;; Package-Version: 20200805.1727
|
|
||||||
;; Package-Commit: b79c25d09babc67315577b555701324ab2f15eb6
|
|
||||||
;; Keywords: keys keybinding config dotemacs
|
|
||||||
;; URL: https://github.com/jwiegley/use-package
|
|
||||||
|
|
||||||
;; 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 gnu emacs; see the file copying. if not, write to the
|
|
||||||
;; free software foundation, inc., 59 temple place - suite 330,
|
|
||||||
;; boston, ma 02111-1307, usa.
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
|
|
||||||
;; If you have lots of keybindings set in your .emacs file, it can be hard to
|
|
||||||
;; know which ones you haven't set yet, and which may now be overriding some
|
|
||||||
;; new default in a new emacs version. This module aims to solve that
|
|
||||||
;; problem.
|
|
||||||
;;
|
|
||||||
;; Bind keys as follows in your .emacs:
|
|
||||||
;;
|
|
||||||
;; (require 'bind-key)
|
|
||||||
;;
|
|
||||||
;; (bind-key "C-c x" 'my-ctrl-c-x-command)
|
|
||||||
;;
|
|
||||||
;; If the keybinding argument is a vector, it is passed straight to
|
|
||||||
;; `define-key', so remapping a key with `[remap COMMAND]' works as
|
|
||||||
;; expected:
|
|
||||||
;;
|
|
||||||
;; (bind-key [remap original-ctrl-c-x-command] 'my-ctrl-c-x-command)
|
|
||||||
;;
|
|
||||||
;; If you want the keybinding to override all minor modes that may also bind
|
|
||||||
;; the same key, use the `bind-key*' form:
|
|
||||||
;;
|
|
||||||
;; (bind-key* "<C-return>" 'other-window)
|
|
||||||
;;
|
|
||||||
;; If you want to rebind a key only in a particular keymap, use:
|
|
||||||
;;
|
|
||||||
;; (bind-key "C-c x" 'my-ctrl-c-x-command some-other-mode-map)
|
|
||||||
;;
|
|
||||||
;; To unbind a key within a keymap (for example, to stop your favorite major
|
|
||||||
;; mode from changing a binding that you don't want to override everywhere),
|
|
||||||
;; use `unbind-key':
|
|
||||||
;;
|
|
||||||
;; (unbind-key "C-c x" some-other-mode-map)
|
|
||||||
;;
|
|
||||||
;; To bind multiple keys at once, or set up a prefix map, a `bind-keys' macro
|
|
||||||
;; is provided. It accepts keyword arguments, please see its documentation
|
|
||||||
;; for a detailed description.
|
|
||||||
;;
|
|
||||||
;; To add keys into a specific map, use :map argument
|
|
||||||
;;
|
|
||||||
;; (bind-keys :map dired-mode-map
|
|
||||||
;; ("o" . dired-omit-mode)
|
|
||||||
;; ("a" . some-custom-dired-function))
|
|
||||||
;;
|
|
||||||
;; To set up a prefix map, use `:prefix-map' and `:prefix' arguments (both are
|
|
||||||
;; required)
|
|
||||||
;;
|
|
||||||
;; (bind-keys :prefix-map my-customize-prefix-map
|
|
||||||
;; :prefix "C-c c"
|
|
||||||
;; ("f" . customize-face)
|
|
||||||
;; ("v" . customize-variable))
|
|
||||||
;;
|
|
||||||
;; You can combine all the keywords together. Additionally,
|
|
||||||
;; `:prefix-docstring' can be specified to set documentation of created
|
|
||||||
;; `:prefix-map' variable.
|
|
||||||
;;
|
|
||||||
;; To bind multiple keys in a `bind-key*' way (to be sure that your bindings
|
|
||||||
;; will not be overridden by other modes), you may use `bind-keys*' macro:
|
|
||||||
;;
|
|
||||||
;; (bind-keys*
|
|
||||||
;; ("C-o" . other-window)
|
|
||||||
;; ("C-M-n" . forward-page)
|
|
||||||
;; ("C-M-p" . backward-page))
|
|
||||||
;;
|
|
||||||
;; After Emacs loads, you can see a summary of all your personal keybindings
|
|
||||||
;; currently in effect with this command:
|
|
||||||
;;
|
|
||||||
;; M-x describe-personal-keybindings
|
|
||||||
;;
|
|
||||||
;; This display will tell you if you've overridden a default keybinding, and
|
|
||||||
;; what the default was. Also, it will tell you if the key was rebound after
|
|
||||||
;; your binding it with `bind-key', and what it was rebound it to.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'cl-lib)
|
|
||||||
(require 'easy-mmode)
|
|
||||||
|
|
||||||
(defgroup bind-key nil
|
|
||||||
"A simple way to manage personal keybindings"
|
|
||||||
:group 'emacs)
|
|
||||||
|
|
||||||
(defcustom bind-key-column-widths '(18 . 40)
|
|
||||||
"Width of columns in `describe-personal-keybindings'."
|
|
||||||
:type '(cons integer integer)
|
|
||||||
:group 'bind-key)
|
|
||||||
|
|
||||||
(defcustom bind-key-segregation-regexp
|
|
||||||
"\\`\\(\\(C-[chx] \\|M-[gso] \\)\\([CM]-\\)?\\|.+-\\)"
|
|
||||||
"Regular expression used to divide key sets in the output from
|
|
||||||
\\[describe-personal-keybindings]."
|
|
||||||
:type 'regexp
|
|
||||||
:group 'bind-key)
|
|
||||||
|
|
||||||
(defcustom bind-key-describe-special-forms nil
|
|
||||||
"If non-nil, extract docstrings from lambdas, closures and keymaps if possible."
|
|
||||||
:type 'boolean
|
|
||||||
:group 'bind-key)
|
|
||||||
|
|
||||||
;; Create override-global-mode to force key remappings
|
|
||||||
|
|
||||||
(defvar override-global-map (make-keymap)
|
|
||||||
"override-global-mode keymap")
|
|
||||||
|
|
||||||
(define-minor-mode override-global-mode
|
|
||||||
"A minor mode so that keymap settings override other modes."
|
|
||||||
t "")
|
|
||||||
|
|
||||||
;; the keymaps in `emulation-mode-map-alists' take precedence over
|
|
||||||
;; `minor-mode-map-alist'
|
|
||||||
(add-to-list 'emulation-mode-map-alists
|
|
||||||
`((override-global-mode . ,override-global-map)))
|
|
||||||
|
|
||||||
(defvar personal-keybindings nil
|
|
||||||
"List of bindings performed by `bind-key'.
|
|
||||||
|
|
||||||
Elements have the form ((KEY . [MAP]) CMD ORIGINAL-CMD)")
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defmacro bind-key (key-name command &optional keymap predicate)
|
|
||||||
"Bind KEY-NAME to COMMAND in KEYMAP (`global-map' if not passed).
|
|
||||||
|
|
||||||
KEY-NAME may be a vector, in which case it is passed straight to
|
|
||||||
`define-key'. Or it may be a string to be interpreted as
|
|
||||||
spelled-out keystrokes, e.g., \"C-c C-z\". See documentation of
|
|
||||||
`edmacro-mode' for details.
|
|
||||||
|
|
||||||
COMMAND must be an interactive function or lambda form.
|
|
||||||
|
|
||||||
KEYMAP, if present, should be a keymap variable or symbol.
|
|
||||||
For example:
|
|
||||||
|
|
||||||
(bind-key \"M-h\" #'some-interactive-function my-mode-map)
|
|
||||||
|
|
||||||
(bind-key \"M-h\" #'some-interactive-function 'my-mode-map)
|
|
||||||
|
|
||||||
If PREDICATE is non-nil, it is a form evaluated to determine when
|
|
||||||
a key should be bound. It must return non-nil in such cases.
|
|
||||||
Emacs can evaluate this form at any time that it does redisplay
|
|
||||||
or operates on menu data structures, so you should write it so it
|
|
||||||
can safely be called at any time."
|
|
||||||
(let ((namevar (make-symbol "name"))
|
|
||||||
(keyvar (make-symbol "key"))
|
|
||||||
(kdescvar (make-symbol "kdesc"))
|
|
||||||
(bindingvar (make-symbol "binding")))
|
|
||||||
`(let* ((,namevar ,key-name)
|
|
||||||
(,keyvar (if (vectorp ,namevar) ,namevar
|
|
||||||
(read-kbd-macro ,namevar)))
|
|
||||||
(kmap (if (and ,keymap (symbolp ,keymap)) (symbol-value ,keymap) ,keymap))
|
|
||||||
(,kdescvar (cons (if (stringp ,namevar) ,namevar
|
|
||||||
(key-description ,namevar))
|
|
||||||
(if (symbolp ,keymap) ,keymap (quote ,keymap))))
|
|
||||||
(,bindingvar (lookup-key (or kmap global-map) ,keyvar)))
|
|
||||||
(let ((entry (assoc ,kdescvar personal-keybindings))
|
|
||||||
(details (list ,command
|
|
||||||
(unless (numberp ,bindingvar)
|
|
||||||
,bindingvar))))
|
|
||||||
(if entry
|
|
||||||
(setcdr entry details)
|
|
||||||
(add-to-list 'personal-keybindings (cons ,kdescvar details))))
|
|
||||||
,(if predicate
|
|
||||||
`(define-key (or kmap global-map) ,keyvar
|
|
||||||
'(menu-item "" nil :filter (lambda (&optional _)
|
|
||||||
(when ,predicate
|
|
||||||
,command))))
|
|
||||||
`(define-key (or kmap global-map) ,keyvar ,command)))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defmacro unbind-key (key-name &optional keymap)
|
|
||||||
"Unbind the given KEY-NAME, within the KEYMAP (if specified).
|
|
||||||
See `bind-key' for more details."
|
|
||||||
`(progn
|
|
||||||
(bind-key ,key-name nil ,keymap)
|
|
||||||
(setq personal-keybindings
|
|
||||||
(cl-delete-if #'(lambda (k)
|
|
||||||
,(if keymap
|
|
||||||
`(and (consp (car k))
|
|
||||||
(string= (caar k) ,key-name)
|
|
||||||
(eq (cdar k) ',keymap))
|
|
||||||
`(and (stringp (car k))
|
|
||||||
(string= (car k) ,key-name))))
|
|
||||||
personal-keybindings))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defmacro bind-key* (key-name command &optional predicate)
|
|
||||||
"Similar to `bind-key', but overrides any mode-specific bindings."
|
|
||||||
`(bind-key ,key-name ,command override-global-map ,predicate))
|
|
||||||
|
|
||||||
(defun bind-keys-form (args keymap)
|
|
||||||
"Bind multiple keys at once.
|
|
||||||
|
|
||||||
Accepts keyword arguments:
|
|
||||||
:map MAP - a keymap into which the keybindings should be
|
|
||||||
added
|
|
||||||
:prefix KEY - prefix key for these bindings
|
|
||||||
:prefix-map MAP - name of the prefix map that should be created
|
|
||||||
for these bindings
|
|
||||||
:prefix-docstring STR - docstring for the prefix-map variable
|
|
||||||
:menu-name NAME - optional menu string for prefix map
|
|
||||||
:filter FORM - optional form to determine when bindings apply
|
|
||||||
|
|
||||||
The rest of the arguments are conses of keybinding string and a
|
|
||||||
function symbol (unquoted)."
|
|
||||||
(let (map
|
|
||||||
doc
|
|
||||||
prefix-map
|
|
||||||
prefix
|
|
||||||
filter
|
|
||||||
menu-name
|
|
||||||
pkg)
|
|
||||||
|
|
||||||
;; Process any initial keyword arguments
|
|
||||||
(let ((cont t))
|
|
||||||
(while (and cont args)
|
|
||||||
(if (cond ((and (eq :map (car args))
|
|
||||||
(not prefix-map))
|
|
||||||
(setq map (cadr args)))
|
|
||||||
((eq :prefix-docstring (car args))
|
|
||||||
(setq doc (cadr args)))
|
|
||||||
((and (eq :prefix-map (car args))
|
|
||||||
(not (memq map '(global-map
|
|
||||||
override-global-map))))
|
|
||||||
(setq prefix-map (cadr args)))
|
|
||||||
((eq :prefix (car args))
|
|
||||||
(setq prefix (cadr args)))
|
|
||||||
((eq :filter (car args))
|
|
||||||
(setq filter (cadr args)) t)
|
|
||||||
((eq :menu-name (car args))
|
|
||||||
(setq menu-name (cadr args)))
|
|
||||||
((eq :package (car args))
|
|
||||||
(setq pkg (cadr args))))
|
|
||||||
(setq args (cddr args))
|
|
||||||
(setq cont nil))))
|
|
||||||
|
|
||||||
(when (or (and prefix-map (not prefix))
|
|
||||||
(and prefix (not prefix-map)))
|
|
||||||
(error "Both :prefix-map and :prefix must be supplied"))
|
|
||||||
|
|
||||||
(when (and menu-name (not prefix))
|
|
||||||
(error "If :menu-name is supplied, :prefix must be too"))
|
|
||||||
|
|
||||||
(unless map (setq map keymap))
|
|
||||||
|
|
||||||
;; Process key binding arguments
|
|
||||||
(let (first next)
|
|
||||||
(while args
|
|
||||||
(if (keywordp (car args))
|
|
||||||
(progn
|
|
||||||
(setq next args)
|
|
||||||
(setq args nil))
|
|
||||||
(if first
|
|
||||||
(nconc first (list (car args)))
|
|
||||||
(setq first (list (car args))))
|
|
||||||
(setq args (cdr args))))
|
|
||||||
|
|
||||||
(cl-flet
|
|
||||||
((wrap (map bindings)
|
|
||||||
(if (and map pkg (not (memq map '(global-map
|
|
||||||
override-global-map))))
|
|
||||||
`((if (boundp ',map)
|
|
||||||
,(macroexp-progn bindings)
|
|
||||||
(eval-after-load
|
|
||||||
,(if (symbolp pkg) `',pkg pkg)
|
|
||||||
',(macroexp-progn bindings))))
|
|
||||||
bindings)))
|
|
||||||
|
|
||||||
(append
|
|
||||||
(when prefix-map
|
|
||||||
`((defvar ,prefix-map)
|
|
||||||
,@(when doc `((put ',prefix-map 'variable-documentation ,doc)))
|
|
||||||
,@(if menu-name
|
|
||||||
`((define-prefix-command ',prefix-map nil ,menu-name))
|
|
||||||
`((define-prefix-command ',prefix-map)))
|
|
||||||
,@(if (and map (not (eq map 'global-map)))
|
|
||||||
(wrap map `((bind-key ,prefix ',prefix-map ,map ,filter)))
|
|
||||||
`((bind-key ,prefix ',prefix-map nil ,filter)))))
|
|
||||||
(wrap map
|
|
||||||
(cl-mapcan
|
|
||||||
(lambda (form)
|
|
||||||
(let ((fun (and (cdr form) (list 'function (cdr form)))))
|
|
||||||
(if prefix-map
|
|
||||||
`((bind-key ,(car form) ,fun ,prefix-map ,filter))
|
|
||||||
(if (and map (not (eq map 'global-map)))
|
|
||||||
`((bind-key ,(car form) ,fun ,map ,filter))
|
|
||||||
`((bind-key ,(car form) ,fun nil ,filter))))))
|
|
||||||
first))
|
|
||||||
(when next
|
|
||||||
(bind-keys-form (if pkg
|
|
||||||
(cons :package (cons pkg next))
|
|
||||||
next) map)))))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defmacro bind-keys (&rest args)
|
|
||||||
"Bind multiple keys at once.
|
|
||||||
|
|
||||||
Accepts keyword arguments:
|
|
||||||
:map MAP - a keymap into which the keybindings should be
|
|
||||||
added
|
|
||||||
:prefix KEY - prefix key for these bindings
|
|
||||||
:prefix-map MAP - name of the prefix map that should be created
|
|
||||||
for these bindings
|
|
||||||
:prefix-docstring STR - docstring for the prefix-map variable
|
|
||||||
:menu-name NAME - optional menu string for prefix map
|
|
||||||
:filter FORM - optional form to determine when bindings apply
|
|
||||||
|
|
||||||
The rest of the arguments are conses of keybinding string and a
|
|
||||||
function symbol (unquoted)."
|
|
||||||
(macroexp-progn (bind-keys-form args nil)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defmacro bind-keys* (&rest args)
|
|
||||||
(macroexp-progn (bind-keys-form args 'override-global-map)))
|
|
||||||
|
|
||||||
(defun get-binding-description (elem)
|
|
||||||
(cond
|
|
||||||
((listp elem)
|
|
||||||
(cond
|
|
||||||
((memq (car elem) '(lambda function))
|
|
||||||
(if (and bind-key-describe-special-forms
|
|
||||||
(stringp (nth 2 elem)))
|
|
||||||
(nth 2 elem)
|
|
||||||
"#<lambda>"))
|
|
||||||
((eq 'closure (car elem))
|
|
||||||
(if (and bind-key-describe-special-forms
|
|
||||||
(stringp (nth 3 elem)))
|
|
||||||
(nth 3 elem)
|
|
||||||
"#<closure>"))
|
|
||||||
((eq 'keymap (car elem))
|
|
||||||
"#<keymap>")
|
|
||||||
(t
|
|
||||||
elem)))
|
|
||||||
;; must be a symbol, non-symbol keymap case covered above
|
|
||||||
((and bind-key-describe-special-forms (keymapp elem))
|
|
||||||
(let ((doc (get elem 'variable-documentation)))
|
|
||||||
(if (stringp doc) doc elem)))
|
|
||||||
((symbolp elem)
|
|
||||||
elem)
|
|
||||||
(t
|
|
||||||
"#<byte-compiled lambda>")))
|
|
||||||
|
|
||||||
(defun compare-keybindings (l r)
|
|
||||||
(let* ((regex bind-key-segregation-regexp)
|
|
||||||
(lgroup (and (string-match regex (caar l))
|
|
||||||
(match-string 0 (caar l))))
|
|
||||||
(rgroup (and (string-match regex (caar r))
|
|
||||||
(match-string 0 (caar r))))
|
|
||||||
(lkeymap (cdar l))
|
|
||||||
(rkeymap (cdar r)))
|
|
||||||
(cond
|
|
||||||
((and (null lkeymap) rkeymap)
|
|
||||||
(cons t t))
|
|
||||||
((and lkeymap (null rkeymap))
|
|
||||||
(cons nil t))
|
|
||||||
((and lkeymap rkeymap
|
|
||||||
(not (string= (symbol-name lkeymap) (symbol-name rkeymap))))
|
|
||||||
(cons (string< (symbol-name lkeymap) (symbol-name rkeymap)) t))
|
|
||||||
((and (null lgroup) rgroup)
|
|
||||||
(cons t t))
|
|
||||||
((and lgroup (null rgroup))
|
|
||||||
(cons nil t))
|
|
||||||
((and lgroup rgroup)
|
|
||||||
(if (string= lgroup rgroup)
|
|
||||||
(cons (string< (caar l) (caar r)) nil)
|
|
||||||
(cons (string< lgroup rgroup) t)))
|
|
||||||
(t
|
|
||||||
(cons (string< (caar l) (caar r)) nil)))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun describe-personal-keybindings ()
|
|
||||||
"Display all the personal keybindings defined by `bind-key'."
|
|
||||||
(interactive)
|
|
||||||
(with-output-to-temp-buffer "*Personal Keybindings*"
|
|
||||||
(princ (format (concat "Key name%s Command%s Comments\n%s %s "
|
|
||||||
"---------------------\n")
|
|
||||||
(make-string (- (car bind-key-column-widths) 9) ? )
|
|
||||||
(make-string (- (cdr bind-key-column-widths) 8) ? )
|
|
||||||
(make-string (1- (car bind-key-column-widths)) ?-)
|
|
||||||
(make-string (1- (cdr bind-key-column-widths)) ?-)))
|
|
||||||
(let (last-binding)
|
|
||||||
(dolist (binding
|
|
||||||
(setq personal-keybindings
|
|
||||||
(sort personal-keybindings
|
|
||||||
(lambda (l r)
|
|
||||||
(car (compare-keybindings l r))))))
|
|
||||||
|
|
||||||
(if (not (eq (cdar last-binding) (cdar binding)))
|
|
||||||
(princ (format "\n\n%s: %s\n%s\n\n"
|
|
||||||
(cdar binding) (caar binding)
|
|
||||||
(make-string (+ 21 (car bind-key-column-widths)
|
|
||||||
(cdr bind-key-column-widths)) ?-)))
|
|
||||||
(if (and last-binding
|
|
||||||
(cdr (compare-keybindings last-binding binding)))
|
|
||||||
(princ "\n")))
|
|
||||||
|
|
||||||
(let* ((key-name (caar binding))
|
|
||||||
(at-present (lookup-key (or (symbol-value (cdar binding))
|
|
||||||
(current-global-map))
|
|
||||||
(read-kbd-macro key-name)))
|
|
||||||
(command (nth 1 binding))
|
|
||||||
(was-command (nth 2 binding))
|
|
||||||
(command-desc (get-binding-description command))
|
|
||||||
(was-command-desc (and was-command
|
|
||||||
(get-binding-description was-command)))
|
|
||||||
(at-present-desc (get-binding-description at-present))
|
|
||||||
)
|
|
||||||
(let ((line
|
|
||||||
(format
|
|
||||||
(format "%%-%ds%%-%ds%%s\n" (car bind-key-column-widths)
|
|
||||||
(cdr bind-key-column-widths))
|
|
||||||
key-name (format "`%s\'" command-desc)
|
|
||||||
(if (string= command-desc at-present-desc)
|
|
||||||
(if (or (null was-command)
|
|
||||||
(string= command-desc was-command-desc))
|
|
||||||
""
|
|
||||||
(format "was `%s\'" was-command-desc))
|
|
||||||
(format "[now: `%s\']" at-present)))))
|
|
||||||
(princ (if (string-match "[ \t]+\n" line)
|
|
||||||
(replace-match "\n" t t line)
|
|
||||||
line))))
|
|
||||||
|
|
||||||
(setq last-binding binding)))))
|
|
||||||
|
|
||||||
(provide 'bind-key)
|
|
||||||
|
|
||||||
;; Local Variables:
|
|
||||||
;; outline-regexp: ";;;\\(;* [^\s\t\n]\\|###autoload\\)\\|("
|
|
||||||
;; indent-tabs-mode: nil
|
|
||||||
;; End:
|
|
||||||
|
|
||||||
;;; bind-key.el ends here
|
|
||||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -1,18 +0,0 @@
|
||||||
This is the file .../info/dir, which contains the
|
|
||||||
topmost node of the Info hierarchy, called (dir)Top.
|
|
||||||
The first time you invoke Info you start off looking at this node.
|
|
||||||
|
|
||||||
File: dir, Node: Top This is the top of the INFO tree
|
|
||||||
|
|
||||||
This (the Directory node) gives a menu of major topics.
|
|
||||||
Typing "q" exits, "H" lists all Info commands, "d" returns here,
|
|
||||||
"h" gives a primer for first-timers,
|
|
||||||
"mEmacs<Return>" visits the Emacs manual, etc.
|
|
||||||
|
|
||||||
In Emacs, you can click mouse button 2 on a menu item or cross reference
|
|
||||||
to select it.
|
|
||||||
|
|
||||||
* Menu:
|
|
||||||
|
|
||||||
Emacs
|
|
||||||
* use-package: (use-package). Declarative package configuration for Emacs.
|
|
||||||
|
|
@ -1,230 +0,0 @@
|
||||||
;;; use-package-autoloads.el --- automatically extracted autoloads
|
|
||||||
;;
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(add-to-list 'load-path (directory-file-name
|
|
||||||
(or (file-name-directory #$) (car load-path))))
|
|
||||||
|
|
||||||
|
|
||||||
;;;### (autoloads nil "use-package-bind-key" "use-package-bind-key.el"
|
|
||||||
;;;;;; (0 0 0 0))
|
|
||||||
;;; Generated autoloads from use-package-bind-key.el
|
|
||||||
|
|
||||||
(autoload 'use-package-autoload-keymap "use-package-bind-key" "\
|
|
||||||
Loads PACKAGE and then binds the key sequence used to invoke
|
|
||||||
this function to KEYMAP-SYMBOL. It then simulates pressing the
|
|
||||||
same key sequence a again, so that the next key pressed is routed
|
|
||||||
to the newly loaded keymap.
|
|
||||||
|
|
||||||
This function supports use-package's :bind-keymap keyword. It
|
|
||||||
works by binding the given key sequence to an invocation of this
|
|
||||||
function for a particular keymap. The keymap is expected to be
|
|
||||||
defined by the package. In this way, loading the package is
|
|
||||||
deferred until the prefix key sequence is pressed.
|
|
||||||
|
|
||||||
\(fn KEYMAP-SYMBOL PACKAGE OVERRIDE)" nil nil)
|
|
||||||
|
|
||||||
(autoload 'use-package-normalize-binder "use-package-bind-key" "\
|
|
||||||
|
|
||||||
|
|
||||||
\(fn NAME KEYWORD ARGS)" nil nil)
|
|
||||||
|
|
||||||
(defalias 'use-package-normalize/:bind 'use-package-normalize-binder)
|
|
||||||
|
|
||||||
(defalias 'use-package-normalize/:bind* 'use-package-normalize-binder)
|
|
||||||
|
|
||||||
(defalias 'use-package-autoloads/:bind 'use-package-autoloads-mode)
|
|
||||||
|
|
||||||
(defalias 'use-package-autoloads/:bind* 'use-package-autoloads-mode)
|
|
||||||
|
|
||||||
(autoload 'use-package-handler/:bind "use-package-bind-key" "\
|
|
||||||
|
|
||||||
|
|
||||||
\(fn NAME KEYWORD ARGS REST STATE &optional BIND-MACRO)" nil nil)
|
|
||||||
|
|
||||||
(defalias 'use-package-normalize/:bind-keymap 'use-package-normalize-binder)
|
|
||||||
|
|
||||||
(defalias 'use-package-normalize/:bind-keymap* 'use-package-normalize-binder)
|
|
||||||
|
|
||||||
(autoload 'use-package-handler/:bind-keymap "use-package-bind-key" "\
|
|
||||||
|
|
||||||
|
|
||||||
\(fn NAME KEYWORD ARGS REST STATE &optional OVERRIDE)" nil nil)
|
|
||||||
|
|
||||||
(autoload 'use-package-handler/:bind-keymap* "use-package-bind-key" "\
|
|
||||||
|
|
||||||
|
|
||||||
\(fn NAME KEYWORD ARG REST STATE)" nil nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "use-package-bind-key" '("use-package-handler/:bind*")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "use-package-core" "use-package-core.el" (0
|
|
||||||
;;;;;; 0 0 0))
|
|
||||||
;;; Generated autoloads from use-package-core.el
|
|
||||||
|
|
||||||
(autoload 'use-package "use-package-core" "\
|
|
||||||
Declare an Emacs package by specifying a group of configuration options.
|
|
||||||
|
|
||||||
For full documentation, please see the README file that came with
|
|
||||||
this file. Usage:
|
|
||||||
|
|
||||||
(use-package package-name
|
|
||||||
[:keyword [option]]...)
|
|
||||||
|
|
||||||
:init Code to run before PACKAGE-NAME has been loaded.
|
|
||||||
:config Code to run after PACKAGE-NAME has been loaded. Note that
|
|
||||||
if loading is deferred for any reason, this code does not
|
|
||||||
execute until the lazy load has occurred.
|
|
||||||
:preface Code to be run before everything except `:disabled'; this
|
|
||||||
can be used to define functions for use in `:if', or that
|
|
||||||
should be seen by the byte-compiler.
|
|
||||||
|
|
||||||
:mode Form to be added to `auto-mode-alist'.
|
|
||||||
:magic Form to be added to `magic-mode-alist'.
|
|
||||||
:magic-fallback Form to be added to `magic-fallback-mode-alist'.
|
|
||||||
:interpreter Form to be added to `interpreter-mode-alist'.
|
|
||||||
|
|
||||||
:commands Define autoloads for commands that will be defined by the
|
|
||||||
package. This is useful if the package is being lazily
|
|
||||||
loaded, and you wish to conditionally call functions in your
|
|
||||||
`:init' block that are defined in the package.
|
|
||||||
:hook Specify hook(s) to attach this package to.
|
|
||||||
|
|
||||||
:bind Bind keys, and define autoloads for the bound commands.
|
|
||||||
:bind* Bind keys, and define autoloads for the bound commands,
|
|
||||||
*overriding all minor mode bindings*.
|
|
||||||
:bind-keymap Bind a key prefix to an auto-loaded keymap defined in the
|
|
||||||
package. This is like `:bind', but for keymaps.
|
|
||||||
:bind-keymap* Like `:bind-keymap', but overrides all minor mode bindings
|
|
||||||
|
|
||||||
:defer Defer loading of a package -- this is implied when using
|
|
||||||
`:commands', `:bind', `:bind*', `:mode', `:magic', `:hook',
|
|
||||||
`:magic-fallback', or `:interpreter'. This can be an integer,
|
|
||||||
to force loading after N seconds of idle time, if the package
|
|
||||||
has not already been loaded.
|
|
||||||
:after Delay the use-package declaration until after the named modules
|
|
||||||
have loaded. Once load, it will be as though the use-package
|
|
||||||
declaration (without `:after') had been seen at that moment.
|
|
||||||
:demand Prevent the automatic deferred loading introduced by constructs
|
|
||||||
such as `:bind' (see `:defer' for the complete list).
|
|
||||||
|
|
||||||
:if EXPR Initialize and load only if EXPR evaluates to a non-nil value.
|
|
||||||
:disabled The package is ignored completely if this keyword is present.
|
|
||||||
:defines Declare certain variables to silence the byte-compiler.
|
|
||||||
:functions Declare certain functions to silence the byte-compiler.
|
|
||||||
:load-path Add to the `load-path' before attempting to load the package.
|
|
||||||
:diminish Support for diminish.el (if installed).
|
|
||||||
:delight Support for delight.el (if installed).
|
|
||||||
:custom Call `custom-set' or `set-default' with each variable
|
|
||||||
definition without modifying the Emacs `custom-file'.
|
|
||||||
(compare with `custom-set-variables').
|
|
||||||
:custom-face Call `customize-set-faces' with each face definition.
|
|
||||||
:ensure Loads the package using package.el if necessary.
|
|
||||||
:pin Pin the package to an archive.
|
|
||||||
|
|
||||||
\(fn NAME &rest ARGS)" nil t)
|
|
||||||
|
|
||||||
(function-put 'use-package 'lisp-indent-function '1)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "use-package-core" '("use-package-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "use-package-delight" "use-package-delight.el"
|
|
||||||
;;;;;; (0 0 0 0))
|
|
||||||
;;; Generated autoloads from use-package-delight.el
|
|
||||||
|
|
||||||
(autoload 'use-package-normalize/:delight "use-package-delight" "\
|
|
||||||
Normalize arguments to delight.
|
|
||||||
|
|
||||||
\(fn NAME KEYWORD ARGS)" nil nil)
|
|
||||||
|
|
||||||
(autoload 'use-package-handler/:delight "use-package-delight" "\
|
|
||||||
|
|
||||||
|
|
||||||
\(fn NAME KEYWORD ARGS REST STATE)" nil nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "use-package-delight" '("use-package-normalize-delight")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "use-package-diminish" "use-package-diminish.el"
|
|
||||||
;;;;;; (0 0 0 0))
|
|
||||||
;;; Generated autoloads from use-package-diminish.el
|
|
||||||
|
|
||||||
(autoload 'use-package-normalize/:diminish "use-package-diminish" "\
|
|
||||||
|
|
||||||
|
|
||||||
\(fn NAME KEYWORD ARGS)" nil nil)
|
|
||||||
|
|
||||||
(autoload 'use-package-handler/:diminish "use-package-diminish" "\
|
|
||||||
|
|
||||||
|
|
||||||
\(fn NAME KEYWORD ARG REST STATE)" nil nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "use-package-diminish" '("use-package-normalize-diminish")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "use-package-ensure" "use-package-ensure.el"
|
|
||||||
;;;;;; (0 0 0 0))
|
|
||||||
;;; Generated autoloads from use-package-ensure.el
|
|
||||||
|
|
||||||
(autoload 'use-package-normalize/:ensure "use-package-ensure" "\
|
|
||||||
|
|
||||||
|
|
||||||
\(fn NAME KEYWORD ARGS)" nil nil)
|
|
||||||
|
|
||||||
(autoload 'use-package-handler/:ensure "use-package-ensure" "\
|
|
||||||
|
|
||||||
|
|
||||||
\(fn NAME KEYWORD ENSURE REST STATE)" nil nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "use-package-ensure" '("use-package-")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "use-package-jump" "use-package-jump.el" (0
|
|
||||||
;;;;;; 0 0 0))
|
|
||||||
;;; Generated autoloads from use-package-jump.el
|
|
||||||
|
|
||||||
(autoload 'use-package-jump-to-package-form "use-package-jump" "\
|
|
||||||
Attempt to find and jump to the `use-package' form that loaded
|
|
||||||
PACKAGE. This will only find the form if that form actually
|
|
||||||
required PACKAGE. If PACKAGE was previously required then this
|
|
||||||
function will jump to the file that originally required PACKAGE
|
|
||||||
instead.
|
|
||||||
|
|
||||||
\(fn PACKAGE)" t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "use-package-jump" '("use-package-find-require")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil "use-package-lint" "use-package-lint.el" (0
|
|
||||||
;;;;;; 0 0 0))
|
|
||||||
;;; Generated autoloads from use-package-lint.el
|
|
||||||
|
|
||||||
(autoload 'use-package-lint "use-package-lint" "\
|
|
||||||
Check for errors in use-package declarations.
|
|
||||||
For example, if the module's `:if' condition is met, but even
|
|
||||||
with the specified `:load-path' the module cannot be found." t nil)
|
|
||||||
|
|
||||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "use-package-lint" '("use-package-lint-declaration")))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;;;### (autoloads nil nil ("use-package-pkg.el" "use-package.el")
|
|
||||||
;;;;;; (0 0 0 0))
|
|
||||||
|
|
||||||
;;;***
|
|
||||||
|
|
||||||
;; Local Variables:
|
|
||||||
;; version-control: never
|
|
||||||
;; no-byte-compile: t
|
|
||||||
;; no-update-autoloads: t
|
|
||||||
;; coding: utf-8
|
|
||||||
;; End:
|
|
||||||
;;; use-package-autoloads.el ends here
|
|
||||||
|
|
@ -1,172 +0,0 @@
|
||||||
;;; use-package-bind-key.el --- Support for the :bind/:bind-keymap keywords -*- lexical-binding: t; -*-
|
|
||||||
|
|
||||||
;; Copyright (C) 2012-2017 John Wiegley
|
|
||||||
|
|
||||||
;; Author: John Wiegley <johnw@newartisans.com>
|
|
||||||
;; Maintainer: John Wiegley <johnw@newartisans.com>
|
|
||||||
;; Created: 17 Jun 2012
|
|
||||||
;; Modified: 4 Dec 2017
|
|
||||||
;; Version: 1.0
|
|
||||||
;; Package-Requires: ((emacs "24.3") (use-package "2.4") (bind-key "2.4"))
|
|
||||||
;; Keywords: dotemacs startup speed config package
|
|
||||||
;; URL: https://github.com/jwiegley/use-package
|
|
||||||
|
|
||||||
;; 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 GNU Emacs; see the file COPYING. If not, write to the
|
|
||||||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
||||||
;; Boston, MA 02111-1307, USA.
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
|
|
||||||
;; Provides support for the :bind, :bind*, :bind-keymap and :bind-keymap*
|
|
||||||
;; keywords. Note that these are currently still baked into
|
|
||||||
;; `use-package-keywords' and `use-package-deferring-keywords', although this
|
|
||||||
;; is harmless if they are never used.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'use-package-core)
|
|
||||||
(require 'bind-key)
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun use-package-autoload-keymap (keymap-symbol package override)
|
|
||||||
"Loads PACKAGE and then binds the key sequence used to invoke
|
|
||||||
this function to KEYMAP-SYMBOL. It then simulates pressing the
|
|
||||||
same key sequence a again, so that the next key pressed is routed
|
|
||||||
to the newly loaded keymap.
|
|
||||||
|
|
||||||
This function supports use-package's :bind-keymap keyword. It
|
|
||||||
works by binding the given key sequence to an invocation of this
|
|
||||||
function for a particular keymap. The keymap is expected to be
|
|
||||||
defined by the package. In this way, loading the package is
|
|
||||||
deferred until the prefix key sequence is pressed."
|
|
||||||
(if (not (require package nil t))
|
|
||||||
(use-package-error (format "Cannot load package.el: %s" package))
|
|
||||||
(if (and (boundp keymap-symbol)
|
|
||||||
(keymapp (symbol-value keymap-symbol)))
|
|
||||||
(let* ((kv (this-command-keys-vector))
|
|
||||||
(key (key-description kv))
|
|
||||||
(keymap (symbol-value keymap-symbol)))
|
|
||||||
(if override
|
|
||||||
(bind-key* key keymap)
|
|
||||||
(bind-key key keymap))
|
|
||||||
(setq unread-command-events
|
|
||||||
(mapcar (lambda (ev) (cons t ev))
|
|
||||||
(listify-key-sequence kv))))
|
|
||||||
(use-package-error
|
|
||||||
(format "package.el %s failed to define keymap %s"
|
|
||||||
package keymap-symbol)))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun use-package-normalize-binder (name keyword args)
|
|
||||||
(let ((arg args)
|
|
||||||
args*)
|
|
||||||
(while arg
|
|
||||||
(let ((x (car arg)))
|
|
||||||
(cond
|
|
||||||
;; (KEY . COMMAND)
|
|
||||||
((and (consp x)
|
|
||||||
(or (stringp (car x))
|
|
||||||
(vectorp (car x)))
|
|
||||||
(or (use-package-recognize-function (cdr x) t #'stringp)))
|
|
||||||
(setq args* (nconc args* (list x)))
|
|
||||||
(setq arg (cdr arg)))
|
|
||||||
;; KEYWORD
|
|
||||||
;; :map KEYMAP
|
|
||||||
;; :prefix-docstring STRING
|
|
||||||
;; :prefix-map SYMBOL
|
|
||||||
;; :prefix STRING
|
|
||||||
;; :filter SEXP
|
|
||||||
;; :menu-name STRING
|
|
||||||
;; :package SYMBOL
|
|
||||||
((or (and (eq x :map) (symbolp (cadr arg)))
|
|
||||||
(and (eq x :prefix) (stringp (cadr arg)))
|
|
||||||
(and (eq x :prefix-map) (symbolp (cadr arg)))
|
|
||||||
(and (eq x :prefix-docstring) (stringp (cadr arg)))
|
|
||||||
(eq x :filter)
|
|
||||||
(and (eq x :menu-name) (stringp (cadr arg)))
|
|
||||||
(and (eq x :package) (symbolp (cadr arg))))
|
|
||||||
(setq args* (nconc args* (list x (cadr arg))))
|
|
||||||
(setq arg (cddr arg)))
|
|
||||||
((listp x)
|
|
||||||
(setq args*
|
|
||||||
(nconc args* (use-package-normalize-binder name keyword x)))
|
|
||||||
(setq arg (cdr arg)))
|
|
||||||
(t
|
|
||||||
;; Error!
|
|
||||||
(use-package-error
|
|
||||||
(concat (symbol-name name)
|
|
||||||
" wants arguments acceptable to the `bind-keys' macro,"
|
|
||||||
" or a list of such values"))))))
|
|
||||||
args*))
|
|
||||||
|
|
||||||
;;;; :bind, :bind*
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defalias 'use-package-normalize/:bind 'use-package-normalize-binder)
|
|
||||||
;;;###autoload
|
|
||||||
(defalias 'use-package-normalize/:bind* 'use-package-normalize-binder)
|
|
||||||
|
|
||||||
;; jww (2017-12-07): This is too simplistic. It will fail to determine
|
|
||||||
;; autoloads in this situation:
|
|
||||||
;; (use-package foo
|
|
||||||
;; :bind (:map foo-map (("C-a" . func))))
|
|
||||||
;;;###autoload
|
|
||||||
(defalias 'use-package-autoloads/:bind 'use-package-autoloads-mode)
|
|
||||||
;;;###autoload
|
|
||||||
(defalias 'use-package-autoloads/:bind* 'use-package-autoloads-mode)
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun use-package-handler/:bind
|
|
||||||
(name _keyword args rest state &optional bind-macro)
|
|
||||||
(use-package-concat
|
|
||||||
(use-package-process-keywords name rest state)
|
|
||||||
`(,@(mapcar
|
|
||||||
#'(lambda (xs)
|
|
||||||
`(,(if bind-macro bind-macro 'bind-keys)
|
|
||||||
:package ,name ,@(use-package-normalize-commands xs)))
|
|
||||||
(use-package-split-list-at-keys :break args)))))
|
|
||||||
|
|
||||||
(defun use-package-handler/:bind* (name keyword arg rest state)
|
|
||||||
(use-package-handler/:bind name keyword arg rest state 'bind-keys*))
|
|
||||||
|
|
||||||
;;;; :bind-keymap, :bind-keymap*
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defalias 'use-package-normalize/:bind-keymap 'use-package-normalize-binder)
|
|
||||||
;;;###autoload
|
|
||||||
(defalias 'use-package-normalize/:bind-keymap* 'use-package-normalize-binder)
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun use-package-handler/:bind-keymap
|
|
||||||
(name _keyword args rest state &optional override)
|
|
||||||
(use-package-concat
|
|
||||||
(use-package-process-keywords name rest state)
|
|
||||||
(mapcar
|
|
||||||
#'(lambda (binding)
|
|
||||||
`(,(if override 'bind-key* 'bind-key)
|
|
||||||
,(car binding)
|
|
||||||
#'(lambda ()
|
|
||||||
(interactive)
|
|
||||||
(use-package-autoload-keymap
|
|
||||||
',(cdr binding) ',(use-package-as-symbol name)
|
|
||||||
,override))))
|
|
||||||
args)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun use-package-handler/:bind-keymap* (name keyword arg rest state)
|
|
||||||
(use-package-handler/:bind-keymap name keyword arg rest state t))
|
|
||||||
|
|
||||||
(provide 'use-package-bind-key)
|
|
||||||
|
|
||||||
;;; use-package-bind-key.el ends here
|
|
||||||
Binary file not shown.
File diff suppressed because it is too large
Load diff
Binary file not shown.
|
|
@ -1,91 +0,0 @@
|
||||||
;;; use-package-delight.el --- Support for the :delight keyword -*- lexical-binding: t; -*-
|
|
||||||
|
|
||||||
;; Copyright (C) 2012-2017 John Wiegley
|
|
||||||
|
|
||||||
;; Author: John Wiegley <johnw@newartisans.com>
|
|
||||||
;; Maintainer: John Wiegley <johnw@newartisans.com>
|
|
||||||
;; Created: 17 Jun 2012
|
|
||||||
;; Modified: 3 Dec 2017
|
|
||||||
;; Version: 1.0
|
|
||||||
;; Package-Requires: ((emacs "24.3") (use-package "2.4"))
|
|
||||||
;; Keywords: dotemacs startup speed config package
|
|
||||||
;; URL: https://github.com/jwiegley/use-package
|
|
||||||
|
|
||||||
;; 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 GNU Emacs; see the file COPYING. If not, write to the
|
|
||||||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
||||||
;; Boston, MA 02111-1307, USA.
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
|
|
||||||
;; Provides support for the :delight keyword, which is made available by
|
|
||||||
;; default by requiring `use-package'.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'use-package-core)
|
|
||||||
|
|
||||||
(defun use-package-normalize-delight (name args)
|
|
||||||
"Normalize ARGS for a single call to `delight'."
|
|
||||||
(when (eq :eval (car args))
|
|
||||||
;; Handle likely common mistake.
|
|
||||||
(use-package-error ":delight mode line constructs must be quoted"))
|
|
||||||
(cond ((and (= (length args) 1)
|
|
||||||
(use-package-non-nil-symbolp (car args)))
|
|
||||||
`(,(nth 0 args) nil ,name))
|
|
||||||
((= (length args) 2)
|
|
||||||
`(,(nth 0 args) ,(nth 1 args) ,name))
|
|
||||||
((= (length args) 3)
|
|
||||||
args)
|
|
||||||
(t
|
|
||||||
(use-package-error
|
|
||||||
":delight expects `delight' arguments or a list of them"))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun use-package-normalize/:delight (name _keyword args)
|
|
||||||
"Normalize arguments to delight."
|
|
||||||
(cond ((null args)
|
|
||||||
`((,(use-package-as-mode name) nil ,name)))
|
|
||||||
((and (= (length args) 1)
|
|
||||||
(use-package-non-nil-symbolp (car args)))
|
|
||||||
`((,(car args) nil ,name)))
|
|
||||||
((and (= (length args) 1)
|
|
||||||
(stringp (car args)))
|
|
||||||
`((,(use-package-as-mode name) ,(car args) ,name)))
|
|
||||||
((and (= (length args) 1)
|
|
||||||
(listp (car args))
|
|
||||||
(eq 'quote (caar args)))
|
|
||||||
`((,(use-package-as-mode name) ,@(cdar args) ,name)))
|
|
||||||
((and (= (length args) 2)
|
|
||||||
(listp (nth 1 args))
|
|
||||||
(eq 'quote (car (nth 1 args))))
|
|
||||||
`((,(car args) ,@(cdr (nth 1 args)) ,name)))
|
|
||||||
(t (mapcar
|
|
||||||
(apply-partially #'use-package-normalize-delight name)
|
|
||||||
(if (use-package-non-nil-symbolp (car args))
|
|
||||||
(list args)
|
|
||||||
args)))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun use-package-handler/:delight (name _keyword args rest state)
|
|
||||||
(let ((body (use-package-process-keywords name rest state)))
|
|
||||||
(use-package-concat
|
|
||||||
body
|
|
||||||
`((if (fboundp 'delight)
|
|
||||||
(delight '(,@args)))))))
|
|
||||||
|
|
||||||
(add-to-list 'use-package-keywords :delight t)
|
|
||||||
|
|
||||||
(provide 'use-package-delight)
|
|
||||||
|
|
||||||
;;; use-package-delight.el ends here
|
|
||||||
Binary file not shown.
|
|
@ -1,80 +0,0 @@
|
||||||
;;; use-package-diminish.el --- Support for the :diminish keyword -*- lexical-binding: t; -*-
|
|
||||||
|
|
||||||
;; Copyright (C) 2012-2017 John Wiegley
|
|
||||||
|
|
||||||
;; Author: John Wiegley <johnw@newartisans.com>
|
|
||||||
;; Maintainer: John Wiegley <johnw@newartisans.com>
|
|
||||||
;; Created: 17 Jun 2012
|
|
||||||
;; Modified: 3 Dec 2017
|
|
||||||
;; Version: 1.0
|
|
||||||
;; Package-Requires: ((emacs "24.3") (use-package "2.4"))
|
|
||||||
;; Keywords: dotemacs startup speed config package
|
|
||||||
;; URL: https://github.com/jwiegley/use-package
|
|
||||||
|
|
||||||
;; 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 GNU Emacs; see the file COPYING. If not, write to the
|
|
||||||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
||||||
;; Boston, MA 02111-1307, USA.
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
|
|
||||||
;; Provides support for the :diminish keyword, which is made available by
|
|
||||||
;; default by requiring `use-package'.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'use-package-core)
|
|
||||||
|
|
||||||
(defun use-package-normalize-diminish (name label arg &optional recursed)
|
|
||||||
"Normalize the arguments to diminish down to a list of one of two forms:
|
|
||||||
SYMBOL
|
|
||||||
(SYMBOL . STRING)"
|
|
||||||
(cond
|
|
||||||
((not arg)
|
|
||||||
(list (use-package-as-mode name)))
|
|
||||||
((use-package-non-nil-symbolp arg)
|
|
||||||
(list arg))
|
|
||||||
((stringp arg)
|
|
||||||
(list (cons (use-package-as-mode name) arg)))
|
|
||||||
((and (consp arg) (stringp (cdr arg)))
|
|
||||||
(list arg))
|
|
||||||
((and (not recursed) (listp arg) (listp (cdr arg)))
|
|
||||||
(mapcar #'(lambda (x) (car (use-package-normalize-diminish
|
|
||||||
name label x t))) arg))
|
|
||||||
(t
|
|
||||||
(use-package-error
|
|
||||||
(concat label " wants a string, symbol, "
|
|
||||||
"(symbol . string) or list of these")))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun use-package-normalize/:diminish (name keyword args)
|
|
||||||
(use-package-as-one (symbol-name keyword) args
|
|
||||||
(apply-partially #'use-package-normalize-diminish name) t))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun use-package-handler/:diminish (name _keyword arg rest state)
|
|
||||||
(let ((body (use-package-process-keywords name rest state)))
|
|
||||||
(use-package-concat
|
|
||||||
(mapcar #'(lambda (var)
|
|
||||||
`(if (fboundp 'diminish)
|
|
||||||
,(if (consp var)
|
|
||||||
`(diminish ',(car var) ,(cdr var))
|
|
||||||
`(diminish ',var))))
|
|
||||||
arg)
|
|
||||||
body)))
|
|
||||||
|
|
||||||
(add-to-list 'use-package-keywords :diminish t)
|
|
||||||
|
|
||||||
(provide 'use-package-diminish)
|
|
||||||
|
|
||||||
;;; use-package-diminish.el ends here
|
|
||||||
Binary file not shown.
|
|
@ -1,214 +0,0 @@
|
||||||
;;; use-package-ensure.el --- Support for the :ensure and :pin keywords -*- lexical-binding: t; -*-
|
|
||||||
|
|
||||||
;; Copyright (C) 2012-2017 John Wiegley
|
|
||||||
|
|
||||||
;; Author: John Wiegley <johnw@newartisans.com>
|
|
||||||
;; Maintainer: John Wiegley <johnw@newartisans.com>
|
|
||||||
;; Created: 17 Jun 2012
|
|
||||||
;; Modified: 3 Dec 2017
|
|
||||||
;; Version: 1.0
|
|
||||||
;; Package-Requires: ((emacs "24.3") (use-package "2.4"))
|
|
||||||
;; Keywords: dotemacs startup speed config package
|
|
||||||
;; URL: https://github.com/jwiegley/use-package
|
|
||||||
|
|
||||||
;; 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 GNU Emacs; see the file COPYING. If not, write to the
|
|
||||||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
||||||
;; Boston, MA 02111-1307, USA.
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
|
|
||||||
;; Provides support for the :ensure and :pin keywords, which is made available
|
|
||||||
;; by default by requiring `use-package'.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'cl-lib)
|
|
||||||
(require 'use-package-core)
|
|
||||||
|
|
||||||
(defgroup use-package-ensure nil
|
|
||||||
"Support for :ensure and :pin keywords in use-package declarations."
|
|
||||||
:group 'use-package)
|
|
||||||
|
|
||||||
(eval-when-compile
|
|
||||||
(declare-function package-installed-p "package")
|
|
||||||
(declare-function package-read-all-archive-contents "package" ()))
|
|
||||||
|
|
||||||
(defcustom use-package-always-ensure nil
|
|
||||||
"Treat every package as though it had specified using `:ensure SEXP'.
|
|
||||||
See also `use-package-defaults', which uses this value."
|
|
||||||
:type 'sexp
|
|
||||||
:group 'use-package-ensure)
|
|
||||||
|
|
||||||
(defcustom use-package-always-pin nil
|
|
||||||
"Treat every package as though it had specified using `:pin SYM'.
|
|
||||||
See also `use-package-defaults', which uses this value."
|
|
||||||
:type 'symbol
|
|
||||||
:group 'use-package-ensure)
|
|
||||||
|
|
||||||
(defcustom use-package-ensure-function 'use-package-ensure-elpa
|
|
||||||
"Function that ensures a package is installed.
|
|
||||||
This function is called with three arguments: the name of the
|
|
||||||
package declared in the `use-package' form; the arguments passed
|
|
||||||
to all `:ensure' keywords (always a list, even if only one); and
|
|
||||||
the current `state' plist created by previous handlers.
|
|
||||||
|
|
||||||
Note that this function is called whenever `:ensure' is provided,
|
|
||||||
even if it is nil. It is up to the function to decide on the
|
|
||||||
semantics of the various values for `:ensure'.
|
|
||||||
|
|
||||||
This function should return non-nil if the package is installed.
|
|
||||||
|
|
||||||
The default value uses package.el to install the package."
|
|
||||||
:type '(choice (const :tag "package.el" use-package-ensure-elpa)
|
|
||||||
(function :tag "Custom"))
|
|
||||||
:group 'use-package-ensure)
|
|
||||||
|
|
||||||
;;;; :pin
|
|
||||||
|
|
||||||
(defun use-package-normalize/:pin (_name keyword args)
|
|
||||||
(use-package-only-one (symbol-name keyword) args
|
|
||||||
#'(lambda (_label arg)
|
|
||||||
(cond
|
|
||||||
((stringp arg) arg)
|
|
||||||
((use-package-non-nil-symbolp arg) (symbol-name arg))
|
|
||||||
(t
|
|
||||||
(use-package-error
|
|
||||||
":pin wants an archive name (a string)"))))))
|
|
||||||
|
|
||||||
(eval-when-compile
|
|
||||||
(defvar package-pinned-packages)
|
|
||||||
(defvar package-archives))
|
|
||||||
|
|
||||||
(defun use-package-archive-exists-p (archive)
|
|
||||||
"Check if a given ARCHIVE is enabled.
|
|
||||||
|
|
||||||
ARCHIVE can be a string or a symbol or 'manual to indicate a
|
|
||||||
manually updated package."
|
|
||||||
(if (member archive '(manual "manual"))
|
|
||||||
't
|
|
||||||
(let ((valid nil))
|
|
||||||
(dolist (pa package-archives)
|
|
||||||
(when (member archive (list (car pa) (intern (car pa))))
|
|
||||||
(setq valid 't)))
|
|
||||||
valid)))
|
|
||||||
|
|
||||||
(defun use-package-pin-package (package archive)
|
|
||||||
"Pin PACKAGE to ARCHIVE."
|
|
||||||
(unless (boundp 'package-pinned-packages)
|
|
||||||
(setq package-pinned-packages ()))
|
|
||||||
(let ((archive-symbol (if (symbolp archive) archive (intern archive)))
|
|
||||||
(archive-name (if (stringp archive) archive (symbol-name archive))))
|
|
||||||
(if (use-package-archive-exists-p archive-symbol)
|
|
||||||
(add-to-list 'package-pinned-packages (cons package archive-name))
|
|
||||||
(error "Archive '%s' requested for package '%s' is not available."
|
|
||||||
archive-name package))
|
|
||||||
(unless (bound-and-true-p package--initialized)
|
|
||||||
(package-initialize t))))
|
|
||||||
|
|
||||||
(defun use-package-handler/:pin (name _keyword archive-name rest state)
|
|
||||||
(let ((body (use-package-process-keywords name rest state))
|
|
||||||
(pin-form (if archive-name
|
|
||||||
`(use-package-pin-package ',(use-package-as-symbol name)
|
|
||||||
,archive-name))))
|
|
||||||
;; Pinning should occur just before ensuring
|
|
||||||
;; See `use-package-handler/:ensure'.
|
|
||||||
(if (bound-and-true-p byte-compile-current-file)
|
|
||||||
(eval pin-form) ; Eval when byte-compiling,
|
|
||||||
(push pin-form body)) ; or else wait until runtime.
|
|
||||||
body))
|
|
||||||
|
|
||||||
;;;; :ensure
|
|
||||||
|
|
||||||
(defvar package-archive-contents)
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun use-package-normalize/:ensure (_name keyword args)
|
|
||||||
(if (null args)
|
|
||||||
(list t)
|
|
||||||
(use-package-only-one (symbol-name keyword) args
|
|
||||||
#'(lambda (_label arg)
|
|
||||||
(cond
|
|
||||||
((symbolp arg)
|
|
||||||
(list arg))
|
|
||||||
((and (listp arg) (= 3 (length arg))
|
|
||||||
(symbolp (nth 0 arg))
|
|
||||||
(eq :pin (nth 1 arg))
|
|
||||||
(or (stringp (nth 2 arg))
|
|
||||||
(symbolp (nth 2 arg))))
|
|
||||||
(list (cons (nth 0 arg) (nth 2 arg))))
|
|
||||||
(t
|
|
||||||
(use-package-error
|
|
||||||
(concat ":ensure wants an optional package name "
|
|
||||||
"(an unquoted symbol name), or (<symbol> :pin <string>)"))))))))
|
|
||||||
|
|
||||||
(defun use-package-ensure-elpa (name args _state &optional _no-refresh)
|
|
||||||
(dolist (ensure args)
|
|
||||||
(let ((package
|
|
||||||
(or (and (eq ensure t) (use-package-as-symbol name))
|
|
||||||
ensure)))
|
|
||||||
(when package
|
|
||||||
(require 'package)
|
|
||||||
(when (consp package)
|
|
||||||
(use-package-pin-package (car package) (cdr package))
|
|
||||||
(setq package (car package)))
|
|
||||||
(unless (package-installed-p package)
|
|
||||||
(condition-case-unless-debug err
|
|
||||||
(progn
|
|
||||||
(when (assoc package (bound-and-true-p
|
|
||||||
package-pinned-packages))
|
|
||||||
(package-read-all-archive-contents))
|
|
||||||
(if (assoc package package-archive-contents)
|
|
||||||
(package-install package)
|
|
||||||
(package-refresh-contents)
|
|
||||||
(when (assoc package (bound-and-true-p
|
|
||||||
package-pinned-packages))
|
|
||||||
(package-read-all-archive-contents))
|
|
||||||
(package-install package))
|
|
||||||
t)
|
|
||||||
(error
|
|
||||||
(display-warning 'use-package
|
|
||||||
(format "Failed to install %s: %s"
|
|
||||||
name (error-message-string err))
|
|
||||||
:error))))))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun use-package-handler/:ensure (name _keyword ensure rest state)
|
|
||||||
(let* ((body (use-package-process-keywords name rest state)))
|
|
||||||
;; We want to avoid installing packages when the `use-package' macro is
|
|
||||||
;; being macro-expanded by elisp completion (see `lisp--local-variables'),
|
|
||||||
;; but still install packages when byte-compiling, to avoid requiring
|
|
||||||
;; `package' at runtime.
|
|
||||||
(if (bound-and-true-p byte-compile-current-file)
|
|
||||||
;; Eval when byte-compiling,
|
|
||||||
(funcall use-package-ensure-function name ensure state)
|
|
||||||
;; or else wait until runtime.
|
|
||||||
(push `(,use-package-ensure-function ',name ',ensure ',state)
|
|
||||||
body))
|
|
||||||
body))
|
|
||||||
|
|
||||||
(add-to-list 'use-package-defaults
|
|
||||||
'(:ensure (list use-package-always-ensure)
|
|
||||||
(lambda (name args)
|
|
||||||
(and use-package-always-ensure
|
|
||||||
(not (plist-member args :load-path))))) t)
|
|
||||||
|
|
||||||
(add-to-list 'use-package-defaults
|
|
||||||
'(:pin use-package-always-pin use-package-always-pin) t)
|
|
||||||
|
|
||||||
(add-to-list 'use-package-keywords :ensure)
|
|
||||||
(add-to-list 'use-package-keywords :pin)
|
|
||||||
|
|
||||||
(provide 'use-package-ensure)
|
|
||||||
|
|
||||||
;;; use-package-ensure.el ends here
|
|
||||||
Binary file not shown.
|
|
@ -1,79 +0,0 @@
|
||||||
;;; use-package-jump.el --- Attempt to jump to a use-package declaration -*- lexical-binding: t; -*-
|
|
||||||
|
|
||||||
;; Copyright (C) 2012-2017 John Wiegley
|
|
||||||
|
|
||||||
;; Author: John Wiegley <johnw@newartisans.com>
|
|
||||||
;; Maintainer: John Wiegley <johnw@newartisans.com>
|
|
||||||
;; Created: 17 Jun 2012
|
|
||||||
;; Modified: 3 Dec 2017
|
|
||||||
;; Version: 1.0
|
|
||||||
;; Package-Requires: ((emacs "24.3") (use-package "2.4"))
|
|
||||||
;; Keywords: dotemacs startup speed config package
|
|
||||||
;; URL: https://github.com/jwiegley/use-package
|
|
||||||
|
|
||||||
;; 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 GNU Emacs; see the file COPYING. If not, write to the
|
|
||||||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
||||||
;; Boston, MA 02111-1307, USA.
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
|
|
||||||
;; Provides the command `M-x use-package-jump-to-package-form', however it
|
|
||||||
;; only works if the package being jumped to was required during
|
|
||||||
;; initialization. If it was delay-loaded, it will not work. Improvements are
|
|
||||||
;; needed.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'use-package-core)
|
|
||||||
|
|
||||||
(defun use-package-find-require (package)
|
|
||||||
"Find file that required PACKAGE by searching `load-history'.
|
|
||||||
Returns an absolute file path or nil if none is found."
|
|
||||||
(catch 'suspect
|
|
||||||
(dolist (filespec load-history)
|
|
||||||
(dolist (entry (cdr filespec))
|
|
||||||
(when (equal entry (cons 'require package))
|
|
||||||
(throw 'suspect (car filespec)))))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun use-package-jump-to-package-form (package)
|
|
||||||
"Attempt to find and jump to the `use-package' form that loaded
|
|
||||||
PACKAGE. This will only find the form if that form actually
|
|
||||||
required PACKAGE. If PACKAGE was previously required then this
|
|
||||||
function will jump to the file that originally required PACKAGE
|
|
||||||
instead."
|
|
||||||
(interactive (list (completing-read "Package: " features)))
|
|
||||||
(let* ((package (if (stringp package) (intern package) package))
|
|
||||||
(requiring-file (use-package-find-require package))
|
|
||||||
file location)
|
|
||||||
(if (null requiring-file)
|
|
||||||
(user-error "Can't find file requiring file; may have been autoloaded")
|
|
||||||
(setq file (if (string= (file-name-extension requiring-file) "elc")
|
|
||||||
(concat (file-name-sans-extension requiring-file) ".el")
|
|
||||||
requiring-file))
|
|
||||||
(when (file-exists-p file)
|
|
||||||
(find-file-other-window file)
|
|
||||||
(save-excursion
|
|
||||||
(goto-char (point-min))
|
|
||||||
(setq location
|
|
||||||
(re-search-forward
|
|
||||||
(format (eval use-package-form-regexp-eval) package) nil t)))
|
|
||||||
(if (null location)
|
|
||||||
(message "No use-package form found.")
|
|
||||||
(goto-char location)
|
|
||||||
(beginning-of-line))))))
|
|
||||||
|
|
||||||
(provide 'use-package-jump)
|
|
||||||
|
|
||||||
;;; use-package-jump.el ends here
|
|
||||||
Binary file not shown.
|
|
@ -1,84 +0,0 @@
|
||||||
;;; use-package-lint.el --- Attempt to find errors in use-package declarations -*- lexical-binding: t; -*-
|
|
||||||
|
|
||||||
;; Copyright (C) 2012-2017 John Wiegley
|
|
||||||
|
|
||||||
;; Author: John Wiegley <johnw@newartisans.com>
|
|
||||||
;; Maintainer: John Wiegley <johnw@newartisans.com>
|
|
||||||
;; Created: 17 Jun 2012
|
|
||||||
;; Modified: 3 Dec 2017
|
|
||||||
;; Version: 1.0
|
|
||||||
;; Package-Requires: ((emacs "24.3") (use-package "2.4"))
|
|
||||||
;; Keywords: dotemacs startup speed config package
|
|
||||||
;; URL: https://github.com/jwiegley/use-package
|
|
||||||
|
|
||||||
;; 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 GNU Emacs; see the file COPYING. If not, write to the
|
|
||||||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
||||||
;; Boston, MA 02111-1307, USA.
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
|
|
||||||
;; Provides the command `M-x use-package-lint'.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'cl-lib)
|
|
||||||
(require 'use-package-core)
|
|
||||||
|
|
||||||
(defun use-package-lint-declaration (name plist)
|
|
||||||
(dolist (path (plist-get plist :load-path))
|
|
||||||
(unless (file-exists-p path)
|
|
||||||
(display-warning
|
|
||||||
'use-package
|
|
||||||
(format "%s :load-path does not exist: %s"
|
|
||||||
name path) :error)))
|
|
||||||
|
|
||||||
(unless (or (plist-member plist :disabled)
|
|
||||||
(plist-get plist :no-require)
|
|
||||||
(locate-library (use-package-as-string name) nil
|
|
||||||
(plist-get plist :load-path)))
|
|
||||||
(display-warning
|
|
||||||
'use-package
|
|
||||||
(format "%s module cannot be located" name) :error))
|
|
||||||
|
|
||||||
;; (dolist (command (plist-get plist :commands))
|
|
||||||
;; (unless (string= (find-lisp-object-file-name command nil)
|
|
||||||
;; (locate-library (use-package-as-string name) nil
|
|
||||||
;; (plist-get plist :load-path)))
|
|
||||||
;; (display-warning
|
|
||||||
;; 'use-package
|
|
||||||
;; (format "%s :command is from different path: %s"
|
|
||||||
;; name (symbol-name command)) :error)))
|
|
||||||
)
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun use-package-lint ()
|
|
||||||
"Check for errors in use-package declarations.
|
|
||||||
For example, if the module's `:if' condition is met, but even
|
|
||||||
with the specified `:load-path' the module cannot be found."
|
|
||||||
(interactive)
|
|
||||||
(save-excursion
|
|
||||||
(goto-char (point-min))
|
|
||||||
(let ((re (eval use-package-form-regexp-eval)))
|
|
||||||
(while (re-search-forward re nil t)
|
|
||||||
(goto-char (match-beginning 0))
|
|
||||||
(let ((decl (read (current-buffer))))
|
|
||||||
(when (eq (car decl) 'use-package)
|
|
||||||
(use-package-lint-declaration
|
|
||||||
(use-package-as-string (cadr decl))
|
|
||||||
(use-package-normalize-keywords
|
|
||||||
(cadr decl) (cddr decl)))))))))
|
|
||||||
|
|
||||||
(provide 'use-package-lint)
|
|
||||||
|
|
||||||
;;; use-package-lint.el ends here
|
|
||||||
Binary file not shown.
|
|
@ -1,13 +0,0 @@
|
||||||
(define-package "use-package" "20210206.921" "A configuration macro for simplifying your .emacs"
|
|
||||||
'((emacs "24.3")
|
|
||||||
(bind-key "2.4"))
|
|
||||||
:commit "b79c25d09babc67315577b555701324ab2f15eb6" :authors
|
|
||||||
'(("John Wiegley" . "johnw@newartisans.com"))
|
|
||||||
:maintainer
|
|
||||||
'("John Wiegley" . "johnw@newartisans.com")
|
|
||||||
:keywords
|
|
||||||
'("dotemacs" "startup" "speed" "config" "package")
|
|
||||||
:url "https://github.com/jwiegley/use-package")
|
|
||||||
;; Local Variables:
|
|
||||||
;; no-byte-compile: t
|
|
||||||
;; End:
|
|
||||||
|
|
@ -1,54 +0,0 @@
|
||||||
;;; use-package.el --- A configuration macro for simplifying your .emacs -*- lexical-binding: t; -*-
|
|
||||||
|
|
||||||
;; Copyright (C) 2012-2017 John Wiegley
|
|
||||||
|
|
||||||
;; Author: John Wiegley <johnw@newartisans.com>
|
|
||||||
;; Maintainer: John Wiegley <johnw@newartisans.com>
|
|
||||||
;; Created: 17 Jun 2012
|
|
||||||
;; Modified: 29 Nov 2017
|
|
||||||
;; Version: 2.4.1
|
|
||||||
;; Package-Requires: ((emacs "24.3") (bind-key "2.4"))
|
|
||||||
;; Keywords: dotemacs startup speed config package
|
|
||||||
;; URL: https://github.com/jwiegley/use-package
|
|
||||||
|
|
||||||
;; 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 GNU Emacs; see the file COPYING. If not, write to the
|
|
||||||
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
||||||
;; Boston, MA 02111-1307, USA.
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
|
|
||||||
;; The `use-package' declaration macro allows you to isolate package
|
|
||||||
;; configuration in your ".emacs" in a way that is performance-oriented and,
|
|
||||||
;; well, just tidy. I created it because I have over 80 packages that I use
|
|
||||||
;; in Emacs, and things were getting difficult to manage. Yet with this
|
|
||||||
;; utility my total load time is just under 1 second, with no loss of
|
|
||||||
;; functionality!
|
|
||||||
;;
|
|
||||||
;; Please see README.md from the same repository for documentation.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'use-package-core)
|
|
||||||
|
|
||||||
(require 'use-package-bind-key)
|
|
||||||
(require 'use-package-diminish)
|
|
||||||
(require 'use-package-delight)
|
|
||||||
(require 'use-package-ensure)
|
|
||||||
|
|
||||||
(declare-function use-package-jump-to-package-form "use-package-jump")
|
|
||||||
(autoload #'use-package-jump-to-package-form "use-package-jump" nil t)
|
|
||||||
|
|
||||||
(provide 'use-package)
|
|
||||||
|
|
||||||
;;; use-package.el ends here
|
|
||||||
Binary file not shown.
File diff suppressed because it is too large
Load diff
Loading…
Reference in a new issue