                 (target-key (get-key target))
                 (target-value (get-value target))
 		        (target-weight (get-weight target))
-		        (target-sharability (get-sharability 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)))


(defun get-sharability (atom)
    (cdr (assoc 'sharability atom)))

(defun view-name (root-id json)
    (let ((title (cdr (assoc 'title json))))


(defun show-info (atom)
    (let (
        (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
                 (if alias (concat " alias: " alias) "")))))

(defun tn-target-info()
    (interactive)
