Function: combobulate-ocaml-pretty-print-node-name

combobulate-ocaml-pretty-print-node-name is a natively compiled function defined in combobulate-ocaml.el.

Signature

(combobulate-ocaml-pretty-print-node-name NODE DEFAULT-NAME)

Documentation

Pretty print the NODE name (fallbacking on DEFAULT-NAME) for OCaml mode.

Source Code

;; Defined in /nix/store/b5fvrwzi3zvkabyzx0in6gw1cj963z46-emacs-packages-deps/share/emacs/site-lisp/combobulate-ocaml.el
(defun combobulate-ocaml-pretty-print-node-name (node default-name)
  "Pretty print the NODE name (fallbacking on DEFAULT-NAME) for OCaml mode."
  (let ((name (treesit-node-text node t)))
    (if (string-empty-p name)
        default-name
      (combobulate-string-truncate
       (replace-regexp-in-string (rx (| (>= 2 " ") "\n")) " " name) 40))))