anchor.diff:  	(with-open-file (str *mute-hourly-path* :direction :output)))))
   
   
  -(defun get-current-hourly ()
  -  "Retrieves the name of the current hourly"
  -  (let* ((res 'nil)
  -	 (curr (open *current-hourly-path*)))
  -    (setf res (read-line curr))
  -    (close curr)
  -    res))
  +(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))
  
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: 		      (lambda (widget)
  			(declare (ignore widget))
  			(format t "I work! ~%")
  		        (play-hourly)))
      
      ;; Attach items to menu
      (gtk-menu-shell-append menu current-hourly)
  