                 (concat name " [" root-id "]"))
             title)))
 
+(defun current-root-id ()
+    tn-root-id)
+
+(defun current-root-value ()
+    tn-title)
+
+(defun current-target ()
+    (get-atom (current-root-id)))
+
 (defun current-target-id ()
     (car (last (find-id))))
+
+(defun current-target-value ()
+    (let ((g (current-root)))
+        (if g
+            (get-value g))))
 
 (defun current-target ()
     (get-atom (current-target-id)))

(defun tn-set-target-sharability ()
    (interactive)
    (let ((r (read-character-as-number)))
        (set-target-sharability (/ r 4))))

(defun set-target-weight (v)
    (if (and (> v 0) (<= v 1))


(defun view-info ()
    (concat
        "(root: " tn-root-id
         " :depth " (number-to-string tn-depth)
         " :style " tn-style
         " :sharability [" (number-to-string tn-min-sharability) ", " (number-to-string tn-default-sharability) ", " (number-to-string tn-max-sharability) "]"
