 
 (defun view-info ()
     (concat
-        "(root: " view-root
-         " :depth " (number-to-string view-depth)
-         " :style " view-style
-         " :sharability [" (number-to-string view-min-sharability) ", " (number-to-string view-default-sharability) ", " (number-to-string view-max-sharability) "]"
-         " :weight [" (number-to-string view-min-weight) ", " (number-to-string view-default-weight) ", " (number-to-string view-max-weight) "]"
-         " :title \"" view-title "\")"))  ;; TODO: actuallly escape the title string
+        "(root: " tn-root
+         " :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) "]"
+         " :weight [" (number-to-string tn-min-weight) ", " (number-to-string tn-default-weight) ", " (number-to-string tn-max-weight) "]"
+         " :title \"" tn-title "\")"))  ;; TODO: actuallly escape the title string
 
 (defun to-forward-style (style)
     (cond

            "&style=" style))

(defun request-search-results (query style minv maxv defaultv minw maxw defaultw)
    (setq view-current-line 1)
    (http-get
        (concat (base-url) "search"
            "?query=" (w3m-url-encode-string query)

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

(defun tn-decrease-link-sharability ()
    (interactive)
    (let ((link (current-link)))
        (if link
