[ELPA] Update

This commit is contained in:
Daniel - 2018-11-03 18:33:59 +01:00
parent 80bff38fcb
commit bf04cd28e6
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
20 changed files with 93 additions and 91 deletions

View File

@ -3,7 +3,7 @@
;;; Code:
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil nil ("dash.el") (23441 26597 718801 143000))
;;;### (autoloads nil nil ("dash.el") (23517 56182 290592 403000))
;;;***

View File

@ -1,2 +1,2 @@
;;; -*- no-byte-compile: t -*-
(define-package "dash" "20180903.1042" "A modern list library for Emacs" 'nil :commit "85e8f62b7a8ae0b4da307ddf16e4f1c3559d0d3f" :keywords '("lists") :authors '(("Magnar Sveen" . "magnars@gmail.com")) :maintainer '("Magnar Sveen" . "magnars@gmail.com"))
(define-package "dash" "20180910.1856" "A modern list library for Emacs" 'nil :commit "6514359b8606a6a9a94068ccd601fcd6379d6584" :keywords '("lists") :authors '(("Magnar Sveen" . "magnars@gmail.com")) :maintainer '("Magnar Sveen" . "magnars@gmail.com"))

View File

@ -4,7 +4,7 @@
;; Author: Magnar Sveen <magnars@gmail.com>
;; Version: 2.14.1
;; Package-Version: 20180903.1042
;; Package-Version: 20180910.1856
;; Keywords: lists
;; This program is free software; you can redistribute it and/or modify
@ -206,7 +206,7 @@ Return nil, used for side-effects only."
"Return the result of applying FN to INITIAL-VALUE and the
first item in LIST, then applying FN to that result and the 2nd
item, etc. If LIST contains no items, return INITIAL-VALUE and
FN is not called.
do not call FN.
In the anaphoric form `--reduce-from', the accumulated value is
exposed as symbol `acc'.
@ -226,9 +226,9 @@ See also: `-reduce', `-reduce-r'"
(defun -reduce (fn list)
"Return the result of applying FN to the first 2 items in LIST,
then applying FN to that result and the 3rd item, etc. If LIST
contains no items, FN must accept no arguments as well, and
reduce return the result of calling FN with no arguments. If
LIST has only 1 item, it is returned and FN is not called.
contains no items, return the result of calling FN with no
arguments. If LIST contains a single item, return that item
and do not call FN.
In the anaphoric form `--reduce', the accumulated value is
exposed as symbol `acc'.
@ -238,6 +238,11 @@ See also: `-reduce-from', `-reduce-r'"
(-reduce-from fn (car list) (cdr list))
(funcall fn)))
(defmacro --reduce-r-from (form initial-value list)
"Anaphoric version of `-reduce-r-from'."
(declare (debug (form form form)))
`(--reduce-from ,form ,initial-value (reverse ,list)))
(defun -reduce-r-from (fn initial-value list)
"Replace conses with FN, nil with INITIAL-VALUE and evaluate
the resulting expression. If LIST is empty, INITIAL-VALUE is
@ -247,20 +252,18 @@ Note: this function works the same as `-reduce-from' but the
operation associates from right instead of from left.
See also: `-reduce-r', `-reduce'"
(if (not list) initial-value
(funcall fn (car list) (-reduce-r-from fn initial-value (cdr list)))))
(--reduce-r-from (funcall fn it acc) initial-value list))
(defmacro --reduce-r-from (form initial-value list)
"Anaphoric version of `-reduce-r-from'."
(declare (debug (form form form)))
`(-reduce-r-from (lambda (&optional it acc) ,form) ,initial-value ,list))
(defmacro --reduce-r (form list)
"Anaphoric version of `-reduce-r'."
(declare (debug (form form)))
`(--reduce ,form (reverse ,list)))
(defun -reduce-r (fn list)
"Replace conses with FN and evaluate the resulting expression.
The final nil is ignored. If LIST contains no items, FN must
accept no arguments as well, and reduce return the result of
calling FN with no arguments. If LIST has only 1 item, it is
returned and FN is not called.
The final nil is ignored. If LIST contains no items, return the
result of calling FN with no arguments. If LIST contains a single
item, return that item and do not call FN.
The first argument of FN is the new item, the second is the
accumulated value.
@ -269,15 +272,9 @@ Note: this function works the same as `-reduce' but the operation
associates from right instead of from left.
See also: `-reduce-r-from', `-reduce'"
(cond
((not list) (funcall fn))
((not (cdr list)) (car list))
(t (funcall fn (car list) (-reduce-r fn (cdr list))))))
(defmacro --reduce-r (form list)
"Anaphoric version of `-reduce-r'."
(declare (debug (form form)))
`(-reduce-r (lambda (&optional it acc) ,form) ,list))
(if list
(--reduce-r (funcall fn it acc) list)
(funcall fn)))
(defun -reductions-from (fn init list)
"Return a list of the intermediate values of the reduction.
@ -293,7 +290,7 @@ See also: `-reductions', `-reductions-r', `-reduce-r'"
See `-reduce' for explanation of the arguments.
See also: `-reductions-from', `-reductions-r', `-reduce-r'"
(-reductions-from fn (car list) (cdr list)))
(and list (-reductions-from fn (car list) (cdr list))))
(defun -reductions-r-from (fn init list)
"Return a list of the intermediate values of the reduction.
@ -309,7 +306,11 @@ See also: `-reductions-r', `-reductions', `-reduce'"
See `-reduce-r' for explanation of the arguments.
See also: `-reductions-r-from', `-reductions', `-reduce'"
(-reductions-r-from fn (-last-item list) (-butlast list)))
(when list
(let ((rev (reverse list)))
(--reduce-from (cons (funcall fn it (car acc)) acc)
(list (car rev))
(cdr rev)))))
(defmacro --filter (form list)
"Anaphoric form of `-filter'.
@ -2311,6 +2312,10 @@ or with `-compare-fn' if that's non-nil."
(--reduce (--take-while (and acc (equal (pop acc) it)) it)
lists))
(defun -common-suffix (&rest lists)
"Return the longest common suffix of LISTS."
(nreverse (apply #'-common-prefix (mapcar #'reverse lists))))
(defun -contains? (list element)
"Return non-nil if LIST contains ELEMENT.
@ -2905,6 +2910,7 @@ structure such as plist or alist."
"-inits"
"-tails"
"-common-prefix"
"-common-suffix"
"-contains?"
"-contains-p"
"-same-items?"

View File

@ -3,7 +3,7 @@
;;; Code:
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "hydra" "hydra.el" (23441 26489 426362 307000))
;;;### (autoloads nil "hydra" "hydra.el" (23517 56142 130390 488000))
;;; Generated autoloads from hydra.el
(autoload 'defhydra "hydra" "\
@ -65,7 +65,7 @@ result of `defhydra'.
;;;***
;;;### (autoloads nil nil ("hydra-examples.el" "hydra-ox.el" "hydra-pkg.el"
;;;;;; "lv.el") (23441 26489 442362 364000))
;;;;;; "lv.el") (23517 56142 142390 549000))
;;;***

