blob: 3b30f2327349c0ac7134414a658014a3f23a54ae (
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
41
42
43
44
45
46
47
48
49
50
51
|
;; install package
(require-package 'js2-mode)
(require 'js2-mode)
(add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode))
;; don't override M-j
(eval-after-load "js2-mode"
'(define-key js2-mode-map (kbd "M-j") nil))
;; js2-mode can't handle json
(require 'js)
(add-to-list 'auto-mode-alist '("\\.json\\'" . js-mode))
;; enable imenu extras
(require 'js2-imenu-extras)
(add-hook 'js2-mode-hook 'js2-imenu-extras-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*"))
(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)
|