anchor.diff:  
   (defparameter *current-hourly-path* "~/.hourlyplayer/CURRENT_HOURLY")
   (defparameter *mute-hourly-path* "~/.hourlyplayer/MUTE")
  -(defparameter *path-to-play-hourly* "/home/dasbente/bin/play_hourly")
   (defparameter *path-to-icon* "/home/dasbente/.hourlyplayer/placeholder.png")
   
  +
  +(let ((path-to-play-hourly "/home/dasbente/bin/play_hourly"))
  +  (defun play-hourly (&optional args)
  +    "Run play_hourly from shell with the argument list args (as string)"
  +    (uiop:run-program (concatenate 'string
  +				   path-to-play-hourly " " args)
  +		      :output '(:string :stripped t))))
  +
  +
  +(defun current-list (&optional new-list)
  +  "Get the current hourly list or change it to new-list"
  +  (play-hourly (if new-list
  +		   (concatenate 'string "-L " new-list)
  +		   "-C")))
  +
  +
  +(defun new-hourly ()
  +  "Change the hourly to a new random one"
  +  (play-hourly "-n"))
  +
  +
  +(defun current-default (&optional new-default)
  +  "Retrieve the current default hourly or set it to the given argument"
  +  (play-hourly (if new-default
  +		   (concatenate 'string "-D " new-default)
  +		   "-d")))
  +
  +  
   (defun is-mute ()
     "Checks whether the player is currently muted"
     (probe-file *mute-hourly-path*))
  
positive.code: 	(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))
  
  
  (let ((curr-hourly 'nil))
  
negative.code:     "Register a curr-hourly element or update it's label"
      (if register
  	(setf curr-hourly register)
  	(setf (gtk-menu-item-label curr-hourly) (current-hourly)))))
  
  
  (defun build-menu ()
  