Provide better way to shorten long urls

[bigos]

Brief Abstract

When I generate a graph the long URLs ruin the graph

Long Description

There may be a configuration that I could add to my init.el instead of patching the function. If it exists please provide the example.

Proposed Implementation (if any)

find (defun org-roam-graph--format-node (node type)

org-roam/extensions/org-roam-graph.el

Line 276 in 8667e44

node-properties (append `(("label" . ,(concat type ":" node)))

and note the commented out node replaced with (substring node (- (length node) 10))

      (setq node-id node
            node-properties (append `(("label" . ,(concat type ":" ;node
                                                          (substring node (- (length node) 10))
                                                          )))
                                    (when (member type (list "http" "https"))
                                      `(("URL" . ,(xml-escape-string (concat type ":" node)))))))

Please check the following:

• No similar feature requests

[bigos]

truncate-string-to-width may be better, but does anybody know how to write a function advise https://www.gnu.org/software/emacs/manual/html_node/elisp/Advising-Functions.html so I can do it in my own init file?

(defun org-roam-graph--format-node (node type)
  "Return a graphviz NODE with TYPE.
Handles both Org-roam nodes, and string nodes (e.g. urls)."
  (let (node-id node-properties)
    (if (org-roam-node-p node)
        (let* ((title (org-roam-quote-string (org-roam-node-title node)))
               (shortened-title
                (org-roam-quote-string
                 (pcase org-roam-graph-shorten-titles
                   (`truncate (truncate-string-to-width title org-roam-graph-max-title-length nil nil "..."))
                   (`wrap (org-roam-word-wrap org-roam-graph-max-title-length title))
                   (_ title)))))
          (setq node-id (org-roam-node-id node)
                node-properties `(("label"   . ,shortened-title)
                                  ("URL"     . ,(funcall org-roam-graph-link-builder node))
                                  ("tooltip" . ,(xml-escape-string title)))))
      (setq node-id node
            node-properties (append `(("label" . ,(concat type ":" ;node
                                                          (truncate-string-to-width node 15)
                                                          )))
                                    (when (member type (list "http" "https"))
                                      `(("URL" . ,(xml-escape-string (concat type ":" node))))))))
    (format "\"%s\" [%s];\n"
            node-id
            (mapconcat (lambda (n)
                         (org-roam-graph--dot-option n nil "\""))
                       (append (cdr (assoc type org-roam-graph-node-extra-config))
                               node-properties) ","))))

[bigos]

https://emacs.stackexchange.com/questions/81211/how-do-i-write-an-advice-to-override-an-org-roam-function