[ELPA] Update

This commit is contained in:
Daniel - 2019-07-27 17:27:28 +02:00
parent 27ef9d83d4
commit 4a84c9bc5e
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
28 changed files with 71 additions and 32 deletions

View File

@ -1,2 +0,0 @@
;;; -*- no-byte-compile: t -*-
(define-package "exec-path-from-shell" "20190106.307" "Get environment variables such as $PATH from the shell" 'nil :commit "76cd6e3fa8a7dac937af7e40507843dfae4f9184" :keywords '("unix" "environment") :authors '(("Steve Purcell" . "steve@sanityinc.com")) :maintainer '("Steve Purcell" . "steve@sanityinc.com") :url "https://github.com/purcell/exec-path-from-shell")

View File

@ -0,0 +1,2 @@
;;; -*- no-byte-compile: t -*-
(define-package "exec-path-from-shell" "20190426.2227" "Get environment variables such as $PATH from the shell" 'nil :commit "3cfedb8791397ed50ee66bc0a7cbee5b9d78245c" :keywords '("unix" "environment") :authors '(("Steve Purcell" . "steve@sanityinc.com")) :maintainer '("Steve Purcell" . "steve@sanityinc.com") :url "https://github.com/purcell/exec-path-from-shell")

View File

@ -5,7 +5,7 @@
;; Author: Steve Purcell <steve@sanityinc.com>
;; Keywords: unix, environment
;; URL: https://github.com/purcell/exec-path-from-shell
;; Package-Version: 20190106.307
;; Package-Version: 20190426.2227
;; Package-X-Original-Version: 0
;; This file is not part of GNU Emacs.
@ -181,6 +181,8 @@ shell-escaped, so they may contain $ etc."
Execute the shell according to `exec-path-from-shell-arguments'.
The result is a list of (NAME . VALUE) pairs."
(when (file-remote-p default-directory)
(error "You cannot run exec-path-from-shell from a remote buffer (Tramp, etc.)"))
(let* ((random-default (md5 (format "%s%s%s" (emacs-pid) (random) (current-time))))
(dollar-names (mapcar (lambda (n) (format "${%s-%s}" n random-default)) names))
(values (split-string (exec-path-from-shell-printf

View File

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

View File

@ -5,7 +5,7 @@
;; Author: Oleh Krehel <ohwoeowho@gmail.com>
;; Maintainer: Oleh Krehel <ohwoeowho@gmail.com>
;; URL: https://github.com/abo-abo/hydra
;; Version: 0.14.0
;; Version: 0.15.0
;; Keywords: bindings
;; Package-Requires: ((cl-lib "0.5") (lv "0"))
@ -211,15 +211,33 @@ the body or the head."
(declare-function posframe-hide "posframe")
(declare-function posframe-poshandler-window-center "posframe")
(defvar hydra-posframe-show-params
'(:internal-border-width 1
:internal-border-color "red"
:poshandler posframe-poshandler-window-center)
"List of parameters passed to `posframe-show'.")
(defvar hydra--posframe-timer nil
"Timer for hiding posframe hint.")
(defun hydra-posframe-show (str)
(require 'posframe)
(posframe-show
" *hydra-posframe*"
:string str
:poshandler #'posframe-poshandler-window-center))
(when hydra--posframe-timer
(cancel-timer hydra--posframe-timer))
(setq hydra--posframe-timer nil)
(apply #'posframe-show
" *hydra-posframe*"
:string str
hydra-posframe-show-params))
(defun hydra-posframe-hide ()
(posframe-hide " *hydra-posframe*"))
(require 'posframe)
(unless hydra--posframe-timer
(setq hydra--posframe-timer
(run-with-idle-timer
0 nil (lambda ()
(setq hydra--posframe-timer nil)
(posframe-hide " *hydra-posframe*"))))))
(defvar hydra-hint-display-alist
(list (list 'lv #'lv-message #'lv-delete-window)
@ -315,18 +333,19 @@ Exitable only through a blue head.")
(around hydra-around-find-function-search-for-symbol-advice
(symbol type library) activate)
"Navigate to hydras with `find-function-search-for-symbol'."
ad-do-it
;; The orignial function returns (cons (current-buffer) (point))
;; if it found the point.
(unless (cdr ad-return-value)
(with-current-buffer (find-file-noselect library)
(let ((sn (symbol-name symbol)))
(when (and (null type)
(string-match "\\`\\(hydra-[a-z-A-Z0-9]+\\)/\\(.*\\)\\'" sn)
(re-search-forward (concat "(defhydra " (match-string 1 sn))
nil t))
(goto-char (match-beginning 0)))
(cons (current-buffer) (point)))))))
(prog1 ad-do-it
(when (symbolp symbol)
;; The orignial function returns (cons (current-buffer) (point))
;; if it found the point.
(unless (cdr ad-return-value)
(with-current-buffer (find-file-noselect library)
(let ((sn (symbol-name symbol)))
(when (and (null type)
(string-match "\\`\\(hydra-[a-z-A-Z0-9]+\\)/\\(.*\\)\\'" sn)
(re-search-forward (concat "(defhydra " (match-string 1 sn))
nil t))
(goto-char (match-beginning 0)))
(cons (current-buffer) (point)))))))))
;;* Universal Argument
(defvar hydra-base-map

View File

@ -1,2 +0,0 @@
;;; -*- no-byte-compile: t -*-
(define-package "lv" "20181110.1740" "Other echo area" 'nil :commit "480ae6313763a6af6dab85ed629aff2e2037bef0" :authors '(("Oleh Krehel")) :maintainer '("Oleh Krehel"))

View File

@ -0,0 +1,2 @@
;;; -*- no-byte-compile: t -*-
(define-package "lv" "20190716.1741" "Other echo area" 'nil :commit "a91dd72529aadd2d3cc14e132a3e0545eb2975a6" :authors '(("Oleh Krehel")) :maintainer '("Oleh Krehel"))

View File

@ -1,5 +1,5 @@
;;; lv.el --- Other echo area
;; Package-Version: 20181110.1740
;; Package-Version: 20190716.1741
;; Copyright (C) 2015 Free Software Foundation, Inc.
@ -74,6 +74,7 @@ Only the background color is significant."
(set-window-hscroll lv-wnd 0)
(setq window-size-fixed t)
(setq mode-line-format nil)
(setq header-line-format nil)
(setq cursor-type nil)
(setq display-line-numbers nil)
(set-window-dedicated-p lv-wnd t)

View File

@ -20,6 +20,12 @@ Mode-line indicator for `page-break-lines-mode'.")
(custom-autoload 'page-break-lines-lighter "page-break-lines" t)
(defvar page-break-lines-max-width nil "\
If non-nil, maximum width (in characters) of page break indicator.
If nil, indicator will span the width of the frame.")
(custom-autoload 'page-break-lines-max-width "page-break-lines" t)
(defvar page-break-lines-modes '(emacs-lisp-mode lisp-mode scheme-mode compilation-mode outline-mode help-mode) "\
Modes in which to enable `page-break-lines-mode'.")
@ -35,7 +41,7 @@ displayed as a junk character." :group (quote page-break-lines))
Toggle Page Break Lines mode.
In Page Break mode, page breaks (^L characters) are displayed as a
horizontal line of `page-break-string-char' characters.
horizontal line of `page-break-lines-char' characters.
\(fn &optional ARG)" t nil)

View File

@ -1,2 +1,2 @@
;;; -*- no-byte-compile: t -*-
(define-package "page-break-lines" "20181221.2308" "Display ^L page breaks as tidy horizontal lines" '((emacs "24.4")) :commit "87e801efb816b24e83ebf84c052001e178e180bc" :keywords '("convenience" "faces") :authors '(("Steve Purcell" . "steve@sanityinc.com")) :maintainer '("Steve Purcell" . "steve@sanityinc.com") :url "https://github.com/purcell/page-break-lines")
(define-package "page-break-lines" "20190519.2238" "Display ^L page breaks as tidy horizontal lines" '((emacs "24.4")) :commit "6f19d894bda6a981c10a58df5e23419f4d2ba353" :keywords '("convenience" "faces") :authors '(("Steve Purcell" . "steve@sanityinc.com")) :maintainer '("Steve Purcell" . "steve@sanityinc.com") :url "https://github.com/purcell/page-break-lines")

View File

@ -4,7 +4,7 @@
;; Author: Steve Purcell <steve@sanityinc.com>
;; URL: https://github.com/purcell/page-break-lines
;; Package-Version: 20181221.2308
;; Package-Version: 20190519.2238
;; Package-X-Original-Version: 0
;; Package-Requires: ((emacs "24.4"))
;; Keywords: convenience, faces
@ -76,6 +76,13 @@
:type '(choice (const :tag "No lighter" "") string)
:group 'page-break-lines)
;;;###autoload
(defcustom page-break-lines-max-width nil
"If non-nil, maximum width (in characters) of page break indicator.
If nil, indicator will span the width of the frame."
:type '(choice integer (const :tag "Full width" nil))
:group 'page-break-lines)
;;;###autoload
(defcustom page-break-lines-modes
'(emacs-lisp-mode lisp-mode scheme-mode compilation-mode outline-mode help-mode)
@ -99,7 +106,7 @@ displayed as a junk character."
"Toggle Page Break Lines mode.
In Page Break mode, page breaks (^L characters) are displayed as a
horizontal line of `page-break-string-char' characters."
horizontal line of `page-break-lines-char' characters."
:lighter page-break-lines-lighter
:group 'page-break-lines
(page-break-lines--update-display-tables))
@ -134,6 +141,9 @@ its display table will be modified as necessary."
0)))
(width (- (/ wwidth-pix (frame-char-width) cwidth)
(if (display-graphic-p) 0 1)))
(width (if page-break-lines-max-width
(min width page-break-lines-max-width)
width))
(glyph (make-glyph-code page-break-lines-char 'page-break-lines))
(new-display-entry (vconcat (make-list width glyph))))
(unless (equal new-display-entry (elt buffer-display-table ?\^L))

View File

@ -651,7 +651,8 @@ extending any keys already present."
,(when (eq use-package-verbose 'debug)
`(message ,(format "Compiling package %s" name-string)))
,(unless (plist-get args :no-require)
`(load ,name-string nil t)))))))))
`(unless (featurep ',name-symbol)
(load ,name-string nil t))))))))))
;; Certain keywords imply :defer, if :demand was not specified.
(when (and (not (plist-member args :demand))
@ -1419,7 +1420,7 @@ no keyword implies `:all'."
(defun use-package-handler/:custom-face (name _keyword args rest state)
"Generate use-package custom-face keyword code."
(use-package-concat
(mapcar #'(lambda (def) `(custom-set-faces (quote ,def))) args)
(mapcar #'(lambda (def) `(custom-set-faces (backquote ,def))) args)
(use-package-process-keywords name rest state)))
;;;; :init

View File

@ -1,4 +1,4 @@
(define-package "use-package" "20190405.2047" "A configuration macro for simplifying your .emacs"
(define-package "use-package" "20190716.1829" "A configuration macro for simplifying your .emacs"
'((emacs "24.3")
(bind-key "2.4"))
:keywords