Added a function to pretty-print json.

elpa-to-submit/haml-mode.el

@@ -368,6 +368,8 @@ The first time this command is used, the line will be indented to the
 maximum sensible indentation.  Each immediately subsequent usage will
 back-dent the line by `haml-indent-offset' spaces.  On reaching column
 0, it will cycle back to the maximum sensible indentation."
+  ;; TODO: pressing tab to bring the point to the first non-whitespace
+  ;; char marks the buffer as modified even though it doesn't change anything
   (interactive "*")
   (let ((ci (current-indentation))
         (cc (current-column))

starter-kit-js.el

@@ -30,5 +30,15 @@
      (setq js2-bounce-indent-flag nil
            js2-indent-on-enter-key t)))
 
+(defun esk-pp-json ()
+  "Pretty-print the json object following point."
+  (interactive)
+  (require 'json)
+  (let ((json-object (save-excursion (json-read))))
+    (switch-to-buffer "*json*")
+    (delete-region (point-min) (point-max))
+    (insert (pp json-object))
+    (goto-char (point-min))))
+
 (provide 'starter-kit-js)
 ;;; starter-kit-js.el ends here