Commit Diff

Commit:
a73493792e50f418dc91d5565572e510f007d004
From:
aartaka <aartaka@protonmail.com>
Via:
omar-polo <op@omarpolo.com>
Date:
Message:
gemtext: Type link URLs as strictly quri:uri-s.
Actions:
Patch | Tree
commit - 4800325e843eb78d81f26caa2e281fd33257405c
commit + a73493792e50f418dc91d5565572e510f007d004
blob - 94de3e9649d71506720e08bfbbc32011c1ab3138
blob + dd525c8386f67b6ce888dc2da754ed2a2c6d6033
--- gemtext.lisp
+++ gemtext.lisp
@@ -15,10 +15,9 @@
 Synonymous to the HTML heading levels, i.e. level 1 is <h1> tag, level 2 is <h2> tag etc.")))
 
 (defclass link (element)
-  ((url :initform nil
-        :initarg :url
+  ((url :initarg :url
         :accessor url
-        :type (or null string))))
+        :type quri:uri)))
 
 (defclass item (element)
   ())