
; 
; Common init file for gEDA
;

;
; Start of path related keywords
;

; component-library string
; Specify where components exist.
; The string after this keyword should be a valid directory name.
; You should have read access to this directory and all the files inside
; the directory.
; The order of the component-library keywords determines the order they
; are displayed, but they are searched *backwards*, ie last one in this list
; is searched *first*.
; All environment variables *MUST* be in the form ${variable_name}
;
; NOTE: Some of the below component libraries below are commented out.
;       This was done because there are conflicting filenames within these
;       libraries.  Please see Jitterbug #9 on this gEDA/gaf limitation.
;       It will be fixed soon. AVH 01/04/2004
;
(component-library "${GEDADATA}/sym/74")
(component-library "${GEDADATA}/sym/4000")
(component-library "${GEDADATA}/sym/IEC417")
(component-library "${GEDADATA}/sym/amphenol")
(component-library "${GEDADATA}/sym/analog")
(component-library "${GEDADATA}/sym/linear")
(component-library "${GEDADATA}/sym/altera")
(component-library "${GEDADATA}/sym/lattice")
(component-library "${GEDADATA}/sym/xilinx")
(component-library "${GEDADATA}/sym/idt")
(component-library "${GEDADATA}/sym/misc")
(component-library "${GEDADATA}/sym/power")
(component-library "${GEDADATA}/sym/philips")
(component-library "${GEDADATA}/sym/minicircuits")
(component-library "${GEDADATA}/sym/st")
(component-library "${GEDADATA}/sym/apex")
(component-library "${GEDADATA}/sym/allegro")
(component-library "${GEDADATA}/sym/irf")
(component-library "${GEDADATA}/sym/transistor")
(component-library "${GEDADATA}/sym/io")
(component-library "${GEDADATA}/sym/titleblock")
(component-library "${GEDADATA}/sym/memory")
(component-library "${GEDADATA}/sym/micro")
(component-library "${GEDADATA}/sym/maxim")
(component-library "${GEDADATA}/sym/national")
(component-library "${GEDADATA}/sym/radio")
(component-library "${GEDADATA}/sym/tube")
(component-library "${GEDADATA}/sym/connector")
(component-library "${GEDADATA}/sym/switch")
(component-library "${GEDADATA}/sym/switcap")
;(component-library "${GEDADATA}/sym/verilog")
;(component-library "${GEDADATA}/sym/vhdl")
(component-library "${GEDADATA}/sym/spice")
(component-library "${GEDADATA}/sym/rf")
(component-library "${GEDADATA}/sym/bus")
(component-library "${GEDADATA}/sym/pla")
(component-library "${GEDADATA}/sym/ecl")
(component-library "${GEDADATA}/sym/dec")
(component-library "${GEDADATA}/sym/supervisor")
(component-library "${GEDADATA}/sym/opto")
(component-library "${GEDADATA}/sym/diode")
(component-library "${GEDADATA}/sym/relay")
(component-library "${GEDADATA}/sym/cascade")
(component-library "${GEDADATA}/sym/asic")
(component-library "${GEDADATA}/sym/asicpads")
;(component-library "${GEDADATA}/sym/gnetman")
(component-library "${GEDADATA}/sym/local")

; component-library-search atring
;
; Specifies the directory where other component libraries can be found
; The string after this keyword should be a valid directory name.
; You should have read access to this directory and all the files inside
; the directory.
; The order of the component libraries found within the specified directory
; is in inode order.  The libraries found using this keyword will be searched
; *before* the component libraries specified above.
; All environment variables *MUST* be in the form ${variable_name}
;
; This is commented out since it will add in the above commented out
; component libraries automatically and this will most certainly cause
; schematics to break. AVH 01/04/2004
;
;(component-library-search "${GEDADATA}/sym")

; source-library string
; Specify where source entities exist.
; The string after this keyword should be a valid directory name.
; You should have read access to this directory and all the files inside
; the directory.
; The order of the source-library keywords determines the order they
; are displayed, but they are searched *backwards*, ie last one in this list
; is searched *first*.
; All environment variables *MUST* be in the form ${variable_name}
;
; Example:
;(source-library "${HOME}/projects/my_schematics")

