D 2018-08-17T03:15:11.118 J icomment Footnote\sanchor\slink\sIDs\sshould\shave\sa\sprefix\sthat\sis\sdeterministic/unique\sto\sthe\sarticle\sin\swhich\sit\sappears,\sso\sthat\sin\sfull-body\slistings\sof\smultiple\sarticles\sthe\sIDs\sdo\snot\scollide.\r\n\r\nSince\sthe\smetas\sof\sthe\scurrent\sarticle\sare\snow\svisible\sto\stag\sfunctions,\sperhaps\sthe\sprefix\sshould\sdefault\sto\ssome\sencoding\sof\s‘here-path’,\sor\sif\sthat\sis\snot\spresent,\ssome\shash\sof\sthe\sfirst\sstring\scontained\sin\sthe\sfirst\selement\sof\sthe\sdocument.\r\n\r\nMD5\shashes\slook\scooler,\sbut\ssome\slight\stesting\sshows\sthat\suri-encode\sfrom\snet/uri-codec\sis\sfaster.\sMaybe\suse\sthat\son\s(remove-ext*\shere-path).\r\n\r\nHere’s\sa\squick\sway\sto\sget\sjust\sa\sstring\sout\sof\sa\stxexpr:\r\n\r\n
(define\s(tx-strs\sxpr)\r\n\s\s(cond\r\n\s\s\s\s[(txexpr?\sxpr)\s(apply\sstring-append\s(map\stx-strs\s(get-elements\sxpr)))]\r\n\s\s\s\s[(string?\sxpr)\sxpr]\r\n\s\s\s\s[else\s""]))
J login joel J mimetype text/x-fossil-wiki J severity Important J status Open J title Make\sfootnote\sanchor\slinks\sunique\sto\seach\sarticle J type Feature\sProposal K 713fa32699d69e855adc037f1067143ac26281bd U joel Z 1667e746c6ed5178c48e4af6ca3bb433