src/.gwaverc

   1 ;-*- mode: scheme -*-
   2
   3 (dbprint "in my experimental .gwaverc\n")
   4
   5 (debug-enable 'debug)
   6 (read-enable 'positions)
   7
   8 ; example of loading additional modules of guile code.
   9 ; this particular one creates another menu item.
  10 (use-modules
  11  (app gwave extra-menus)
  12  (app gwave utils)
  13 )
  14
  15 ; Uncomment this to turn off tooltips (popup hints on buttons).
  16 ;(gtk-tooltips-disable gwave-tooltips)
  17
  18 ; Number of initial wave panels to create.
  19 (set! initial-panels 2)
  20
  21 ; wavepanel type 0=original, tall, with min/max labels.  Good for analog.
  22 ;                1=short, no extra labels. Fit more panels for digital.
  23 ; 0 is the default.
  24 (set! default-wavepanel-type 0)
  25
  26 (add-hook!
  27  new-wavefile-hook
  28  (lambda (df)
  29    (let ((du (find-dotupper (wavefile-file-name df))))
  30      (if du
  31          (wavefile-set-tag! df du)))))
  32
  33 (dbprint "experimental .gwaverc done\n")