anchor.diff:  		      (lambda (widget)
   			(declare (ignore widget))
   			(format t "I work! ~%")
  -			(asdf:run-shell-command *path-to-play-hourly*)))
  +		        (play-hourly)))
       
       ;; Attach items to menu
       (gtk-menu-shell-append menu current-hourly)
  
positive.code:     "Register a curr-hourly element or update it's label"
      (if register
  	(setf curr-hourly register)
  	(setf (gtk-menu-item-label curr-hourly) (get-current-hourly)))))
  
  
  (defun build-menu ()
  
negative.code: 	(with-open-file (str *mute-hourly-path* :direction :output)))))
  
  
  (defun current-hourly (&optional new-hourly)
    "Get the current hourly or set it to the value of the optional new-hourly"
    (play-hourly (if new-hourly
  		   (concatenate 'string "-N " new-hourly)
  		   "-c")))
    
  
  (defun random-hourly ()
    "Change to a new randomly selected hourly"
    (play-hourly "-n"))
  
  
  (let ((curr-hourly 'nil))
  