Update packages

elpa/archives/gnu/archive-contents

@@ -1549,7 +1549,7 @@
 	     ("Phillip Lord" . "phillip.lord@russet.org.uk"))
 	    (:url . "http://elpa.gnu.org/packages/persist.html"))])
  (phps-mode .
-	    [(0 3 39)
+	    [(0 3 41)
 	     ((emacs
 	       (26)))
 	     "Major mode for PHP with Semantic integration" tar
@@ -1874,7 +1874,7 @@
  (smalltalk-mode .
 		 [(3 2 92)
 		  nil "Major mode for the GNU Smalltalk programming language" tar
-		  ((:maintainer "Derek Zhou" . "derek@shannon-data.com")
+		  ((:maintainer "Derek Zhou" . "derek@3qin.us")
 		   (:authors
 		    ("Steve Byrne"))
 		   (:url . "http://elpa.gnu.org/packages/smalltalk-mode.html"))])

elpa/ein-20200415.238/ein-autoloads.el

@@ -331,7 +331,7 @@ and the url-or-port argument of ein:notebooklist-open*.
 ;;;### (autoloads nil "ein-pytools" "ein-pytools.el" (0 0 0 0))
 ;;; Generated autoloads from ein-pytools.el
 
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ein-pytools" '("ein:pytools-")))
+(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ein-pytools" '("ein:pytools-jump-")))
 
 ;;;***
 

elpa/ein-20200415.238/ein-notebook.el

@@ -1140,7 +1140,6 @@ Tried add-function: the &rest from :around is an emacs-25 compilation issue."
   (ein:notebook--define-key map (kbd "C-c <down>") ein:worksheet-move-cell-down)
   (ein:notebook--define-key map (kbd "M-<up>") ein:worksheet-not-move-cell-up)
   (ein:notebook--define-key map (kbd "M-<down>") ein:worksheet-not-move-cell-down)
-  (ein:notebook--define-key map "\C-c\C-h" ein:pytools-request-help)
   (ein:notebook--define-key map (kbd "C-c C-$") ein:tb-show)
   (ein:notebook--define-key map "\C-c\C-x" nil)
   (ein:notebook--define-key map "\C-c\C-x\C-r" ein:notebook-restart-session-command)
@@ -1233,9 +1232,7 @@ Tried add-function: the &rest from :around is an emacs-25 compilation issue."
             ))
        "---"
        ,@(ein:generate-menu
-          '(("Show object help"
-             ein:pytools-request-help)
-            ("Jump to definition" ein:pytools-jump-to-source-command)
+          '(("Jump to definition" ein:pytools-jump-to-source-command)
             ("Go back to the previous jump point"
              ein:pytools-jump-back-command))))
       ("Kernel"

elpa/ein-20200415.238/ein-pkg.el

@@ -1,4 +1,4 @@
-(define-package "ein" "20200410.1735" "Emacs IPython Notebook"
+(define-package "ein" "20200415.238" "Emacs IPython Notebook"
   '((emacs "25")
     (websocket "20190620.338")
     (anaphora "20180618")

elpa/ein-20200415.238/ein-pytools.el

@@ -27,16 +27,6 @@
 
 (require 'ein-kernel)
 
-(defun ein:pytools-request-help (kernel func)
-  (interactive (list (ein:get-kernel-or-error)
-                     (ein:object-at-point-or-error)))
-  (ein:kernel-execute kernel
-                      (format "%s?" func) ; = code
-                      nil                 ; = callbacks
-                      ;; It looks like that magic command does
-                      ;; not work in silent mode.
-                      :silent nil))
-
 (defun ein:pytools-jump-to-source-command (&optional other-window)
   "Jump to the source code of the object at point.
 When the prefix argument ``C-u`` is given, open the source code

elpa/ein-20200415.238/ein.el

@@ -29,6 +29,9 @@
 ;; notebooks within Emacs.  It channels all the power of Emacs without the
 ;; idiosyncrasies of in-browser editing.
 ;;
+;; No require statements, e.g. ``require ein``, are necessary, contrary to the
+;; `prevailing documentation`_, which should be disregarded.
+;;
 ;; Org_ users please find ob-ein_, a jupyter Babel_ backend.
 ;;
 ;; EIN was originally written by `[tkf]`_.  A jupyter Babel_ backend was first

elpa/leuven-theme-20200416.728/leuven-theme-pkg.el

@@ -1,4 +1,4 @@
-(define-package "leuven-theme" "20200406.1341" "Awesome Emacs color theme on white background" 'nil :keywords
+(define-package "leuven-theme" "20200416.728" "Awesome Emacs color theme on white background" 'nil :keywords
   '("color" "theme")
   :authors
   '(("Fabrice Niessen <(concat \"fniessen\" at-sign \"pirilampo.org\")>"))

elpa/leuven-theme-20200416.728/leuven-theme.el

@@ -4,7 +4,7 @@
 
 ;; Author: Fabrice Niessen <(concat "fniessen" at-sign "pirilampo.org")>
 ;; URL: https://github.com/fniessen/emacs-leuven-theme
-;; Version: 20200406.1540
+;; Version: 20200406.1542
 ;; Keywords: color theme
 
 ;; This file is part of GNU Emacs.
@@ -761,7 +761,7 @@ more...")
    `(org-document-info-keyword ((,class (:foreground "#008ED1" :background "#EAEAFF"))))
    `(org-document-title ((,class (:height 1.8 :weight bold :foreground "black"))))
    `(org-done ((,class (:weight bold :box (:line-width 1 :color "#BBBBBB") :foreground "#BBBBBB" :background "#F0F0F0"))))
-   `(org-drawer ((,class (:foreground "light sky blue"))))
+   `(org-drawer ((,class (:weight bold :foreground "#00BB00" :background "#EAFFEA" :extend nil))))
    `(org-ellipsis ((,class (:underline nil :foreground "#999999")))) ; #FFEE62
    `(org-example ((,class (:foreground "blue" :background "#EAFFEA"))))
    `(org-footnote ((,class (:underline t :foreground "#008ED1"))))

elpa/olivetti-20200320.1154/olivetti-pkg.el

@@ -1,2 +0,0 @@
-;;; -*- no-byte-compile: t -*-
-(define-package "olivetti" "20200320.1154" "Minor mode for a nice writing environment" '((emacs "24.5")) :commit "5dc27716c706166e1932f4a0e9f94384b6d17cb0" :keywords '("wp" "text") :authors '(("William Rankin" . "code@william.bydasein.com")) :maintainer '("William Rankin" . "code@william.bydasein.com") :url "https://gthub.com/rnkn/olivetti")

elpa/olivetti-20200414.328/olivetti-pkg.el

@@ -0,0 +1,2 @@
+;;; -*- no-byte-compile: t -*-
+(define-package "olivetti" "20200414.328" "Minor mode for a nice writing environment" '((emacs "24.5")) :commit "560ac499e0ad6bd0db36972055d64f7a65ffc9f2" :keywords '("wp" "text") :authors '(("William Rankin" . "code@william.bydasein.com")) :maintainer '("William Rankin" . "code@william.bydasein.com") :url "https://gthub.com/rnkn/olivetti")

elpa/olivetti-20200414.328/olivetti.el

@@ -6,8 +6,8 @@
 
 ;; Author: William Rankin <code@william.bydasein.com>
 ;; Keywords: wp, text
-;; Package-Version: 20200320.1154
-;; Version: 1.9.3
+;; Package-Version: 20200414.328
+;; Version: 1.10.0-beta
 ;; Package-Requires: ((emacs "24.5"))
 ;; URL: https://gthub.com/rnkn/olivetti
 
@@ -161,91 +161,7 @@ exiting. The reverse is not true."
   :safe 'booleanp)
 
 
-;;; Set Environment
-
-(defun olivetti-set-all-margins ()
-  "Balance window margins in all windows displaying current buffer.
-
-Cycle through all windows in all frames displaying the current
-buffer, and call `olivetti-set-margins'."
-  (dolist (window (get-buffer-window-list nil nil t))
-    (olivetti-set-margins window)))
-
-(defun olivetti-set-margins (&optional frame-or-window)
-  "Balance window margins displaying current buffer.
-
-If FRAME-OR-WINDOW is a frame, cycle through windows displaying
-current buffer in that frame, otherwise only work on the selected
-window.
-
-First find the `olivetti-safe-width' to which to set
-`olivetti-body-width', then find the appropriate margin size
-relative to each window. Finally set the window margins, taking
-care that the maximum size is 0."
-  (if (framep frame-or-window)
-      (dolist (window (get-buffer-window-list nil nil frame-or-window))
-        (olivetti-set-margins window))
-    ;; FRAME-OR-WINDOW passed below *must* be a window
-    (olivetti-reset-window frame-or-window)
-    (let ((width (olivetti-safe-width olivetti-body-width frame-or-window))
-          (frame (window-frame frame-or-window))
-          (window-width (window-total-width frame-or-window))
-          (fringes (window-fringes frame-or-window))
-          left-fringe right-fringe margin-total left-margin right-margin)
-      (cond ((integerp width)
-             (setq width (olivetti-scale-width width)))
-            ((floatp width)
-             (setq width (* window-width width))))
-      (setq left-fringe (/ (car fringes) (float (frame-char-width frame)))
-            right-fringe (/ (cadr fringes) (float (frame-char-width frame))))
-      (setq margin-total (max (/ (- window-width width) 2) 0)
-            left-margin (max (round (- margin-total left-fringe)) 0)
-            right-margin (max (round (- margin-total right-fringe)) 0))
-      (set-window-parameter frame-or-window 'split-window 'olivetti-split-window)
-      (set-window-margins frame-or-window left-margin right-margin))))
-
-(defun olivetti-reset-all-windows ()
-  "Remove Olivetti's parameters and margins from all windows.
-
-Cycle through all windows displaying current buffer and call
-`olivetti-reset-window'."
-  (dolist (window (get-buffer-window-list nil nil t))
-    (olivetti-reset-window window)))
-
-(defun olivetti-reset-window (window)
-  "Remove Olivetti's parameters and margins from WINDOW."
-  (when (eq (window-parameter window 'split-window) 'olivetti-split-window)
-    (set-window-parameter window 'split-window nil))
-  (set-window-margins window nil))
-
-(defun olivetti-split-window (&optional window size side pixelwise)
-  "Call `split-window' after resetting WINDOW.
-Pass SIZE, SIDE and PIXELWISE unchanged."
-  (olivetti-reset-window window)
-  (split-window window size side pixelwise))
-
-(defun olivetti-split-window-sensibly (&optional window)
-  "Like `olivetti-split-window' but call `split-window-sensibly'.
-Pass WINDOW unchanged."
-  (olivetti-reset-window window)
-  (split-window-sensibly window))
-
-
-;;; Calculate Width
-
-(defun olivetti-scale-width (n)
-  "Scale N in accordance with the face height.
-
-For compatibility with `text-scale-mode', if
-`face-remapping-alist' includes a :height property on the default
-face, scale N by that factor if it is a fraction, by (height/100)
-if it is an integer, and otherwise scale by 1."
-  (let
-      ((height (plist-get (cadr (assq 'default face-remapping-alist)) :height)))
-    (cond
-     ((integerp height) (* n (/ height 100.0)))
-     ((floatp height) (* n height))
-     (t n))))
+;;; Set Windows
 
 (defun olivetti-safe-width (width window)
   "Parse WIDTH to a safe value for `olivetti-body-width' for WINDOW.
@@ -264,21 +180,88 @@ May return a float with many digits of precision."
            (max min-width (min width (floor window-width))))
           ((floatp width)
            (max (/ min-width window-width) (min width 1.0)))
-          ((user-error "`olivetti-body-width' must be an integer or a float")
-           ;; FIXME: This code is unreachable since we signal an error before
-           ;; getting here!?
-           (eval (car (get 'olivetti-body-width 'standard-value)) t)))))
+          (t
+           (message "`olivetti-body-width' must be an integer or a float")
+           (eval (car (get 'olivetti-body-width 'standard-value)))))))
 
-
-;;; Keymap
+(defun olivetti-scale-width (n)
+  "Scale N in accordance with the face height.
 
-(defvar olivetti-mode-map
-  (let ((map (make-sparse-keymap)))
-    (define-key map (kbd "C-c }") #'olivetti-expand)
-    (define-key map (kbd "C-c {") #'olivetti-shrink)
-    (define-key map (kbd "C-c \\") #'olivetti-set-width)
-    map)
-  "Mode map for `olivetti-mode'.")
+For compatibility with `text-scale-mode', if
+`face-remapping-alist' includes a :height property on the default
+face, scale N by that factor if it is a fraction, by (height/100)
+if it is an integer, and otherwise scale by 1 (i.e. return N)."
+  (let
+      ((height (plist-get (cadr (assq 'default face-remapping-alist)) :height)))
+    (cond
+     ((integerp height) (* n (/ height 100.0)))
+     ((floatp height) (* n height))
+     (t (* n 1)))))
+
+(defun olivetti-reset-window (window)
+  "Remove Olivetti's parameters and margins from WINDOW."
+  (when (eq (window-parameter window 'split-window) 'olivetti-split-window)
+    (set-window-parameter window 'split-window nil))
+  (set-window-margins window nil)
+  (set-window-parameter window 'min-margins nil))
+
+(defun olivetti-reset-all-windows ()
+  "Call `olivetti-reset-windows' on all windows in current frame."
+  (mapc #'olivetti-reset-window (window-list nil 'no-minibuf)))
+
+(defun olivetti-split-window (&optional window size side pixelwise)
+  "Call `split-window' after resetting WINDOW.
+Pass SIZE, SIDE and PIXELWISE unchanged."
+  (olivetti-reset-all-windows)
+  (split-window window size side pixelwise))
+
+(defun olivetti-split-window-sensibly (&optional window)
+  "Like `olivetti-split-window' but call `split-window-sensibly'.
+Pass WINDOW unchanged."
+  (olivetti-reset-all-windows)
+  (split-window-sensibly window))
+
+(defun olivetti-set-window (window-or-frame)
+  "Balance window margins displaying current buffer.
+
+If WINDOW-OR-FRAME is a frame, cycle through windows displaying
+current buffer in that frame, otherwise only work on the selected
+window.
+
+First find the `olivetti-safe-width' to which to set
+`olivetti-body-width', then find the appropriate margin size
+relative to each window. Finally set the window margins, taking
+care that the maximum size is 0."
+  (if (framep window-or-frame)
+      (mapc #'olivetti-set-window (get-buffer-window-list nil nil window-or-frame))
+    ;; WINDOW-OR-FRAME passed below *must* be a window
+    (with-selected-window window-or-frame
+      (when olivetti-mode
+        ;; (olivetti-reset-window window-or-frame)
+        (let ((width (olivetti-safe-width olivetti-body-width window-or-frame))
+              (frame (window-frame window-or-frame))
+              (window-width (window-total-width window-or-frame))
+              (fringes (window-fringes window-or-frame))
+              left-fringe right-fringe margin-total left-margin right-margin)
+          (cond ((integerp width)
+                 (setq width (olivetti-scale-width width)))
+                ((floatp width)
+                 (setq width (* window-width width))))
+          (setq left-fringe (/ (car fringes) (float (frame-char-width frame)))
+                right-fringe (/ (cadr fringes) (float (frame-char-width frame))))
+          (setq margin-total (max (/ (- window-width width) 2) 0)
+                left-margin (max (round (- margin-total left-fringe)) 0)
+                right-margin (max (round (- margin-total right-fringe)) 0))
+          (set-window-margins window-or-frame left-margin right-margin))
+        (set-window-parameter window-or-frame 'split-window 'olivetti-split-window)
+        (set-window-parameter window-or-frame 'min-margins (cons 0 0))))))
+
+(defun olivetti-set-buffer-windows ()
+  "Balance window margins in all windows displaying current buffer.
+
+Cycle through all windows in all visible frames displaying the
+current buffer, and call `olivetti-set-window'."
+  (mapc #'olivetti-set-window (get-buffer-window-list nil nil 'visible)))
 
 
 ;;; Width Interaction
@@ -293,7 +276,7 @@ fraction of the window width."
              (read-number "Set text body width (integer or float): "
                           olivetti-body-width))))
   (setq olivetti-body-width n)
-  (olivetti-set-all-margins)
+  (olivetti-set-buffer-windows)
   (message "Text body width set to %s" olivetti-body-width))
 
 (defun olivetti-expand (&optional arg)
@@ -307,7 +290,7 @@ If prefixed with ARG, incrementally decrease."
                   ((floatp olivetti-body-width)
                    (+ olivetti-body-width (* 0.01 p))))))
     (setq olivetti-body-width (olivetti-safe-width n (selected-window))))
-  (olivetti-set-all-margins)
+  (olivetti-set-buffer-windows)
   (message "Text body width set to %s" olivetti-body-width)
   (unless overriding-terminal-local-map
     (let ((keys (substring (this-single-command-keys) 0 -1))
@@ -323,6 +306,16 @@ If prefixed with ARG, incrementally increase."
   (let ((p (unless arg t)))
     (olivetti-expand p)))
 
+
+;;; Keymap
+
+(defvar olivetti-mode-map (make-sparse-keymap)
+  "Mode map for `olivetti-mode'.")
+
+(define-key olivetti-mode-map (kbd "C-c }") #'olivetti-expand)
+(define-key olivetti-mode-map (kbd "C-c {") #'olivetti-shrink)
+(define-key olivetti-mode-map (kbd "C-c \\") #'olivetti-set-width)
+
 
 ;;; Mode Definition
 
@@ -339,32 +332,32 @@ body width set with `olivetti-body-width'."
   :lighter olivetti-lighter
   (if olivetti-mode
       (progn
-        (add-hook 'text-scale-mode-hook
-                  #'olivetti-set-margins t t)
         (cond ((<= emacs-major-version 24)
                (add-hook 'window-configuration-change-hook
-                         #'olivetti-set-all-margins t t))
+                         #'olivetti-set-buffer-windows t t))
               ((<= emacs-major-version 26)
                (add-hook 'window-configuration-change-hook
-                         #'olivetti-set-all-margins t t)
+                         #'olivetti-set-buffer-windows t t)
                (add-hook 'window-size-change-functions
-                         #'olivetti-set-margins t t))
+                         #'olivetti-set-window t t))
               ((<= 27 emacs-major-version)
                (add-hook 'window-size-change-functions
-                         #'olivetti-set-margins t t)))
+                         #'olivetti-set-window t t)))
         (add-hook 'change-major-mode-hook
                   #'olivetti-reset-all-windows nil t)
+        (add-hook 'text-scale-mode-hook
+                  #'olivetti-set-buffer-windows t t)
         (setq-local split-window-preferred-function
                     #'olivetti-split-window-sensibly)
         (setq olivetti--visual-line-mode visual-line-mode)
         (unless olivetti--visual-line-mode (visual-line-mode 1))
-        (olivetti-set-all-margins))
-    (remove-hook 'text-scale-mode-hook
-                 #'olivetti-set-margins t)
+        (olivetti-set-buffer-windows))
     (remove-hook 'window-configuration-change-hook
-                 #'olivetti-set-all-margins t)
+                 #'olivetti-set-buffer-windows t)
     (remove-hook 'window-size-change-functions
-                 #'olivetti-set-margins t)
+                 #'olivetti-set-window t)
+    (remove-hook 'text-scale-mode-hook
+                 #'olivetti-set-window t)
     (olivetti-reset-all-windows)
     (when (and olivetti-recall-visual-line-mode-entry-state
                (not olivetti--visual-line-mode))

elpa/package-lint-20200415.606/package-lint-pkg.el

@@ -1,4 +1,4 @@
-(define-package "package-lint" "20200408.203" "A linting library for elisp package authors"
+(define-package "package-lint" "20200415.606" "A linting library for elisp package authors"
   '((cl-lib "0.5")
     (emacs "24.1")
     (let-alist "1.0.6"))

elpa/package-lint-20200415.606/package-lint.el

@@ -156,8 +156,8 @@ published in ELPA for use by older Emacsen.")
   "Return non-nil if the current buffer corresponds to the package's main file."
   (or (null package-lint-main-file)
       (null (buffer-file-name))
-      (eq (file-truename (expand-file-name package-lint-main-file))
-          (file-truename (buffer-file-name)))))
+      (string= (file-truename (expand-file-name package-lint-main-file))
+               (file-truename (buffer-file-name)))))
 
 (defun package-lint--check-all ()
   "Return a list of errors/warnings for the current buffer."