; source-library-search atring
;
; Specifies the directory where other source libraries can be found
; The string after this keyword should be a valid directory name.
; You should have read access to this directory and all the files inside
; the directory.
; The order of the source libraries found within the specified directory
; is in inode order.  The libraries found using this keyword will be searched
; *before* the source libraries specified above.
; All environment variables *MUST* be in the form ${variable_name}
;
; Example:
;(source-library-search "${HOME}/projects/my_schematics")

; font-directory string
; Specifies where the vector font definitions are stored.
; You should have read access to this directory and all the files inside
; the directory.
; All environment variables *MUST* be in the form ${variable_name}
;
(define default-font-directory "${GEDADATA}/sym/font")
(font-directory default-font-directory)


; scheme-directory string
; Specifies where the supporting scheme lives
; You should have read access to this directory and all the files inside
; the directory.
; All environment variables *MUST* be in the form ${variable_name}
;
(scheme-directory "${GEDADATA}/scheme")


; bitmap-directory string
; Specifies where the supporting bitmaps live
; You should have read access to this directory and all the files inside
; the directory.
; All environment variables *MUST* be in the form ${variable_name}
;
(bitmap-directory "${GEDADATA}/bitmap")


; postscript-prolog
;
;  Sets 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 "${GEDADATA}/prolog.ps")




;
; End of path related keywords
;

;
; Start of font related keywords
;

(map-font-character-to-file " " (string-append default-font-directory "/" 
					       "space.sym"))

(map-font-character-to-file "\n" (string-append default-font-directory "/" 
						"newline.sym"))

(map-font-character-to-file "!" (string-append default-font-directory "/" 
					       "excl.sym"))
(map-font-character-to-file "," (string-append default-font-directory "/" 
					       "comma.sym"))
(map-font-character-to-file "(" (string-append default-font-directory "/" 
					       "lparen.sym"))
(map-font-character-to-file ")" (string-append default-font-directory "/" 
					       "rparen.sym"))
(map-font-character-to-file "-" (string-append default-font-directory "/" 
					       "minus.sym"))
(map-font-character-to-file "+" (string-append default-font-directory "/" 
					       "plus.sym"))
(map-font-character-to-file "#" (string-append default-font-directory "/" 
					       "pound.sym"))
(map-font-character-to-file "?" (string-append default-font-directory "/" 
					       "quest.sym"))
(map-font-character-to-file "\"" (string-append default-font-directory "/" 
						"quote.sym"))
(map-font-character-to-file ":" (string-append default-font-directory "/" 
					       "colon.sym"))
(map-font-character-to-file "@" (string-append default-font-directory "/" 
					       "at.sym"))
(map-font-character-to-file "=" (string-append default-font-directory "/" 
					       "equal.sym"))
(map-font-character-to-file ">" (string-append default-font-directory "/" 
					       "more.sym"))
(map-font-character-to-file "<" (string-append default-font-directory "/" 
					       "less.sym"))
(map-font-character-to-file "/" (string-append default-font-directory "/" 
					       "slash.sym"))
(map-font-character-to-file "$" (string-append default-font-directory "/" 
					       "dollar.sym"))
(map-font-character-to-file ";" (string-append default-font-directory "/" 
					       "semi.sym"))
(map-font-character-to-file "&" (string-append default-font-directory "/" 
					       "amper.sym"))
(map-font-character-to-file "\\" (string-append default-font-directory "/" 
						"backslash.sym"))
(map-font-character-to-file "{" (string-append default-font-directory "/" 
					       "lbrace.sym"))
(map-font-character-to-file "}" (string-append default-font-directory "/" 
					       "rbrace.sym"))
(map-font-character-to-file "'" (string-append default-font-directory "/" 
					       "apost.sym"))
(map-font-character-to-file "`" (string-append default-font-directory "/" 
					       "backtick.sym"))
(map-font-character-to-file "^" (string-append default-font-directory "/" 
					       "caret.sym"))
(map-font-character-to-file "%" (string-append default-font-directory "/" 
					       "percent.sym"))
(map-font-character-to-file "[" (string-append default-font-directory "/" 
					       "lbrack.sym"))
(map-font-character-to-file "]" (string-append default-font-directory "/" 
					       "rbrack.sym"))
(map-font-character-to-file "*" (string-append default-font-directory "/" 
					       "astericks.sym"))
(map-font-character-to-file "." (string-append default-font-directory "/" 
					       "period.sym"))
(map-font-character-to-file "_" (string-append default-font-directory "/" 
					       "under.sym"))
