             (list (get-text-property (line-beginning-position) 'link-key) (get-text-property (line-beginning-position) 'target-key))
             )))
 
-;;            (list nil nil))))
-
 (defun get-key (atom)
     (cdr (assoc 'key atom)))
 

    (interactive)
    (let ((key (current-target-key)))
        (if key
            (request-view key view-depth view-style view-min-sharability view-max-sharability view-default-sharability view-min-weight view-max-weight view-default-weight)
            (no-target))))

(defun visit-link ()
    (interactive)
    (let ((key (current-link-key)))
        (if key
            (request-view key view-depth view-style view-min-sharability view-max-sharability view-default-sharability view-min-weight view-max-weight view-default-weight)
            (no-link))))

(defun search ()

                    (setq view-style style)
                    (setq view-title title)
                    (setq view-atoms (make-hash-table :test 'equal))
                    (setq tn-view-mode mode)
                    (setq buffer-read-only nil)
                    (erase-buffer)
                    (let ((view-json (json-read-from-string view)))
                        (write-view (cdr (assoc 'children view-json)) (longest-key view-json) 0))
