 (setq view-max-sharability 1)
 (setq view-min-weight 0)
 (setq view-max-weight 1)
+(setq view-atoms nil)
 
 (defun find-id ()
     (let ((line (current-line)))

                (target-value (cdr (assoc 'value target)))
		        (target-weight (cdr (assoc 'weight target)))
		        (target-sharability (cdr (assoc 'sharability target))))
		            ;;(if (not link-key) (error "missing link key"))
		            ;;(if (not link-value) (error (concat "missing value for link with key " link-key)))
		            (if (not link-weight) (error (concat "missing weight for link with key " link-key)))

    (interactive)
    (message (number-to-string (length (defined-colors)))))

(global-set-key (kbd "C-c C-i l") 'link-info)
(global-set-key (kbd "C-c C-i t") 'target-info)
(global-set-key (kbd "C-c s") 'search)
(global-set-key (kbd "C-c p") 'push-view)
(global-set-key (kbd "C-c l") 'visit-link)
