scheme/gwave-startup.scm

   1
   2 (dbprint "gwave-startup.scm running\n")
   3 ; gwave-startup.scm - this is called with (load ...) from minimal.scm
   4 ;
   5 ; Outline:
   6 ; 1. whatever setup is required before we can load a .gwaverc
   7 ; 2. find and load a .gwaverc
   8 ; 3. load fallback stuff if the user's .gwaverc omitted important things.
   9 ;
  10 ; The point of #3 is to allow both "simple" user .gwaverc's
  11 ; that only set some configuration variables, and also "full-blown" ones
  12 ; where we assume the user really knows what they're doing and will
  13 ; take care of all gwave-specific initializtion that they want, including
  14 ; loading of specific gwave core modules.
  15 ;
  16
  17 (use-modules
  18  (gnome-2)
  19  (gnome gtk)
  20  (app gwave cmds)
  21 )
  22 (define gwave-std-toolbar-loaded #f)
  23 (define gwave-std-args-loaded #f)
  24 (define gwave-std-menus-loaded #f)
  25
  26
  27 ; Variables that can get set or altered in .gwaverc
  28 (define-public gwave-tooltips (gtk-tooltips-new))
  29 (set-wtable-tooltips! gwave-tooltips)
  30 (define default-wavepanel-type 0)
  31 (define gwave-no-std-toolbar #f)
  32 (define gwave-no-std-menus #f)
  33 (define gwave-no-std-args #f)
  34 (define initial-panels 2)
  35 (define default-measure1-function 5)
  36
  37 ;
  38 ; Find a .gwaverc file to load, loading only the first one found.
  39 ; I'm not sure this is quite the model I want:
  40 ; since the program is pretty useless without getting a bunch of things loaded,
  41 ; perhaps they all should be loaded, allowing things to append and override.
  42 ; That requires figuring out how to make the stuff in system.gwaverc more
  43 ; flexibile though.
  44 ;
  45 (let ((home-gwaverc (string-append (getenv "HOME") "/.gwaverc"))
  46       (system-gwaverc (string-append gwave-datadir
  47                                      "/guile/app/gwave/system.gwaverc")))
  48   (if (access? "./.gwaverc" R_OK)
  49       (safe-load "./.gwaverc")
  50       (if (access? home-gwaverc R_OK)
  51           (safe-load home-gwaverc)
  52           (if (access? system-gwaverc R_OK)
  53               (safe-load system-gwaverc)))))
  54
  55 ;
  56 ; Fallbacks if .gwaverc didn't do much - this usually means user had one,
  57 ; but it didn't load any modules.
  58 ;
  59
  60 (if (and (not gwave-std-args-loaded)
  61          (not gwave-no-std-args))
  62     (use-modules (app gwave std-args)))
  63
  64 (if (and (not gwave-std-menus-loaded)
  65          (not gwave-no-std-menus))
  66     (use-modules (app gwave std-menus)
  67                  (app gwave visiblewave-ops) ))
  68
  69 (if (and (not gwave-std-toolbar-loaded)
  70          (not gwave-no-std-toolbar))
  71     (use-modules (app gwave std-toolbar)))
  72
  73 (use-modules (app gwave export-gnuplot))
  74 (use-modules (app gwave export-gnugraph))
  75
  76 (dbprint "gwave-startup.scm done\n")
  77