 (global-set-key (kbd "C-c C-s C-] d")   'tn-set-max-sharability-3)
 (global-set-key (kbd "C-c C-s C-] f")   'tn-set-max-sharability-4)
 (global-set-key (kbd "C-c C-t a")       'tn-browse-target-value-as-url)
+(global-set-key (kbd "C-c C-t r")       'tn-copy-target-reference-to-clipboard)
 (global-set-key (kbd "C-c C-t c")       'tn-copy-target-value-to-clipboard)
 (global-set-key (kbd "C-c C-t C-a b")   'tn-browse-target-alias)
 (global-set-key (kbd "C-c C-t C-b a")   'tn-browse-target-value-in-amazon)

		    (list :foreground "grey50" :background background)
			(list :foreground "black"))))

(defun write-view (editable children tree-indent)
    (loop for json across children do
    (let (

		            (if (not target-weight) (error (concat "missing weight for target with id " target-id)))
		            (if (not target-sharability) (error (concat "missing sharability for target with id " target-id)))
		            ;; black space at the end of the line makes the next line black when you enter a newline and continue typing
		            (let ((line "") (id-suffix (create-id-suffix target-id)))
		                (if (not editable)
                            (setq id-suffix (propertize id-suffix 'invisible t)))
                        (let ((space ""))
                            (loop for i from 1 to tree-indent do (setq space (concat space " ")))
                            (setq line (concat line space)))
                        (let ((bullet (if target-has-children "+" "\u00b7")))   ;; previously: "-" or "\u25ba"
                            (setq line (concat line
                                (colorize (concat bullet " " target-value) target-weight target-sharability nil nil target-alias "white")
