(set! %load-path (cons "/home/howyanow/sources/sources_audio/snd-9" %load-path))

(define srfi-loaded #f)

(if (provided? 'snd-motif)
    (if (not (provided? 'snd-popup.scm))
        (load-from-path "popup.scm"))
    (if (not (provided? 'snd-gtk-popup.scm))
	(load-from-path "gtk-popup.scm")))
(if (provided? 'snd-motif)
    (if (not (provided? 'snd-new-effects.scm))
        (load-from-path "new-effects.scm"))
    (if (not (provided? 'snd-gtk-effects.scm))
	(load-from-path "gtk-effects.scm")))

(if (not (provided? 'snd-edit-menu.scm)) (load-from-path "edit-menu.scm"))
(if (not (provided? 'snd-marks-menu.scm)) (load-from-path "marks-menu.scm"))
(if (not (provided? 'snd-toolbar.scm)) (load-from-path "toolbar.scm"))
(with-reopen-menu)

(if (not (provided? 'snd-extensions.scm)) (load-from-path "extensions.scm"))
(check-for-unsaved-edits #t)

(if (not (provided? 'snd-draw.scm)) (load-from-path "draw.scm"))
(make-current-window-display)

(if (not (provided? 'snd-special-menu.scm)) (load-from-path "special-menu.scm"))
(if (not (provided? 'snd-panic.scm)) (load-from-path "panic.scm"))

(define beige (make-color 0.96 0.96 0.86))
(define blue (make-color 0 0 1))
(set! (selected-graph-color) beige)
(set! (selected-data-color) blue)

(bind-key "p" 0 (lambda () (set! (pausing) #f) (play (cursor))) #f "play sound from cursor" "play-from-cursor")

;(set! (window-width) 1275)
;(set! (window-height) 977)
(set! (window-width) 900)
(set! (window-height) 700)
(set! (just-sounds) #t)
(set! (x-axis-style) 5)
(set! (listener-prompt) ":")
(set! (show-indices) #t)
;(show-listener #t)

(set! (save-dir) "/home/howyanow/snd")
(set! (temp-dir) "/tmp")

(set! (ask-before-overwrite) #t)

(set! (graph-style) 2)

(set! (html-program) "firefox")
(set! (html-dir) "/home/howyanow/sources/sources_audio/snd-9")
(set! (with-tracking-cursor) #t)
(set! (cursor-style) 1)

(set! (dac-size) 2048)

(set! (default-output-chans) 1)
(set! (default-output-srate) 44100)
(set! (default-output-header-type) 3)
(set! (default-output-data-format) 4)

;(set! (recorder-autoload) #t)
;(set! (recorder-out-chans) 2)
;(set! (recorder-srate) 44100)
;(set! (recorder-out-header-type) 3)
;(set! (recorder-out-data-format) 4)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; sound files
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-sound-file-extension "ogg")
(add-sound-file-extension "OGG")
(add-sound-file-extension "sf")
(add-sound-file-extension "SF2")
(add-sound-file-extension "mp3")
(add-sound-file-extension "MP3")
(add-sound-file-extension "W01")
(add-sound-file-extension "W02")
(add-sound-file-extension "W03")
(add-sound-file-extension "W04")
(add-sound-file-extension "W05")
(add-sound-file-extension "W06")
(add-sound-file-extension "W07")
(add-sound-file-extension "W08")
(add-sound-file-extension "W09")
(add-sound-file-extension "W10")
(add-sound-file-extension "w01")
(add-sound-file-extension "w02")
(add-sound-file-extension "w03")
(add-sound-file-extension "w04")
(add-sound-file-extension "w05")
(add-sound-file-extension "w06")
(add-sound-file-extension "w07")
(add-sound-file-extension "w08")
(add-sound-file-extension "w09")
(add-sound-file-extension "w10")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; open and convert stereo MP3 files automatically
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-hook! open-raw-sound-hook
           (lambda (file choices)
             (list 2 44100 (if (little-endian?) mus-lshort mus-bshort))))
(add-hook! open-hook
           (lambda (filename)
             (if (= (mus-sound-header-type filename) mus-raw)
                 (let ((rawfile (string-append filename ".raw")))
                   (system (format #f "mpg123 -s ~A > ~A" filename rawfile))
                   rawfile)
                 #f)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; sync channels upon open
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-hook! after-open-hook
  (lambda (snd)
    (if (> (channels snd) 1)
        (begin
          (set! (sync snd) (1+ snd))))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; cause entire file to be displayed when opened
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-hook! initial-graph-hook (lambda (snd chn dur) (list 0.0 dur)))


;(load-from-path "ladspa.scm")
;(load-from-path "ladspa-help.scm")