suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

manipulate scribble --redirect option as URL instead of string

Browse Source 
svn: r12229

original commit: 791a911198a8248255981c304c3d0b32eb606942
This commit is contained in:
Matthew Flatt 2008-11-04 11:55:51 +00:00
parent fa3a1de098
commit 1e26551bb6
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/scribble/html-render.ss
View File

@ -847,12 +847,19 @@
`((a [(href `((a [(href
,(if (and ext? external-tag-path) ,(if (and ext? external-tag-path)
;; Redirected to search: ;; Redirected to search:
(format "~a;tag=~a" (url->string
external-tag-path (let ([u (string->url external-tag-path)])
(struct-copy
url
u
[query
(cons (cons 'tag
(bytes->string/utf-8
(base64-encode (base64-encode
(string->bytes/utf-8 (string->bytes/utf-8
(format "~a" (serialize (format "~a" (serialize
(link-element-tag e)))))) (link-element-tag e)))))))
(url-query u))])))
;; Normal link: ;; Normal link:
(format "~a~a~a" (format "~a~a~a"
(from-root (relative->path (dest-path dest)) (from-root (relative->path (dest-path dest))