blob: 0a8d0f3b823e9f6531e2c54007dbc6de01d706c7 (
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
40
|
;; install package
(require-package 'js2-mode)
(require 'js2-mode)
(add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode))
;; js2-mode can't handle json
(require 'js)
(add-to-list 'auto-mode-alist '("\\.json\\'" . js-mode))
;; 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*"))
(success (zerop (call-process-region begin end "jq" nil
`((:file ,tmpfile) ,tmpfile)
nil "--monochrome-output"
"--ascii-output" ".")))
(resbuf (if success (current-buffer) errbuf)))
(with-current-buffer resbuf
(insert-file-contents tmpfile nil nil nil t))
(if success
(kill-buffer errbuf)
(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)
|