add birthday-cat.png to insert-dashboard-cat function (view.lisp).

A little Easter Egg...

src/view.lisp

@@ -96,7 +96,10 @@
 
 (defun insert-dashboard-cat ()
   (let ((timestamp (local-time:now)))
-    (cond ((and (>= (local-time:timestamp-hour timestamp) 6)
+    (cond ((and (= (local-time:timestamp-day timestamp) 8)
+                (= (local-time:timestamp-month timestamp) 2))
+           (format nil "/images/icons/birthday-cat.png"))
+          ((and (>= (local-time:timestamp-hour timestamp) 6)
 	        (< (local-time:timestamp-hour timestamp) 10))
 	   (format nil "/images/icons/morning-cat.png"))
           ((and (>= (local-time:timestamp-hour timestamp) 10)