diff options
| author | Oleg Pykhalov <go.wigust@gmail.com> | 2020-08-06 12:02:42 +0300 |
|---|---|---|
| committer | Oleg Pykhalov <go.wigust@gmail.com> | 2020-08-06 12:04:49 +0300 |
| commit | f1d8a0036f5093bb19833430188f4f297a26b8be (patch) | |
| tree | a188190f5c0d235dce00e6de67156292baeb995c | |
| parent | gnu: Add documentation-supermicro-3u-mnl-2197. (diff) | |
| download | guix-wigust-f1d8a0036f5093bb19833430188f4f297a26b8be.tar.gz | |
guix: haunt-symlinks: Patch read-html-post.
| -rw-r--r-- | guix/haunt-customize-read-html-post.patch | 21 | ||||
| -rw-r--r-- | guix/wigust/packages/guile.scm | 3 |
2 files changed, 23 insertions, 1 deletions
diff --git a/guix/haunt-customize-read-html-post.patch b/guix/haunt-customize-read-html-post.patch new file mode 100644 index 0000000..3a38dc3 --- /dev/null +++ b/guix/haunt-customize-read-html-post.patch @@ -0,0 +1,21 @@ +--- a/haunt/reader.scm 2020-08-06 11:56:32.209142957 +0300 ++++ b/haunt/reader.scm 2020-08-06 11:56:42.337301686 +0300 +@@ -103,10 +103,15 @@ + (values (alist-delete 'content contents eq?) + (assq-ref contents 'content)))))) + +-(define (read-html-post port) ++(define (read-html-post-prime port) + (values (read-metadata-headers port) +- (match (xml->sxml port) +- (('*TOP* sxml) sxml)))) ++ (let loop ((ret '())) ++ (catch 'parser-error ++ (lambda () ++ (match (xml->sxml port) ++ (('*TOP* sxml) (loop (cons sxml ret))))) ++ (lambda (key . parameters) ++ (reverse ret)))))) + + (define html-reader + (make-reader (make-file-extension-matcher "html") diff --git a/guix/wigust/packages/guile.scm b/guix/wigust/packages/guile.scm index 6560a24..19cf244 100644 --- a/guix/wigust/packages/guile.scm +++ b/guix/wigust/packages/guile.scm @@ -21,7 +21,8 @@ (source (origin (inherit (package-source haunt)) - (patches (search-patches "haunt-asset-follow-symlinks.patch")))))) + (patches (search-patches "haunt-asset-follow-symlinks.patch" + "haunt-customize-read-html-post.patch")))))) (define-public guile-feed (let ((commit "ce1dd1a9f7c0eaeccfd05b328fc254afbfb84e44")) |