View File

@ -1,4 +1,4 @@
(define-package "hydra" "20180703.1502" "Make bindings that stick around."
(define-package "hydra" "20181030.1925" "Make bindings that stick around."
'((cl-lib "0.5"))
:keywords
'("bindings")

View File

@ -559,7 +559,7 @@ BODY, and HEADS are parameters to `defhydra'."
(heads-w-col (cl-remove-if-not (lambda (heads) (hydra--head-property (nth 0 heads) :column)) sorted-heads))
(heads-wo-col (cl-remove-if (lambda (heads) (hydra--head-property (nth 0 heads) :column)) sorted-heads)))
(concat (when heads-w-col
(concat "\n" (hydra--hint-from-matrix body (hydra--generate-matrix heads-w-col))))
(hydra--hint-from-matrix body (hydra--generate-matrix heads-w-col)))
(when heads-wo-col
(hydra--hint-heads-wocol body (car heads-wo-col))))))
@ -717,7 +717,7 @@ The expressions can be auto-expanded according to NAME."
(substring docstring (+ start offset 1 lspec varp))))))))
(cond
((string= docstring "")
(substring rest 1))
rest)
((eq ?\n (aref docstring 0))
`(concat (format ,(substring docstring 1) ,@(nreverse varlist))
,rest))

View File

@ -72,6 +72,7 @@ Only the background color is significant."
(setq window-size-fixed t)
(setq mode-line-format nil)
(setq cursor-type nil)
(setq display-line-numbers nil)
(set-window-dedicated-p lv-wnd t)
(set-window-parameter lv-wnd 'no-other-window t))
(select-window ori)))))

View File

