     (interactive)
     (insert "\n                @weight 1.0\n"))
 
+(defun copy-to-clipboard (g)
+    (let ((buffer (get-buffer-create "*temp*")))
+        (with-current-buffer buffer
+            (unwind-protect
+                 (insert g)
+                 (let ((beg 1) (end (+ (length g) 1)))
+                    (clipboard-kill-ring-save beg end))
+                (kill-buffer buffer)))))
+
+;; note: for some reason, the id doesn't stay invisible when you paste it, although it stays light gray
+(defun tn-copy-target-reference-to-clipboard ()
+    (interactive)
+    (let ((id (current-target-id)))
+        (if id
+            (copy-to-clipboard (concat "*" (create-id-suffix id)))
+            (no-target))))
+
 (defun tn-copy-target-value-to-clipboard ()
     (interactive)
-    (let ((g (current-target-value)))
-        (if g
-            (let ((buffer (get-buffer-create "*temp*")))
-                (with-current-buffer buffer
-                    (unwind-protect
-                         (insert g)
-                         (let ((beg 1) (end (+ (length g) 1)))
-                            (clipboard-kill-ring-save beg end))
-                        (kill-buffer buffer))))
+    (let ((value (current-target-value)))
+        (if value
+            (copy-to-clipboard value)
             (no-target))))
 
 (defun tn-preview-target-latex-math ()

(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 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)

		            (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")
