1 6b4d9ef2 2020-11-09 op (in-package #:phos/gemtext)
  2 6b4d9ef2 2020-11-09 op 
  3 6b4d9ef2 2020-11-09 op (defclass element ()
  4 6b4d9ef2 2020-11-09 op   ((text :initarg :text)))
  5 6b4d9ef2 2020-11-09 op 
  6 6b4d9ef2 2020-11-09 op (defclass title (element)
  7 6b4d9ef2 2020-11-09 op   ((level :initarg :level)))
  8 6b4d9ef2 2020-11-09 op 
  9 6b4d9ef2 2020-11-09 op (defclass link (element)
 10 6b4d9ef2 2020-11-09 op   ((url :initarg :url)))
 11 6b4d9ef2 2020-11-09 op 
 12 6b4d9ef2 2020-11-09 op (defclass item (element)
 13 6b4d9ef2 2020-11-09 op   ())
 14 6b4d9ef2 2020-11-09 op 
 15 6b4d9ef2 2020-11-09 op (defclass paragraph (element)
 16 6b4d9ef2 2020-11-09 op   ())
 17 6b4d9ef2 2020-11-09 op 
 18 880e5010 2022-01-13 noreply (defclass blockquote (element)
 19 880e5010 2022-01-13 noreply   ())
 20 880e5010 2022-01-13 noreply 
 21 6b4d9ef2 2020-11-09 op (defclass verbatim (element)
 22 6b4d9ef2 2020-11-09 op   ((alt :initarg :alt)))
 23 6b4d9ef2 2020-11-09 op 
 24 6b4d9ef2 2020-11-09 op (defun parse-title (s)
 25 6b4d9ef2 2020-11-09 op   "Parse a line into a title."
 26 6b4d9ef2 2020-11-09 op   (destructuring-bind (h text)
 27 6b4d9ef2 2020-11-09 op       (cl-ppcre:split "\\s+" s :limit 2)
 28 6b4d9ef2 2020-11-09 op     (make-instance 'title :level (length h)
 29 6b4d9ef2 2020-11-09 op                           :text text)))
 30 6b4d9ef2 2020-11-09 op 
 31 6b4d9ef2 2020-11-09 op (defun make-link (url &optional text)
 32 0276d770 2020-11-11 op   (make-instance 'link :url (quri:uri url)
 33 0276d770 2020-11-11 op                        :text text))
 34 6b4d9ef2 2020-11-09 op 
 35 6b4d9ef2 2020-11-09 op (defun parse-link (s)
 36 6b4d9ef2 2020-11-09 op   "Parse a line into link."
 37 6b4d9ef2 2020-11-09 op   (match (cl-ppcre:split "\\s+" s :limit 3)
 38 6b4d9ef2 2020-11-09 op     ((list _ url)      (make-link url))
 39 6b4d9ef2 2020-11-09 op     ((list _ url text) (make-link url text))))
 40 6b4d9ef2 2020-11-09 op 
 41 6b4d9ef2 2020-11-09 op (defun parse-item (s)
 42 6b4d9ef2 2020-11-09 op   "Parse a line into an item"
 43 6b4d9ef2 2020-11-09 op   (match (cl-ppcre:split "\\s+" s :limit 2)
 44 6b4d9ef2 2020-11-09 op     ((list _ text) (make-instance 'item :text text))))
 45 6b4d9ef2 2020-11-09 op 
 46 880e5010 2022-01-13 noreply (defun parse-blockquote (s)
 47 880e5010 2022-01-13 noreply   "Parse a line into a blockquote."
 48 880e5010 2022-01-13 noreply   (match (cl-ppcre:split "\\s+" s :limit 2)
 49 880e5010 2022-01-13 noreply     ((list _ text) (make-instance 'blockquote :text text))))
 50 880e5010 2022-01-13 noreply 
 51 6b4d9ef2 2020-11-09 op (defun parse-line (s)
 52 6b4d9ef2 2020-11-09 op   (if (string= s "")
 53 6b4d9ef2 2020-11-09 op       (make-instance 'paragraph :text s)
 54 6b4d9ef2 2020-11-09 op       (case (char s 0)
 55 6b4d9ef2 2020-11-09 op         (#\# (parse-title s))
 56 6b4d9ef2 2020-11-09 op         (#\= (parse-link s))
 57 6b4d9ef2 2020-11-09 op         (#\* (parse-item s))
 58 880e5010 2022-01-13 noreply         (#\> (parse-blockquote s))
 59 6b4d9ef2 2020-11-09 op         (otherwise (make-instance 'paragraph :text s)))))
 60 6b4d9ef2 2020-11-09 op 
 61 6b4d9ef2 2020-11-09 op (defmacro markerp (line)
 62 6b4d9ef2 2020-11-09 op   `(uiop:string-prefix-p "```" ,line))
 63 6b4d9ef2 2020-11-09 op 
 64 0276d770 2020-11-11 op (defun parse (in)
 65 0276d770 2020-11-11 op   "Parse gemtext from the stream IN."
 66 6b4d9ef2 2020-11-09 op   (loop with doc = nil
 67 6b4d9ef2 2020-11-09 op         for line = (read-line in nil)
 68 6b4d9ef2 2020-11-09 op         unless line
 69 6b4d9ef2 2020-11-09 op           return (nreverse doc)
 70 6b4d9ef2 2020-11-09 op         do (push
 71 6b4d9ef2 2020-11-09 op             (if (markerp line)
 72 6b4d9ef2 2020-11-09 op                 (loop with label = (subseq line 3)
 73 6b4d9ef2 2020-11-09 op                       with content = nil
 74 6b4d9ef2 2020-11-09 op                       for line = (read-line in nil)
 75 6b4d9ef2 2020-11-09 op                       unless line
 76 6b4d9ef2 2020-11-09 op                         do (error "non-closed verbatim")
 77 6b4d9ef2 2020-11-09 op                       when (markerp line)
 78 6b4d9ef2 2020-11-09 op                         return (make-instance 'verbatim
 79 6b4d9ef2 2020-11-09 op                                               :alt label
 80 073b25eb 2020-11-09 op                                               :text (format nil "~{~A~%~^~}"
 81 073b25eb 2020-11-09 op                                                             (nreverse content)))
 82 6b4d9ef2 2020-11-09 op                       do (push line content))
 83 6b4d9ef2 2020-11-09 op                 (parse-line line))
 84 6b4d9ef2 2020-11-09 op             doc)))
 85 6b4d9ef2 2020-11-09 op 
 86 0276d770 2020-11-11 op (defun parse-string (str)
 87 0276d770 2020-11-11 op   "Parse the string STR as gemtext."
 88 6b4d9ef2 2020-11-09 op   (with-input-from-string (s str)
 89 0276d770 2020-11-11 op     (parse s)))
 90 6b4d9ef2 2020-11-09 op 
 91 6b4d9ef2 2020-11-09 op ;; (unparse
 92 6b4d9ef2 2020-11-09 op ;;  (with-open-file (stream #P"~/quicklisp/local-projects/phos/test.gmi")
 93 6b4d9ef2 2020-11-09 op ;;    (parse stream))
 94 6b4d9ef2 2020-11-09 op ;;  *standard-output*)
 95 6b4d9ef2 2020-11-09 op 
 96 6b4d9ef2 2020-11-09 op (defgeneric unparse (obj stream)
 97 6b4d9ef2 2020-11-09 op   (:documentation "Print a textual representation of OBJ onto STREAM."))
 98 6b4d9ef2 2020-11-09 op 
 99 6b4d9ef2 2020-11-09 op (defmethod unparse ((l list) stream)
100 6b4d9ef2 2020-11-09 op   (dolist (item l)
101 6b4d9ef2 2020-11-09 op     (unparse item stream)))
102 6b4d9ef2 2020-11-09 op 
103 6b4d9ef2 2020-11-09 op (defmethod unparse ((title title) stream)
104 6b4d9ef2 2020-11-09 op   (with-slots (text level) title
105 6b4d9ef2 2020-11-09 op     (dotimes (_ level)
106 6b4d9ef2 2020-11-09 op       (format stream "#"))
107 6b4d9ef2 2020-11-09 op     (format stream " ~a~%" text)))
108 6b4d9ef2 2020-11-09 op 
109 6b4d9ef2 2020-11-09 op (defmethod unparse ((link link) stream)
110 6b4d9ef2 2020-11-09 op   (with-slots (url text) link
111 6b4d9ef2 2020-11-09 op     (format stream "=> ~a ~a~%" url text)))
112 6b4d9ef2 2020-11-09 op 
113 6b4d9ef2 2020-11-09 op (defmethod unparse ((item item) stream)
114 6b4d9ef2 2020-11-09 op   (with-slots (text) item
115 6b4d9ef2 2020-11-09 op     (format stream "* ~a" text)
116 6b4d9ef2 2020-11-09 op     (terpri)))
117 6b4d9ef2 2020-11-09 op 
118 6b4d9ef2 2020-11-09 op (defmethod unparse ((p paragraph) stream)
119 6b4d9ef2 2020-11-09 op   (with-slots (text) p
120 6b4d9ef2 2020-11-09 op     (format stream "~a" text)
121 6b4d9ef2 2020-11-09 op     (terpri)))
122 6b4d9ef2 2020-11-09 op 
123 6b4d9ef2 2020-11-09 op (defmethod unparse ((v verbatim) stream)
124 6b4d9ef2 2020-11-09 op   (with-slots (alt text) v
125 6b4d9ef2 2020-11-09 op     (format stream "```~a~%~a```~%" alt text)))
126 880e5010 2022-01-13 noreply 
127 880e5010 2022-01-13 noreply (defmethod unparse ((b blockquote) stream)
128 880e5010 2022-01-13 noreply   (with-slots (text) b
129 880e5010 2022-01-13 noreply     (format stream "> ~a~%" text)))