Upgrade packages

bundle/custom.el

@@ -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)

elpa/archives/gnu/archive-contents

@@ -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")

elpa/archives/gnu/archive-contents.signed

@@ -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

elpa/async-20200113.1745/async-bytecomp.el

@@ -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)))))
+                       (message "Directory `%s' compiled asynchronously with warnings" directory)))))
-               (unless quiet
+             (unless quiet
-                 (message "Directory `%s' compiled asynchronously with success" directory))))))
+               (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)

elpa/async-20200113.1745/async-pkg.el

@@ -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")

elpa/async-20200113.1745/async.el

@@ -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.
+        ;; Parent expects UTF-8 encoded text.
-	(coding-system-for-write 'utf-8-auto))
+        (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-length
-	(print-escape-nonascii t)
+        (print-escape-nonascii t)
-	(print-circle 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
+        (prin1 (funcall
-		(async--receive-sexp (unless async-send-over-pipe
+                (async--receive-sexp (unless async-send-over-pipe
-				       command-line-args-left))))
+                                       command-line-args-left))))
       (condition-case err
-	  (prin1 (funcall
+          (prin1 (funcall
-		  (async--receive-sexp (unless async-send-over-pipe
+                  (async--receive-sexp (unless async-send-over-pipe
-					 command-line-args-left))))
+                                         command-line-args-left))))
-	(error
+        (error
-	 (prin1 (list 'async-signal err)))))))
+         (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.
+        ;; Subordinate Emacs will send text encoded in UTF-8.
-	(coding-system-for-read 'utf-8-auto))
+        (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
+             (with-temp-buffer
-                 (async--insert-sexp (list 'quote sexp))
+               (async--insert-sexp (list 'quote sexp))
-                 (buffer-string)))))
+               (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)

elpa/async-20200113.1745/dired-async.el

@@ -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
+      (run-with-timer
-         0.1 nil
+       0.1 nil
-         (lambda ()
+       (lambda ()
-           ;; First send error messages.
+         ;; First send error messages.
-           (cond (failures
+         (cond (failures
-                  (funcall dired-async-message-function
+                (funcall dired-async-message-function
-                           "%s failed for %d of %d file%s -- See *Dired log* buffer"
+                         "%s failed for %d of %d file%s -- See *Dired log* buffer"
-                           'dired-async-failures
+                         'dired-async-failures
-                           (car operation) (length failures)
+                         (car operation) (length failures)
-                           total (dired-plural-s total)))
+                         total (dired-plural-s total)))
-                 (skipped
+               (skipped
-                  (funcall dired-async-message-function
+                (funcall dired-async-message-function
-                           "%s: %d of %d file%s skipped -- See *Dired log* buffer"
+                         "%s: %d of %d file%s skipped -- See *Dired log* buffer"
-                           'dired-async-failures
+                         'dired-async-failures
-                           (car operation) (length skipped) total
+                         (car operation) (length skipped) total
-                           (dired-plural-s total))))
+                         (dired-plural-s total))))
-           (when dired-buffers
+         (when dired-buffers
-             (cl-loop for (_f . b) in dired-buffers
+           (cl-loop for (_f . b) in dired-buffers
-                      when (buffer-live-p b)
+                    when (buffer-live-p b)
-                      do (with-current-buffer 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)))))
+                           (revert-buffer nil t)))))
-           ;; Finally send the success message.
+         ;; Finally send the success message.
-           (funcall dired-async-message-function
+         (funcall dired-async-message-function
-                    "Asynchronous %s of %s on %s file%s done"
+                  "Asynchronous %s of %s on %s file%s done"
-                    'dired-async-message
+                  'dired-async-message
-                    (car operation) (cadr operation)
+                  (car operation) (cadr operation)
-                    total (dired-plural-s total)))))))
+                  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))
+          (let* ((overwrite (and (null (eq file-creator 'backup-file))
-                                   (file-exists-p to)))
+                                 (file-exists-p to)))
-                   (dired-overwrite-confirmed ; for dired-handle-overwrite
+                 (dired-overwrite-confirmed ; for dired-handle-overwrite
-                    (and overwrite
+                  (and overwrite
-                         (let ((help-form `(format "\
+                       (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)))))
+                         (dired-query 'overwrite-query "Overwrite `%s'?" to)))))
-              ;; Handle the `dired-copy-file' file-creator specially
+            ;; Handle the `dired-copy-file' file-creator specially
-              ;; When copying a directory to another directory or
+            ;; When copying a directory to another directory or
-              ;; possibly to itself or one of its subdirectories.
+            ;; possibly to itself or one of its subdirectories.
-              ;; e.g "~/foo/" => "~/test/"
+            ;; e.g "~/foo/" => "~/test/"
-              ;; or "~/foo/" =>"~/foo/"
+            ;; or "~/foo/" =>"~/foo/"
-              ;; or "~/foo/ => ~/foo/bar/")
+            ;; or "~/foo/ => ~/foo/bar/")
-              ;; In this case the 'name-constructor' have set the destination
+            ;; In this case the 'name-constructor' have set the destination
-              ;; TO to "~/test/foo" because the old emacs23 behavior
+            ;; TO to "~/test/foo" because the old emacs23 behavior
-              ;; of `copy-directory' was to not create the subdirectory
+            ;; of `copy-directory' was to not create the subdirectory
-              ;; and instead copy the contents.
+            ;; and instead copy the contents.
-              ;; With the new behavior of `copy-directory'
+            ;; With the new behavior of `copy-directory'
-              ;; (similar to the `cp' shell command) we don't
+            ;; (similar to the `cp' shell command) we don't
-              ;; need such a construction of the target directory,
+            ;; need such a construction of the target directory,
-              ;; so modify the destination TO to "~/test/" instead of "~/test/foo/".
+            ;; so modify the destination TO to "~/test/" instead of "~/test/foo/".
-              (let ((destname (file-name-directory to)))
+            (let ((destname (file-name-directory to)))
-                (when (and (file-directory-p from)
+              (when (and (file-directory-p from)
-                           (file-directory-p to)
+                         (file-directory-p to)
-                           (eq file-creator 'dired-copy-file))
+                         (eq file-creator 'dired-copy-file))
-                  (setq to destname))
+                (setq to destname))
-                ;; If DESTNAME is a subdirectory of FROM, not a symlink,
+              ;; If DESTNAME is a subdirectory of FROM, not a symlink,
-                ;; and the method in use is copying, signal an error.
+              ;; and the method in use is copying, signal an error.
-                (and (eq t (car (file-attributes destname)))
+              (and (eq t (car (file-attributes destname)))
-                     (eq file-creator 'dired-copy-file)
+                   (eq file-creator 'dired-copy-file)
-                     (file-in-directory-p destname from)
+                   (file-in-directory-p destname from)
-                     (error "Cannot copy `%s' into its subdirectory `%s'"
+                   (error "Cannot copy `%s' into its subdirectory `%s'"
-                            from to)))
+                          from to)))
-              (if overwrite
+            (if overwrite
-                  (or (and dired-overwrite-confirmed
+                (or (and dired-overwrite-confirmed
-                           (push (cons from to) async-fn-list))
+                         (push (cons from to) async-fn-list))
-                      (progn
+                    (progn
-                        (push (dired-make-relative from) failures)
+                      (push (dired-make-relative from) failures)
-                        (dired-log "%s `%s' to `%s' failed\n"
+                      (dired-log "%s `%s' to `%s' failed\n"
-                                   operation from to)))
+                                 operation from to)))
-                  (push (cons from to) async-fn-list)))))
+              (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
+              (dired-async-after-file-create
-                total (list operation (length async-fn-list)) failures skipped)
+               total (list operation (length async-fn-list)) failures skipped)
-               (when (string= (downcase operation) "rename")
+              (when (string= (downcase operation) "rename")
-                 (cl-loop for (file . to) in async-fn-list
+                (cl-loop for (file . to) in async-fn-list
-                          for bf = (get-file-buffer file)
+                         for bf = (get-file-buffer file)
-                          for destp = (file-exists-p to)
+                         for destp = (file-exists-p to)
-                          do (and bf destp
+                         do (and bf destp
-                                  (with-current-buffer bf
+                                 (with-current-buffer bf
-                                    (set-visited-file-name to t t))))))))
+                                   (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))
+                      (let ((dired-recursive-copies (quote always))
-                                (dired-copy-preserve-time
+                            (dired-copy-preserve-time
-                                 ,dired-copy-preserve-time))
+                             ,dired-copy-preserve-time))
-                            (setq overwrite-backup-query nil)
+                        (setq overwrite-backup-query nil)
-                            ;; Inline `backup-file' as long as it is not
+                        ;; Inline `backup-file' as long as it is not
-                            ;; available in emacs.
+                        ;; available in emacs.
-                            (defalias 'backup-file
+                        (defalias 'backup-file
-                                ;; Same feature as "cp -f --backup=numbered from to"
+                          ;; Same feature as "cp -f --backup=numbered from to"
-                                ;; Symlinks are copied as file from source unlike
+                          ;; Symlinks are copied as file from source unlike
-                                ;; `dired-copy-file' which is same as cp -d.
+                          ;; `dired-copy-file' which is same as cp -d.
-                                ;; Directories are omitted.
+                          ;; Directories are omitted.
-                                (lambda (from to ok)
+                          (lambda (from to ok)
-                                  (cond ((file-directory-p from) (ignore))
+                            (cond ((file-directory-p from) (ignore))
-                                        (t (let ((count 0))
+                                  (t (let ((count 0))
-                                             (while (let ((attrs (file-attributes to)))
+                                       (while (let ((attrs (file-attributes to)))
-                                                      (and attrs (null (nth 0 attrs))))
+                                                (and attrs (null (nth 0 attrs))))
-                                               (cl-incf count)
+                                         (cl-incf count)
-                                               (setq to (concat (file-name-sans-versions to)
+                                         (setq to (concat (file-name-sans-versions to)
-                                                                (format ".~%s~" count)))))
+                                                          (format ".~%s~" count)))))
-                                           (condition-case err
+                                     (condition-case err
-                                               (copy-file from to ok dired-copy-preserve-time)
+                                         (copy-file from to ok dired-copy-preserve-time)
-                                             (file-date-error
+                                       (file-date-error
-                                              (dired-log "Can't set date on %s:\n%s\n" from err)))))))
+                                        (dired-log "Can't set date on %s:\n%s\n" from err)))))))
-                            ;; Now run the FILE-CREATOR function on files.
+                        ;; Now run the FILE-CREATOR function on files.
-                            (cl-loop with fn = (quote ,file-creator)
+                        (cl-loop with fn = (quote ,file-creator)
-                                     for (from . dest) in (quote ,async-fn-list)
+                                 for (from . dest) in (quote ,async-fn-list)
-                                     do (condition-case err
+                                 do (condition-case err
-                                            (funcall fn from dest t)
+                                        (funcall fn from dest t)
-                                          (file-error
+                                      (file-error
-                                           (dired-log "%s: %s\n" (car err) (cdr err)))
+                                       (dired-log "%s: %s\n" (car err) (cdr err)))
-                                          nil))
+                                      nil))
                         (when (get-buffer dired-log-buffer)
                           (dired-log t)
                           (with-current-buffer dired-log-buffer
-                           (write-region (point-min) (point-max)
+                            (write-region (point-min) (point-max)
-                                         ,dired-async-log-file))))
+                                          ,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)
+    (if (fboundp 'advice-remove)
-          (progn (advice-remove 'dired-create-files #'dired-async-create-files)
+        (progn (advice-remove 'dired-create-files #'dired-async-create-files)
-                 (advice-remove 'wdired-do-renames #'dired-async-wdired-do-renames))
+               (advice-remove 'wdired-do-renames #'dired-async-wdired-do-renames))
-          (ad-deactivate 'dired-create-files)
+      (ad-deactivate 'dired-create-files)
-          (ad-deactivate 'wdired-do-renames))))
+      (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)
 

elpa/company-20200110.929/company-gtags.el

@@ -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

elpa/company-20200110.929/company-pkg.el

@@ -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")

elpa/company-20200110.929/company.el

@@ -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 function receives the candidate number (starting from 1) and should
-the number of candidates (from 1 to 10 means 1st to 10th candidate) 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
+                                          left
-                                           company-tooltip-margin)
                                           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.
+      ;; Beat outline's folding overlays.
-      (overlay-put ov 'priority 1)
+      ;; 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

elpa/dash-20191109.1327/dash-pkg.el

@@ -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"))

elpa/dash-20200119.2310/dash-autoloads.el

@@ -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:

elpa/dash-20200119.2310/dash-pkg.el

@@ -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:

elpa/dash-20200119.2310/dash.el

@@ -3,8 +3,7 @@
 ;; Copyright (C) 2012-2016 Free Software Foundation, Inc.
 
 ;; Author: Magnar Sveen <magnars@gmail.com>
-;; Version: 2.16.0
+;; Version: 2.17.0
-;; Package-Version: 20191109.1327
 ;; 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
+Use `-zip-lists' if you need the return value to always be a list
-release of Dash. If you rely on this behavior, use `-zip-pair` instead,
+of lists.
-which will retain that behaviour in future versions.
 
-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"

elpa/dash-20200119.2310/dir

@@ -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

elpa/dashboard-20200121.1429/dashboard-pkg.el

@@ -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

elpa/dashboard-20200121.1429/dashboard-widgets.el

@@ -119,17 +119,21 @@ Example:
 (defconst dashboard-banner-length 75
   "Width of a banner.")
 
-(defvar dashboard-banner-logo-title "Welcome to Emacs!"
+(defcustom dashboard-banner-logo-title "Welcome to Emacs!"
-  "Specify the startup banner.")
+  "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
+(defcustom dashboard-buffer-last-width nil
-  "Previous width of dashboard-buffer.")
+  "Previous width of dashboard-buffer."
+  :type  'integer
+  :group 'dashboard)
 
-(defvar dashboard-item-generators  '((recents   . dashboard-insert-recents)
+(defcustom dashboard-item-generators  '((recents   . dashboard-insert-recents)
-                                     (bookmarks . dashboard-insert-bookmarks)
+                                        (bookmarks . dashboard-insert-bookmarks)
-                                     (projects  . dashboard-insert-projects)
+                                        (projects  . dashboard-insert-projects)
-                                     (agenda    . dashboard-insert-agenda)
+                                        (agenda    . dashboard-insert-agenda)
-                                     (registers . dashboard-insert-registers)))
+                                        (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)
+(defcustom dashboard-items '((recents   . 5)
-                          (bookmarks . 5)
+                             (bookmarks . 5)
-                          (agenda    . 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")
+(defcustom dashboard-heading-icons '((recents   . "history")
-                                  (bookmarks . "bookmark")
+                                     (bookmarks . "bookmark")
-                                  (agenda    . "calendar")
+                                     (agenda    . "calendar")
-                                  (projects . "rocket")
+                                     (projects . "rocket")
-                                  (registers . "database"))
+                                     (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))

elpa/dashboard-20200121.1429/dashboard.el

@@ -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)

elpa/dashboard-readme.txt

@@ -1,2 +0,0 @@
-An extensible Emacs dashboard, with sections for
-bookmarks, projectile projects, org-agenda and more.

elpa/dockerfile-mode-20200106.2126/dockerfile-mode-autoloads.el

@@ -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)
 

elpa/dockerfile-mode-20200106.2126/dockerfile-mode-pkg.el

@@ -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")

elpa/dockerfile-mode-20200106.2126/dockerfile-mode.el

@@ -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\C-b" #'dockerfile-build-buffer)
-    (define-key map "\C-c\M-b" 'dockerfile-build-no-cache-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-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
-      (compilation-start
+        (format
-       (format
+            "%s%s build %s %s %s -f %s %s"
-        "%s%s build %s -t %s %s -f %s %s"
+            (if dockerfile-use-sudo "sudo " "")
-        (if dockerfile-use-sudo "sudo " "")
+            dockerfile-mode-command
-	dockerfile-mode-command
+            (if no-cache "--no-cache" "")
-        (if no-cache "--no-cache" "")
+            (dockerfile-tag-string image-name)
-        (shell-quote-argument image-name)
+            (dockerfile-build-arg-string)
-        (dockerfile-build-arg-string)
+            (shell-quote-argument (dockerfile-standard-filename (buffer-file-name)))
-        (shell-quote-argument (dockerfile-standard-filename (buffer-file-name)))
+            (shell-quote-argument (dockerfile-standard-filename default-directory)))
-        (shell-quote-argument (dockerfile-standard-filename default-directory)))
+    nil
-       nil
+    (lambda (_) (format "*docker-build-output: %s *" image-name))))
-       (lambda (_) (format "*docker-build-output: %s *" image-name)))
-    (print "dockerfile-image-name must be a string, consider surrounding it with double quotes")))
 
 ;;;###autoload
 (defun dockerfile-build-no-cache-buffer (image-name)

elpa/ein-20200127.249/ein-cell-edit.el

@@ -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)
+    (intern (ein:$kernelspec-language kernelspec))))
-      (("julia" "python" "R") (intern (ein:$kernelspec-language kernelspec)))
+    ;; (ein:case-equal (ein:$kernelspec-language kernelspec)
-      (t 'python))))
+    ;;   (("julia" "python" "R") )
+    ;;   (t 'python))))
 
 (defun ein:edit-src-continue (e)
   (interactive "e")

elpa/ein-20200127.249/ein-cell.el

@@ -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)