libgeda/lib/system-gafrc

   1 ;                                                         -*-Scheme-*-
   2 ;;;
   3 ;;; Common init file for gaf
   4 ;;;
   5
   6 ; The following global variables are defined by libgeda:
   7 ;
   8 ; path-sep       -- system path separator
   9 ; geda-data-path -- path to gEDA system-wide data directory
  10 ; geda-rc-path   -- path to gEDA system-wide config directory
  11
  12 ;; Set some flags to aid in debugging rc files
  13 (cond-expand (guile-2 #t)
  14              (guile (debug-enable 'debug)))
  15 (debug-enable 'backtrace)
  16 (read-enable 'positions)
  17
  18 ; The libgeda Scheme library provides a number of useful functions for
  19 ; writing Scheme code for embedding in gaf.
  20 (load-from-path "geda.scm")
  21
  22 ;; Import deprecated Scheme functions
  23 (use-modules (geda deprecated))
  24
  25
  26 ;; The directory containing various bitmaps (e.g. icons)
  27 (bitmap-directory (build-path geda-data-path "bitmap"))
  28
  29 ; Set the name of the postscript prolog file that will be
  30 ; pasted into the postscript output after the DSC comments, but
  31 ; before the main script.
  32 (postscript-prolog (build-path geda-data-path "prolog.ps"))
  33
  34 ; scheme-directory dir
  35 ;
  36 ; This keyword allows additional directories to be added to the list
  37 ; of directories which are used by gEDA to load Scheme code.
  38 ; Environment variables in 'dir' are expanded.  By default,
  39 ; '${GEDADATA}/scheme' is in the load path, as are all of the standard
  40 ; Guile Scheme libraries.
  41 ;(scheme-directory "${HOME}/.gEDA/scheme")
  42
  43 ;
  44 ; Start of attribute promotion keywords
  45 ;
  46
  47 ; attribute-promotion string
  48 ;
  49 ; This keyword controls if attribute promotion occurs when you instanciate a
  50 ; component.  Attribute promotion basically means that any floating attribute
  51 ; (unattached) which is inside a symbol gets "promoted" or attached to the
  52 ; newly inserted component.  This only occurs when the component is
  53 ; instanciated.
  54 ;
  55 (attribute-promotion "enabled")
  56 ;(attribute-promotion "disabled")
  57
  58 ; promote-invisible string
  59 ;
  60 ; If attribute-promotion is enabled, then this controls if invisible floating
  61 ; attributes are promoted (attached to the outside of the component) if the
  62 ; text string is invisible.  There are cases where it is undesirable, so the
  63 ; default is disabled.
  64 ;
  65 ;(promote-invisible "enabled")
  66 (promote-invisible "disabled")
  67
  68 ; keep-invisible string
  69 ;
  70 ; If both attribute-promotion and promote-invisible are enabled, then this
  71 ; controls if invisible floating attributes are kept around in memory and
  72 ; NOT deleted.  Having this enabled will keeps component slotting working.
  73 ; If attribute-promotion and promote-invisible are enabled and this
  74 ; keyword is disabled, then component slotting will NOT work (and maybe
  75 ; other functions which depend on hidden attributes, since those attributes
  76 ; are deleted from memory).
  77 ;
  78 ;(keep-invisible "disabled")
  79 (keep-invisible "enabled")
  80
  81 ; always-promote-attributes
  82 ;
  83 ; Set the list of attributes that are always promoted regardless of
  84 ; their visibility. The list should be a scm list of strings. The
  85 ; space separated attribute names are deprecated.
  86 ;
  87 ;(always-promote-attributes "footprint device value model-name")
  88 (always-promote-attributes '("footprint" "device" "value" "model-name"))
  89
  90 ;
  91 ; End of attribute promotion keywords
  92 ;
  93
  94 ;;;; Color maps
  95
  96 ;; Load functions for handling color maps
  97 (load-from-path "color-map.scm")
  98
  99 ;; Make the printing color map more user-friendly
 100 (color-map-make-friendly print-color-map)
 101
 102 ;; Load up a color scheme for printing optimised for a dark background.
 103 ; Comment out the first line and comment in the second line for a
 104 ; white background. The dark background is the original look.
 105 ;
 106 (load (build-path geda-rc-path "print-colormap-darkbg")) ; dark background
 107 ;(load (build-path geda-rc-path "print-colormap-lightbg")) ; light background
 108
 109
 110 ;;;; Process configuration script directory
 111
 112 ;; The directory containing any extra scheme files to load
 113 (define geda-confd-path (build-path geda-data-path "gafrc.d"))
 114
 115 ;; Execute any scheme files found in the geda-confd-path directory.
 116 (load-scheme-dir geda-confd-path)