# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1585227527 -7200
# Node ID c858fc552ec539c9db76616daf1f7e8fd905de9d
# Parent  61ea458154116536f17677f241d1cdd2ac5825c8
my-pp based on context so I don't need to remember my-nxml-pp, json-pretty-print-buffer, etc.

diff -r 61ea45815411 -r c858fc552ec5 .emacs-my
--- a/.emacs-my	Thu Mar 12 12:37:36 2020 +0200
+++ b/.emacs-my	Thu Mar 26 14:58:47 2020 +0200
@@ -3855,6 +3855,18 @@
 ;; (setcdr (assoc 'nxml-mode hs-special-modes-alist) (list "<!--\\|<[^/>][^>]*>" "-->\\|</[^/>]+>" "<!--" #'nxml-forward-element nil))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "prettyprint, pp")
+
+(defun my-pp ()
+  (interactive)
+  (let ( (fname (buffer-file-name)) )
+    (cond
+     ((eq major-mode 'nxml-mode)
+      (my-nxml-pp))
+     ((string-match "\\.json\\'" fname)
+       (json-pretty-print-buffer)))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "backuping")
 
 (setq