fiddlerwoaroof/dotfiles - Change 3AJMURUY5ZVID7Y5CMJXHSRT2ZZUCHZAWP7V77FTEPNLSD7UFVZQC

fwoar(emacs,json-navigator): switch to multi-buffer setup

Created by Edward on January 6, 2022

3AJMURUY5ZVID7Y5CMJXHSRT2ZZUCHZAWP7V77FTEPNLSD7UFVZQC

Dependencies

In channels

main

Change contents

File deletion: dependencies, dependencies
BFD:BFD[3.1] → [4.129:152]
BFD:BFD[3.1] → [4.129:152]
BFD:BFD[4.152] → [4.128:128]

Insertion in emacs.d/packages/fwoar-json-navigator.el at line 31 [5.212]

[5.1255]

(defvar-local fwoar/json-nav--prev-buffer nil)
(defvar-local fwoar/json-nav--start-buffer nil)
(require 'fwoar-functional-utils)
(defun fwoar/browse-json-response (url)
  (interactive "Murl? ")
  (let ((json (url-retrieve-synchronously url)))
    (comment
     (buffer (generate-new-buffer
              (format "*API result: %s*" url))))
    (with-current-buffer json
      (when-let* ((buffer-name (buffer-name))
                  ((s-prefix-p " " buffer-name)))
        (setf (buffer-name) (subseq buffer-name 1)))
      (json-mode)
      (goto-char (point-min))
      (kill-paragraph 1)
      (kill-line)
      (json-pretty-print-buffer)
      (comment
       (insert (with-current-buffer json
                 (buffer-string)))))
    (switch-to-buffer json)))

Replacement in emacs.d/packages/fwoar-json-navigator.el at line 114 [5.212]

B:BD[5.3504] → [5.3504:3542]

         (data fwoar/json-nav--data))

[5.3504]

[5.3542]

         (data fwoar/json-nav--data)
         (last-buffer (buffer-name)))

Replacement in emacs.d/packages/fwoar-json-navigator.el at line 121 [5.212]

B:BD[5.3778] → [5.3778:3823]

                  fwoar/json-nav--path path)

[5.3778]

[5.3823]

                  fwoar/json-nav--path path
                  fwoar/json-nav--prev-buffer last-buffer)

Replacement in emacs.d/packages/fwoar-json-navigator.el at line 133 [5.212]

B:BD[5.4175] → [5.4175:4401]

  (fwoar/json--ensure-data)
  (let ((prev-buffer (format "*test-buffer: %s*"
                             (s-join "/" (reverse (cdr fwoar/json-nav--path))))))
    (kill-buffer)
    (switch-to-buffer-other-window prev-buffer))

[5.4175]

[5.4401]

  (when fwoar/json-nav--prev-buffer
    (let ((old-buffer (current-buffer))
          (prev-buffer fwoar/json-nav--prev-buffer))
      (switch-to-buffer-other-window fwoar/json-nav--prev-buffer)
      (unless fwoar/json-nav--prev-buffer
        (with-current-buffer prev-buffer
          (delete-other-windows)))
      (kill-buffer old-buffer)))