anchor.diff:    (component-enabled 'sl-seek t)
     (playback-start))
   
  -;; show explorer test (show-directory-in-explorer (extract-file-path "/home/calx/Downloads/somefile.png"))
  +(defun on-playlist-select (item-index playlist-name)
  +  (setq selected-playlist playlist-name)
  +  (setq selected-index item-index))
   
   (defun playback-changed ()
     (repaint-component 'pan)
  
positive.code: (bind-key "F3" 'on-f3)
  (bind-key "escape" 'on-disable-filter)
  
  ;; make things visible
  (set-main-component 'l-main)
  (refresh-interface)
  
negative.code: (defvar current-id "") ;; item unique ID (you may wish to use it to tracks unique ID key)
  (defvar current-index 0)
  (defvar current-playlist nil)
  (defvar selected-playlist nil)
  (defvar selected-index -1)
  
  (defun playlist-column-count-group (playlist-name row width height)
    (g-set-color |0.0 0.9 0.1 1.0|)
  