println-debugger/println-debugger-javascript.el at master · VlachJosef/println-debugger · GitHub

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
;;; println-debugger-javascript.el --- Console.log statements generation for Javascript -*- lexical-binding: t; -*-

;; Copyright (c) 2021 Josef Vlach

;; Homepage: https://github.com/VlachJosef/println-debugger
;; Package-Version:  0.1
;; Package-Requires: ((emacs "29.1"))

;;; Commentary:
;;
;;  TODO
;;
;;; Code:

(require 'js)
(require 'typescript-ts-mode)
(require 'println-debugger)

(defun println-debugger-javascript-to-string (item identifier)
  (concat "console.log(\"" (println-debugger-identifier identifier) (println-debugger-safe-string item) ": \", "
          item ");"))

(defun println-debugger-javascript-literal-string (item)
  (format "console.log(\"%s\");" (println-debugger-safe-string item)))

(defun println-debugger-javascript-value (item)
  (format "console.log(%s);" item))

(defun println-debugger-javascript-to-string-aligned (item longest identifier)
  (concat "console.log(\"" (println-debugger-identifier identifier) (format (concat "%-" (number-to-string longest) "s: ") (println-debugger-safe-string item)) "\", " item ");"))

(defun println-debugger-javascript-to-single-line-string (item)
  (concat "\"" (println-debugger-safe-string item) ": \", " item))

(defun println-debugger-javascript-render-single-line (items identifier)
  (concat "console.log(" (println-debugger-identifier identifier) (mapconcat #'println-debugger-javascript-to-single-line-string items ", ") ");"))

(defun println-debugger-javascript-identifier ()
  (format "%s" (treesit-defun-name (treesit-defun-at-point))))

(defun println-debugger-javascript-stamp (order)
  (format "console.log(\"HeRe %s%s%s\");" order order order))

(defun println-debugger-javascript-foreach (item type)
  (pcase type
    (:foreach
     (format "%s.forEach((item) => console.log(item));" item))
    (:foreach-delimited
     (format "console.log(\"%s START\");\n%s.forEach((item) => console.log(item));\nconsole.log(\"%s END\");" item item item))))

(dolist (mode '(js-mode typescript-ts-mode tsx-ts-mode))
  (println-debugger-register-major-mode
   mode
   #'println-debugger-javascript-to-string
   #'println-debugger-javascript-literal-string
   #'println-debugger-javascript-value
   #'println-debugger-javascript-foreach
   #'println-debugger-javascript-to-string-aligned
   #'println-debugger-javascript-render-single-line
   #'println-debugger-javascript-identifier
   #'println-debugger-javascript-stamp))

(provide 'println-debugger-javascript)

;;; println-debugger-javascript.el ends here