gEDA-cvs: CVS update: system-gschemrc.in

[cvspsrv@xxxxxxxx]

  User: pcjc2   
  Date: 06/12/27 12:37:56

  Modified:    .        Tag: noscreen system-gschemrc.in
  Log:
  sync with trunk
  
  
  
  
  Revision  Changes    Path
  No                   revision
  
  
  No                   revision
  
  
  1.111.2.1 +20 -3     eda/geda/gaf/gschem/lib/system-gschemrc.in
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: system-gschemrc.in
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/gaf/gschem/lib/system-gschemrc.in,v
  retrieving revision 1.111
  retrieving revision 1.111.2.1
  diff -u -b -r1.111 -r1.111.2.1
  --- system-gschemrc.in	14 Dec 2006 17:56:56 -0000	1.111
  +++ system-gschemrc.in	27 Dec 2006 17:37:56 -0000	1.111.2.1
  @@ -937,13 +937,30 @@
   ;; (define default-titleblock "title-A4.sym")
   ;; Change "title-A4.sym" by the name of your prefered titleblock!
   ;
  -; If you don't want a titleblock to be added automatically, then add the 
  -; following line to your gschemrc file (without the semicolon):
  +; If you don't want a titleblock to be added automatically, then add one of 
  +; the following lines to your gschemrc file (without the semicolon).
  +; There are several ways, so just choose one:
   ;   (define default-titleblock "")
  +;   (define default-titleblock '())
  +;   (define default-titleblock #f)
   ;
   (define default-titleblock "title-B.sym")
  +
  +; Load the regular expressions module
  +(if (provided? 'regex)
  +    (use-modules (ice-9 regex))
  +    (display "Your Guile installation doesn't provide the regex module.\n"))
  +
   (add-hook! new-page-hook (lambda (page)
  -   (if (null? (get-objects-in-page page))
  +   ; Only place the titleblock if there are no objects in the page
  +   ; and the page filename ends in ".sym".
  +   (if (and (null? (get-objects-in-page page))
  +	    ; If the guile installation doesn't provide the regex module,
  +	    ; don't care about the page filename.
  +	    (if (provided? 'regex)
  +		(not (string-match ".*\\.[sS][yY][mM]" 
  +				   (get-page-filename page)))
  +		#t))
   ;      Syntax             Symbol name        X   Y    angle selectable mirrored
          (add-component-at-xy page default-titleblock 40000 40000   0       #f       #f)))
   	   #t)
  
  
  


_______________________________________________
geda-cvs mailing list
geda-cvs@xxxxxxxxxxxxxx
http://www.seul.org/cgi-bin/mailman/listinfo/geda-cvs