           (high color))
         (weighted-average low high weight)))
 
-(defun find-color (weight sharability)
-    (let ((s (elt base-colors (- (ceiling (* sharability 4)) 1))))
+(defun find-color (weight sharability alias)
+    (let ((s (if (and alias (= 1.0 sharability))
+            purple
+            (elt base-colors (- (ceiling (* sharability 4)) 1)))))
         (color-string
             (fade-color (color-part-red s) weight)
             (fade-color (color-part-green s) weight)



;; Uncomment only when debugging
;;(add-hook 'after-init-hook '(lambda () (setq debug-on-error t)))

(provide 'tinkernotes)

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

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

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

