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