cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2024-12-28 00:20:00 +01:00
Code Issues

- specialize 'normalize-path' on iri;

Browse Source 
- changed package name: uri-parser -> uri.
This commit is contained in:
cage 2020-12-13 16:27:22 +01:00
parent 62394d319a
commit c0abc807d1
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/iri-parser.lisp
View File

@ -213,9 +213,9 @@
(defrule iri-reference (or iri irelative-ref))
(defclass iri (uri-parser:uri) ())
(defclass iri (uri:uri) ())
(defmethod uri-parser:host ((object iri))
(defmethod uri:host ((object iri))
(let ((host (slot-value object 'host)))
(if (text-utils:string-starts-with-p "[" host)
(subseq host 1 (1- (length host)))
@ -265,6 +265,13 @@
query
fragment)))
(defmethod uri:normalize-path ((object iri))
(let ((clean-path (uri:normalize-path (uri:path object)))
(copy (copy-iri object)))
(when clean-path
(setf (uri:path copy) clean-path))
copy))
(defun render-iri (iri &optional (stream *standard-output*))
(flet ((render ()
(with-output-to-string (string-stream)