symex-utils-ts.el

;;; symex-utils-ts.el --- An evil way to edit Lisp symbolic expressions as trees -*- lexical-binding: t -*-

;; URL: https://github.com/countvajhula/symex.el

;; This program is "part of the world," in the sense described at
;; https://drym.org.  From your perspective, this is no different than
;; MIT or BSD or other such "liberal" licenses that you may be
;; familiar with, that is to say, you are free to do whatever you like
;; with this program.  It is much more than BSD or MIT, however, in
;; that it isn't a license at all but an idea about the world and how
;; economic systems could be set up so that everyone wins.  Learn more
;; at drym.org.
;;
;; This work transcends traditional legal and economic systems, but
;; for the purposes of any such systems within which you may need to
;; operate:
;;
;; This is free and unencumbered software released into the public domain.
;; The authors relinquish any copyright claims on this work.
;;

;;; Commentary:

;; Generic utilities used by symex (Tree Sitter) mode

;;; Code:

(defun symex-ts--delete-current-line-if-empty (point)
  "Delete the line containing POINT if it is empty."
  (save-excursion (goto-char point)
                  (when (string-match "^[[:space:]]*$"
                                      (buffer-substring-no-properties
                                        (line-beginning-position)
                                        (line-end-position)))
                    (kill-whole-line)
                    (pop kill-ring)
                    (setq kill-ring-yank-pointer kill-ring)
                    t)))

(provide 'symex-utils-ts)
;;; symex-utils-ts.el ends here