(map-font-character-to-file "~" (string-append default-font-directory "/" 
					       "tilde.sym"))
(map-font-character-to-file "|" (string-append default-font-directory "/" 
					       "vbar.sym"))

(let ((dir (string-append default-font-directory "/")))
  (for-each
   (lambda (c)
     (map-font-character-to-file (car c) (string-append dir (cdr c))))
   '(
     ;; A-umlaut finnish/swedish/german 
     ("Ä" . "A-diaeresis.sym")
     ;; A-ring finnish/swedish/danish/norwegian
     ("Å" . "A-ring.sym")
     ;; AE-diphtong danish/norwegian 
     ("Æ" . "AE-lig.sym")
     ;; O-umlaut finnish/swedish/german
     ("Ö" . "O-diaeresis.sym")
     ;; O-double_acute_accent hungarian 
     ("Ő" . "O-double-acute-accent.sym")
     ;; O-slash danish/norwegian
     ("Ø" . "O-slash.sym")
     ;; U-umlaut german
     ("Ü" . "U-diaeresis.sym")
     ;; U-double_acute_accent hungarian 
     ("Ű" . "U-double-acute-accent.sym")
     ;; a-umlaut finnish/swedish/german 
     ("ä" . "a_-diaeresis.sym")
     ;; a-ring finnish/swedish/danish/norwegian
     ("å" . "a_-ring.sym")
     ;; ae-diphtong danish/norwegian 
     ("æ" . "ae_-lig.sym")
     ;; o-umlaut finnish/swedish/german 
     ("ö" . "o_-diaeresis.sym")
     ;; o-double_acute_accent hungarian 
     ("ő" . "o_-double-acute-accent.sym")
     ;; o-slash danish/norwegian 
     ("ø" . "o_-slash.sym")
     ;; u-umlaut german 
     ("ü" . "u_-diaeresis.sym")
     ;; u-double_acute_accent hungarian 
     ("ű" . "u_-double-acute-accent.sym")
     ;; a-acute_accent spanish 
     ("á" . "a_-acute-accent.sym")
     ;; e-acute_accent spanish
     ("é" . "e_-acute-accent.sym")
     ;; i-acute_accent spanish
     ("í" . "i_-acute-accent.sym")
     ;; o-acute_accent spanish
     ("ó" . "o_-acute-accent.sym")
     ;; u-acute_accent spanish
     ("ú" . "u_-acute-accent.sym")
     ;; A-acute_accent spanish
     ("Á" . "A-acute-accent.sym")
     ;; E-acute_accent spanish
     ("É" . "E-acute-accent.sym")
     ;; I-acute_accent spanish
     ("Í" . "I-acute-accent.sym")
     ;; O-acute_accent spanish
     ("Ó" . "O-acute-accent.sym")
     ;; U-acute_accent spanish
     ("Ú" . "U-acute-accent.sym")
     ;; n-tilde spanish
     ("ñ" . "n_-tilde.sym")
     ;; N-tilde spanish
     ("Ñ" . "N-tilde.sym")
     ;; open exclamation spanish 
     ("¡" . "excl-open.sym")
     ;; open question spanish
     ("¿" . "quest-open.sym")
     ;; 
     ("ą" . "a_-ogonek.sym")
     ("Ą" . "A-ogonek.sym")
     ("ć" . "c_-acute-accent.sym")
     ("Ć" . "C-acute-accent.sym")
     ("ę" . "e_-ogonek.sym")
     ("Ę" . "E-ogonek.sym")
     ("ł" . "l_-slash.sym")
     ("Ł" . "L-slash.sym")
     ("ń" . "n_-acute-accent.sym")
     ("Ń" . "N-acute-accent.sym")
     ("ś" . "s_-acute-accent.sym")
     ("Ś" . "S-acute-accent.sym")
     ("ź" . "z_-acute-accent.sym")
     ("Ź" . "Z-acute-accent.sym")
     ("ż" . "z_-dot.sym")
     ("Ż" . "Z-dot.sym")
     ;; small mu character greek
     ("µ" . "mu_.sym")

     )))

;
; End of font related keywords
;

;
; Start of attribute promotion keywords
;

; always-promote-attributes string
;
; Contains a list of attributes that are always promoted regardless of
; their visibility.  
(always-promote-attributes "footprint device value model-name")

;
; End of attribute promotion keywords
;
