 
 (defun get-sharability (atom)
     (cdr (assoc 'sharability atom)))
+
+(defun get-alias (atom)
+    (let ((x (assoc 'alias atom)))
+        (if x (cdr x) nil)))
 
 (defun view-name (root-id json)
     (let ((title (cdr (assoc 'title json))))


(setq full-colors-supported (> (length (defined-colors)) 8))

(defun colorize (text weight sharability bold background)
    (let ((i (- (ceiling (* sharability 4)) 1)))
            (let ((color
                (if full-colors-supported
                    (find-color weight sharability)
                    (elt reduced-colors (- (ceiling (* sharability 4)) 1)))))
	    (if bold
            (propertize text 'face (list 'bold :foreground color :background background))

        (if g
            (get-value g))))

(defun current-target-alias ()
    (let ((g (current-target)))
        (if g
            (get-alias g))))

(defun current-target-sharability ()
    (let ((g (current-target)))
        (if g
