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\s<code>uri-encode</code>\sfrom\s<code>net/uri-codec</code>\sis\sfaster.\sMaybe\suse\sthat\son\s<code>(remove-ext*\shere-path)</code>.\r\n\r\nHere’s\sa\squick\sway\sto\sget\sjust\sa\sstring\sout\sof\sa\stxexpr:\r\n\r\n<pre><code>(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""]))</code></pre>
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