Function: combobulate--pretty-print-node
combobulate--pretty-print-node is a natively compiled function defined
in combobulate-navigation.el.
Signature
(combobulate--pretty-print-node NODE &optional HIGHLIGHTED)
Documentation
Internal method that pretty prints NODE and returns a string of text.
If HIGHLIGHTED then the node is highlighted with
combobulate-tree-highlighted-node-face.
Source Code
;; Defined in /nix/store/b5fvrwzi3zvkabyzx0in6gw1cj963z46-emacs-packages-deps/share/emacs/site-lisp/combobulate-navigation.el
(defun combobulate--pretty-print-node (node &optional highlighted)
"Internal method that pretty prints NODE and returns a string of text.
If HIGHLIGHTED then the node is highlighted with
`combobulate-tree-highlighted-node-face'. "
(if (combobulate-node-p node)
(let ((s (funcall (combobulate-read pretty-print-node-name-function) node
(combobulate-pretty-print-node-name node ""))))
(format "%s%s"
(propertize s 'face
(cond
(highlighted 'combobulate-tree-highlighted-node-face)
(t 'combobulate-tree-normal-node-face)))
(if combobulate-debug (format " %s" (combobulate-node-range node)) "")))
;; fallback in case we've got a proxy node
(if (combobulate-proxy-node-p node)
(combobulate-proxy-node-pp node)
nil)))