@ -29,6 +29,14 @@
(require 'multiple-cursors-core)
(defcustom mc/insert-numbers-default 0
"The default number at which to start counting for
`mc/insert-numbers'"
:type 'integer
:group 'multiple-cursors)
(defvar mc--insert-numbers-number 0)
;;;###autoload
(defun mc/insert-numbers (arg)
"Insert increasing numbers for each cursor, starting at
@ -39,14 +47,6 @@
(mc/for-each-cursor-ordered
(mc/execute-command-for-fake-cursor 'mc--insert-number-and-increase cursor)))
(defcustom mc/insert-numbers-default 0
"The default number at which to start counting for
`mc/insert-numbers'"
:type 'integer
:group 'multiple-cursors)
(defvar mc--insert-numbers-number 0)
(defun mc--insert-number-and-increase ()
(interactive)
(insert (number-to-string mc--insert-numbers-number))
@ -61,6 +61,8 @@
(mc/cursor-end cursor)) strings))))
(nreverse strings)))
(defvar mc--insert-letters-number 0)
;;;###autoload
(defun mc/insert-letters (arg)
"Insert increasing letters for each cursor, starting at 0 or ARG.
@ -80,8 +82,6 @@
(concat (mc--number-to-letters (- number2 1)) letter)
letter)))
(defvar mc--insert-letters-number 0)
(defun mc--insert-letter-and-increase ()
(interactive)
(insert (mc--number-to-letters mc--insert-letters-number))
@ -138,18 +138,13 @@ Might not behave as intended if more than one cursors are on the same line."
(interactive)
(let ((missing-spaces (- rightest-column (current-column))))
(save-excursion (insert (make-string missing-spaces character)))
(forward-char missing-spaces)
)
))
)
)
(forward-char missing-spaces))))))
;;;###autoload
(defun mc/vertical-align-with-space ()
"Aligns all cursors with whitespace like `mc/vertical-align' does"
(interactive)
(mc/vertical-align 32)
)
(mc/vertical-align 32))
(provide 'mc-separate-operations)
;;; mc-separate-operations.el ends here

View File

@ -3,8 +3,8 @@
;;; Code:
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "mc-edit-lines" "mc-edit-lines.el" (23441 26442
;;;;;; 494078 132000))
;;;### (autoloads nil "mc-edit-lines" "mc-edit-lines.el" (23517 56120
;;;;;; 926283 899000))
;;; Generated autoloads from mc-edit-lines.el
(autoload 'mc/edit-lines "mc-edit-lines" "\
@ -34,7 +34,7 @@ Add one cursor to the beginning of each line in the active region.
;;;***
;;;### (autoloads nil "mc-hide-unmatched-lines-mode" "mc-hide-unmatched-lines-mode.el"
;;;;;; (23441 26442 558078 546000))
;;;;;; (23517 56120 982284 180000))
;;; Generated autoloads from mc-hide-unmatched-lines-mode.el
(autoload 'mc-hide-unmatched-lines-mode "mc-hide-unmatched-lines-mode" "\
@ -48,8 +48,8 @@ mode. To leave this mode press <return> or \"C-g\"
;;;***
;;;### (autoloads nil "mc-mark-more" "mc-mark-more.el" (23441 26442
;;;;;; 510078 235000))
;;;### (autoloads nil "mc-mark-more" "mc-mark-more.el" (23517 56120
;;;;;; 954284 39000))
;;; Generated autoloads from mc-mark-more.el
(autoload 'mc/mark-next-like-this "mc-mark-more" "\
@ -246,8 +246,8 @@ Mark the tag we're in and its pair for renaming.
;;;***
;;;### (autoloads nil "mc-mark-pop" "mc-mark-pop.el" (23441 26442
;;;;;; 562078 571000))
;;;### (autoloads nil "mc-mark-pop" "mc-mark-pop.el" (23517 56120
;;;;;; 986284 200000))
;;; Generated autoloads from mc-mark-pop.el
(autoload 'mc/mark-pop "mc-mark-pop" "\
@ -259,7 +259,7 @@ to the popped mark.
;;;***
;;;### (autoloads nil "mc-separate-operations" "mc-separate-operations.el"
;;;;;; (23441 26442 486078 80000))
;;;;;; (23517 56120 910283 818000))
;;; Generated autoloads from mc-separate-operations.el
(autoload 'mc/insert-numbers "mc-separate-operations" "\
@ -299,7 +299,7 @@ Aligns all cursors with whitespace like `mc/vertical-align' does
;;;***
;;;### (autoloads nil "multiple-cursors-core" "multiple-cursors-core.el"
;;;;;; (23441 26442 534078 390000))
;;;;;; (23517 56120 966284 100000))
;;; Generated autoloads from multiple-cursors-core.el
(autoload 'multiple-cursors-mode "multiple-cursors-core" "\
@ -310,7 +310,7 @@ Mode while multiple cursors are active.
;;;***
;;;### (autoloads nil "rectangular-region-mode" "rectangular-region-mode.el"
;;;;;; (23441 26442 546078 468000))
;;;;;; (23517 56120 974284 140000))
;;; Generated autoloads from rectangular-region-mode.el
(autoload 'set-rectangular-region-anchor "rectangular-region-mode" "\
@ -329,7 +329,7 @@ A mode for creating a rectangular region to edit
;;;***
;;;### (autoloads nil nil ("mc-cycle-cursors.el" "multiple-cursors-pkg.el"
;;;;;; "multiple-cursors.el") (23441 26442 522078 313000))
;;;;;; "multiple-cursors.el") (23517 56120 958284 59000))
;;;***

View File

@ -1,4 +1,4 @@
(define-package "multiple-cursors" "20180615.1218" "Multiple cursors for Emacs."
(define-package "multiple-cursors" "20180913.1237" "Multiple cursors for Emacs."
'((cl-lib "0.5")))
;; Local Variables:
;; no-byte-compile: t