blob: 5b61895602a71f10296750e8e08711d20b60c78c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
(require 'js)
(add-to-list 'auto-mode-alist '("\\.\\(json\\|jshintrc\\)\\'" . js-mode))
;; set indent level to 2
(setq-default js-indent-level 2)
;; use jq for reformatting json
(defun jq-reformat-region (begin end)
(interactive "r")
(if (executable-find "jq")
(let* ((tmpfile (make-temp-file "jq"))
(errbuf (get-buffer-create "*jq errors*"))
(result (call-process-region begin end "jq" nil
`((:file ,tmpfile) ,tmpfile) nil
"--monochrome-output" "--ascii-output"
"."))
(success (zerop result))
(resbuf (if success (current-buffer) errbuf)))
(with-current-buffer resbuf
(insert-file-contents tmpfile nil nil nil t))
(if success
(progn
(kill-buffer errbuf)
(message "Reformatted JSON"))
(message "Failed to reformat JSON. Check errors for details"))
(delete-file tmpfile))
(message "Could not find jq in PATH.")))
(defun jq-reformat ()
(interactive)
(if (use-region-p)
(jq-reformat-region (region-beginning) (region-end))
(jq-reformat-region (point-min) (point-max))))
(add-hook 'js-mode-hook
(lambda ()
(define-key js-mode-map (kbd "C-c p") 'jq-reformat)))
(provide 'init-javascript)
|