     (interactive)
     (let ((key (current-target-key)))
         (if key
-            (request-view nil (mode-for-visit) key tn-depth tn-style tn-min-sharability tn-max-sharability tn-default-sharability tn-min-weight tn-max-weight tn-default-weight)
+            (request-view nil (mode-for-visit) key tn-depth tn-style tn-min-sharability tn-max-sharability (current-target-sharability) tn-min-weight tn-max-weight tn-default-weight)
             (no-target))))
 
 (defun tn-visit-link ()
     (interactive)
     (let ((key (current-link-key)))
         (if key
-            (request-view nil (mode-for-visit) key tn-depth tn-style tn-min-sharability tn-max-sharability tn-default-sharability tn-min-weight tn-max-weight tn-default-weight)
+            (request-view nil (mode-for-visit) key tn-depth tn-style tn-min-sharability tn-max-sharability (current-link-sharability) tn-min-weight tn-max-weight tn-default-weight)
             (no-link))))
 
 (defun tn-search ()

(setq tn-root nil)
(setq tn-title nil)
(setq tn-style "hybrid")
(setq tn-min-sharability 0.25)
(setq tn-max-sharability 1)
(setq tn-default-sharability 0.5)
(setq tn-min-weight 0.25)
(setq tn-max-weight 1)
(setq tn-default-weight 0.5)
(setq tn-atoms nil)
(setq tn-current-line 1)

(defun current-target-value ()
    (let ((g (current-target)))
        (if g
            (get-value g))))

(defun current-target-sharability ()
    (let ((g (current-target)))
        (if g
            (get-sharability g))))

(defun current-link-sharability ()
    (let ((g (current-link)))
        (if g
            (get-sharability g))))

(defun get-atom (key)
    (if key
