[Elpa] Package update
This commit is contained in:
parent
1dd4aa7db7
commit
dccce83ab7
|
@ -1,2 +0,0 @@
|
||||||
;;; -*- no-byte-compile: t -*-
|
|
||||||
(define-package "dash" "20171010.131" "A modern list library for Emacs" 'nil :commit "4b465277809aa49e4d34438877b0b2d8eeb4a6b8" :keywords '("lists"))
|
|
|
@ -3,7 +3,7 @@
|
||||||
;;; Code:
|
;;; Code:
|
||||||
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
||||||
|
|
||||||
;;;### (autoloads nil nil ("dash.el") (23004 61741 650744 218000))
|
;;;### (autoloads nil nil ("dash.el") (23028 47952 758677 500000))
|
||||||
|
|
||||||
;;;***
|
;;;***
|
||||||
|
|
|
@ -0,0 +1,2 @@
|
||||||
|
;;; -*- no-byte-compile: t -*-
|
||||||
|
(define-package "dash" "20171028.854" "A modern list library for Emacs" 'nil :commit "91d8cb01e62bab0d6267d3d4dbcabd6da6fdea78" :keywords '("lists"))
|
|
@ -4,7 +4,7 @@
|
||||||
|
|
||||||
;; Author: Magnar Sveen <magnars@gmail.com>
|
;; Author: Magnar Sveen <magnars@gmail.com>
|
||||||
;; Version: 2.13.0
|
;; Version: 2.13.0
|
||||||
;; Package-Version: 20171010.131
|
;; Package-Version: 20171028.854
|
||||||
;; Keywords: lists
|
;; Keywords: lists
|
||||||
|
|
||||||
;; This program is free software; you can redistribute it and/or modify
|
;; This program is free software; you can redistribute it and/or modify
|
||||||
|
@ -236,6 +236,38 @@ See also: `-reduce-r-from', `-reduce'"
|
||||||
(declare (debug (form form)))
|
(declare (debug (form form)))
|
||||||
`(-reduce-r (lambda (&optional it acc) ,form) ,list))
|
`(-reduce-r (lambda (&optional it acc) ,form) ,list))
|
||||||
|
|
||||||
|
(defun -reductions-from (fn init list)
|
||||||
|
"Return a list of the intermediate values of the reduction.
|
||||||
|
|
||||||
|
See `-reduce-from' for explanation of the arguments.
|
||||||
|
|
||||||
|
See also: `-reductions', `-reductions-r', `-reduce-r'"
|
||||||
|
(nreverse (--reduce-from (cons (funcall fn (car acc) it) acc) (list init) list)))
|
||||||
|
|
||||||
|
(defun -reductions (fn list)
|
||||||
|
"Return a list of the intermediate values of the reduction.
|
||||||
|
|
||||||
|
See `-reduce' for explanation of the arguments.
|
||||||
|
|
||||||
|
See also: `-reductions-from', `-reductions-r', `-reduce-r'"
|
||||||
|
(-reductions-from fn (car list) (cdr list)))
|
||||||
|
|
||||||
|
(defun -reductions-r-from (fn init list)
|
||||||
|
"Return a list of the intermediate values of the reduction.
|
||||||
|
|
||||||
|
See `-reduce-r-from' for explanation of the arguments.
|
||||||
|
|
||||||
|
See also: `-reductions-r', `-reductions', `-reduce'"
|
||||||
|
(--reduce-r-from (cons (funcall fn it (car acc)) acc) (list init) list))
|
||||||
|
|
||||||
|
(defun -reductions-r (fn list)
|
||||||
|
"Return a list of the intermediate values of the reduction.
|
||||||
|
|
||||||
|
See `-reduce-r' for explanation of the arguments.
|
||||||
|
|
||||||
|
See also: `-reductions-r-from', `-reductions', `-reduce'"
|
||||||
|
(-reductions-r-from fn (-last-item list) (-butlast list)))
|
||||||
|
|
||||||
(defmacro --filter (form list)
|
(defmacro --filter (form list)
|
||||||
"Anaphoric form of `-filter'.
|
"Anaphoric form of `-filter'.
|
||||||
|
|
||||||
|
@ -2076,6 +2108,14 @@ or with `-compare-fn' if that's non-nil."
|
||||||
(-permutations (remove x list))))
|
(-permutations (remove x list))))
|
||||||
list))))
|
list))))
|
||||||
|
|
||||||
|
(defun -inits (list)
|
||||||
|
"Return all prefixes of LIST."
|
||||||
|
(nreverse (-map 'reverse (-tails (nreverse list)))))
|
||||||
|
|
||||||
|
(defun -tails (list)
|
||||||
|
"Return all suffixes of LIST"
|
||||||
|
(-reductions-r-from 'cons nil list))
|
||||||
|
|
||||||
(defun -contains? (list element)
|
(defun -contains? (list element)
|
||||||
"Return non-nil if LIST contains ELEMENT.
|
"Return non-nil if LIST contains ELEMENT.
|
||||||
|
|
||||||
|
@ -2179,11 +2219,29 @@ Return nil if N is less than 1."
|
||||||
(declare (pure t) (side-effect-free t))
|
(declare (pure t) (side-effect-free t))
|
||||||
(apply '+ list))
|
(apply '+ list))
|
||||||
|
|
||||||
|
(defun -running-sum (list)
|
||||||
|
"Return a list with running sums of items in LIST.
|
||||||
|
|
||||||
|
LIST must be non-empty."
|
||||||
|
(declare (pure t) (side-effect-free t))
|
||||||
|
(unless (consp list)
|
||||||
|
(error "LIST must be non-empty"))
|
||||||
|
(-reductions '+ list))
|
||||||
|
|
||||||
(defun -product (list)
|
(defun -product (list)
|
||||||
"Return the product of LIST."
|
"Return the product of LIST."
|
||||||
(declare (pure t) (side-effect-free t))
|
(declare (pure t) (side-effect-free t))
|
||||||
(apply '* list))
|
(apply '* list))
|
||||||
|
|
||||||
|
(defun -running-product (list)
|
||||||
|
"Return a list with running products of items in LIST.
|
||||||
|
|
||||||
|
LIST must be non-empty."
|
||||||
|
(declare (pure t) (side-effect-free t))
|
||||||
|
(unless (consp list)
|
||||||
|
(error "LIST must be non-empty"))
|
||||||
|
(-reductions '* list))
|
||||||
|
|
||||||
(defun -max (list)
|
(defun -max (list)
|
||||||
"Return the largest value from LIST of numbers or markers."
|
"Return the largest value from LIST of numbers or markers."
|
||||||
(declare (pure t) (side-effect-free t))
|
(declare (pure t) (side-effect-free t))
|
||||||
|
@ -2463,6 +2521,10 @@ structure such as plist or alist."
|
||||||
"--reduce-r-from"
|
"--reduce-r-from"
|
||||||
"-reduce-r"
|
"-reduce-r"
|
||||||
"--reduce-r"
|
"--reduce-r"
|
||||||
|
"-reductions-from"
|
||||||
|
"-reductions-r-from"
|
||||||
|
"-reductions"
|
||||||
|
"-reductions-r"
|
||||||
"-filter"
|
"-filter"
|
||||||
"--filter"
|
"--filter"
|
||||||
"-select"
|
"-select"
|
||||||
|
@ -2622,6 +2684,10 @@ structure such as plist or alist."
|
||||||
"-union"
|
"-union"
|
||||||
"-intersection"
|
"-intersection"
|
||||||
"-difference"
|
"-difference"
|
||||||
|
"-powerset"
|
||||||
|
"-permutations"
|
||||||
|
"-inits"
|
||||||
|
"-tails"
|
||||||
"-contains?"
|
"-contains?"
|
||||||
"-contains-p"
|
"-contains-p"
|
||||||
"-same-items?"
|
"-same-items?"
|
||||||
|
@ -2637,7 +2703,9 @@ structure such as plist or alist."
|
||||||
"-list"
|
"-list"
|
||||||
"-repeat"
|
"-repeat"
|
||||||
"-sum"
|
"-sum"
|
||||||
|
"-running-sum"
|
||||||
"-product"
|
"-product"
|
||||||
|
"-running-product"
|
||||||
"-max"
|
"-max"
|
||||||
"-min"
|
"-min"
|
||||||
"-max-by"
|
"-max-by"
|
|
@ -1,2 +0,0 @@
|
||||||
;;; -*- no-byte-compile: t -*-
|
|
||||||
(define-package "page-break-lines" "20170829.157" "Display ^L page breaks as tidy horizontal lines" 'nil :commit "913732ad06d838661989fb1fef05fcc9ca88f725" :url "https://github.com/purcell/page-break-lines" :keywords '("convenience" "faces"))
|
|
|
@ -3,8 +3,8 @@
|
||||||
;;; Code:
|
;;; Code:
|
||||||
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
||||||
|
|
||||||
;;;### (autoloads nil "page-break-lines" "page-break-lines.el" (22981
|
;;;### (autoloads nil "page-break-lines" "page-break-lines.el" (23028
|
||||||
;;;;;; 14380 755029 874000))
|
;;;;;; 47890 302341 377000))
|
||||||
;;; Generated autoloads from page-break-lines.el
|
;;; Generated autoloads from page-break-lines.el
|
||||||
|
|
||||||
(defvar page-break-lines-char 9472 "\
|
(defvar page-break-lines-char 9472 "\
|
|
@ -0,0 +1,2 @@
|
||||||
|
;;; -*- no-byte-compile: t -*-
|
||||||
|
(define-package "page-break-lines" "20171020.108" "Display ^L page breaks as tidy horizontal lines" '((emacs "24.4")) :commit "ae1c0065984429c7364a667abb9180e80134c4c0" :url "https://github.com/purcell/page-break-lines" :keywords '("convenience" "faces"))
|
|
@ -4,8 +4,9 @@
|
||||||
|
|
||||||
;; Author: Steve Purcell <steve@sanityinc.com>
|
;; Author: Steve Purcell <steve@sanityinc.com>
|
||||||
;; URL: https://github.com/purcell/page-break-lines
|
;; URL: https://github.com/purcell/page-break-lines
|
||||||
;; Package-Version: 20170829.157
|
;; Package-Version: 20171020.108
|
||||||
;; Package-X-Original-Version: 0
|
;; Package-X-Original-Version: 0
|
||||||
|
;; Package-Requires: ((emacs "24.4"))
|
||||||
;; Keywords: convenience, faces
|
;; Keywords: convenience, faces
|
||||||
|
|
||||||
;; This program is free software; you can redistribute it and/or modify
|
;; This program is free software; you can redistribute it and/or modify
|
||||||
|
@ -127,12 +128,12 @@ its display table will be modified as necessary."
|
||||||
(let ((default-height (face-attribute 'default :height nil 'default)))
|
(let ((default-height (face-attribute 'default :height nil 'default)))
|
||||||
(set-face-attribute 'page-break-lines nil :height default-height)
|
(set-face-attribute 'page-break-lines nil :height default-height)
|
||||||
(let* ((cwidth (char-width page-break-lines-char))
|
(let* ((cwidth (char-width page-break-lines-char))
|
||||||
(wwidth (- (window-width)
|
(wwidth-pix (- (window-width nil t)
|
||||||
(if (bound-and-true-p display-line-numbers)
|
(if (bound-and-true-p display-line-numbers)
|
||||||
(+ (line-number-display-width) 2)
|
(line-number-display-width t)
|
||||||
0)
|
0)))
|
||||||
(if (display-graphic-p) 0 1)))
|
(width (- (/ wwidth-pix (frame-char-width) cwidth)
|
||||||
(width (/ wwidth cwidth))
|
(if (display-graphic-p) 0 1)))
|
||||||
(glyph (make-glyph-code page-break-lines-char 'page-break-lines))
|
(glyph (make-glyph-code page-break-lines-char 'page-break-lines))
|
||||||
(new-display-entry (vconcat (make-list width glyph))))
|
(new-display-entry (vconcat (make-list width glyph))))
|
||||||
(unless (equal new-display-entry (elt buffer-display-table ?\^L))
|
(unless (equal new-display-entry (elt buffer-display-table ?\^L))
|
|
@ -3,8 +3,8 @@
|
||||||
;;; Code:
|
;;; Code:
|
||||||
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
||||||
|
|
||||||
;;;### (autoloads nil "use-package" "use-package.el" (22942 51203
|
;;;### (autoloads nil "use-package" "use-package.el" (23028 47880
|
||||||
;;;;;; 251615 319000))
|
;;;;;; 842290 450000))
|
||||||
;;; Generated autoloads from use-package.el
|
;;; Generated autoloads from use-package.el
|
||||||
|
|
||||||
(autoload 'use-package-autoload-keymap "use-package" "\
|
(autoload 'use-package-autoload-keymap "use-package" "\
|
|
@ -1,2 +1,2 @@
|
||||||
;;; -*- no-byte-compile: t -*-
|
;;; -*- no-byte-compile: t -*-
|
||||||
(define-package "use-package" "20170812.2256" "A use-package declaration for simplifying your .emacs" '((bind-key "1.0") (diminish "0.44")) :commit "360df30683a711c443f87e495ba14cdd125a505d" :url "https://github.com/jwiegley/use-package" :keywords '("dotemacs" "startup" "speed" "config" "package"))
|
(define-package "use-package" "20171013.1548" "A use-package declaration for simplifying your .emacs" '((bind-key "1.0") (diminish "0.44")) :commit "cb89901b52a9413b6c233d7fbb616a2d8f38b50a" :url "https://github.com/jwiegley/use-package" :keywords '("dotemacs" "startup" "speed" "config" "package"))
|
|
@ -7,7 +7,7 @@
|
||||||
;; Created: 17 Jun 2012
|
;; Created: 17 Jun 2012
|
||||||
;; Modified: 17 Oct 2016
|
;; Modified: 17 Oct 2016
|
||||||
;; Version: 2.3
|
;; Version: 2.3
|
||||||
;; Package-Version: 20170812.2256
|
;; Package-Version: 20171013.1548
|
||||||
;; Package-Requires: ((bind-key "1.0") (diminish "0.44"))
|
;; Package-Requires: ((bind-key "1.0") (diminish "0.44"))
|
||||||
;; Keywords: dotemacs startup speed config package
|
;; Keywords: dotemacs startup speed config package
|
||||||
;; URL: https://github.com/jwiegley/use-package
|
;; URL: https://github.com/jwiegley/use-package
|
||||||
|
@ -738,17 +738,21 @@ If the package is installed, its entry is removed from
|
||||||
;; bypassed.
|
;; bypassed.
|
||||||
(member context '(:byte-compile :ensure :config))
|
(member context '(:byte-compile :ensure :config))
|
||||||
(y-or-n-p (format "Install package %S?" package))))
|
(y-or-n-p (format "Install package %S?" package))))
|
||||||
(with-demoted-errors (format "Cannot load %s: %%S" name)
|
(condition-case-unless-debug err
|
||||||
(when (assoc package (bound-and-true-p package-pinned-packages))
|
|
||||||
(package-read-all-archive-contents))
|
|
||||||
(if (assoc package package-archive-contents)
|
|
||||||
(progn (package-install package) t)
|
|
||||||
(progn
|
(progn
|
||||||
(package-refresh-contents)
|
(when (assoc package (bound-and-true-p package-pinned-packages))
|
||||||
(when (assoc package (bound-and-true-p
|
|
||||||
package-pinned-packages))
|
|
||||||
(package-read-all-archive-contents))
|
(package-read-all-archive-contents))
|
||||||
(package-install package))))))))
|
(cond ((assoc package package-archive-contents)
|
||||||
|
(package-install package)
|
||||||
|
t)
|
||||||
|
(t
|
||||||
|
(package-refresh-contents)
|
||||||
|
(when (assoc package
|
||||||
|
(bound-and-true-p package-pinned-packages))
|
||||||
|
(package-read-all-archive-contents))
|
||||||
|
(package-install package))))
|
||||||
|
(error (message "Error: Cannot load %s: %S" name err)
|
||||||
|
nil))))))
|
||||||
|
|
||||||
(defun use-package-handler/:ensure (name keyword ensure rest state)
|
(defun use-package-handler/:ensure (name keyword ensure rest state)
|
||||||
(let* ((body (use-package-process-keywords name rest
|
(let* ((body (use-package-process-keywords name rest
|
Loading…
Reference in New Issue