On Fri, Jan 10, 2025 at 3:01 AM Alexander Burger <picolisp@software-lab.de> wrote:
> I would slightly change it to suppress the "#" if no > jump label is given: > > (de wikiLink (Lst) > (let > (L (++ Lst) > S (split L "#") > Nm (or (pack (car S)) (: nm)) > Loc (if (cdr S) (pack Nm "#" @) Nm) > Str (or (glue " " Lst) Nm) ) > (cond > ((fetch '(nm . +Doc) (fold Nm)) > (<href> Str (pack "?" Loc)) ) > (*Login (<this> '*ID Loc Str)) > (T (ht:Prin Str)) ) ) ) > > What do you think? > > Very neat! That change works well in my testing. Thanks Alex! /Lindsay P.S. I have some questions regarding PicoLisp database functionality, on its own and in an app context like the wiki. I am going to try and work through them on my own first. The wiki code seems a good real-world example to do that with.
