                         (if error
                             (error-message error)
                             (error-message msg)))
-		         (refresh-view-new hack-url tn-view-mode))))))))
-
-(defun decrease-link-weight ()
+		         (refresh-view-new hack-url tn-mode))))))))
+
+(defun tn-decrease-link-weight ()
     (interactive)
     (let ((link (current-link)))
         (if link

		            (set-properties key weight (+ sharability 0.25)))
		    (no-link))))

(defun decrease-target-sharability ()
    (interactive)
    (let ((target (current-target)))
        (if target

                 " created: " (format-time-string "%Y-%m-%dT%H:%M:%S%z" (seconds-to-time (/ created 1000.0)))
                 " value: " value))))

(defun tn-link-info ()
    (interactive)
    (let ((link (current-link)))
        (if link
            (show-info link)
            (no-link))))

(defun tn-target-info()
    (interactive)
    (let ((target (current-target)))
        (if target
