From 7269ec2c5fc5ec57cfb17cc457e217a89a934b55 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Thu, 23 Nov 2023 20:17:08 +0100 Subject: [PATCH] update json Signed-off-by: Andreas Gerler --- elpa/json-mode-20190123.422/json-mode-pkg.el | 2 - .../json-mode-autoloads.el | 41 +++--- elpa/json-mode-20230717.818/json-mode-pkg.el | 13 ++ .../json-mode.el | 120 ++++++++++++------ .../json-reformat-pkg.el | 2 - .../json-reformat-autoloads.el | 8 +- .../json-reformat-pkg.el | 14 ++ .../json-reformat.el | 16 +-- .../json-snatcher-pkg.el | 2 - .../json-snatcher-autoloads.el | 10 +- .../json-snatcher-pkg.el | 12 ++ .../json-snatcher.el | 4 +- 12 files changed, 170 insertions(+), 74 deletions(-) delete mode 100644 elpa/json-mode-20190123.422/json-mode-pkg.el rename elpa/{json-mode-20190123.422 => json-mode-20230717.818}/json-mode-autoloads.el (53%) create mode 100644 elpa/json-mode-20230717.818/json-mode-pkg.el rename elpa/{json-mode-20190123.422 => json-mode-20230717.818}/json-mode.el (67%) delete mode 100644 elpa/json-reformat-20160212.853/json-reformat-pkg.el rename elpa/{json-reformat-20160212.853 => json-reformat-20220905.2342}/json-reformat-autoloads.el (81%) create mode 100644 elpa/json-reformat-20220905.2342/json-reformat-pkg.el rename elpa/{json-reformat-20160212.853 => json-reformat-20220905.2342}/json-reformat.el (95%) delete mode 100644 elpa/json-snatcher-20150512.347/json-snatcher-pkg.el rename elpa/{json-snatcher-20150512.347 => json-snatcher-20200916.1717}/json-snatcher-autoloads.el (76%) create mode 100644 elpa/json-snatcher-20200916.1717/json-snatcher-pkg.el rename elpa/{json-snatcher-20150512.347 => json-snatcher-20200916.1717}/json-snatcher.el (99%) diff --git a/elpa/json-mode-20190123.422/json-mode-pkg.el b/elpa/json-mode-20190123.422/json-mode-pkg.el deleted file mode 100644 index 5dab6796..00000000 --- a/elpa/json-mode-20190123.422/json-mode-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; -*- no-byte-compile: t -*- -(define-package "json-mode" "20190123.422" "Major mode for editing JSON files." '((json-reformat "0.0.5") (json-snatcher "1.0.0")) :commit "0e819e519ae17a2686e0881c4ca51fa873fa9b83" :authors '(("Josh Johnston")) :maintainer '("Josh Johnston") :url "https://github.com/joshwnj/json-mode") diff --git a/elpa/json-mode-20190123.422/json-mode-autoloads.el b/elpa/json-mode-20230717.818/json-mode-autoloads.el similarity index 53% rename from elpa/json-mode-20190123.422/json-mode-autoloads.el rename to elpa/json-mode-20230717.818/json-mode-autoloads.el index 76ee6a81..707273cb 100644 --- a/elpa/json-mode-20190123.422/json-mode-autoloads.el +++ b/elpa/json-mode-20230717.818/json-mode-autoloads.el @@ -1,10 +1,12 @@ -;;; json-mode-autoloads.el --- automatically extracted autoloads +;;; json-mode-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*- ;; ;;; Code: -(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) + +(add-to-list 'load-path (directory-file-name + (or (file-name-directory #$) (car load-path)))) + -;;;### (autoloads nil "json-mode" "json-mode.el" (23994 42598 229743 -;;;;;; 114000)) +;;;### (autoloads nil "json-mode" "json-mode.el" (0 0 0 0)) ;;; Generated autoloads from json-mode.el (defconst json-mode-standard-file-ext '(".json" ".jsonld") "\ @@ -14,11 +16,10 @@ List of JSON file extensions.") Update the `json-mode' entry of `auto-mode-alist'. FILENAMES should be a list of file as string. -Return the new `auto-mode-alist' entry" (let* ((new-regexp (rx-to-string (\` (seq (eval (cons (quote or) (append json-mode-standard-file-ext (quote (\, filenames))))) eot)))) (new-entry (cons new-regexp (quote json-mode))) (old-entry (when (boundp (quote json-mode--auto-mode-entry)) json-mode--auto-mode-entry))) (setq auto-mode-alist (delete old-entry auto-mode-alist)) (add-to-list (quote auto-mode-alist) new-entry) new-entry)) +Return the new `auto-mode-alist' entry" (let* ((new-regexp (rx-to-string `(seq (eval (cons 'or (append json-mode-standard-file-ext ',filenames))) eot))) (new-entry (cons new-regexp 'json-mode)) (old-entry (when (boundp 'json-mode--auto-mode-entry) json-mode--auto-mode-entry))) (setq auto-mode-alist (delete old-entry auto-mode-alist)) (add-to-list 'auto-mode-alist new-entry) new-entry)) (defvar json-mode-auto-mode-list '(".babelrc" ".bowerrc" "composer.lock") "\ -List of filename as string to pass for the JSON entry of -`auto-mode-alist'. +List of filenames for the JSON entry of `auto-mode-alist'. Note however that custom `json-mode' entries in `auto-mode-alist' won’t be affected.") @@ -29,26 +30,35 @@ won’t be affected.") Regexp generated from the `json-mode-auto-mode-list'.") (autoload 'json-mode "json-mode" "\ -Major mode for editing JSON files +Major mode for editing JSON files. + +\(fn)" t nil) + +(autoload 'jsonc-mode "json-mode" "\ +Major mode for editing JSON files with comments. \(fn)" t nil) (add-to-list 'magic-fallback-mode-alist '("^[{[]$" . json-mode)) (autoload 'json-mode-show-path "json-mode" "\ -Print the path to the node at point to the minibuffer, and yank to the kill ring. - -\(fn)" t nil) +Print the path to the node at point to the minibuffer." t nil) (autoload 'json-mode-kill-path "json-mode" "\ +Save JSON path to object at point to kill ring." t nil) +(autoload 'json-mode-beautify "json-mode" "\ +Beautify/pretty-print from BEGIN to END. -\(fn)" t nil) +If the region is not active, beautify the entire buffer . -(autoload 'json-mode-beautify "json-mode" "\ -Beautify / pretty-print the active region (or the entire buffer if no active region). +\(fn BEGIN END)" t nil) -\(fn)" t nil) +(register-definition-prefixes "json-mode" '("json")) + +;;;*** + +;;;### (autoloads nil nil ("json-mode-pkg.el") (0 0 0 0)) ;;;*** @@ -56,5 +66,6 @@ Beautify / pretty-print the active region (or the entire buffer if no active reg ;; version-control: never ;; no-byte-compile: t ;; no-update-autoloads: t +;; coding: utf-8 ;; End: ;;; json-mode-autoloads.el ends here diff --git a/elpa/json-mode-20230717.818/json-mode-pkg.el b/elpa/json-mode-20230717.818/json-mode-pkg.el new file mode 100644 index 00000000..228dfb76 --- /dev/null +++ b/elpa/json-mode-20230717.818/json-mode-pkg.el @@ -0,0 +1,13 @@ +(define-package "json-mode" "20230717.818" "Major mode for editing JSON files" + '((json-snatcher "1.0.0") + (emacs "24.4")) + :commit "20b9c21f44c58e94256c7826d0821205e017dfbb" :authors + '(("Josh Johnston")) + :maintainers + '(("Josh Johnston")) + :maintainer + '("Josh Johnston") + :url "https://github.com/joshwnj/json-mode") +;; Local Variables: +;; no-byte-compile: t +;; End: diff --git a/elpa/json-mode-20190123.422/json-mode.el b/elpa/json-mode-20230717.818/json-mode.el similarity index 67% rename from elpa/json-mode-20190123.422/json-mode.el rename to elpa/json-mode-20230717.818/json-mode.el index cbc2d51f..98105822 100644 --- a/elpa/json-mode-20190123.422/json-mode.el +++ b/elpa/json-mode-20230717.818/json-mode.el @@ -1,12 +1,11 @@ -;;; json-mode.el --- Major mode for editing JSON files. +;;; json-mode.el --- Major mode for editing JSON files ;; Copyright (C) 2011-2014 Josh Johnston ;; Author: Josh Johnston ;; URL: https://github.com/joshwnj/json-mode -;; Package-Version: 20190123.422 ;; Version: 1.6.0 -;; Package-Requires: ((json-reformat "0.0.5") (json-snatcher "1.0.0")) +;; Package-Requires: ((json-snatcher "1.0.0") (emacs "24.4")) ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by @@ -30,9 +29,8 @@ (require 'js) (require 'rx) (require 'json-snatcher) -(require 'json-reformat) -(defgroup json-mode '() +(defgroup json '() "Major mode for editing JSON files." :group 'js) @@ -61,18 +59,18 @@ Return the new `auto-mode-alist' entry" (add-to-list 'auto-mode-alist new-entry) new-entry)) +;;; make byte-compiler happy +(defvar json-mode--auto-mode-entry) + ;;;###autoload -(defcustom json-mode-auto-mode-list '( - ".babelrc" +(defcustom json-mode-auto-mode-list '(".babelrc" ".bowerrc" - "composer.lock" - ) - "List of filename as string to pass for the JSON entry of -`auto-mode-alist'. + "composer.lock") + "List of filenames for the JSON entry of `auto-mode-alist'. Note however that custom `json-mode' entries in `auto-mode-alist' won’t be affected." - :group 'json-mode + :group 'json :type '(repeat string) :set (lambda (symbol value) "Update SYMBOL with a new regexp made from VALUE. @@ -103,23 +101,69 @@ This function calls `json-mode--update-auto-mode' to change the (char ?\")) (zero-or-more blank) ?\:)) -(defconst json-mode-number-re (rx (group (one-or-more digit) +(defconst json-mode-number-re (rx (group (optional ?-) + (one-or-more digit) (optional ?\. (one-or-more digit))))) (defconst json-mode-keyword-re (rx (group (or "true" "false" "null")))) (defconst json-font-lock-keywords-1 (list - (list json-mode-quoted-key-re 1 font-lock-keyword-face) - (list json-mode-quoted-string-re 1 font-lock-string-face) (list json-mode-keyword-re 1 font-lock-constant-face) - (list json-mode-number-re 1 font-lock-constant-face) - ) + (list json-mode-number-re 1 font-lock-constant-face)) "Level one font lock.") +(defvar json-mode-syntax-table + (let ((st (make-syntax-table))) + ;; Objects + (modify-syntax-entry ?\{ "(}" st) + (modify-syntax-entry ?\} "){" st) + ;; Arrays + (modify-syntax-entry ?\[ "(]" st) + (modify-syntax-entry ?\] ")[" st) + ;; Strings + (modify-syntax-entry ?\" "\"" st) + ;; Comments + (modify-syntax-entry ?\n ">" st) + st)) + +(defvar jsonc-mode-syntax-table + (let ((st (copy-syntax-table json-mode-syntax-table))) + ;; Comments + (modify-syntax-entry ?/ ". 124" st) + (modify-syntax-entry ?\n ">" st) + (modify-syntax-entry ?\^m ">" st) + (modify-syntax-entry ?* ". 23bn" st) + st)) + +(defun json-mode--syntactic-face (state) + "Return syntactic face function for the position represented by STATE. +STATE is a `parse-partial-sexp' state, and the returned function is the +json font lock syntactic face function." + (cond + ((nth 3 state) + ;; This might be a string or a name + (let ((startpos (nth 8 state))) + (save-excursion + (goto-char startpos) + (if (looking-at-p json-mode-quoted-key-re) + font-lock-keyword-face + font-lock-string-face)))) + ((nth 4 state) font-lock-comment-face))) + ;;;###autoload (define-derived-mode json-mode javascript-mode "JSON" - "Major mode for editing JSON files" - (set (make-local-variable 'font-lock-defaults) '(json-font-lock-keywords-1 t))) + "Major mode for editing JSON files." + :syntax-table json-mode-syntax-table + (setq font-lock-defaults + '(json-font-lock-keywords-1 + nil nil nil nil + (font-lock-syntactic-face-function . json-mode--syntactic-face)))) + +;;;###autoload +(define-derived-mode jsonc-mode json-mode "JSONC" + "Major mode for editing JSON files with comments." + :syntax-table jsonc-mode-syntax-table) + (setq font-lock-defaults '(json-font-lock-keywords-1 t)) ;; Well formatted JSON files almost always begin with “{” or “[”. ;;;###autoload @@ -127,7 +171,7 @@ This function calls `json-mode--update-auto-mode' to change the ;;;###autoload (defun json-mode-show-path () - "Print the path to the node at point to the minibuffer, and yank to the kill ring." + "Print the path to the node at point to the minibuffer." (interactive) (message (jsons-print-path))) @@ -135,20 +179,22 @@ This function calls `json-mode--update-auto-mode' to change the ;;;###autoload (defun json-mode-kill-path () + "Save JSON path to object at point to kill ring." (interactive) - (kill-new (jsons-print-path))) + (kill-new (jsons-print-path))) -(define-key json-mode-map (kbd "C-c P") 'json-mode-kill-path) +(define-key json-mode-map (kbd "C-c C-k") 'json-mode-kill-path) ;;;###autoload -(defun json-mode-beautify () - "Beautify / pretty-print the active region (or the entire buffer if no active region)." - (interactive) - (let ((json-reformat:indent-width js-indent-level) - (json-reformat:pretty-string? t)) - (if (use-region-p) - (json-reformat-region (region-beginning) (region-end)) - (json-reformat-region (buffer-end -1) (buffer-end 1))))) +(defun json-mode-beautify (begin end) + "Beautify/pretty-print from BEGIN to END. + +If the region is not active, beautify the entire buffer ." + (interactive "r") + (unless (use-region-p) + (setq begin (point-min) + end (point-max))) + (json-pretty-print begin end)) (define-key json-mode-map (kbd "C-c C-f") 'json-mode-beautify) @@ -187,7 +233,7 @@ This function calls `json-mode--update-auto-mode' to change the ((setq symbol (bounds-of-thing-at-point 'symbol)) (cond ((looking-at-p "null")) - ((save-excursion (skip-chars-backward "[0-9.]") (looking-at json-mode-number-re)) + ((save-excursion (skip-chars-backward "[-0-9.]") (looking-at json-mode-number-re)) (kill-region (match-beginning 0) (match-end 0)) (insert "null")) (t (kill-region (car symbol) (cdr symbol)) (insert "null")))) @@ -201,8 +247,8 @@ This function calls `json-mode--update-auto-mode' to change the (defun json-increment-number-at-point (&optional delta) "Add DELTA to the number at point; DELTA defaults to 1." - (interactive) - (when (save-excursion (skip-chars-backward "[0-9.]") (looking-at json-mode-number-re)) + (interactive "P") + (when (save-excursion (skip-chars-backward "[-0-9.]") (looking-at json-mode-number-re)) (let ((num (+ (or delta 1) (string-to-number (buffer-substring-no-properties (match-beginning 0) (match-end 0))))) (pt (point))) @@ -212,10 +258,10 @@ This function calls `json-mode--update-auto-mode' to change the (define-key json-mode-map (kbd "C-c C-i") 'json-increment-number-at-point) -(defun json-decrement-number-at-point () - "Decrement the number at point." - (interactive) - (json-increment-number-at-point -1)) +(defun json-decrement-number-at-point (&optional delta) + "Subtract DELTA from the number at point; DELTA defaults to 1." + (interactive "P") + (json-increment-number-at-point (- (or delta 1)))) (define-key json-mode-map (kbd "C-c C-d") 'json-decrement-number-at-point) diff --git a/elpa/json-reformat-20160212.853/json-reformat-pkg.el b/elpa/json-reformat-20160212.853/json-reformat-pkg.el deleted file mode 100644 index 60678f51..00000000 --- a/elpa/json-reformat-20160212.853/json-reformat-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; -*- no-byte-compile: t -*- -(define-package "json-reformat" "20160212.853" "Reformatting tool for JSON" 'nil :commit "8eb6668ed447988aea06467ba8f42e1f2178246f" :keywords '("json") :authors '(("Wataru MIYAGUNI" . "gonngo@gmail.com")) :maintainer '("Wataru MIYAGUNI" . "gonngo@gmail.com") :url "https://github.com/gongo/json-reformat") diff --git a/elpa/json-reformat-20160212.853/json-reformat-autoloads.el b/elpa/json-reformat-20220905.2342/json-reformat-autoloads.el similarity index 81% rename from elpa/json-reformat-20160212.853/json-reformat-autoloads.el rename to elpa/json-reformat-20220905.2342/json-reformat-autoloads.el index 6a42b637..97e0e003 100644 --- a/elpa/json-reformat-20160212.853/json-reformat-autoloads.el +++ b/elpa/json-reformat-20220905.2342/json-reformat-autoloads.el @@ -1,4 +1,4 @@ -;;; json-reformat-autoloads.el --- automatically extracted autoloads +;;; json-reformat-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*- ;; ;;; Code: @@ -18,7 +18,11 @@ and `json-reformat:pretty-string?'. \(fn BEGIN END)" t nil) -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "json-reformat" '("json-reformat"))) +(register-definition-prefixes "json-reformat" '("json-reformat")) + +;;;*** + +;;;### (autoloads nil nil ("json-reformat-pkg.el") (0 0 0 0)) ;;;*** diff --git a/elpa/json-reformat-20220905.2342/json-reformat-pkg.el b/elpa/json-reformat-20220905.2342/json-reformat-pkg.el new file mode 100644 index 00000000..356640be --- /dev/null +++ b/elpa/json-reformat-20220905.2342/json-reformat-pkg.el @@ -0,0 +1,14 @@ +(define-package "json-reformat" "20220905.2342" "Reformatting tool for JSON" + '((emacs "24.3")) + :commit "e9999b1f1fc933c02ff44f4136602b6a45ed59c6" :authors + '(("Wataru MIYAGUNI" . "gonngo@gmail.com")) + :maintainers + '(("Wataru MIYAGUNI" . "gonngo@gmail.com")) + :maintainer + '("Wataru MIYAGUNI" . "gonngo@gmail.com") + :keywords + '("json") + :url "https://github.com/gongo/json-reformat") +;; Local Variables: +;; no-byte-compile: t +;; End: diff --git a/elpa/json-reformat-20160212.853/json-reformat.el b/elpa/json-reformat-20220905.2342/json-reformat.el similarity index 95% rename from elpa/json-reformat-20160212.853/json-reformat.el rename to elpa/json-reformat-20220905.2342/json-reformat.el index c5096904..c9128e76 100644 --- a/elpa/json-reformat-20160212.853/json-reformat.el +++ b/elpa/json-reformat-20220905.2342/json-reformat.el @@ -2,8 +2,8 @@ ;; Author: Wataru MIYAGUNI ;; URL: https://github.com/gongo/json-reformat -;; Package-Version: 20160212.853 -;; Version: 0.0.6 +;; Package-Requires: ((emacs "24.3")) +;; Version: 0.0.7 ;; Keywords: json ;; Copyright (c) 2012 Wataru MIYAGUNI @@ -48,7 +48,7 @@ ;;; Code: (require 'json) -(eval-when-compile (require 'cl)) +(eval-when-compile (require 'cl-lib)) (unless (require 'subr-x nil t) ;; built-in subr-x from 24.4 @@ -127,11 +127,11 @@ Else t: (concat "[\n" (mapconcat 'identity - (loop for v across val - collect (concat - (json-reformat:indent (1+ level)) - (json-reformat:print-node v (1+ level)) - )) + (cl-loop for v across val + collect (concat + (json-reformat:indent (1+ level)) + (json-reformat:print-node v (1+ level)) + )) (concat ",\n")) "\n" (json-reformat:indent level) "]" ))) diff --git a/elpa/json-snatcher-20150512.347/json-snatcher-pkg.el b/elpa/json-snatcher-20150512.347/json-snatcher-pkg.el deleted file mode 100644 index 1500f807..00000000 --- a/elpa/json-snatcher-20150512.347/json-snatcher-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; -*- no-byte-compile: t -*- -(define-package "json-snatcher" "20150512.347" "Grabs the path to JSON values in a JSON file" '((emacs "24")) :commit "c4cecc0a5051bd364373aa499c47a1bb7a5ac51c" :authors '(("Sterling Graham" . "sterlingrgraham@gmail.com")) :maintainer '("Sterling Graham" . "sterlingrgraham@gmail.com") :url "http://github.com/sterlingg/json-snatcher") diff --git a/elpa/json-snatcher-20150512.347/json-snatcher-autoloads.el b/elpa/json-snatcher-20200916.1717/json-snatcher-autoloads.el similarity index 76% rename from elpa/json-snatcher-20150512.347/json-snatcher-autoloads.el rename to elpa/json-snatcher-20200916.1717/json-snatcher-autoloads.el index a88092d8..ecb6eef6 100644 --- a/elpa/json-snatcher-20150512.347/json-snatcher-autoloads.el +++ b/elpa/json-snatcher-20200916.1717/json-snatcher-autoloads.el @@ -1,4 +1,4 @@ -;;; json-snatcher-autoloads.el --- automatically extracted autoloads +;;; json-snatcher-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*- ;; ;;; Code: @@ -10,11 +10,13 @@ ;;; Generated autoloads from json-snatcher.el (autoload 'jsons-print-path "json-snatcher" "\ -Print the path to the JSON value under point, and save it in the kill ring. +Print the path to the JSON value under point, and save it in the kill ring." t nil) -\(fn)" t nil) +(register-definition-prefixes "json-snatcher" '("jsons-")) -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "json-snatcher" '("jsons-"))) +;;;*** + +;;;### (autoloads nil nil ("json-snatcher-pkg.el") (0 0 0 0)) ;;;*** diff --git a/elpa/json-snatcher-20200916.1717/json-snatcher-pkg.el b/elpa/json-snatcher-20200916.1717/json-snatcher-pkg.el new file mode 100644 index 00000000..2645d640 --- /dev/null +++ b/elpa/json-snatcher-20200916.1717/json-snatcher-pkg.el @@ -0,0 +1,12 @@ +(define-package "json-snatcher" "20200916.1717" "Grabs the path to JSON values in a JSON file" + '((emacs "24")) + :commit "b28d1c0670636da6db508d03872d96ffddbc10f2" :authors + '(("Sterling Graham" . "sterlingrgraham@gmail.com")) + :maintainers + '(("Sterling Graham" . "sterlingrgraham@gmail.com")) + :maintainer + '("Sterling Graham" . "sterlingrgraham@gmail.com") + :url "http://github.com/sterlingg/json-snatcher") +;; Local Variables: +;; no-byte-compile: t +;; End: diff --git a/elpa/json-snatcher-20150512.347/json-snatcher.el b/elpa/json-snatcher-20200916.1717/json-snatcher.el similarity index 99% rename from elpa/json-snatcher-20150512.347/json-snatcher.el rename to elpa/json-snatcher-20200916.1717/json-snatcher.el index e64e6e83..ad23e832 100644 --- a/elpa/json-snatcher-20150512.347/json-snatcher.el +++ b/elpa/json-snatcher-20200916.1717/json-snatcher.el @@ -4,7 +4,6 @@ ;; Author: Sterling Graham ;; URL: http://github.com/sterlingg/json-snatcher -;; Package-Version: 20150512.347 ;; Version: 1.0 ;; Package-Requires: ((emacs "24")) @@ -81,7 +80,6 @@ "Hashes each open buffer to the ranges in the buffer for each of the parse trees nodes.") (defvar jsons-curr-region () "The node ranges in the current buffer.") (defvar jsons-path-printer 'jsons-print-path-python "Default jsons path printer") -(add-hook 'kill-buffer-hook 'jsons-remove-buffer) (defun jsons-consume-token () "Return the next token in the stream." @@ -342,6 +340,8 @@ TODO: Remove extra comma printed after lists of object members, and lists of arr (remhash (current-buffer) jsons-parsed) (remhash (current-buffer) jsons-parsed-regions))) +(add-hook 'kill-buffer-hook 'jsons-remove-buffer) + (provide 'json-snatcher) ;; Local-Variables: -- 2.47.3