On Sat, Dec 3, 2011 at 2:33 PM, Karl Ham= mar <karl AT aspodata DOT se> wrote:

Luigi:

> your script looks good but you have to manage the growing of the = gafrc file.

Yes, I know.

> Following your way, i'm making the scheme in attachment.

Great.

> Now the needed lines to start the guile script from gafrc are only as<= br> > follow:
> ;
> (define geda-rchome-path (build-path (getenv "HOME") ".= gEDA"))
> (load (build-path geda-rchome-path "local-symbols-library.scm&quo= t;))

It seems I can reduce thoose two lines to:

(load "local-symbols-library.scm")

//////

Appearantly, I can load stuff from my .gEDA dir without any special
magic, nice:

=A0$ tail -1 .gEDA/gafrc
=A0(load "hello.scm")
=A0$ cat .gEDA/hello.scm
=A0(display "Hello World!\n")
=A0$ gschem
=A0Hello World!
=A0^C
=A0$

Even better, if I do:

=A0(load-scheme-dir (build-path (getenv "HOME") ".gEDA/gafrc= .d"))

in my gafrc, gschem will load all my files in ~/.gEDA/gafrc.d.

//////

> ;
> ;
> (component-library-add-tree "personal" "/usr/local/shar= e/symbols")

Adding:

=A0(component-library-add-tree "cvs" "$HOME/Net/cvs/cvs.gedasymbols.= org/www/user")

to my .gafrc didn't do any difference to the library browser, hmm.
<= /blockquote>

To manage $HOME substitution you need getenv:
= =A0 (component-library-add-tree "cvs" (build-path (getenv "H= OME") "/Net/cvs/cvs.gedasymbols.org/www/user"))

Also the "cvs" parameter needs to be a subfolder of "= ;$HOME/Net/cvs/cvs.gedasymbols.org/www/user".
This is a my misunderstan= ding of your idea.

> ;
> ;
>
> At this point the folder name will be used as description in the tree:=
>
> +Generic\ capacitors/
> =A0 =A0 =A0 =A0 =A0cap-1.sym
> =A0+AVX\ Capacitors/
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0idc.sym
>
> I notice an interesting feature if the subfolders are named like:
> Generic\ capacitors/
> =A0 =A0 Generic\ capacitors - AVX/
> =A0 =A0 =A0 =A0 Generic\ capacitors - AVX - IDC/
>
> The items will be displayed sequentially in the tree.

Why not make the string look like "prefix/dir/subdir/.../",= i.e., in
the example above it could be shown as:

"personal/Generic capacitors"
"personal/Generic capacitors/AVX Capacitors"

The version in attachment b= uilds description in that way.
Now the first parameter is a prefix whic= h adds to the folders.
The second parameter is the main folder and will= be excluded from the description string.

so as example a line such:
(component-library-add-tree "cvs&quo= t; (build-path (getenv "HOME") "/Net/cvs/cvs.gedasymbols.org/www/user= "))

will produce as result:
cvs/Capacitors
cvs/Capacitors/AVX
...<= br>=A0

Regards,
/Karl Hammar

-----------------------------------------------------------------------
Asp=F6 Data
Lilla Asp=F6 148
S-742 94 =D6sthammar
Sweden
+46 173 140 57