 
 (defun show-info (atom)
     (let (
-        (created (cdr (assoc 'created atom)))
-        (value (cdr (assoc 'value atom)))
-        (weight (cdr (assoc 'weight atom)))
-        (sharability (cdr (assoc 'sharability atom))))
+        (created (get-created atom))
+        (value (get-value atom))
+        (weight (get-weight atom))
+        (sharability (get-sharability atom))
+        (alias (get-alias atom)))
             (message (concat
                  "weight: " (number-to-string weight)
                  " sharability: " (number-to-string sharability)
                  " created: " (format-time-string "%Y-%m-%dT%H:%M:%S%z" (seconds-to-time (/ created 1000.0)))
-                 " value: " value))))
+                 " value: " value
+                 (if alias (concat " alias: " alias) "")))))
 
 (defun tn-target-info()
     (interactive)

    (interactive)
    (browse-target-value (lambda (value)
        value)))

(defun tn-browse-target-value-in-amazon ()
    (interactive)

                (target-key (get-key target))
                (target-value (get-value target))
		        (target-weight (get-weight target))
		        (target-sharability (get-sharability target))
		        (target-alias (get-alias target)))
		            (if target-key (puthash target-key target tn-atoms))
		            (if (not target-key) (error "missing target key"))
		            (if (not target-value) (error (concat "missing value for target with key " target-key)))
