[nongnu] elpa/typst-ts-mode 2d25a0ac3f 097/246: refactor: `typst-ts-mode-insert--item`

[ELPA Syncer]

branch: elpa/typst-ts-mode
commit 2d25a0ac3f444ff16449afb702419324280d9a2f
Author: Meow King <mr.meowking@anche.no>
Commit: Meow King <mr.meowking@anche.no>

    refactor: `typst-ts-mode-insert--item`
---
 typst-ts-mode.el | 34 ++++++++++++----------------------
 1 file changed, 12 insertions(+), 22 deletions(-)

diff --git a/typst-ts-mode.el b/typst-ts-mode.el
index d3931cec01..090e3fdc92 100644
--- a/typst-ts-mode.el
+++ b/typst-ts-mode.el
@@ -1145,39 +1145,29 @@ INTERACTIVE will be non nil when called interactively.
 NODE must be an item node!
 This function respects indentation."
   (let* (;; +, -, or <num>.
-        (item-type (treesit-node-text
-                    (treesit-node-child node 0)))
+              (item-type (treesit-node-text
+                          (treesit-node-child node 0)))
          (item-number (string-to-number item-type))
-         (item-end (treesit-node-end node))
-         ;; do the same indentation level in case I am pointing at a parent
-         (column (typst-ts-mode-column-at-pos
-                  (typst-ts-mode--get-node-bol node))))
+         (item-end (treesit-node-end node)))
     (goto-char item-end)
-    ;; I am not sure what happens when someone uses tab characters to indent
-    ;; that's why I will do it like that
     (newline-and-indent)
-    (move-to-column column)
-    (kill-line)
     (insert (if (= item-number 0)
                 item-type
               (concat (number-to-string (1+ item-number)) "."))
-            " ")
-    ;; something can be below me
-    (save-excursion
-      (newline))))
+            " ")))
 
 (defun typst-ts-mode-insert--heading (node)
   "Insert a heading after the section that NODE is part of.
 When there is no section it will insert a heading below point."
   (let* ((section
-         (treesit-parent-until
-          node
-          (lambda (node)
-            (string= (treesit-node-type node) "section"))
-          t))
-        ;; first child is heading
-        (heading (treesit-node-child section 0))
-        (heading-level (treesit-node-type (treesit-node-child heading 0))))
+               (treesit-parent-until
+                node
+                (lambda (node)
+                  (string= (treesit-node-type node) "section"))
+                t))
+              ;; first child is heading
+              (heading (treesit-node-child section 0))
+              (heading-level (treesit-node-type (treesit-node-child heading 
0))))
     (if section
         (goto-char (treesit-node-end section))
       ;; no headings so far