Upgrade packages

elpa/archives/gnu/archive-contents

@@ -402,12 +402,12 @@
 	      (24 1))
 	     (cl-lib
 	      (0 5)))
-	    "Major mode for editing comma/char separated values" single
-	    ((:url . "http://elpa.gnu.org/packages/csv-mode.html")
-	     (:keywords "convenience")
+	    "Major mode for editing comma/char separated values" tar
+	    ((:maintainer nil . "emacs-devel@gnu.org")
 	     (:authors
 	      ("\"Francis J. Wright\"" . "F.J.Wright@qmul.ac.uk"))
-	     (:maintainer nil . "emacs-devel@gnu.org"))])
+	     (:keywords "convenience")
+	     (:url . "http://elpa.gnu.org/packages/csv-mode.html"))])
  (cycle-quotes .
 	       [(0 1)
 		nil "Cycle between quote styles" tar
@@ -1517,7 +1517,7 @@
 	     ("Phillip Lord" . "phillip.lord@russet.org.uk"))
 	    (:url . "http://elpa.gnu.org/packages/persist.html"))])
  (phps-mode .
-	    [(0 3 28)
+	    [(0 3 32)
 	     ((emacs
 	       (26)))
 	     "Major mode for PHP with Semantic integration" tar

elpa/ein-20200215.1929/ein-notebook.el

@@ -1161,7 +1161,10 @@ Tried add-function: the &rest from :around is an emacs-25 compilation issue."
     `(if (functionp (quote ,defn))
          (progn
            (fset (quote ,km) (lambda () (interactive)
-                               (poly-ein-base (call-interactively (function ,defn)))))
+                               (condition-case err
+                                   (poly-ein-base (call-interactively (function ,defn)))
+                                 (cl-no-method (message "%s: no applicable method" (quote ,km)))
+                                 (error (message "%s: %s" (quote ,km) (error-message-string err))))))
            (define-key ,keymap ,key (quote ,km)))
        (define-key ,keymap ,key (quote ,defn)))))
 

elpa/ein-20200215.1929/ein-pkg.el

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

elpa/ein-20200215.1929/poly-ein.el

@@ -139,11 +139,9 @@
          (pm-allow-post-command-hook nil)
          (pm-initialization-in-progress t))
      (poly-ein--set-buffer derived-buffer base-buffer)
-     (condition-case err
-         (prog1 (progn ,@body)
-           (poly-ein--set-buffer base-buffer derived-buffer))
-       (error (message "%s" (error-message-string err))
-              (poly-ein--set-buffer base-buffer derived-buffer)))))
+     (unwind-protect
+         (progn ,@body)
+       (poly-ein--set-buffer base-buffer derived-buffer))))
 
 (defclass pm-inner-overlay-chunkmode (pm-inner-auto-chunkmode)
   ()
@@ -155,10 +153,9 @@
 TYPE can be 'body, nil."
   (poly-ein-base
    (setq pos (or pos (point)))
-   ;; Assume: ein:worksheet-get-current-cell always returns non-nil
-   (let ((result-cm cm)
-         (span `(nil ,(point-min) ,(point-min)))
-         (cell (ein:worksheet-get-current-cell :pos pos :noerror nil)))
+   (when-let ((result-cm cm)
+              (span `(nil ,(point-min) ,(point-min)))
+              (cell (ein:worksheet-get-current-cell :pos pos :noerror t)))
      ;; Change :mode if necessary
      (-when-let* ((lang
                    (condition-case err
@@ -185,12 +182,12 @@ TYPE can be 'body, nil."
              (ein:display-warning warning))))
        (setq result-cm
              (cl-loop for ocm in (eieio-oref pm/polymode '-auto-innermodes)
-                   when (equal mode (ein:oref-safe ocm 'mode))
-                   return ocm
-                   finally return (let ((new-mode (clone cm :mode mode)))
-                                    (object-add-to-list pm/polymode '-auto-innermodes
-                                                    new-mode)
-                                    new-mode))))
+                      when (equal mode (ein:oref-safe ocm 'mode))
+                      return ocm
+                      finally return (let ((new-mode (clone cm :mode mode)))
+                                       (object-add-to-list pm/polymode '-auto-innermodes
+                                                           new-mode)
+                                       new-mode))))
      ;; Span is a zebra pattern of "body" (within input cell) and "nil"
      ;; (outside input cell).  Decide boundaries of span and return it.
      (let ((rel (poly-ein--relative-to-input pos cell)))
@@ -257,6 +254,27 @@ TYPE can be 'body, nil."
     (add-function :around (local 'font-lock-syntactic-face-function)
                   (apply-partially #'poly-ein--narrow-to-inner #'identity))))
 
+(defun poly-ein--record-window-buffer ()
+  "(pm--visible-buffer-name) needs to get onto window's prev-buffers.
+But `C-x b` seems to consult `buffer-list' and not the C (window)->prev_buffers."
+  (when (buffer-base-buffer)
+    (let* ((buffer-list (frame-parameter nil 'buffer-list))
+           (pos-visible (seq-position
+                         buffer-list
+                         (pm--visible-buffer-name)
+                         (lambda (x visible*)
+                           (string-prefix-p (buffer-name x) visible*)))))
+      ;; no way to know if i've switched in or out of indirect buf.
+      ;; (if in, I *don't* want to add visible to buffer-list)
+      (cond ((and (numberp pos-visible) (> pos-visible 0))
+             (let ((visible-buffer (nth pos-visible buffer-list)))
+               (setcdr (nthcdr (1- pos-visible) buffer-list)
+                       (nthcdr (1+ pos-visible) buffer-list))
+               (set-frame-parameter nil 'buffer-list (cons visible-buffer buffer-list))))
+            ((null pos-visible)
+             (set-frame-parameter nil 'buffer-list
+                                  (cons (buffer-base-buffer) buffer-list)))))))
+
 (defun poly-ein-init-input-cell (_type)
   "Contrary to intuition, this inits the entire buffer of input cells
 (collectively denoted by the chunkmode pm-inner/ein-input-cell), not each individual one."
@@ -265,6 +283,7 @@ TYPE can be 'body, nil."
   (poly-ein-copy-state (pm-base-buffer) (current-buffer))
   (setq-local font-lock-dont-widen t)
   (setq-local syntax-propertize-chunks 0) ;; internal--syntax-propertize too far
+  (add-hook 'buffer-list-update-hook #'poly-ein--record-window-buffer nil t)
   (ein:notebook-mode))
 
 (defcustom pm-host/ein

elpa/with-editor-20200214.1647/with-editor-pkg.el

@@ -1,4 +1,4 @@
-(define-package "with-editor" "20200204.1828" "Use the Emacsclient as $EDITOR"
+(define-package "with-editor" "20200214.1647" "Use the Emacsclient as $EDITOR"
   '((emacs "24.4")
     (async "1.9"))
   :keywords

elpa/with-editor-20200214.1647/with-editor.el

@@ -176,7 +176,7 @@ please see https://github.com/magit/magit/wiki/Emacsclient."))))
 
 (defcustom with-editor-sleeping-editor "\
 sh -c '\
-echo -e \"WITH-EDITOR: $$ OPEN $0\\037 IN $(pwd)\"; \
+printf \"WITH-EDITOR: $$ OPEN $0\\037 IN $(pwd)\\n\"; \
 sleep 604800 & sleep=$!; \
 trap \"kill $sleep; exit 0\" USR1; \
 trap \"kill $sleep; exit 1\" USR2; \

kitty.conf

@@ -323,7 +323,7 @@ window_border_width 0
 #: borders are displayed only when more than one window is visible.
 #: They are meant to separate multiple windows.
 
-draw_minimal_borders no
+draw_minimal_borders yes
 
 #: Draw only the minimum borders needed. This means that only the
 #: minimum needed borders for inactive windows are drawn. That is only