anchor.diff:     (let* ((icon (make-instance 'gtk-status-icon
   			       :pixbuf (gdk-pixbuf-new-from-file
   					*path-to-icon*)
  -			      :tooltip-text "Configure hourly player"))
  -	  (menu (build-menu)))
  +			      :tooltip-text "Configure hourly player")))
   
        ;; Register a user clicking the icon
        (g-signal-connect icon "popup-menu"
   		       (lambda (widget button activate-time)
   			 (declare (ignore widget button activate-time))
  -			 (update-curr-hourly)
  -			 (gtk-menu-popup menu)))))
  +			 (gtk-menu-popup (build-menu))))))
     (loop (sleep 60)))
   
  
positive.code: 		      (lambda (widget)
  			(declare (ignore widget))
  			(toggle-mute)))
  
      ;; Register current hourly item to updater
      (update-curr-hourly current-hourly)
      
      ;; Process pressing the current hourly button
      (g-signal-connect current-hourly "activate"
  
negative.code: (defparameter *path-to-icon* "/home/dasbente/.hourlyplayer/placeholder.png")
  
  
  (defun build-menu ()
    "Builds a pop-up menu for the icon. Currently rebuilds the menu every time!"
    (let ((menu (gtk-menu-new)) 
  	(current-hourly (gtk-menu-item-new-with-label (current-hourly)))
  	(next-hourly (gtk-menu-item-new-with-label "New hourly"))
  	(mute (make-instance 'gtk-check-menu-item
  			     :label "Mute"
  