println-debugger/println-debugger-rust.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
66
67
68
;;; println-debugger-rust.el --- Println! statements generation for Rust -*- lexical-binding: t; -*-

;; Copyright (c) 2024 Josef Vlach

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

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

(require 'rust-ts-mode)
(require 'println-debugger)

(defun println-debugger-rust-to-single-line-string (item)
  (format "%s: {:?}" (println-debugger-safe-string item)))

(defun println-debugger-rust-to-string (item identifier)
  (concat "println!(\"" (println-debugger-identifier identifier) (println-debugger-safe-string item) ": {:?}\", "
          item ");"))

(defun println-debugger-rust-literal-string (item)
  (format "println!(\"%s\");" (println-debugger-safe-string item)))

(defun println-debugger-rust-value (item)
  (format "println!(\"{:?}\", %s);" item))

(defun println-debugger-rust-to-string-aligned (item longest identifier)
  (concat "println!(\"" (println-debugger-identifier identifier) (format (concat "%-" (number-to-string longest) "s: {:?}") (println-debugger-safe-string item)) "\", " item ");"))

(defun println-debugger-rust-render-single-line (items identifier)
  (concat "println!(\""
          (println-debugger-identifier identifier)
          (mapconcat #'println-debugger-rust-to-single-line-string items " ")
          "\", "
          (mapconcat #'identity items ", ")
          ");"))

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

(defun println-debugger-rust-stamp (order)
  (format "println!(\"HeRe %s%s%s\");" order order order))

(defun println-debugger-rust-foreach (item type)
  (pcase type
    (:foreach
     (format "for item in %s.iter() {\n    println!(\"{:?}\", item);\n}" item))
    (:foreach-delimited
     (format "println!(\"%s START\");\nfor item in %s.iter() {\n    println!(\"{:?}\", item);\n}\nprintln!(\"%s END\");" item item item))))

(println-debugger-register-major-mode
 'rust-ts-mode
 #'println-debugger-rust-to-string
 #'println-debugger-rust-literal-string
 #'println-debugger-rust-value
 #'println-debugger-rust-foreach
 #'println-debugger-rust-to-string-aligned
 #'println-debugger-rust-render-single-line
 #'println-debugger-rust-identifier
 #'println-debugger-rust-stamp)

(provide 'println-debugger-rust)

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