Update all my elpa files

elpa/slime-20180413.1720/contrib/slime-banner.el

@@ -0,0 +1,35 @@
+(require 'slime)
+(require 'slime-repl)
+
+(define-slime-contrib slime-banner
+  "Persistent header line and startup animation."
+  (:authors "Helmut Eller <heller@common-lisp.net>"
+            "Luke Gorrie  <luke@synap.se>")
+  (:license "GPL")
+  (:on-load   (setq slime-repl-banner-function 'slime-startup-message))
+  (:on-unload (setq slime-repl-banner-function 'slime-repl-insert-banner)))
+
+(defcustom slime-startup-animation (fboundp 'animate-string)
+   "Enable the startup animation."
+   :type '(choice (const :tag "Enable" t) (const :tag "Disable" nil))
+   :group 'slime-ui)
+
+(defcustom slime-header-line-p (boundp 'header-line-format)
+  "If non-nil, display a header line in Slime buffers."
+  :type 'boolean
+  :group 'slime-repl)
+
+(defun slime-startup-message ()
+  (when slime-header-line-p
+    (setq header-line-format 
+          (format "%s  Port: %s  Pid: %s"
+                  (slime-lisp-implementation-type)
+                  (slime-connection-port (slime-connection))
+                  (slime-pid))))
+  (when (zerop (buffer-size))
+    (let ((welcome (concat "; SLIME " slime-version)))
+      (if slime-startup-animation
+          (animate-string welcome 0 0) 
+        (insert welcome)))))
+
+(provide 'slime-banner)