anchor.diff:  	(tabs-add-component 'playlist-tabs (get-interpreter) "Interpreter" |0.5 0.9 0.5 0.9|)
   	(tabs-index 'playlist-tabs "Interpreter"))))
   
  -(defun save-playlist-tabs ()
  -  (settings-set "playlist-tabs-id" (get-components 'playlist))
  -  (settings-set "playlist-id" playlist-id))
  -
   (defun on-new-playlist ()
     (setq playlist-id (+ 1 playlist-id))
     (tabs-add-component 'playlist-tabs
   		      (init-playlist (to-id (strs "playlist_" playlist-id)))
   		      (input-box "Playlist Name" "Enter new playlist name: " "New Playlist")
   		      |0.5 0.5 0.5 0.9|)
  -  (tabs-index 'playlist-tabs (- (tabs-count 'playlist-tabs) 1))
  -  ;; TODO: find better place
  -  ;;(save-playlist-tabs)
  -  ;;(settings-save "settings")
  -  )
  +  (tabs-index 'playlist-tabs (- (tabs-count 'playlist-tabs) 1)))
   
   (defun on-stop ()
     (playback-stop)
  
positive.code: (ctags-load "playback-stats")
  (settings-load "settings")
  
  ;; init audio settings
  (audio-settings)
  
  (set-main-component 'l-main)
  (refresh-interface)
  
negative.code: (bind-mouse-click 'b-pause 'on-pause)
  (bind-mouse-click 'b-stop 'on-stop)
  (bind-mouse-click 'b-new-playlist 'on-new-playlist)
  (bind-slider-drag-end 'sl-seek 'on-slider-up '(slider-value))
  (bind-slider-changed 'sl-gain 'on-slider-gain '(slider-value))
  (create-timer 'update-slider 'on-update-slider)
  