 (defun current-line-link ()
     (car (find-id)))
 
+(defun show-info (key)
+    (let ((atom (gethash key view-atoms)))
+        (let (
+            (value (cdr (assoc 'value atom)))
+		    (weight (cdr (assoc 'weight atom)))
+	        (sharability (cdr (assoc 'sharability atom))))
+	            (message (concat
+	                 "weight: " (number-to-string weight)
+	                 " sharability: " (number-to-string sharability)
+	                 " value: " value)))))
+
+(defun link-info ()
+    (interactive)
+    (let ((key (current-line-link)))
+        (if key
+            (show-info key))))
+
+(defun target-info()
+    (interactive)
+    (let ((key (current-line-target)))
+        (if key
+            (show-info key))))
+
 (defun visit-target ()
     (interactive)
     (let ((key (current-line-target)))

                (style (cdr (assoc 'style json)))
                (title (cdr (assoc 'title json))))
                    (switch-to-buffer (view-name root))
                    ;;(tinkernotes-mode)
                    (erase-buffer)
                    (let ((view-json (json-read-from-string view)))
                        (write-view (cdr (assoc 'children view-json)) 0))
                    (beginning-of-buffer)
                    (make-local-variable 'view-root)
                    (make-local-variable 'view-depth)
                    (make-local-variable 'view-style)

(global-set-key (kbd "C-c C-w C-[ .") 'increase-min-weight)
(global-set-key (kbd "C-c C-w C-] ,") 'decrease-max-weight)
(global-set-key (kbd "C-c C-w C-] .") 'increase-max-weight)
(global-set-key (kbd "C-c C-s C-[ ,") 'decrease-min-sharability)
(global-set-key (kbd "C-c C-s C-[ .") 'increase-min-sharability)
(global-set-key (kbd "C-c C-s C-] ,") 'decrease-max-sharability)
(global-set-key (kbd "C-c C-s C-] .") 'increase-max-sharability)
(global-set-key (kbd "C-c C-l C-w ,") 'decrease-link-weight)
(global-set-key (kbd "C-c C-l C-w .") 'increase-link-weight)
(global-set-key (kbd "C-c C-t C-w ,") 'decrease-target-weight)
