Upgrade packages
This commit is contained in:
Marcus Kammer
parent
4da9c0a004
commit
89bec71cd5
1128 changed files with 6566 additions and 2769 deletions
|
|
@ -9,7 +9,7 @@
|
|||
'(column-number-mode t)
|
||||
'(custom-safe-themes
|
||||
(quote
|
||||
("4c0739c6ad6fd91ebd737f8f40527d279cc5f85bc286a7c0d7467b4a6ba53166" "6096a2f93610f29bf0f6fe34307587edd21edec95073cbfcfb9d7a3b9206b399" "bffa9739ce0752a37d9b1eee78fc00ba159748f50dc328af4be661484848e476" "64d8237b42b3b01f1487a908836574a5e531ea5efab54b9afa19fb8fda471ab3" "4bdc0dfc53ae06323e031baf691f414babf13c9c9c35014dd07bb42c4db27c24" "d6c5b8dc6049f2e9dabdfcafa9ef2079352640e80dffe3e6cc07c0f89cbf9748" "fa2b58bb98b62c3b8cf3b6f02f058ef7827a8e497125de0254f56e373abee088" "fa2af0c40576f3bde32290d7f4e7aa865eb6bf7ebe31eb9e37c32aa6f4ae8d10" "e396098fd5bef4f0dd6cedd01ea48df1ecb0554d8be0d8a924fb1d926f02f90f" "acfac6b14461a344f97fad30e2362c26a3fe56a9f095653832d8fc029cb9d05c" "85d1dbf2fc0e5d30f236712b831fb24faf6052f3114964fdeadede8e1b329832" "4639288d273cbd3dc880992e6032f9c817f17c4a91f00f3872009a099f5b3f84" "14c848e2c4a0a11fcd118e2519078aa50bb6020f89035423b40fff421fb24fbd" "cdb4ffdecc682978da78700a461cdc77456c3a6df1c1803ae2dd55c59fa703e3" "9e31aff9afe3c20a33dd966b4c54c6a5151f07659362e4b06bde38ded5370dae" "24fc62afe2e5f0609e436aa2427b396adf9a958a8fa660edbaab5fb13c08aae6" "82358261c32ebedfee2ca0f87299f74008a2e5ba5c502bde7aaa15db20ee3731" "4515feff287a98863b7b7f762197a78a7c2bfb6ec93879e7284dff184419268c" default)))
|
||||
("7f6d4aebcc44c264a64e714c3d9d1e903284305fd7e319e7cb73345a9994f5ef" "4c0739c6ad6fd91ebd737f8f40527d279cc5f85bc286a7c0d7467b4a6ba53166" "6096a2f93610f29bf0f6fe34307587edd21edec95073cbfcfb9d7a3b9206b399" "bffa9739ce0752a37d9b1eee78fc00ba159748f50dc328af4be661484848e476" "64d8237b42b3b01f1487a908836574a5e531ea5efab54b9afa19fb8fda471ab3" "4bdc0dfc53ae06323e031baf691f414babf13c9c9c35014dd07bb42c4db27c24" "d6c5b8dc6049f2e9dabdfcafa9ef2079352640e80dffe3e6cc07c0f89cbf9748" "fa2b58bb98b62c3b8cf3b6f02f058ef7827a8e497125de0254f56e373abee088" "fa2af0c40576f3bde32290d7f4e7aa865eb6bf7ebe31eb9e37c32aa6f4ae8d10" "e396098fd5bef4f0dd6cedd01ea48df1ecb0554d8be0d8a924fb1d926f02f90f" "acfac6b14461a344f97fad30e2362c26a3fe56a9f095653832d8fc029cb9d05c" "85d1dbf2fc0e5d30f236712b831fb24faf6052f3114964fdeadede8e1b329832" "4639288d273cbd3dc880992e6032f9c817f17c4a91f00f3872009a099f5b3f84" "14c848e2c4a0a11fcd118e2519078aa50bb6020f89035423b40fff421fb24fbd" "cdb4ffdecc682978da78700a461cdc77456c3a6df1c1803ae2dd55c59fa703e3" "9e31aff9afe3c20a33dd966b4c54c6a5151f07659362e4b06bde38ded5370dae" "24fc62afe2e5f0609e436aa2427b396adf9a958a8fa660edbaab5fb13c08aae6" "82358261c32ebedfee2ca0f87299f74008a2e5ba5c502bde7aaa15db20ee3731" "4515feff287a98863b7b7f762197a78a7c2bfb6ec93879e7284dff184419268c" default)))
|
||||
'(default-frame-alist
|
||||
(quote
|
||||
((fullscreen . maximized)
|
||||
|
|
|
|||
|
|
@ -206,16 +206,16 @@
|
|||
(:maintainer "Raffael Stocker" . "r.stocker@mnet-mail.de")
|
||||
(:url . "https://gitlab.com/rstocker/emacs-bluetooth"))])
|
||||
(bnf-mode .
|
||||
[(0 4 2)
|
||||
[(0 4 3)
|
||||
((cl-lib
|
||||
(0 5))
|
||||
(emacs
|
||||
(24 3)))
|
||||
"Major mode for editing BNF grammars." tar
|
||||
((:url . "https://github.com/sergeyklay/bnf-mode")
|
||||
(:maintainer "Serghei Iakovlev" . "sadhooklay@gmail.com")
|
||||
(:maintainer "Serghei Iakovlev" . "egrep@protonmail.ch")
|
||||
(:authors
|
||||
("Serghei Iakovlev" . "sadhooklay@gmail.com"))
|
||||
("Serghei Iakovlev" . "egrep@protonmail.ch"))
|
||||
(:keywords "languages"))])
|
||||
(brief .
|
||||
[(5 87)
|
||||
|
|
@ -334,7 +334,7 @@
|
|||
(:maintainer "Clément Pit-Claudel" . "clement.pitclaudel@live.com")
|
||||
(:url . "https://github.com/cpitclaudel/compact-docstrings"))])
|
||||
(company .
|
||||
[(0 9 10)
|
||||
[(0 9 11)
|
||||
((emacs
|
||||
(24 3)))
|
||||
"Modular text completion framework" tar
|
||||
|
|
@ -445,7 +445,7 @@
|
|||
("Daiki Ueno" . "ueno@gnu.org"))
|
||||
(:maintainer nil . "emacs-devel@gnu.org"))])
|
||||
(debbugs .
|
||||
[(0 21)
|
||||
[(0 22)
|
||||
((emacs
|
||||
(25 1))
|
||||
(soap-client
|
||||
|
|
@ -581,7 +581,7 @@
|
|||
("Leo Liu" . "sdl.web@gmail.com"))
|
||||
(:keywords "killing" "convenience"))])
|
||||
(ebdb .
|
||||
[(0 6 11)
|
||||
[(0 6 13)
|
||||
((emacs
|
||||
(25 1))
|
||||
(cl-lib
|
||||
|
|
@ -1321,7 +1321,7 @@
|
|||
("Artur Malabarba" . "emacs@endlessparentheses.com"))
|
||||
(:keywords "extensions" "lisp"))])
|
||||
(nhexl-mode .
|
||||
[(1 4)
|
||||
[(1 5)
|
||||
((emacs
|
||||
(24 4))
|
||||
(cl-lib
|
||||
|
|
@ -1372,7 +1372,7 @@
|
|||
("Julien Danjou" . "julien@danjou.info"))
|
||||
(:maintainer "Julien Danjou" . "julien@danjou.info"))])
|
||||
(objed .
|
||||
[(0 8 1)
|
||||
[(0 8 3)
|
||||
((emacs
|
||||
(25))
|
||||
(cl-lib
|
||||
|
|
@ -1411,10 +1411,10 @@
|
|||
(:maintainer "Michael Heerdegen" . "michael_heerdegen@web.de")
|
||||
(:url . "https://github.com/michael-heerdegen/on-screen.el"))])
|
||||
(org .
|
||||
[(9 3 1)
|
||||
[(9 3 2)
|
||||
nil "Outline-based notes management and organizer" tar
|
||||
((:url . "https://orgmode.org")
|
||||
(:maintainer "Carsten Dominik <carsten at orgmode dot org>")
|
||||
(:maintainer "Bastien Guerry <bzg at gnu dot org>")
|
||||
(:authors
|
||||
("Carsten Dominik <carsten at orgmode dot org>"))
|
||||
(:keywords "outlines" "hypermedia" "calendar" "wp"))])
|
||||
|
|
@ -1433,7 +1433,7 @@
|
|||
("Ian Dunn" . "dunni@gnu.org"))
|
||||
(:keywords "convenience" "text" "org"))])
|
||||
(orgalist .
|
||||
[(1 9)
|
||||
[(1 11)
|
||||
((emacs
|
||||
(24 4)))
|
||||
"Manage Org-like lists in non-Org buffers" single
|
||||
|
|
@ -1517,7 +1517,7 @@
|
|||
("Phillip Lord" . "phillip.lord@russet.org.uk"))
|
||||
(:url . "http://elpa.gnu.org/packages/persist.html"))])
|
||||
(phps-mode .
|
||||
[(0 3 27)
|
||||
[(0 3 28)
|
||||
((emacs
|
||||
(26)))
|
||||
"Major mode for PHP with Semantic integration" tar
|
||||
|
|
@ -1735,9 +1735,9 @@
|
|||
("Bastien Guerry" . "bzg@gnu.org"))
|
||||
(:maintainer "Bastien Guerry" . "bzg@gnu.org"))])
|
||||
(relint .
|
||||
[(1 11)
|
||||
[(1 12)
|
||||
((xr
|
||||
(1 13)))
|
||||
(1 14)))
|
||||
"Elisp regexp mistake finder" tar
|
||||
((:url . "https://github.com/mattiase/relint")
|
||||
(:maintainer "Mattias Engdegård" . "mattiase@acm.org")
|
||||
|
|
@ -1944,9 +1944,9 @@
|
|||
(svg-clock .
|
||||
[(1 1)
|
||||
((svg
|
||||
(0 1))
|
||||
(1 0))
|
||||
(emacs
|
||||
(25 0)))
|
||||
(27 0)))
|
||||
"Analog clock using Scalable Vector Graphics" single
|
||||
((:url . "http://elpa.gnu.org/packages/svg-clock.html")
|
||||
(:keywords "demo" "svg" "clock")
|
||||
|
|
@ -2010,7 +2010,7 @@
|
|||
("Oleh Krehel" . "ohwoeowho@gmail.com"))
|
||||
(:keywords "convenience"))])
|
||||
(tramp .
|
||||
[(2 4 2 5)
|
||||
[(2 4 3 1)
|
||||
((emacs
|
||||
(24 4)))
|
||||
"Transparent Remote Access, Multiple Protocol" tar
|
||||
|
|
@ -2050,7 +2050,7 @@
|
|||
(:maintainer "Toby Cubitt" . "toby-predictive@dr-qubit.org")
|
||||
(:url . "http://www.dr-qubit.org/emacs.php"))])
|
||||
(undo-tree .
|
||||
[(0 6 5)
|
||||
[(0 7 4)
|
||||
nil "Treat undo history as a tree" single
|
||||
((:keywords "convenience" "files" "undo" "redo" "history" "tree")
|
||||
(:authors
|
||||
|
|
@ -2063,7 +2063,7 @@
|
|||
((:maintainer "Teodor Zlatanov" . "tzz@lifelogs.com")
|
||||
(:url . "http://elpa.gnu.org/packages/uni-confusables.html"))])
|
||||
(uniquify-files .
|
||||
[(1 0 1)
|
||||
[(1 0 2)
|
||||
((emacs
|
||||
(25 0)))
|
||||
"Completion style for files, minimizing directories" tar
|
||||
|
|
@ -2160,14 +2160,6 @@
|
|||
((:url . "https://github.com/m00natic/vlfi")
|
||||
(:maintainer "Andrey Kotlarski" . "m00naticus@gmail.com")
|
||||
(:keywords "large files" "utilities"))])
|
||||
(w3 .
|
||||
[(4 0 49)
|
||||
nil "Fully customizable, largely undocumented web browser for Emacs" tar
|
||||
((:maintainer "William Perry and many more")
|
||||
(:authors
|
||||
("William Perry and many more"))
|
||||
(:keywords "faces" "help" "comm" "news" "mail" "processes" "mouse" "hypermedia")
|
||||
(:url . "http://elpa.gnu.org/packages/w3.html"))])
|
||||
(wcheck-mode .
|
||||
[(2019 6 17)
|
||||
nil "General interface for text checkers" single
|
||||
|
|
@ -2305,7 +2297,7 @@
|
|||
("Thien-Thi Nguyen" . "ttn@gnu.org"))
|
||||
(:keywords "multimedia" "xpm"))])
|
||||
(xr .
|
||||
[(1 13)
|
||||
[(1 14)
|
||||
nil "Convert string regexp to rx notation" tar
|
||||
((:url . "https://github.com/mattiase/xr")
|
||||
(:maintainer "Mattias Engdegård" . "mattiase@acm.org")
|
||||
|
|
|
|||
|
|
@ -1 +1 @@
|
|||
Good signature from 066DAFCB81E42C40 GNU ELPA Signing Agent (2019) <elpasign@elpa.gnu.org> (trust undefined) created at 2019-12-07T23:05:03+0100 using RSA
|
||||
Good signature from 066DAFCB81E42C40 GNU ELPA Signing Agent (2019) <elpasign@elpa.gnu.org> (trust undefined) created at 2020-01-29T11:05:03+0100 using RSA
|
||||
|
|
@ -91,9 +91,9 @@ All *.elc files are systematically deleted before proceeding."
|
|||
(cl-incf n)))
|
||||
(if (> n 0)
|
||||
(message "Failed to compile %d files in directory `%s'" n directory)
|
||||
(message "Directory `%s' compiled asynchronously with warnings" directory)))))
|
||||
(unless quiet
|
||||
(message "Directory `%s' compiled asynchronously with success" directory))))))
|
||||
(message "Directory `%s' compiled asynchronously with warnings" directory)))))
|
||||
(unless quiet
|
||||
(message "Directory `%s' compiled asynchronously with success" directory))))))
|
||||
(async-start
|
||||
`(lambda ()
|
||||
(require 'bytecomp)
|
||||
|
|
@ -151,18 +151,18 @@ All *.elc files are systematically deleted before proceeding."
|
|||
;; `async-byte-recompile-directory' will add directory
|
||||
;; as needed to `load-path'.
|
||||
(async-byte-recompile-directory (package-desc-dir pkg-desc) t))
|
||||
ad-do-it)))
|
||||
ad-do-it)))
|
||||
|
||||
;;;###autoload
|
||||
(define-minor-mode async-bytecomp-package-mode
|
||||
"Byte compile asynchronously packages installed with package.el.
|
||||
"Byte compile asynchronously packages installed with package.el.
|
||||
Async compilation of packages can be controlled by
|
||||
`async-bytecomp-allowed-packages'."
|
||||
:group 'async
|
||||
:global t
|
||||
(if async-bytecomp-package-mode
|
||||
(ad-activate 'package--compile)
|
||||
(ad-deactivate 'package--compile)))
|
||||
(ad-deactivate 'package--compile)))
|
||||
|
||||
;;;###autoload
|
||||
(defun async-byte-compile-file (file)
|
||||
Binary file not shown.
|
|
@ -1,4 +1,4 @@
|
|||
(define-package "async" "20191226.1227" "Asynchronous processing in Emacs"
|
||||
(define-package "async" "20200113.1745" "Asynchronous processing in Emacs"
|
||||
'((emacs "24.3"))
|
||||
:keywords
|
||||
'("async")
|
||||
|
|
@ -87,7 +87,7 @@ is returned unmodified."
|
|||
(t object)))
|
||||
|
||||
(defun async-inject-variables
|
||||
(include-regexp &optional predicate exclude-regexp noprops)
|
||||
(include-regexp &optional predicate exclude-regexp noprops)
|
||||
"Return a `setq' form that replicates part of the calling environment.
|
||||
|
||||
It sets the value for every variable matching INCLUDE-REGEXP and
|
||||
|
|
@ -177,8 +177,8 @@ It is intended to be used as follows:
|
|||
(defun async--receive-sexp (&optional stream)
|
||||
(let ((sexp (decode-coding-string (base64-decode-string
|
||||
(read stream)) 'utf-8-auto))
|
||||
;; Parent expects UTF-8 encoded text.
|
||||
(coding-system-for-write 'utf-8-auto))
|
||||
;; Parent expects UTF-8 encoded text.
|
||||
(coding-system-for-write 'utf-8-auto))
|
||||
(if async-debug
|
||||
(message "Received sexp {{{%s}}}" (pp-to-string sexp)))
|
||||
(setq sexp (read sexp))
|
||||
|
|
@ -188,9 +188,9 @@ It is intended to be used as follows:
|
|||
|
||||
(defun async--insert-sexp (sexp)
|
||||
(let (print-level
|
||||
print-length
|
||||
(print-escape-nonascii t)
|
||||
(print-circle t))
|
||||
print-length
|
||||
(print-escape-nonascii t)
|
||||
(print-circle t))
|
||||
(prin1 sexp (current-buffer))
|
||||
;; Just in case the string we're sending might contain EOF
|
||||
(encode-coding-region (point-min) (point-max) 'utf-8-auto)
|
||||
|
|
@ -211,17 +211,17 @@ It is intended to be used as follows:
|
|||
;; process expects.
|
||||
(let ((coding-system-for-write 'utf-8-auto))
|
||||
(setq async-in-child-emacs t
|
||||
debug-on-error async-debug)
|
||||
debug-on-error async-debug)
|
||||
(if debug-on-error
|
||||
(prin1 (funcall
|
||||
(async--receive-sexp (unless async-send-over-pipe
|
||||
command-line-args-left))))
|
||||
(prin1 (funcall
|
||||
(async--receive-sexp (unless async-send-over-pipe
|
||||
command-line-args-left))))
|
||||
(condition-case err
|
||||
(prin1 (funcall
|
||||
(async--receive-sexp (unless async-send-over-pipe
|
||||
command-line-args-left))))
|
||||
(error
|
||||
(prin1 (list 'async-signal err)))))))
|
||||
(prin1 (funcall
|
||||
(async--receive-sexp (unless async-send-over-pipe
|
||||
command-line-args-left))))
|
||||
(error
|
||||
(prin1 (list 'async-signal err)))))))
|
||||
|
||||
(defun async-ready (future)
|
||||
"Query a FUTURE to see if it is ready.
|
||||
|
|
@ -233,7 +233,7 @@ would result from a call to `async-get' on that FUTURE."
|
|||
(if (buffer-live-p buf)
|
||||
(with-current-buffer buf
|
||||
async-callback-value-set)
|
||||
t))))
|
||||
t))))
|
||||
|
||||
(defun async-wait (future)
|
||||
"Wait for FUTURE to become ready."
|
||||
|
|
@ -341,8 +341,8 @@ passed to FINISH-FUNC). Call `async-get' on such a future always
|
|||
returns nil. It can still be useful, however, as an argument to
|
||||
`async-ready' or `async-wait'."
|
||||
(let ((sexp start-func)
|
||||
;; Subordinate Emacs will send text encoded in UTF-8.
|
||||
(coding-system-for-read 'utf-8-auto))
|
||||
;; Subordinate Emacs will send text encoded in UTF-8.
|
||||
(coding-system-for-read 'utf-8-auto))
|
||||
(setq async--procvar
|
||||
(async-start-process
|
||||
"emacs" (file-truename
|
||||
|
|
@ -356,9 +356,9 @@ returns nil. It can still be useful, however, as an argument to
|
|||
"-batch" "-f" "async-batch-invoke"
|
||||
(if async-send-over-pipe
|
||||
"<none>"
|
||||
(with-temp-buffer
|
||||
(async--insert-sexp (list 'quote sexp))
|
||||
(buffer-string)))))
|
||||
(with-temp-buffer
|
||||
(async--insert-sexp (list 'quote sexp))
|
||||
(buffer-string)))))
|
||||
(if async-send-over-pipe
|
||||
(async--transmit-sexp async--procvar (list 'quote sexp)))
|
||||
async--procvar))
|
||||
|
|
@ -373,7 +373,7 @@ returns nil. It can still be useful, however, as an argument to
|
|||
(setq res (funcall fn res
|
||||
(if (listp binding)
|
||||
binding
|
||||
(list binding)))))
|
||||
(list binding)))))
|
||||
res))
|
||||
|
||||
(defmacro async-let (bindings &rest forms)
|
||||
|
|
@ -75,22 +75,22 @@ Should take same args as `message'."
|
|||
:type 'sexp)
|
||||
|
||||
(defface dired-async-message
|
||||
'((t (:foreground "yellow")))
|
||||
'((t (:foreground "yellow")))
|
||||
"Face used for mode-line message."
|
||||
:group 'dired-async)
|
||||
|
||||
(defface dired-async-failures
|
||||
'((t (:foreground "red")))
|
||||
'((t (:foreground "red")))
|
||||
"Face used for mode-line message."
|
||||
:group 'dired-async)
|
||||
|
||||
(defface dired-async-mode-message
|
||||
'((t (:foreground "Gold")))
|
||||
'((t (:foreground "Gold")))
|
||||
"Face used for `dired-async--modeline-mode' lighter."
|
||||
:group 'dired-async)
|
||||
|
||||
(define-minor-mode dired-async--modeline-mode
|
||||
"Notify mode-line that an async process run."
|
||||
"Notify mode-line that an async process run."
|
||||
:group 'dired-async
|
||||
:global t
|
||||
:lighter (:eval (propertize (format " [%s Async job(s) running]"
|
||||
|
|
@ -106,7 +106,7 @@ Should take same args as `message'."
|
|||
" " (propertize
|
||||
(if args
|
||||
(apply #'format text args)
|
||||
text)
|
||||
text)
|
||||
'face face))))
|
||||
(force-mode-line-update)
|
||||
(sit-for 3)
|
||||
|
|
@ -143,35 +143,35 @@ Should take same args as `message'."
|
|||
(special-mode)
|
||||
(shrink-window-if-larger-than-buffer)
|
||||
(delete-file dired-async-log-file))
|
||||
(run-with-timer
|
||||
0.1 nil
|
||||
(lambda ()
|
||||
;; First send error messages.
|
||||
(cond (failures
|
||||
(funcall dired-async-message-function
|
||||
"%s failed for %d of %d file%s -- See *Dired log* buffer"
|
||||
'dired-async-failures
|
||||
(car operation) (length failures)
|
||||
total (dired-plural-s total)))
|
||||
(skipped
|
||||
(funcall dired-async-message-function
|
||||
"%s: %d of %d file%s skipped -- See *Dired log* buffer"
|
||||
'dired-async-failures
|
||||
(car operation) (length skipped) total
|
||||
(dired-plural-s total))))
|
||||
(when dired-buffers
|
||||
(cl-loop for (_f . b) in dired-buffers
|
||||
when (buffer-live-p b)
|
||||
do (with-current-buffer b
|
||||
(run-with-timer
|
||||
0.1 nil
|
||||
(lambda ()
|
||||
;; First send error messages.
|
||||
(cond (failures
|
||||
(funcall dired-async-message-function
|
||||
"%s failed for %d of %d file%s -- See *Dired log* buffer"
|
||||
'dired-async-failures
|
||||
(car operation) (length failures)
|
||||
total (dired-plural-s total)))
|
||||
(skipped
|
||||
(funcall dired-async-message-function
|
||||
"%s: %d of %d file%s skipped -- See *Dired log* buffer"
|
||||
'dired-async-failures
|
||||
(car operation) (length skipped) total
|
||||
(dired-plural-s total))))
|
||||
(when dired-buffers
|
||||
(cl-loop for (_f . b) in dired-buffers
|
||||
when (buffer-live-p b)
|
||||
do (with-current-buffer b
|
||||
(when (and (not (file-remote-p default-directory nil t))
|
||||
(file-exists-p default-directory))
|
||||
(revert-buffer nil t)))))
|
||||
;; Finally send the success message.
|
||||
(funcall dired-async-message-function
|
||||
"Asynchronous %s of %s on %s file%s done"
|
||||
'dired-async-message
|
||||
(car operation) (cadr operation)
|
||||
total (dired-plural-s total)))))))
|
||||
(revert-buffer nil t)))))
|
||||
;; Finally send the success message.
|
||||
(funcall dired-async-message-function
|
||||
"Asynchronous %s of %s on %s file%s done"
|
||||
'dired-async-message
|
||||
(car operation) (cadr operation)
|
||||
total (dired-plural-s total)))))))
|
||||
|
||||
(defun dired-async-maybe-kill-ftp ()
|
||||
"Return a form to kill ftp process in child emacs."
|
||||
|
|
@ -186,7 +186,7 @@ Should take same args as `message'."
|
|||
|
||||
(defvar overwrite-query)
|
||||
(defun dired-async-create-files (file-creator operation fn-list name-constructor
|
||||
&optional _marker-char)
|
||||
&optional _marker-char)
|
||||
"Same as `dired-create-files' but asynchronous.
|
||||
|
||||
See `dired-create-files' for the behavior of arguments."
|
||||
|
|
@ -205,50 +205,50 @@ See `dired-create-files' for the behavior of arguments."
|
|||
(downcase operation) from)))
|
||||
(if (not to)
|
||||
(setq skipped (cons (dired-make-relative from) skipped))
|
||||
(let* ((overwrite (and (null (eq file-creator 'backup-file))
|
||||
(file-exists-p to)))
|
||||
(dired-overwrite-confirmed ; for dired-handle-overwrite
|
||||
(and overwrite
|
||||
(let ((help-form `(format "\
|
||||
(let* ((overwrite (and (null (eq file-creator 'backup-file))
|
||||
(file-exists-p to)))
|
||||
(dired-overwrite-confirmed ; for dired-handle-overwrite
|
||||
(and overwrite
|
||||
(let ((help-form `(format "\
|
||||
Type SPC or `y' to overwrite file `%s',
|
||||
DEL or `n' to skip to next,
|
||||
ESC or `q' to not overwrite any of the remaining files,
|
||||
`!' to overwrite all remaining files with no more questions." ,to)))
|
||||
(dired-query 'overwrite-query "Overwrite `%s'?" to)))))
|
||||
;; Handle the `dired-copy-file' file-creator specially
|
||||
;; When copying a directory to another directory or
|
||||
;; possibly to itself or one of its subdirectories.
|
||||
;; e.g "~/foo/" => "~/test/"
|
||||
;; or "~/foo/" =>"~/foo/"
|
||||
;; or "~/foo/ => ~/foo/bar/")
|
||||
;; In this case the 'name-constructor' have set the destination
|
||||
;; TO to "~/test/foo" because the old emacs23 behavior
|
||||
;; of `copy-directory' was to not create the subdirectory
|
||||
;; and instead copy the contents.
|
||||
;; With the new behavior of `copy-directory'
|
||||
;; (similar to the `cp' shell command) we don't
|
||||
;; need such a construction of the target directory,
|
||||
;; so modify the destination TO to "~/test/" instead of "~/test/foo/".
|
||||
(let ((destname (file-name-directory to)))
|
||||
(when (and (file-directory-p from)
|
||||
(file-directory-p to)
|
||||
(eq file-creator 'dired-copy-file))
|
||||
(setq to destname))
|
||||
;; If DESTNAME is a subdirectory of FROM, not a symlink,
|
||||
;; and the method in use is copying, signal an error.
|
||||
(and (eq t (car (file-attributes destname)))
|
||||
(eq file-creator 'dired-copy-file)
|
||||
(file-in-directory-p destname from)
|
||||
(error "Cannot copy `%s' into its subdirectory `%s'"
|
||||
from to)))
|
||||
(if overwrite
|
||||
(or (and dired-overwrite-confirmed
|
||||
(push (cons from to) async-fn-list))
|
||||
(progn
|
||||
(push (dired-make-relative from) failures)
|
||||
(dired-log "%s `%s' to `%s' failed\n"
|
||||
operation from to)))
|
||||
(push (cons from to) async-fn-list)))))
|
||||
(dired-query 'overwrite-query "Overwrite `%s'?" to)))))
|
||||
;; Handle the `dired-copy-file' file-creator specially
|
||||
;; When copying a directory to another directory or
|
||||
;; possibly to itself or one of its subdirectories.
|
||||
;; e.g "~/foo/" => "~/test/"
|
||||
;; or "~/foo/" =>"~/foo/"
|
||||
;; or "~/foo/ => ~/foo/bar/")
|
||||
;; In this case the 'name-constructor' have set the destination
|
||||
;; TO to "~/test/foo" because the old emacs23 behavior
|
||||
;; of `copy-directory' was to not create the subdirectory
|
||||
;; and instead copy the contents.
|
||||
;; With the new behavior of `copy-directory'
|
||||
;; (similar to the `cp' shell command) we don't
|
||||
;; need such a construction of the target directory,
|
||||
;; so modify the destination TO to "~/test/" instead of "~/test/foo/".
|
||||
(let ((destname (file-name-directory to)))
|
||||
(when (and (file-directory-p from)
|
||||
(file-directory-p to)
|
||||
(eq file-creator 'dired-copy-file))
|
||||
(setq to destname))
|
||||
;; If DESTNAME is a subdirectory of FROM, not a symlink,
|
||||
;; and the method in use is copying, signal an error.
|
||||
(and (eq t (car (file-attributes destname)))
|
||||
(eq file-creator 'dired-copy-file)
|
||||
(file-in-directory-p destname from)
|
||||
(error "Cannot copy `%s' into its subdirectory `%s'"
|
||||
from to)))
|
||||
(if overwrite
|
||||
(or (and dired-overwrite-confirmed
|
||||
(push (cons from to) async-fn-list))
|
||||
(progn
|
||||
(push (dired-make-relative from) failures)
|
||||
(dired-log "%s `%s' to `%s' failed\n"
|
||||
operation from to)))
|
||||
(push (cons from to) async-fn-list)))))
|
||||
;; Fix tramp issue #80 with emacs-26, use "-q" only when needed.
|
||||
(setq async-quiet-switch
|
||||
(if (and (boundp 'tramp-cache-read-persistent-data)
|
||||
|
|
@ -278,56 +278,56 @@ ESC or `q' to not overwrite any of the remaining files,
|
|||
;; Setup callback.
|
||||
(setq callback
|
||||
(lambda (&optional _ignore)
|
||||
(dired-async-after-file-create
|
||||
total (list operation (length async-fn-list)) failures skipped)
|
||||
(when (string= (downcase operation) "rename")
|
||||
(cl-loop for (file . to) in async-fn-list
|
||||
for bf = (get-file-buffer file)
|
||||
for destp = (file-exists-p to)
|
||||
do (and bf destp
|
||||
(with-current-buffer bf
|
||||
(set-visited-file-name to t t))))))))
|
||||
(dired-async-after-file-create
|
||||
total (list operation (length async-fn-list)) failures skipped)
|
||||
(when (string= (downcase operation) "rename")
|
||||
(cl-loop for (file . to) in async-fn-list
|
||||
for bf = (get-file-buffer file)
|
||||
for destp = (file-exists-p to)
|
||||
do (and bf destp
|
||||
(with-current-buffer bf
|
||||
(set-visited-file-name to t t))))))))
|
||||
;; Start async process.
|
||||
(when async-fn-list
|
||||
(async-start `(lambda ()
|
||||
(require 'cl-lib) (require 'dired-aux) (require 'dired-x)
|
||||
,(async-inject-variables dired-async-env-variables-regexp)
|
||||
(let ((dired-recursive-copies (quote always))
|
||||
(dired-copy-preserve-time
|
||||
,dired-copy-preserve-time))
|
||||
(setq overwrite-backup-query nil)
|
||||
;; Inline `backup-file' as long as it is not
|
||||
;; available in emacs.
|
||||
(defalias 'backup-file
|
||||
;; Same feature as "cp -f --backup=numbered from to"
|
||||
;; Symlinks are copied as file from source unlike
|
||||
;; `dired-copy-file' which is same as cp -d.
|
||||
;; Directories are omitted.
|
||||
(lambda (from to ok)
|
||||
(cond ((file-directory-p from) (ignore))
|
||||
(t (let ((count 0))
|
||||
(while (let ((attrs (file-attributes to)))
|
||||
(and attrs (null (nth 0 attrs))))
|
||||
(cl-incf count)
|
||||
(setq to (concat (file-name-sans-versions to)
|
||||
(format ".~%s~" count)))))
|
||||
(condition-case err
|
||||
(copy-file from to ok dired-copy-preserve-time)
|
||||
(file-date-error
|
||||
(dired-log "Can't set date on %s:\n%s\n" from err)))))))
|
||||
;; Now run the FILE-CREATOR function on files.
|
||||
(cl-loop with fn = (quote ,file-creator)
|
||||
for (from . dest) in (quote ,async-fn-list)
|
||||
do (condition-case err
|
||||
(funcall fn from dest t)
|
||||
(file-error
|
||||
(dired-log "%s: %s\n" (car err) (cdr err)))
|
||||
nil))
|
||||
(let ((dired-recursive-copies (quote always))
|
||||
(dired-copy-preserve-time
|
||||
,dired-copy-preserve-time))
|
||||
(setq overwrite-backup-query nil)
|
||||
;; Inline `backup-file' as long as it is not
|
||||
;; available in emacs.
|
||||
(defalias 'backup-file
|
||||
;; Same feature as "cp -f --backup=numbered from to"
|
||||
;; Symlinks are copied as file from source unlike
|
||||
;; `dired-copy-file' which is same as cp -d.
|
||||
;; Directories are omitted.
|
||||
(lambda (from to ok)
|
||||
(cond ((file-directory-p from) (ignore))
|
||||
(t (let ((count 0))
|
||||
(while (let ((attrs (file-attributes to)))
|
||||
(and attrs (null (nth 0 attrs))))
|
||||
(cl-incf count)
|
||||
(setq to (concat (file-name-sans-versions to)
|
||||
(format ".~%s~" count)))))
|
||||
(condition-case err
|
||||
(copy-file from to ok dired-copy-preserve-time)
|
||||
(file-date-error
|
||||
(dired-log "Can't set date on %s:\n%s\n" from err)))))))
|
||||
;; Now run the FILE-CREATOR function on files.
|
||||
(cl-loop with fn = (quote ,file-creator)
|
||||
for (from . dest) in (quote ,async-fn-list)
|
||||
do (condition-case err
|
||||
(funcall fn from dest t)
|
||||
(file-error
|
||||
(dired-log "%s: %s\n" (car err) (cdr err)))
|
||||
nil))
|
||||
(when (get-buffer dired-log-buffer)
|
||||
(dired-log t)
|
||||
(with-current-buffer dired-log-buffer
|
||||
(write-region (point-min) (point-max)
|
||||
,dired-async-log-file))))
|
||||
(write-region (point-min) (point-max)
|
||||
,dired-async-log-file))))
|
||||
,(dired-async-maybe-kill-ftp))
|
||||
callback)
|
||||
;; Run mode-line notifications while process running.
|
||||
|
|
@ -363,11 +363,11 @@ ESC or `q' to not overwrite any of the remaining files,
|
|||
(advice-add 'wdired-do-renames :around #'dired-async-wdired-do-renames))
|
||||
(ad-activate 'dired-create-files)
|
||||
(ad-activate 'wdired-do-renames))
|
||||
(if (fboundp 'advice-remove)
|
||||
(progn (advice-remove 'dired-create-files #'dired-async-create-files)
|
||||
(advice-remove 'wdired-do-renames #'dired-async-wdired-do-renames))
|
||||
(ad-deactivate 'dired-create-files)
|
||||
(ad-deactivate 'wdired-do-renames))))
|
||||
(if (fboundp 'advice-remove)
|
||||
(progn (advice-remove 'dired-create-files #'dired-async-create-files)
|
||||
(advice-remove 'wdired-do-renames #'dired-async-wdired-do-renames))
|
||||
(ad-deactivate 'dired-create-files)
|
||||
(ad-deactivate 'wdired-do-renames))))
|
||||
|
||||
(defmacro dired-async--with-async-create-files (&rest body)
|
||||
"Evaluate BODY with ‘dired-create-files’ set to ‘dired-async-create-files’."
|
||||
|
|
@ -380,28 +380,28 @@ ESC or `q' to not overwrite any of the remaining files,
|
|||
"Run ‘dired-do-copy’ asynchronously."
|
||||
(interactive "P")
|
||||
(dired-async--with-async-create-files
|
||||
(dired-do-copy arg)))
|
||||
(dired-do-copy arg)))
|
||||
|
||||
;;;###autoload
|
||||
(defun dired-async-do-symlink (&optional arg)
|
||||
"Run ‘dired-do-symlink’ asynchronously."
|
||||
(interactive "P")
|
||||
(dired-async--with-async-create-files
|
||||
(dired-do-symlink arg)))
|
||||
(dired-do-symlink arg)))
|
||||
|
||||
;;;###autoload
|
||||
(defun dired-async-do-hardlink (&optional arg)
|
||||
"Run ‘dired-do-hardlink’ asynchronously."
|
||||
(interactive "P")
|
||||
(dired-async--with-async-create-files
|
||||
(dired-do-hardlink arg)))
|
||||
(dired-do-hardlink arg)))
|
||||
|
||||
;;;###autoload
|
||||
(defun dired-async-do-rename (&optional arg)
|
||||
"Run ‘dired-do-rename’ asynchronously."
|
||||
(interactive "P")
|
||||
(dired-async--with-async-create-files
|
||||
(dired-do-rename arg)))
|
||||
(dired-do-rename arg)))
|
||||
|
||||
(provide 'dired-async)
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -1,6 +1,6 @@
|
|||
;;; company-gtags.el --- company-mode completion backend for GNU Global
|
||||
|
||||
;; Copyright (C) 2009-2011, 2014 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2009-2011, 2014-2020 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Nikolaj Schumacher
|
||||
|
||||
|
|
@ -65,7 +65,9 @@ completion."
|
|||
(defun company-gtags--fetch-tags (prefix)
|
||||
(with-temp-buffer
|
||||
(let (tags)
|
||||
(when (= 0 (process-file company-gtags-executable nil
|
||||
;; For some reason Global v 6.6.3 is prone to returning exit status 1
|
||||
;; even on successful searches when '-T' is used.
|
||||
(when (/= 3 (process-file company-gtags-executable nil
|
||||
;; "-T" goes through all the tag files listed in GTAGSLIBPATH
|
||||
(list (current-buffer) nil) nil "-xGqT" (concat "^" prefix)))
|
||||
(goto-char (point-min))
|
||||
|
|
@ -87,7 +89,7 @@ completion."
|
|||
|
||||
(defun company-gtags--annotation (arg)
|
||||
(let ((meta (get-text-property 0 'meta arg)))
|
||||
(when (string-match (concat arg "\\((.*)\\).*") meta)
|
||||
(when (string-match (concat (regexp-quote arg) "\\((.*)\\).*") meta)
|
||||
(match-string 1 meta))))
|
||||
|
||||
;;;###autoload
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
BIN
elpa/company-20200110.929/company-nxml.elc
Normal file
BIN
elpa/company-20200110.929/company-nxml.elc
Normal file
Binary file not shown.
BIN
elpa/company-20200110.929/company-oddmuse.elc
Normal file
BIN
elpa/company-20200110.929/company-oddmuse.elc
Normal file
Binary file not shown.
|
|
@ -1,4 +1,4 @@
|
|||
(define-package "company" "20191223.11" "Modular text completion framework"
|
||||
(define-package "company" "20200110.929" "Modular text completion framework"
|
||||
'((emacs "24.3"))
|
||||
:keywords
|
||||
'("abbrev" "convenience" "matching")
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -1,11 +1,11 @@
|
|||
;;; company.el --- Modular text completion framework -*- lexical-binding: t -*-
|
||||
|
||||
;; Copyright (C) 2009-2019 Free Software Foundation, Inc.
|
||||
;; Copyright (C) 2009-2020 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Nikolaj Schumacher
|
||||
;; Maintainer: Dmitry Gutov <dgutov@yandex.ru>
|
||||
;; URL: http://company-mode.github.io/
|
||||
;; Version: 0.9.10
|
||||
;; Version: 0.9.11
|
||||
;; Keywords: abbrev, convenience, matching
|
||||
;; Package-Requires: ((emacs "24.3"))
|
||||
|
||||
|
|
@ -641,13 +641,13 @@ commands in the `company-' namespace, abort completion."
|
|||
(defcustom company-show-numbers nil
|
||||
"If enabled, show quick-access numbers for the first ten candidates."
|
||||
:type '(choice (const :tag "off" nil)
|
||||
(const :tag "on" t)))
|
||||
(const :tag "left" 'left)
|
||||
(const :tag "on" 't)))
|
||||
|
||||
(defcustom company-show-numbers-function #'company--show-numbers
|
||||
"Function called to get custom quick-access numbers for the first then candidates.
|
||||
"Function called to get quick-access numbers for the first ten candidates.
|
||||
|
||||
If nil falls back to default function that generates 1...8, 9, 0. The function get
|
||||
the number of candidates (from 1 to 10 means 1st to 10th candidate) and should
|
||||
The function receives the candidate number (starting from 1) and should
|
||||
return a string prefixed with one space."
|
||||
:type 'function)
|
||||
|
||||
|
|
@ -2171,9 +2171,9 @@ With ARG, move by that many elements."
|
|||
(current-prefix-arg arg))
|
||||
(call-interactively 'company-select-next))))))
|
||||
|
||||
(defun company-indent-or-complete-common ()
|
||||
(defun company-indent-or-complete-common (arg)
|
||||
"Indent the current line or region, or complete the common part."
|
||||
(interactive)
|
||||
(interactive "P")
|
||||
(cond
|
||||
((use-region-p)
|
||||
(indent-region (region-beginning) (region-end)))
|
||||
|
|
@ -2183,7 +2183,7 @@ With ARG, move by that many elements."
|
|||
((let ((old-point (point))
|
||||
(old-tick (buffer-chars-modified-tick))
|
||||
(tab-always-indent t))
|
||||
(call-interactively #'indent-for-tab-command)
|
||||
(indent-for-tab-command arg)
|
||||
(when (and (eq old-point (point))
|
||||
(eq old-tick (buffer-chars-modified-tick)))
|
||||
(company-complete-common))))))
|
||||
|
|
@ -2818,17 +2818,20 @@ If SHOW-VERSION is non-nil, show the version in the echo area."
|
|||
(let* ((item (pop items))
|
||||
(str (car item))
|
||||
(annotation (cdr item))
|
||||
(right (company-space-string company-tooltip-margin))
|
||||
(margin (company-space-string company-tooltip-margin))
|
||||
(left margin)
|
||||
(right margin)
|
||||
(width width))
|
||||
(when (< numbered 10)
|
||||
(cl-decf width 2)
|
||||
(cl-incf numbered)
|
||||
(setq right (concat (funcall company-show-numbers-function numbered) right)))
|
||||
(setf (if (eq company-show-numbers 'left) left right)
|
||||
(concat (funcall company-show-numbers-function numbered)
|
||||
margin)))
|
||||
(push (concat
|
||||
(company-fill-propertize str annotation
|
||||
width (equal i selection)
|
||||
(company-space-string
|
||||
company-tooltip-margin)
|
||||
left
|
||||
right)
|
||||
(when scrollbar-bounds
|
||||
(company--scrollbar i scrollbar-bounds)))
|
||||
|
|
@ -2936,8 +2939,9 @@ Returns a negative number if the tooltip should be displayed above point."
|
|||
(when company-pseudo-tooltip-overlay
|
||||
(let* ((ov company-pseudo-tooltip-overlay)
|
||||
(disp (overlay-get ov 'company-display)))
|
||||
;; Beat outline's folding overlays, at least.
|
||||
(overlay-put ov 'priority 1)
|
||||
;; Beat outline's folding overlays.
|
||||
;; And Flymake (53). And Flycheck (110).
|
||||
(overlay-put ov 'priority 111)
|
||||
;; No (extra) prefix for the first line.
|
||||
(overlay-put ov 'line-prefix "")
|
||||
;; `display' is better
|
||||
Binary file not shown.
|
|
@ -1,2 +0,0 @@
|
|||
;;; -*- no-byte-compile: t -*-
|
||||
(define-package "dash" "20191109.1327" "A modern list library for Emacs" 'nil :commit "e85ed7aa93ef0959b630607bca17af90c74b34be" :keywords '("lists") :authors '(("Magnar Sveen" . "magnars@gmail.com")) :maintainer '("Magnar Sveen" . "magnars@gmail.com"))
|
||||
|
|
@ -11,6 +11,10 @@
|
|||
|
||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "dash" '("dash-" "-keep" "-butlast" "-non" "-only-some" "-zip" "-e" "->" "-a" "-gr" "-when-let" "-d" "-l" "-s" "-p" "-r" "-m" "-i" "-f" "-u" "-value-to-list" "-t" "--" "-c" "!cons" "!cdr")))
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil nil ("dash-pkg.el") (0 0 0 0))
|
||||
|
||||
;;;***
|
||||
|
||||
;; Local Variables:
|
||||
9
elpa/dash-20200119.2310/dash-pkg.el
Normal file
9
elpa/dash-20200119.2310/dash-pkg.el
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
(define-package "dash" "20200119.2310" "A modern list library for Emacs" 'nil :keywords
|
||||
'("lists")
|
||||
:authors
|
||||
'(("Magnar Sveen" . "magnars@gmail.com"))
|
||||
:maintainer
|
||||
'("Magnar Sveen" . "magnars@gmail.com"))
|
||||
;; Local Variables:
|
||||
;; no-byte-compile: t
|
||||
;; End:
|
||||
|
|
@ -3,8 +3,7 @@
|
|||
;; Copyright (C) 2012-2016 Free Software Foundation, Inc.
|
||||
|
||||
;; Author: Magnar Sveen <magnars@gmail.com>
|
||||
;; Version: 2.16.0
|
||||
;; Package-Version: 20191109.1327
|
||||
;; Version: 2.17.0
|
||||
;; Keywords: lists
|
||||
|
||||
;; This program is free software; you can redistribute it and/or modify
|
||||
|
|
@ -1264,6 +1263,24 @@ The anaphoric form `--zip-with' binds the elements from LIST1 as symbol `it',
|
|||
and the elements from LIST2 as symbol `other'."
|
||||
(--zip-with (funcall fn it other) list1 list2))
|
||||
|
||||
(defun -zip-lists (&rest lists)
|
||||
"Zip LISTS together. Group the head of each list, followed by the
|
||||
second elements of each list, and so on. The lengths of the returned
|
||||
groupings are equal to the length of the shortest input list.
|
||||
|
||||
The return value is always list of lists, which is a difference
|
||||
from `-zip-pair' which returns a cons-cell in case two input
|
||||
lists are provided.
|
||||
|
||||
See also: `-zip'"
|
||||
(declare (pure t) (side-effect-free t))
|
||||
(when lists
|
||||
(let (results)
|
||||
(while (-none? 'null lists)
|
||||
(setq results (cons (mapcar 'car lists) results))
|
||||
(setq lists (mapcar 'cdr lists)))
|
||||
(nreverse results))))
|
||||
|
||||
(defun -zip (&rest lists)
|
||||
"Zip LISTS together. Group the head of each list, followed by the
|
||||
second elements of each list, and so on. The lengths of the returned
|
||||
|
|
@ -1272,11 +1289,12 @@ groupings are equal to the length of the shortest input list.
|
|||
If two lists are provided as arguments, return the groupings as a list
|
||||
of cons cells. Otherwise, return the groupings as a list of lists.
|
||||
|
||||
Please note! This distinction is being removed in an upcoming 3.0
|
||||
release of Dash. If you rely on this behavior, use `-zip-pair` instead,
|
||||
which will retain that behaviour in future versions.
|
||||
Use `-zip-lists' if you need the return value to always be a list
|
||||
of lists.
|
||||
|
||||
Alias: `-zip-pair'"
|
||||
Alias: `-zip-pair'
|
||||
|
||||
See also: `-zip-lists'"
|
||||
(declare (pure t) (side-effect-free t))
|
||||
(when lists
|
||||
(let (results)
|
||||
|
|
@ -1309,6 +1327,9 @@ a variable number of arguments, such that
|
|||
|
||||
is identity (given that the lists are the same length).
|
||||
|
||||
Note in particular that calling this on a list of two lists will
|
||||
return a list of cons-cells such that the aboce identity works.
|
||||
|
||||
See also: `-zip'"
|
||||
(apply '-zip lists))
|
||||
|
||||
|
|
@ -2922,6 +2943,7 @@ structure such as plist or alist."
|
|||
"--zip-with"
|
||||
"-zip"
|
||||
"-zip-fill"
|
||||
"-zip-lists"
|
||||
"-zip-pair"
|
||||
"-cycle"
|
||||
"-pad"
|
||||
Binary file not shown.
3410
elpa/dash-20200119.2310/dash.info
Normal file
3410
elpa/dash-20200119.2310/dash.info
Normal file
File diff suppressed because it is too large
Load diff
18
elpa/dash-20200119.2310/dir
Normal file
18
elpa/dash-20200119.2310/dir
Normal file
|
|
@ -0,0 +1,18 @@
|
|||
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
|
||||
* Dash: (dash.info). A modern list library for GNU Emacs
|
||||
|
Before Width: | Height: | Size: 43 KiB After Width: | Height: | Size: 43 KiB |
|
Before Width: | Height: | Size: 32 KiB After Width: | Height: | Size: 32 KiB |
|
|
@ -1,4 +1,4 @@
|
|||
(define-package "dashboard" "20191210.1041" "A startup screen extracted from Spacemacs"
|
||||
(define-package "dashboard" "20200121.1429" "A startup screen extracted from Spacemacs"
|
||||
'((emacs "25.3")
|
||||
(page-break-lines "0.11"))
|
||||
:keywords
|
||||
|
|
@ -119,17 +119,21 @@ Example:
|
|||
(defconst dashboard-banner-length 75
|
||||
"Width of a banner.")
|
||||
|
||||
(defvar dashboard-banner-logo-title "Welcome to Emacs!"
|
||||
"Specify the startup banner.")
|
||||
(defcustom dashboard-banner-logo-title "Welcome to Emacs!"
|
||||
"Specify the startup banner."
|
||||
:type 'string
|
||||
:group 'dashboard)
|
||||
|
||||
(defvar dashboard-navigator-buttons nil
|
||||
(defcustom dashboard-navigator-buttons nil
|
||||
"Specify the navigator buttons.
|
||||
The format is: 'icon title help action face prefix suffix'.
|
||||
|
||||
Example:
|
||||
'((\"☆\" \"Star\" \"Show stars\" (lambda (&rest _) (show-stars)) 'warning \"[\" \"]\"))")
|
||||
'((\"☆\" \"Star\" \"Show stars\" (lambda (&rest _) (show-stars)) 'warning \"[\" \"]\"))"
|
||||
:type '(repeat (repeat (list string string string function symbol string string)))
|
||||
:group 'dashboard)
|
||||
|
||||
(defvar dashboard-init-info
|
||||
(defcustom dashboard-init-info
|
||||
;; Check if package.el was loaded and if package loading was enabled
|
||||
(if (bound-and-true-p package-alist)
|
||||
(format "%d packages loaded in %s"
|
||||
|
|
@ -138,9 +142,11 @@ Example:
|
|||
(format "%d packages loaded in %s"
|
||||
(hash-table-size straight--profile-cache) (emacs-init-time))
|
||||
(format "Emacs started in %s" (emacs-init-time))))
|
||||
"Init info with packages loaded and init time.")
|
||||
"Init info with packages loaded and init time."
|
||||
:type 'boolean
|
||||
:group 'dashboard)
|
||||
|
||||
(defvar dashboard-footer
|
||||
(defcustom dashboard-footer
|
||||
(let ((list '("The one true editor, Emacs!"
|
||||
"Who the hell uses VIM anyway? Go Evil!"
|
||||
"Free as free speech, free as free Beer"
|
||||
|
|
@ -153,9 +159,11 @@ Example:
|
|||
"I showed you my source code, pls respond"
|
||||
)))
|
||||
(nth (random (1- (1+ (length list)))) list))
|
||||
"A footer with some short message.")
|
||||
"A footer with some short message."
|
||||
:type 'string
|
||||
:group 'dashboard)
|
||||
|
||||
(defvar dashboard-footer-icon
|
||||
(defcustom dashboard-footer-icon
|
||||
(if (and (display-graphic-p)
|
||||
(or (fboundp 'all-the-icons-fileicon)
|
||||
(require 'all-the-icons nil 'noerror)))
|
||||
|
|
@ -164,46 +172,66 @@ Example:
|
|||
:v-adjust -0.05
|
||||
:face 'font-lock-keyword-face)
|
||||
(propertize ">" 'face 'dashboard-footer))
|
||||
"Footer's icon.")
|
||||
"Footer's icon."
|
||||
:type 'string
|
||||
:group 'dashboard)
|
||||
|
||||
(defvar dashboard-startup-banner 'official
|
||||
(defcustom dashboard-startup-banner 'official
|
||||
"Specify the startup banner.
|
||||
Default value is `official', it displays
|
||||
the Emacs logo. `logo' displays Emacs alternative logo.
|
||||
An integer value is the index of text
|
||||
banner. A string value must be a path to a .PNG file.
|
||||
If the value is nil then no banner is displayed.")
|
||||
If the value is nil then no banner is displayed."
|
||||
:type '(choice (const :tag "offical" official)
|
||||
(const :tag "logo" logo)
|
||||
(string :tag "a png path"))
|
||||
:group 'dashboard)
|
||||
|
||||
(defvar dashboard-buffer-last-width nil
|
||||
"Previous width of dashboard-buffer.")
|
||||
(defcustom dashboard-buffer-last-width nil
|
||||
"Previous width of dashboard-buffer."
|
||||
:type 'integer
|
||||
:group 'dashboard)
|
||||
|
||||
(defvar dashboard-item-generators '((recents . dashboard-insert-recents)
|
||||
(bookmarks . dashboard-insert-bookmarks)
|
||||
(projects . dashboard-insert-projects)
|
||||
(agenda . dashboard-insert-agenda)
|
||||
(registers . dashboard-insert-registers)))
|
||||
(defcustom dashboard-item-generators '((recents . dashboard-insert-recents)
|
||||
(bookmarks . dashboard-insert-bookmarks)
|
||||
(projects . dashboard-insert-projects)
|
||||
(agenda . dashboard-insert-agenda)
|
||||
(registers . dashboard-insert-registers))
|
||||
"Association list of items to how to generate in the startup buffer.
|
||||
Will be of the form `(list-type . list-function)'.
|
||||
Possible values for list-type are: `recents', `bookmarks', `projects',
|
||||
`agenda' ,`registers'."
|
||||
:type '(repeat (alist :key-type symbol :value-type function))
|
||||
:group 'dashboard)
|
||||
|
||||
(defvar dashboard-items '((recents . 5)
|
||||
(bookmarks . 5)
|
||||
(agenda . 5))
|
||||
(defcustom dashboard-items '((recents . 5)
|
||||
(bookmarks . 5)
|
||||
(agenda . 5))
|
||||
"Association list of items to show in the startup buffer.
|
||||
Will be of the form `(list-type . list-size)`.
|
||||
Will be of the form `(list-type . list-size)'.
|
||||
If nil it is disabled. Possible values for list-type are:
|
||||
`recents' `bookmarks' `projects' `agenda' `registers'")
|
||||
`recents' `bookmarks' `projects' `agenda' `registers'."
|
||||
:type '(repeat (alist :key-type symbol :value-type integer))
|
||||
:group 'dashboard)
|
||||
|
||||
(defvar dashboard-items-default-length 20
|
||||
(defcustom dashboard-items-default-length 20
|
||||
"Length used for startup lists with otherwise unspecified bounds.
|
||||
Set to nil for unbounded.")
|
||||
Set to nil for unbounded."
|
||||
:type 'integer
|
||||
:group 'dashboard)
|
||||
|
||||
(defvar dashboard-heading-icons '((recents . "history")
|
||||
(bookmarks . "bookmark")
|
||||
(agenda . "calendar")
|
||||
(projects . "rocket")
|
||||
(registers . "database"))
|
||||
(defcustom dashboard-heading-icons '((recents . "history")
|
||||
(bookmarks . "bookmark")
|
||||
(agenda . "calendar")
|
||||
(projects . "rocket")
|
||||
(registers . "database"))
|
||||
"Association list for the icons of the heading sections.
|
||||
Will be of the form `(list-type . icon-name-string)`.
|
||||
If nil it is disabled. Possible values for list-type are:
|
||||
`recents' `bookmarks' `projects' `agenda' `registers'")
|
||||
`recents' `bookmarks' `projects' `agenda' `registers'"
|
||||
:type '(repeat (alist :key-type symbol :value-type string))
|
||||
:group 'dashboard)
|
||||
|
||||
(defvar recentf-list nil)
|
||||
|
||||
|
|
@ -294,7 +322,8 @@ If MESSAGEBUF is not nil then MSG is also written in message buffer."
|
|||
(when (and (display-graphic-p)
|
||||
dashboard-set-heading-icons)
|
||||
;; Try loading `all-the-icons'
|
||||
(unless (require 'all-the-icons nil 'noerror)
|
||||
(unless (or (fboundp 'all-the-icons-octicon)
|
||||
(require 'all-the-icons nil 'noerror))
|
||||
(error "Package `all-the-icons' isn't installed"))
|
||||
|
||||
(insert (cond
|
||||
|
|
@ -493,7 +522,8 @@ WIDGET-PARAMS are passed to the \"widget-create\" function."
|
|||
|
||||
(when (and (display-graphic-p)
|
||||
dashboard-set-file-icons
|
||||
(featurep 'all-the-icons))
|
||||
(or (fboundp 'all-the-icons-icon-for-dir)
|
||||
(require 'all-the-icons nil 'noerror)))
|
||||
(let* ((path (car (last (split-string ,@rest " - "))))
|
||||
(icon (if (and (not (file-remote-p path))
|
||||
(file-directory-p path))
|
||||
Binary file not shown.
|
|
@ -53,6 +53,7 @@
|
|||
:group 'dashboard
|
||||
:syntax-table nil
|
||||
:abbrev-table nil
|
||||
(buffer-disable-undo)
|
||||
(whitespace-mode -1)
|
||||
(linum-mode -1)
|
||||
(page-break-lines-mode 1)
|
||||
Binary file not shown.
|
|
@ -1,2 +0,0 @@
|
|||
An extensible Emacs dashboard, with sections for
|
||||
bookmarks, projectile projects, org-agenda and more.
|
||||
|
|
@ -12,7 +12,10 @@
|
|||
|
||||
(autoload 'dockerfile-build-buffer "dockerfile-mode" "\
|
||||
Build an image called IMAGE-NAME based upon the buffer.
|
||||
|
||||
If prefix arg NO-CACHE is set, don't cache the image.
|
||||
The build string will be of the format:
|
||||
`sudo docker build --no-cache --tag IMAGE-NAME --build-args arg1.. -f filename directory`
|
||||
|
||||
\(fn IMAGE-NAME &optional NO-CACHE)" t nil)
|
||||
|
||||
|
|
@ -1,2 +1,2 @@
|
|||
;;; -*- no-byte-compile: t -*-
|
||||
(define-package "dockerfile-mode" "20190505.1807" "Major mode for editing Docker's Dockerfiles" '((emacs "24") (s "1.12")) :commit "ed73e82dcc636dad00d1a8c3b32a49136d25ee60" :url "https://github.com/spotify/dockerfile-mode")
|
||||
(define-package "dockerfile-mode" "20200106.2126" "Major mode for editing Docker's Dockerfiles" '((emacs "24") (s "1.12")) :commit "d31f7685ebc5832d957e25070a930aa42984327d" :url "https://github.com/spotify/dockerfile-mode")
|
||||
|
|
@ -2,7 +2,7 @@
|
|||
|
||||
;; Copyright (c) 2013 Spotify AB
|
||||
;; Package-Requires: ((emacs "24") (s "1.12"))
|
||||
;; Package-Version: 20190505.1807
|
||||
;; Package-Version: 20200106.2126
|
||||
;; Homepage: https://github.com/spotify/dockerfile-mode
|
||||
;;
|
||||
;; Licensed under the Apache License, Version 2.0 (the "License"); you may not
|
||||
|
|
@ -90,10 +90,9 @@ Each element of the list will be passed as a separate
|
|||
(defvar dockerfile-mode-map
|
||||
(let ((map (make-sparse-keymap))
|
||||
(menu-map (make-sparse-keymap)))
|
||||
(define-key map "\C-c\C-b" 'dockerfile-build-buffer)
|
||||
(define-key map "\C-c\M-b" 'dockerfile-build-no-cache-buffer)
|
||||
(define-key map "\C-c\C-z" 'dockerfile-test-function)
|
||||
(define-key map "\C-c\C-c" 'comment-region)
|
||||
(define-key map "\C-c\C-b" #'dockerfile-build-buffer)
|
||||
(define-key map "\C-c\M-b" #'dockerfile-build-no-cache-buffer)
|
||||
(define-key map "\C-c\C-c" #'comment-region)
|
||||
(define-key map [menu-bar dockerfile-mode] (cons "Dockerfile" menu-map))
|
||||
(define-key menu-map [dfc]
|
||||
'(menu-item "Comment Region" comment-region
|
||||
|
|
@ -149,6 +148,10 @@ file name. Otherwise, uses Emacs' standard conversion function."
|
|||
(s-replace "\\" "\\\\" (cygwin-convert-file-name-to-windows file))
|
||||
(convert-standard-filename file)))
|
||||
|
||||
(defun dockerfile-tag-string (image-name)
|
||||
"Return a --tag shell-quoted IMAGE-NAME string or an empty string if image-name is blank."
|
||||
(if (string= image-name "") "" (format "--tag %s " (shell-quote-argument image-name))))
|
||||
|
||||
(defvar dockerfile-image-name nil
|
||||
"Name of the dockerfile currently being used.
|
||||
This can be set in file or directory-local variables.")
|
||||
|
|
@ -165,23 +168,25 @@ This can be set in file or directory-local variables.")
|
|||
;;;###autoload
|
||||
(defun dockerfile-build-buffer (image-name &optional no-cache)
|
||||
"Build an image called IMAGE-NAME based upon the buffer.
|
||||
If prefix arg NO-CACHE is set, don't cache the image."
|
||||
|
||||
If prefix arg NO-CACHE is set, don't cache the image.
|
||||
The build string will be of the format:
|
||||
`sudo docker build --no-cache --tag IMAGE-NAME --build-args arg1.. -f filename directory`"
|
||||
|
||||
(interactive (list (dockerfile-read-image-name) prefix-arg))
|
||||
(save-buffer)
|
||||
(if (stringp image-name)
|
||||
(compilation-start
|
||||
(format
|
||||
"%s%s build %s -t %s %s -f %s %s"
|
||||
(if dockerfile-use-sudo "sudo " "")
|
||||
dockerfile-mode-command
|
||||
(if no-cache "--no-cache" "")
|
||||
(shell-quote-argument image-name)
|
||||
(dockerfile-build-arg-string)
|
||||
(shell-quote-argument (dockerfile-standard-filename (buffer-file-name)))
|
||||
(shell-quote-argument (dockerfile-standard-filename default-directory)))
|
||||
nil
|
||||
(lambda (_) (format "*docker-build-output: %s *" image-name)))
|
||||
(print "dockerfile-image-name must be a string, consider surrounding it with double quotes")))
|
||||
(compilation-start
|
||||
(format
|
||||
"%s%s build %s %s %s -f %s %s"
|
||||
(if dockerfile-use-sudo "sudo " "")
|
||||
dockerfile-mode-command
|
||||
(if no-cache "--no-cache" "")
|
||||
(dockerfile-tag-string image-name)
|
||||
(dockerfile-build-arg-string)
|
||||
(shell-quote-argument (dockerfile-standard-filename (buffer-file-name)))
|
||||
(shell-quote-argument (dockerfile-standard-filename default-directory)))
|
||||
nil
|
||||
(lambda (_) (format "*docker-build-output: %s *" image-name))))
|
||||
|
||||
;;;###autoload
|
||||
(defun dockerfile-build-no-cache-buffer (image-name)
|
||||
Binary file not shown.
Binary file not shown.
|
|
@ -168,9 +168,10 @@ previous value."
|
|||
(defun ein:get-mode-for-kernel (kernelspec)
|
||||
(if (null kernelspec)
|
||||
'python ;; FIXME
|
||||
(ein:case-equal (ein:$kernelspec-language kernelspec)
|
||||
(("julia" "python" "R") (intern (ein:$kernelspec-language kernelspec)))
|
||||
(t 'python))))
|
||||
(intern (ein:$kernelspec-language kernelspec))))
|
||||
;; (ein:case-equal (ein:$kernelspec-language kernelspec)
|
||||
;; (("julia" "python" "R") )
|
||||
;; (t 'python))))
|
||||
|
||||
(defun ein:edit-src-continue (e)
|
||||
(interactive "e")
|
||||
Binary file not shown.
Binary file not shown.
|
|
@ -203,6 +203,21 @@ a number will limit the number of lines in a cell output."
|
|||
(insert-image img ".")))
|
||||
(error (ein:log 'warn "Could not insert image: %s" err) nil)))
|
||||
|
||||
(defun ein:cell--markdown-heading-p (cell)
|
||||
"Check if cell is behaving like a heading cell.
|
||||
|
||||
Returns true if cell is a markdown cell, has at least one # character at the start of the line and is only one line long (i.e. does not contain any newline characters)."
|
||||
(and (ein:markdowncell-p cell)
|
||||
(string-match "^#+ " (ein:cell-get-text cell))
|
||||
(= 0 (seq-count #'(lambda (c)
|
||||
(char-equal c ?\n))
|
||||
(ein:cell-get-text cell)))))
|
||||
|
||||
(cl-defmethod ein:cell--markdown-heading-level ((cell ein:markdowncell))
|
||||
(progn
|
||||
(string-match "^#+" (ein:cell-get-text cell))
|
||||
(match-end 0)))
|
||||
|
||||
|
||||
;;; Cell factory
|
||||
|
||||
|
|
@ -227,6 +242,7 @@ a number will limit the number of lines in a cell output."
|
|||
(defun ein:cell-from-type (type &rest args)
|
||||
(apply (ein:cell-class-from-type type) args))
|
||||
|
||||
|
||||
(defun ein:cell--determine-cell-type (json-data)
|
||||
(let ((base-type (plist-get json-data :cell_type))
|
||||
(metadata (plist-get json-data :metadata)))
|
||||
|
|
@ -999,7 +1015,7 @@ prettified text thus be used instead of HTML type."
|
|||
((html text/html)
|
||||
(funcall (ein:output-area-get-html-renderer) (plist-get json type)))
|
||||
((latex text/latex text text/plain)
|
||||
(ein:insert-read-only (plist-get json type)))
|
||||
(ein:insert-read-only (ansi-color-apply (plist-get json type))))
|
||||
((svg image/svg+xml)
|
||||
(ein:insert-image value (ein:fix-mime-type key) t))
|
||||
((png image/png jpeg image/jpeg)
|
||||
Binary file not shown.
Binary file not shown.
Some files were not shown because too many files have changed in this diff Show more
Loading…
Add table
Reference in a new issue